https://launchpad.net/ubuntu/+source/cafeobj/1.6.0-2build1/+build/24183204 RUN: /usr/share/launchpad-buildd/bin/builder-prep Kernel version: Linux lcy02-amd64-013 5.4.0-122-generic #138-Ubuntu SMP Wed Jun 22 15:00:31 UTC 2022 x86_64 Buildd toolchain package versions: launchpad-buildd_216~573~ubuntu20.04.1 python3-lpbuildd_216~573~ubuntu20.04.1 sbuild_0.79.0-1ubuntu1 git-build-recipe_0.3.6 git_1:2.25.1-1ubuntu3.5 dpkg-dev_1.19.7ubuntu3.2 python3-debian_0.1.36ubuntu1. Syncing the system clock with the buildd NTP service... 19 Jul 12:25:58 ntpdate[1802]: adjust time server 10.131.248.1 offset 0.001040 sec RUN: /usr/share/launchpad-buildd/bin/in-target unpack-chroot --backend=chroot --series=kinetic --arch=amd64 PACKAGEBUILD-24183204 --image-type chroot /home/buildd/filecache-default/4d18961cd05542d5def75b14497015b674c37821 Creating target for build PACKAGEBUILD-24183204 RUN: /usr/share/launchpad-buildd/bin/in-target mount-chroot --backend=chroot --series=kinetic --arch=amd64 PACKAGEBUILD-24183204 Starting target for build PACKAGEBUILD-24183204 RUN: /usr/share/launchpad-buildd/bin/in-target override-sources-list --backend=chroot --series=kinetic --arch=amd64 PACKAGEBUILD-24183204 'deb http://ftpmaster.internal/ubuntu kinetic main universe' 'deb http://ftpmaster.internal/ubuntu kinetic-security main universe' 'deb http://ftpmaster.internal/ubuntu kinetic-updates main universe' 'deb http://ftpmaster.internal/ubuntu kinetic-proposed main universe' Overriding sources.list in build-PACKAGEBUILD-24183204 RUN: /usr/share/launchpad-buildd/bin/in-target update-debian-chroot --backend=chroot --series=kinetic --arch=amd64 PACKAGEBUILD-24183204 Updating target for build PACKAGEBUILD-24183204 Get:1 http://ftpmaster.internal/ubuntu kinetic InRelease [267 kB] Get:2 http://ftpmaster.internal/ubuntu kinetic-security InRelease [90.7 kB] Get:3 http://ftpmaster.internal/ubuntu kinetic-updates InRelease [90.7 kB] Get:4 http://ftpmaster.internal/ubuntu kinetic-proposed InRelease [118 kB] Get:5 http://ftpmaster.internal/ubuntu kinetic/main amd64 Packages [1402 kB] Get:6 http://ftpmaster.internal/ubuntu kinetic/main Translation-en [512 kB] Get:7 http://ftpmaster.internal/ubuntu kinetic/universe amd64 Packages [14.5 MB] Get:8 http://ftpmaster.internal/ubuntu kinetic/universe Translation-en [5764 kB] Get:9 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 Packages [145 kB] Get:10 http://ftpmaster.internal/ubuntu kinetic-proposed/main Translation-en [40.3 kB] Get:11 http://ftpmaster.internal/ubuntu kinetic-proposed/universe amd64 Packages [319 kB] Get:12 http://ftpmaster.internal/ubuntu kinetic-proposed/universe Translation-en [198 kB] Fetched 23.4 MB in 2s (11.2 MB/s) Reading package lists... Reading package lists... Building dependency tree... Reading state information... Calculating upgrade... The following NEW packages will be installed: libfdisk1 libgprofng0 sgml-base util-linux-extra The following packages will be upgraded: adduser apt base-files binutils binutils-common binutils-x86-64-linux-gnu bsdutils cpp-11 dash dpkg dpkg-dev e2fsprogs fakeroot g++-11 gcc-11 gcc-11-base gcc-12-base gpg gpg-agent gpgconf gpgv init init-system-helpers libapparmor1 libapt-pkg6.0 libasan6 libassuan0 libatomic1 libbinutils libblkid1 libcap-ng0 libcc1-0 libcom-err2 libcrypt-dev libcrypt1 libctf-nobfd0 libctf0 libdb5.3 libdpkg-perl libext2fs2 libfakeroot libgcc-11-dev libgcc-s1 libgcrypt20 libgnutls30 libgomp1 libgpg-error0 libidn2-0 libip4tc2 libisl23 libitm1 libkeyutils1 liblsan0 liblzma5 libmount1 libncurses6 libncursesw6 libperl5.34 libpng16-16 libquadmath0 libreadline8 libselinux1 libsemanage-common libsemanage2 libsepol2 libsmartcols1 libsqlite3-0 libss2 libssl3 libstdc++-11-dev libstdc++6 libsystemd0 libtinfo6 libtsan0 libubsan1 libudev1 libuuid1 libzstd1 linux-libc-dev login logsave lto-disabled-list mawk mount ncurses-base ncurses-bin openssl passwd perl perl-base perl-modules-5.34 pinentry-curses policyrcd-script-zg2 readline-common systemd systemd-sysv util-linux xz-utils 98 upgraded, 4 newly installed, 0 to remove and 0 not upgraded. Need to get 93.1 MB of archives. After this operation, 6349 kB of additional disk space will be used. Get:1 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libcrypt-dev amd64 1:4.4.28-2 [112 kB] Get:2 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libcrypt1 amd64 1:4.4.28-2 [80.0 kB] Get:3 http://ftpmaster.internal/ubuntu kinetic/main amd64 base-files amd64 12.2ubuntu2 [73.2 kB] Get:4 http://ftpmaster.internal/ubuntu kinetic/main amd64 bsdutils amd64 1:2.38-4ubuntu1 [80.7 kB] Get:5 http://ftpmaster.internal/ubuntu kinetic/main amd64 libzstd1 amd64 1.5.2+dfsg-1 [270 kB] Get:6 http://ftpmaster.internal/ubuntu kinetic/main amd64 libgpg-error0 amd64 1.45-2 [69.0 kB] Get:7 http://ftpmaster.internal/ubuntu kinetic/main amd64 libgcrypt20 amd64 1.10.1-2ubuntu1 [524 kB] Get:8 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libatomic1 amd64 12.1.0-7ubuntu1 [10.4 kB] Get:9 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libubsan1 amd64 12.1.0-7ubuntu1 [969 kB] Get:10 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libquadmath0 amd64 12.1.0-7ubuntu1 [152 kB] Get:11 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 liblsan0 amd64 12.1.0-7ubuntu1 [1060 kB] Get:12 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libitm1 amd64 12.1.0-7ubuntu1 [29.4 kB] Get:13 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libgomp1 amd64 12.1.0-7ubuntu1 [125 kB] Get:14 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 gcc-12-base amd64 12.1.0-7ubuntu1 [19.3 kB] Get:15 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libgcc-s1 amd64 12.1.0-7ubuntu1 [54.2 kB] Get:16 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libcc1-0 amd64 12.1.0-7ubuntu1 [46.4 kB] Get:17 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libstdc++6 amd64 12.1.0-7ubuntu1 [679 kB] Get:18 http://ftpmaster.internal/ubuntu kinetic/main amd64 liblzma5 amd64 5.2.5-2.1 [99.2 kB] Get:19 http://ftpmaster.internal/ubuntu kinetic/main amd64 libblkid1 amd64 2.38-4ubuntu1 [103 kB] Get:20 http://ftpmaster.internal/ubuntu kinetic/main amd64 libuuid1 amd64 2.38-4ubuntu1 [23.2 kB] Get:21 http://ftpmaster.internal/ubuntu kinetic/main amd64 libfdisk1 amd64 2.38-4ubuntu1 [144 kB] Get:22 http://ftpmaster.internal/ubuntu kinetic/main amd64 systemd-sysv amd64 251.2-2ubuntu1 [11.2 kB] Get:23 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libapparmor1 amd64 3.0.4-3ubuntu1 [37.9 kB] Get:24 http://ftpmaster.internal/ubuntu kinetic/main amd64 libip4tc2 amd64 1.8.7-1ubuntu6 [19.7 kB] Get:25 http://ftpmaster.internal/ubuntu kinetic/main amd64 libselinux1 amd64 3.4-1 [77.6 kB] Get:26 http://ftpmaster.internal/ubuntu kinetic/main amd64 libmount1 amd64 2.38-4ubuntu1 [121 kB] Get:27 http://ftpmaster.internal/ubuntu kinetic/main amd64 libssl3 amd64 3.0.4-1ubuntu1 [1898 kB] Get:28 http://ftpmaster.internal/ubuntu kinetic/main amd64 mount amd64 2.38-4ubuntu1 [114 kB] Get:29 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsemanage-common all 3.4-1 [9828 B] Get:30 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsepol2 amd64 3.4-2 [294 kB] Get:31 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsemanage2 amd64 3.4-1 [91.8 kB] Get:32 http://ftpmaster.internal/ubuntu kinetic/main amd64 passwd amd64 1:4.11.1+dfsg1-2ubuntu1 [765 kB] Get:33 http://ftpmaster.internal/ubuntu kinetic/main amd64 adduser all 3.121ubuntu1 [150 kB] Get:34 http://ftpmaster.internal/ubuntu kinetic/main amd64 systemd amd64 251.2-2ubuntu1 [4725 kB] Get:35 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsystemd0 amd64 251.2-2ubuntu1 [327 kB] Get:36 http://ftpmaster.internal/ubuntu kinetic/main amd64 libudev1 amd64 251.2-2ubuntu1 [81.5 kB] Get:37 http://ftpmaster.internal/ubuntu kinetic/main amd64 libapt-pkg6.0 amd64 2.5.1 [898 kB] Get:38 http://ftpmaster.internal/ubuntu kinetic/main amd64 dpkg amd64 1.21.9ubuntu1 [1334 kB] Get:39 http://ftpmaster.internal/ubuntu kinetic/main amd64 dash amd64 0.5.11+git20210903+057cd650a4ed-8ubuntu1 [88.2 kB] Get:40 http://ftpmaster.internal/ubuntu kinetic/main amd64 login amd64 1:4.11.1+dfsg1-2ubuntu1 [183 kB] Get:41 http://ftpmaster.internal/ubuntu kinetic/main amd64 ncurses-bin amd64 6.3+20220423-2 [183 kB] Get:42 http://ftpmaster.internal/ubuntu kinetic/main amd64 libperl5.34 amd64 5.34.0-5ubuntu1 [4691 kB] Get:43 http://ftpmaster.internal/ubuntu kinetic/main amd64 perl amd64 5.34.0-5ubuntu1 [231 kB] Get:44 http://ftpmaster.internal/ubuntu kinetic/main amd64 perl-base amd64 5.34.0-5ubuntu1 [1739 kB] Get:45 http://ftpmaster.internal/ubuntu kinetic/main amd64 perl-modules-5.34 all 5.34.0-5ubuntu1 [2952 kB] Get:46 http://ftpmaster.internal/ubuntu kinetic/main amd64 libdb5.3 amd64 5.3.28+dfsg1-0.10 [721 kB] Get:47 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsmartcols1 amd64 2.38-4ubuntu1 [50.8 kB] Get:48 http://ftpmaster.internal/ubuntu kinetic/main amd64 util-linux-extra amd64 2.38-4ubuntu1 [83.8 kB] Get:49 http://ftpmaster.internal/ubuntu kinetic/main amd64 util-linux amd64 2.38-4ubuntu1 [1069 kB] Get:50 http://ftpmaster.internal/ubuntu kinetic/main amd64 init-system-helpers all 1.64 [38.7 kB] Get:51 http://ftpmaster.internal/ubuntu kinetic/main amd64 ncurses-base all 6.3+20220423-2 [21.2 kB] Get:52 http://ftpmaster.internal/ubuntu kinetic/main amd64 sgml-base all 1.30 [12.5 kB] Get:53 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libidn2-0 amd64 2.3.3-1 [62.9 kB] Get:54 http://ftpmaster.internal/ubuntu kinetic/main amd64 libgnutls30 amd64 3.7.6-2ubuntu1 [968 kB] Get:55 http://ftpmaster.internal/ubuntu kinetic/main amd64 gpgv amd64 2.2.27-3ubuntu3 [135 kB] Get:56 http://ftpmaster.internal/ubuntu kinetic/main amd64 apt amd64 2.5.1 [1368 kB] Get:57 http://ftpmaster.internal/ubuntu kinetic/main amd64 logsave amd64 1.46.5-2ubuntu2 [9914 B] Get:58 http://ftpmaster.internal/ubuntu kinetic/main amd64 libext2fs2 amd64 1.46.5-2ubuntu2 [205 kB] Get:59 http://ftpmaster.internal/ubuntu kinetic/main amd64 e2fsprogs amd64 1.46.5-2ubuntu2 [585 kB] Get:60 http://ftpmaster.internal/ubuntu kinetic/main amd64 init amd64 1.64 [5536 B] Get:61 http://ftpmaster.internal/ubuntu kinetic/main amd64 libcap-ng0 amd64 0.8.3-1 [15.7 kB] Get:62 http://ftpmaster.internal/ubuntu kinetic/main amd64 libncurses6 amd64 6.3+20220423-2 [110 kB] Get:63 http://ftpmaster.internal/ubuntu kinetic/main amd64 libncursesw6 amd64 6.3+20220423-2 [146 kB] Get:64 http://ftpmaster.internal/ubuntu kinetic/main amd64 libtinfo6 amd64 6.3+20220423-2 [99.6 kB] Get:65 http://ftpmaster.internal/ubuntu kinetic/main amd64 libcom-err2 amd64 1.46.5-2ubuntu2 [9074 B] Get:66 http://ftpmaster.internal/ubuntu kinetic/main amd64 libss2 amd64 1.46.5-2ubuntu2 [12.3 kB] Get:67 http://ftpmaster.internal/ubuntu kinetic/main amd64 mawk amd64 1.3.4.20200120-3.1 [109 kB] Get:68 http://ftpmaster.internal/ubuntu kinetic/main amd64 libkeyutils1 amd64 1.6.1-3ubuntu1 [10.1 kB] Get:69 http://ftpmaster.internal/ubuntu kinetic/main amd64 readline-common all 8.1.2-1.2 [53.6 kB] Get:70 http://ftpmaster.internal/ubuntu kinetic/main amd64 libreadline8 amd64 8.1.2-1.2 [153 kB] Get:71 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 libsqlite3-0 amd64 3.39.1-1 [646 kB] Get:72 http://ftpmaster.internal/ubuntu kinetic/main amd64 openssl amd64 3.0.4-1ubuntu1 [1176 kB] Get:73 http://ftpmaster.internal/ubuntu kinetic/main amd64 libpng16-16 amd64 1.6.37-5 [187 kB] Get:74 http://ftpmaster.internal/ubuntu kinetic/main amd64 xz-utils amd64 5.2.5-2.1 [83.8 kB] Get:75 http://ftpmaster.internal/ubuntu kinetic/main amd64 libctf0 amd64 2.38.90.20220713-2ubuntu1 [104 kB] Get:76 http://ftpmaster.internal/ubuntu kinetic/main amd64 libctf-nobfd0 amd64 2.38.90.20220713-2ubuntu1 [107 kB] Get:77 http://ftpmaster.internal/ubuntu kinetic/main amd64 libgprofng0 amd64 2.38.90.20220713-2ubuntu1 [963 kB] Get:78 http://ftpmaster.internal/ubuntu kinetic/main amd64 libbinutils amd64 2.38.90.20220713-2ubuntu1 [654 kB] Get:79 http://ftpmaster.internal/ubuntu kinetic/main amd64 binutils amd64 2.38.90.20220713-2ubuntu1 [3300 B] Get:80 http://ftpmaster.internal/ubuntu kinetic/main amd64 binutils-common amd64 2.38.90.20220713-2ubuntu1 [225 kB] Get:81 http://ftpmaster.internal/ubuntu kinetic/main amd64 binutils-x86-64-linux-gnu amd64 2.38.90.20220713-2ubuntu1 [2552 kB] Get:82 http://ftpmaster.internal/ubuntu kinetic/main amd64 g++-11 amd64 11.3.0-4ubuntu1 [11.3 MB] Get:83 http://ftpmaster.internal/ubuntu kinetic/main amd64 libstdc++-11-dev amd64 11.3.0-4ubuntu1 [2075 kB] Get:84 http://ftpmaster.internal/ubuntu kinetic/main amd64 libasan6 amd64 11.3.0-4ubuntu1 [2267 kB] Get:85 http://ftpmaster.internal/ubuntu kinetic/main amd64 gcc-11 amd64 11.3.0-4ubuntu1 [20.0 MB] Get:86 http://ftpmaster.internal/ubuntu kinetic/main amd64 libgcc-11-dev amd64 11.3.0-4ubuntu1 [2486 kB] Get:87 http://ftpmaster.internal/ubuntu kinetic/main amd64 libtsan0 amd64 11.3.0-4ubuntu1 [2244 kB] Get:88 http://ftpmaster.internal/ubuntu kinetic/main amd64 cpp-11 amd64 11.3.0-4ubuntu1 [9909 kB] Get:89 http://ftpmaster.internal/ubuntu kinetic/main amd64 gcc-11-base amd64 11.3.0-4ubuntu1 [20.5 kB] Get:90 http://ftpmaster.internal/ubuntu kinetic/main amd64 libisl23 amd64 0.25-1 [740 kB] Get:91 http://ftpmaster.internal/ubuntu kinetic/main amd64 dpkg-dev all 1.21.9ubuntu1 [1070 kB] Get:92 http://ftpmaster.internal/ubuntu kinetic/main amd64 libdpkg-perl all 1.21.9ubuntu1 [237 kB] Get:93 http://ftpmaster.internal/ubuntu kinetic/main amd64 lto-disabled-list all 29 [12.3 kB] Get:94 http://ftpmaster.internal/ubuntu kinetic/main amd64 libfakeroot amd64 1.29-1ubuntu1 [31.1 kB] Get:95 http://ftpmaster.internal/ubuntu kinetic/main amd64 fakeroot amd64 1.29-1ubuntu1 [60.0 kB] Get:96 http://ftpmaster.internal/ubuntu kinetic/main amd64 libassuan0 amd64 2.5.5-4 [37.2 kB] Get:97 http://ftpmaster.internal/ubuntu kinetic/main amd64 pinentry-curses amd64 1.2.0-2ubuntu1 [34.5 kB] Get:98 http://ftpmaster.internal/ubuntu kinetic/main amd64 gpg amd64 2.2.27-3ubuntu3 [512 kB] Get:99 http://ftpmaster.internal/ubuntu kinetic/main amd64 gpgconf amd64 2.2.27-3ubuntu3 [91.7 kB] Get:100 http://ftpmaster.internal/ubuntu kinetic/main amd64 gpg-agent amd64 2.2.27-3ubuntu3 [205 kB] Get:101 http://ftpmaster.internal/ubuntu kinetic-proposed/main amd64 linux-libc-dev amd64 5.19.0-9.9 [1293 kB] Get:102 http://ftpmaster.internal/ubuntu kinetic/main amd64 policyrcd-script-zg2 all 0.1-3.1 [5730 B] debconf: delaying package configuration, since apt-utils is not installed Fetched 93.1 MB in 1s (144 MB/s) (Reading database ... 13449 files and directories currently installed.) Preparing to unpack .../libcrypt-dev_1%3a4.4.28-2_amd64.deb ... Unpacking libcrypt-dev:amd64 (1:4.4.28-2) over (1:4.4.27-1) ... Preparing to unpack .../libcrypt1_1%3a4.4.28-2_amd64.deb ... Unpacking libcrypt1:amd64 (1:4.4.28-2) over (1:4.4.27-1) ... Setting up libcrypt1:amd64 (1:4.4.28-2) ... (Reading database ... 13451 files and directories currently installed.) Preparing to unpack .../base-files_12.2ubuntu2_amd64.deb ... Unpacking base-files (12.2ubuntu2) over (12ubuntu5) ... Setting up base-files (12.2ubuntu2) ... (Reading database ... 13463 files and directories currently installed.) Preparing to unpack .../bsdutils_1%3a2.38-4ubuntu1_amd64.deb ... Unpacking bsdutils (1:2.38-4ubuntu1) over (1:2.37.2-4ubuntu3) ... Setting up bsdutils (1:2.38-4ubuntu1) ... (Reading database ... 13463 files and directories currently installed.) Preparing to unpack .../libzstd1_1.5.2+dfsg-1_amd64.deb ... Unpacking libzstd1:amd64 (1.5.2+dfsg-1) over (1.4.8+dfsg-3build1) ... Setting up libzstd1:amd64 (1.5.2+dfsg-1) ... (Reading database ... 13463 files and directories currently installed.) Preparing to unpack .../libgpg-error0_1.45-2_amd64.deb ... Unpacking libgpg-error0:amd64 (1.45-2) over (1.43-3) ... Setting up libgpg-error0:amd64 (1.45-2) ... (Reading database ... 13463 files and directories currently installed.) Preparing to unpack .../libgcrypt20_1.10.1-2ubuntu1_amd64.deb ... Unpacking libgcrypt20:amd64 (1.10.1-2ubuntu1) over (1.9.4-3ubuntu3) ... Setting up libgcrypt20:amd64 (1.10.1-2ubuntu1) ... (Reading database ... 13465 files and directories currently installed.) Preparing to unpack .../0-libatomic1_12.1.0-7ubuntu1_amd64.deb ... Unpacking libatomic1:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../1-libubsan1_12.1.0-7ubuntu1_amd64.deb ... Unpacking libubsan1:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../2-libquadmath0_12.1.0-7ubuntu1_amd64.deb ... Unpacking libquadmath0:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../3-liblsan0_12.1.0-7ubuntu1_amd64.deb ... Unpacking liblsan0:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../4-libitm1_12.1.0-7ubuntu1_amd64.deb ... Unpacking libitm1:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../5-libgomp1_12.1.0-7ubuntu1_amd64.deb ... Unpacking libgomp1:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../6-gcc-12-base_12.1.0-7ubuntu1_amd64.deb ... Unpacking gcc-12-base:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Setting up gcc-12-base:amd64 (12.1.0-7ubuntu1) ... (Reading database ... 13465 files and directories currently installed.) Preparing to unpack .../libgcc-s1_12.1.0-7ubuntu1_amd64.deb ... Unpacking libgcc-s1:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Setting up libgcc-s1:amd64 (12.1.0-7ubuntu1) ... (Reading database ... 13465 files and directories currently installed.) Preparing to unpack .../libcc1-0_12.1.0-7ubuntu1_amd64.deb ... Unpacking libcc1-0:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Preparing to unpack .../libstdc++6_12.1.0-7ubuntu1_amd64.deb ... Unpacking libstdc++6:amd64 (12.1.0-7ubuntu1) over (12-20220428-1ubuntu1) ... Setting up libstdc++6:amd64 (12.1.0-7ubuntu1) ... (Reading database ... 13465 files and directories currently installed.) Preparing to unpack .../liblzma5_5.2.5-2.1_amd64.deb ... Unpacking liblzma5:amd64 (5.2.5-2.1) over (5.2.5-2ubuntu1) ... Setting up liblzma5:amd64 (5.2.5-2.1) ... (Reading database ... 13465 files and directories currently installed.) Preparing to unpack .../libblkid1_2.38-4ubuntu1_amd64.deb ... Unpacking libblkid1:amd64 (2.38-4ubuntu1) over (2.37.2-4ubuntu3) ... Setting up libblkid1:amd64 (2.38-4ubuntu1) ... (Reading database ... 13465 files and directories currently installed.) Preparing to unpack .../libuuid1_2.38-4ubuntu1_amd64.deb ... Unpacking libuuid1:amd64 (2.38-4ubuntu1) over (2.37.2-4ubuntu3) ... Setting up libuuid1:amd64 (2.38-4ubuntu1) ... Selecting previously unselected package libfdisk1:amd64. (Reading database ... 13466 files and directories currently installed.) Preparing to unpack .../libfdisk1_2.38-4ubuntu1_amd64.deb ... Unpacking libfdisk1:amd64 (2.38-4ubuntu1) ... Preparing to unpack .../systemd-sysv_251.2-2ubuntu1_amd64.deb ... Unpacking systemd-sysv (251.2-2ubuntu1) over (249.11-0ubuntu3.1) ... Preparing to unpack .../libapparmor1_3.0.4-3ubuntu1_amd64.deb ... Unpacking libapparmor1:amd64 (3.0.4-3ubuntu1) over (3.0.4-2ubuntu2) ... Preparing to unpack .../libip4tc2_1.8.7-1ubuntu6_amd64.deb ... Unpacking libip4tc2:amd64 (1.8.7-1ubuntu6) over (1.8.7-1ubuntu5) ... Preparing to unpack .../libselinux1_3.4-1_amd64.deb ... Unpacking libselinux1:amd64 (3.4-1) over (3.3-1build2) ... Setting up libselinux1:amd64 (3.4-1) ... (Reading database ... 13471 files and directories currently installed.) Preparing to unpack .../libmount1_2.38-4ubuntu1_amd64.deb ... Unpacking libmount1:amd64 (2.38-4ubuntu1) over (2.37.2-4ubuntu3) ... Setting up libmount1:amd64 (2.38-4ubuntu1) ... (Reading database ... 13471 files and directories currently installed.) Preparing to unpack .../libssl3_3.0.4-1ubuntu1_amd64.deb ... Unpacking libssl3:amd64 (3.0.4-1ubuntu1) over (3.0.2-0ubuntu1) ... Preparing to unpack .../mount_2.38-4ubuntu1_amd64.deb ... Unpacking mount (2.38-4ubuntu1) over (2.37.2-4ubuntu3) ... Preparing to unpack .../libsemanage-common_3.4-1_all.deb ... Unpacking libsemanage-common (3.4-1) over (3.3-1build2) ... Setting up libsemanage-common (3.4-1) ... Installing new version of config file /etc/selinux/semanage.conf ... (Reading database ... 13471 files and directories currently installed.) Preparing to unpack .../libsepol2_3.4-2_amd64.deb ... Unpacking libsepol2:amd64 (3.4-2) over (3.3-1build1) ... Setting up libsepol2:amd64 (3.4-2) ... (Reading database ... 13471 files and directories currently installed.) Preparing to unpack .../libsemanage2_3.4-1_amd64.deb ... Unpacking libsemanage2:amd64 (3.4-1) over (3.3-1build2) ... Setting up libsemanage2:amd64 (3.4-1) ... (Reading database ... 13471 files and directories currently installed.) Preparing to unpack .../passwd_1%3a4.11.1+dfsg1-2ubuntu1_amd64.deb ... Unpacking passwd (1:4.11.1+dfsg1-2ubuntu1) over (1:4.8.1-2ubuntu2) ... Setting up passwd (1:4.11.1+dfsg1-2ubuntu1) ... Installing new version of config file /etc/default/useradd ... (Reading database ... 13471 files and directories currently installed.) Preparing to unpack .../adduser_3.121ubuntu1_all.deb ... Unpacking adduser (3.121ubuntu1) over (3.118ubuntu5) ... Setting up adduser (3.121ubuntu1) ... Installing new version of config file /etc/deluser.conf ... (Reading database ... 13468 files and directories currently installed.) Preparing to unpack .../systemd_251.2-2ubuntu1_amd64.deb ... Unpacking systemd (251.2-2ubuntu1) over (249.11-0ubuntu3.1) ... Preparing to unpack .../libsystemd0_251.2-2ubuntu1_amd64.deb ... Unpacking libsystemd0:amd64 (251.2-2ubuntu1) over (249.11-0ubuntu3.1) ... Setting up libsystemd0:amd64 (251.2-2ubuntu1) ... (Reading database ... 13504 files and directories currently installed.) Preparing to unpack .../libudev1_251.2-2ubuntu1_amd64.deb ... Unpacking libudev1:amd64 (251.2-2ubuntu1) over (249.11-0ubuntu3.1) ... Setting up libudev1:amd64 (251.2-2ubuntu1) ... (Reading database ... 13504 files and directories currently installed.) Preparing to unpack .../libapt-pkg6.0_2.5.1_amd64.deb ... Unpacking libapt-pkg6.0:amd64 (2.5.1) over (2.4.5) ... Setting up libapt-pkg6.0:amd64 (2.5.1) ... (Reading database ... 13504 files and directories currently installed.) Preparing to unpack .../dpkg_1.21.9ubuntu1_amd64.deb ... Unpacking dpkg (1.21.9ubuntu1) over (1.21.1ubuntu2) ... Setting up dpkg (1.21.9ubuntu1) ... (Reading database ... 13508 files and directories currently installed.) Preparing to unpack .../dash_0.5.11+git20210903+057cd650a4ed-8ubuntu1_amd64.deb ... Unpacking dash (0.5.11+git20210903+057cd650a4ed-8ubuntu1) over (0.5.11+git20210903+057cd650a4ed-3build1) ... Setting up dash (0.5.11+git20210903+057cd650a4ed-8ubuntu1) ... (Reading database ... 13509 files and directories currently installed.) Preparing to unpack .../login_1%3a4.11.1+dfsg1-2ubuntu1_amd64.deb ... Unpacking login (1:4.11.1+dfsg1-2ubuntu1) over (1:4.8.1-2ubuntu2) ... Setting up login (1:4.11.1+dfsg1-2ubuntu1) ... Installing new version of config file /etc/login.defs ... (Reading database ... 13509 files and directories currently installed.) Preparing to unpack .../ncurses-bin_6.3+20220423-2_amd64.deb ... Unpacking ncurses-bin (6.3+20220423-2) over (6.3-2) ... Setting up ncurses-bin (6.3+20220423-2) ... (Reading database ... 13509 files and directories currently installed.) Preparing to unpack .../libperl5.34_5.34.0-5ubuntu1_amd64.deb ... Unpacking libperl5.34:amd64 (5.34.0-5ubuntu1) over (5.34.0-3ubuntu1) ... Preparing to unpack .../perl_5.34.0-5ubuntu1_amd64.deb ... Unpacking perl (5.34.0-5ubuntu1) over (5.34.0-3ubuntu1) ... Preparing to unpack .../perl-base_5.34.0-5ubuntu1_amd64.deb ... Unpacking perl-base (5.34.0-5ubuntu1) over (5.34.0-3ubuntu1) ... Setting up perl-base (5.34.0-5ubuntu1) ... (Reading database ... 13509 files and directories currently installed.) Preparing to unpack .../perl-modules-5.34_5.34.0-5ubuntu1_all.deb ... Unpacking perl-modules-5.34 (5.34.0-5ubuntu1) over (5.34.0-3ubuntu1) ... Preparing to unpack .../libdb5.3_5.3.28+dfsg1-0.10_amd64.deb ... Unpacking libdb5.3:amd64 (5.3.28+dfsg1-0.10) over (5.3.28+dfsg1-0.8ubuntu3) ... Setting up libdb5.3:amd64 (5.3.28+dfsg1-0.10) ... (Reading database ... 13509 files and directories currently installed.) Preparing to unpack .../libsmartcols1_2.38-4ubuntu1_amd64.deb ... Unpacking libsmartcols1:amd64 (2.38-4ubuntu1) over (2.37.2-4ubuntu3) ... Setting up libsmartcols1:amd64 (2.38-4ubuntu1) ... (Reading database ... 13509 files and directories currently installed.) Preparing to unpack .../util-linux_2.38-4ubuntu1_amd64.deb ... Unpacking util-linux (2.38-4ubuntu1) over (2.37.2-4ubuntu3) ... dpkg: warning: unable to delete old directory '/usr/lib/udev': Directory not empty Selecting previously unselected package util-linux-extra. Preparing to unpack .../util-linux-extra_2.38-4ubuntu1_amd64.deb ... Unpacking util-linux-extra (2.38-4ubuntu1) ... Setting up util-linux-extra (2.38-4ubuntu1) ... (Reading database ... 13521 files and directories currently installed.) Preparing to unpack .../init-system-helpers_1.64_all.deb ... Unpacking init-system-helpers (1.64) over (1.62) ... Setting up init-system-helpers (1.64) ... (Reading database ... 13521 files and directories currently installed.) Preparing to unpack .../ncurses-base_6.3+20220423-2_all.deb ... Unpacking ncurses-base (6.3+20220423-2) over (6.3-2) ... Setting up ncurses-base (6.3+20220423-2) ... Selecting previously unselected package sgml-base. (Reading database ... 13522 files and directories currently installed.) Preparing to unpack .../sgml-base_1.30_all.deb ... Unpacking sgml-base (1.30) ... Setting up sgml-base (1.30) ... (Reading database ... 13550 files and directories currently installed.) Preparing to unpack .../libidn2-0_2.3.3-1_amd64.deb ... Unpacking libidn2-0:amd64 (2.3.3-1) over (2.3.2-2build1) ... Setting up libidn2-0:amd64 (2.3.3-1) ... (Reading database ... 13550 files and directories currently installed.) Preparing to unpack .../libgnutls30_3.7.6-2ubuntu1_amd64.deb ... Unpacking libgnutls30:amd64 (3.7.6-2ubuntu1) over (3.7.4-2ubuntu1) ... Setting up libgnutls30:amd64 (3.7.6-2ubuntu1) ... (Reading database ... 13550 files and directories currently installed.) Preparing to unpack .../gpgv_2.2.27-3ubuntu3_amd64.deb ... Unpacking gpgv (2.2.27-3ubuntu3) over (2.2.27-3ubuntu2) ... Setting up gpgv (2.2.27-3ubuntu3) ... (Reading database ... 13550 files and directories currently installed.) Preparing to unpack .../archives/apt_2.5.1_amd64.deb ... Unpacking apt (2.5.1) over (2.4.5) ... Setting up apt (2.5.1) ... (Reading database ... 13551 files and directories currently installed.) Preparing to unpack .../logsave_1.46.5-2ubuntu2_amd64.deb ... Unpacking logsave (1.46.5-2ubuntu2) over (1.46.5-2ubuntu1) ... Preparing to unpack .../libext2fs2_1.46.5-2ubuntu2_amd64.deb ... Unpacking libext2fs2:amd64 (1.46.5-2ubuntu2) over (1.46.5-2ubuntu1) ... Setting up libext2fs2:amd64 (1.46.5-2ubuntu2) ... (Reading database ... 13551 files and directories currently installed.) Preparing to unpack .../e2fsprogs_1.46.5-2ubuntu2_amd64.deb ... Unpacking e2fsprogs (1.46.5-2ubuntu2) over (1.46.5-2ubuntu1) ... Setting up libapparmor1:amd64 (3.0.4-3ubuntu1) ... Setting up libfdisk1:amd64 (2.38-4ubuntu1) ... Setting up libip4tc2:amd64 (1.8.7-1ubuntu6) ... Setting up libssl3:amd64 (3.0.4-1ubuntu1) ... Setting up mount (2.38-4ubuntu1) ... Setting up systemd (251.2-2ubuntu1) ... Installing new version of config file /etc/systemd/logind.conf ... Installing new version of config file /etc/systemd/system.conf ... Initializing machine ID from random generator. Setting up systemd-sysv (251.2-2ubuntu1) ... (Reading database ... 13551 files and directories currently installed.) Preparing to unpack .../archives/init_1.64_amd64.deb ... Unpacking init (1.64) over (1.62) ... Preparing to unpack .../libcap-ng0_0.8.3-1_amd64.deb ... Unpacking libcap-ng0:amd64 (0.8.3-1) over (0.7.9-2.2build3) ... Setting up libcap-ng0:amd64 (0.8.3-1) ... (Reading database ... 13553 files and directories currently installed.) Preparing to unpack .../libncurses6_6.3+20220423-2_amd64.deb ... Unpacking libncurses6:amd64 (6.3+20220423-2) over (6.3-2) ... Preparing to unpack .../libncursesw6_6.3+20220423-2_amd64.deb ... Unpacking libncursesw6:amd64 (6.3+20220423-2) over (6.3-2) ... Preparing to unpack .../libtinfo6_6.3+20220423-2_amd64.deb ... Unpacking libtinfo6:amd64 (6.3+20220423-2) over (6.3-2) ... Setting up libtinfo6:amd64 (6.3+20220423-2) ... (Reading database ... 13552 files and directories currently installed.) Preparing to unpack .../00-libcom-err2_1.46.5-2ubuntu2_amd64.deb ... Unpacking libcom-err2:amd64 (1.46.5-2ubuntu2) over (1.46.5-2ubuntu1) ... Preparing to unpack .../01-libss2_1.46.5-2ubuntu2_amd64.deb ... Unpacking libss2:amd64 (1.46.5-2ubuntu2) over (1.46.5-2ubuntu1) ... Preparing to unpack .../02-mawk_1.3.4.20200120-3.1_amd64.deb ... Unpacking mawk (1.3.4.20200120-3.1) over (1.3.4.20200120-3) ... Preparing to unpack .../03-libkeyutils1_1.6.1-3ubuntu1_amd64.deb ... Unpacking libkeyutils1:amd64 (1.6.1-3ubuntu1) over (1.6.1-2ubuntu3) ... Preparing to unpack .../04-readline-common_8.1.2-1.2_all.deb ... Unpacking readline-common (8.1.2-1.2) over (8.1.2-1) ... Preparing to unpack .../05-libreadline8_8.1.2-1.2_amd64.deb ... Unpacking libreadline8:amd64 (8.1.2-1.2) over (8.1.2-1) ... Preparing to unpack .../06-libsqlite3-0_3.39.1-1_amd64.deb ... Unpacking libsqlite3-0:amd64 (3.39.1-1) over (3.37.2-2) ... Preparing to unpack .../07-openssl_3.0.4-1ubuntu1_amd64.deb ... Unpacking openssl (3.0.4-1ubuntu1) over (3.0.2-0ubuntu1) ... Preparing to unpack .../08-libpng16-16_1.6.37-5_amd64.deb ... Unpacking libpng16-16:amd64 (1.6.37-5) over (1.6.37-3build5) ... Preparing to unpack .../09-xz-utils_5.2.5-2.1_amd64.deb ... Unpacking xz-utils (5.2.5-2.1) over (5.2.5-2ubuntu1) ... Preparing to unpack .../10-libctf0_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking libctf0:amd64 (2.38.90.20220713-2ubuntu1) over (2.38-3ubuntu1) ... Preparing to unpack .../11-libctf-nobfd0_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking libctf-nobfd0:amd64 (2.38.90.20220713-2ubuntu1) over (2.38-3ubuntu1) ... Selecting previously unselected package libgprofng0:amd64. Preparing to unpack .../12-libgprofng0_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking libgprofng0:amd64 (2.38.90.20220713-2ubuntu1) ... Preparing to unpack .../13-libbinutils_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking libbinutils:amd64 (2.38.90.20220713-2ubuntu1) over (2.38-3ubuntu1) ... Preparing to unpack .../14-binutils_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking binutils (2.38.90.20220713-2ubuntu1) over (2.38-3ubuntu1) ... Preparing to unpack .../15-binutils-common_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking binutils-common:amd64 (2.38.90.20220713-2ubuntu1) over (2.38-3ubuntu1) ... Preparing to unpack .../16-binutils-x86-64-linux-gnu_2.38.90.20220713-2ubuntu1_amd64.deb ... Unpacking binutils-x86-64-linux-gnu (2.38.90.20220713-2ubuntu1) over (2.38-3ubuntu1) ... Preparing to unpack .../17-g++-11_11.3.0-4ubuntu1_amd64.deb ... Unpacking g++-11 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../18-libstdc++-11-dev_11.3.0-4ubuntu1_amd64.deb ... Unpacking libstdc++-11-dev:amd64 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../19-libasan6_11.3.0-4ubuntu1_amd64.deb ... Unpacking libasan6:amd64 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../20-gcc-11_11.3.0-4ubuntu1_amd64.deb ... Unpacking gcc-11 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../21-libgcc-11-dev_11.3.0-4ubuntu1_amd64.deb ... Unpacking libgcc-11-dev:amd64 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../22-libtsan0_11.3.0-4ubuntu1_amd64.deb ... Unpacking libtsan0:amd64 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../23-cpp-11_11.3.0-4ubuntu1_amd64.deb ... Unpacking cpp-11 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../24-gcc-11-base_11.3.0-4ubuntu1_amd64.deb ... Unpacking gcc-11-base:amd64 (11.3.0-4ubuntu1) over (11.3.0-1ubuntu1) ... Preparing to unpack .../25-libisl23_0.25-1_amd64.deb ... Unpacking libisl23:amd64 (0.25-1) over (0.24-2build1) ... Preparing to unpack .../26-dpkg-dev_1.21.9ubuntu1_all.deb ... Unpacking dpkg-dev (1.21.9ubuntu1) over (1.21.1ubuntu2) ... Preparing to unpack .../27-libdpkg-perl_1.21.9ubuntu1_all.deb ... Unpacking libdpkg-perl (1.21.9ubuntu1) over (1.21.1ubuntu2) ... Preparing to unpack .../28-lto-disabled-list_29_all.deb ... Unpacking lto-disabled-list (29) over (25) ... Preparing to unpack .../29-libfakeroot_1.29-1ubuntu1_amd64.deb ... Unpacking libfakeroot:amd64 (1.29-1ubuntu1) over (1.28-1ubuntu1) ... Preparing to unpack .../30-fakeroot_1.29-1ubuntu1_amd64.deb ... Unpacking fakeroot (1.29-1ubuntu1) over (1.28-1ubuntu1) ... Preparing to unpack .../31-libassuan0_2.5.5-4_amd64.deb ... Unpacking libassuan0:amd64 (2.5.5-4) over (2.5.5-3) ... Preparing to unpack .../32-pinentry-curses_1.2.0-2ubuntu1_amd64.deb ... Unpacking pinentry-curses (1.2.0-2ubuntu1) over (1.1.1-1build2) ... Preparing to unpack .../33-gpg_2.2.27-3ubuntu3_amd64.deb ... Unpacking gpg (2.2.27-3ubuntu3) over (2.2.27-3ubuntu2) ... Preparing to unpack .../34-gpgconf_2.2.27-3ubuntu3_amd64.deb ... Unpacking gpgconf (2.2.27-3ubuntu3) over (2.2.27-3ubuntu2) ... Preparing to unpack .../35-gpg-agent_2.2.27-3ubuntu3_amd64.deb ... Unpacking gpg-agent (2.2.27-3ubuntu3) over (2.2.27-3ubuntu2) ... Preparing to unpack .../36-linux-libc-dev_5.19.0-9.9_amd64.deb ... Unpacking linux-libc-dev:amd64 (5.19.0-9.9) over (5.15.0-27.28) ... Preparing to unpack .../37-policyrcd-script-zg2_0.1-3.1_all.deb ... Unpacking policyrcd-script-zg2 (0.1-3.1) over (0.1-3) ... Setting up gcc-11-base:amd64 (11.3.0-4ubuntu1) ... Setting up libkeyutils1:amd64 (1.6.1-3ubuntu1) ... Setting up lto-disabled-list (29) ... Setting up init (1.64) ... Setting up libsqlite3-0:amd64 (3.39.1-1) ... Setting up binutils-common:amd64 (2.38.90.20220713-2ubuntu1) ... Setting up linux-libc-dev:amd64 (5.19.0-9.9) ... Setting up libctf-nobfd0:amd64 (2.38.90.20220713-2ubuntu1) ... Setting up libcom-err2:amd64 (1.46.5-2ubuntu2) ... Setting up libassuan0:amd64 (2.5.5-4) ... Setting up libgomp1:amd64 (12.1.0-7ubuntu1) ... Setting up perl-modules-5.34 (5.34.0-5ubuntu1) ... Setting up libfakeroot:amd64 (1.29-1ubuntu1) ... Setting up libasan6:amd64 (11.3.0-4ubuntu1) ... Setting up fakeroot (1.29-1ubuntu1) ... Setting up policyrcd-script-zg2 (0.1-3.1) ... Setting up libncurses6:amd64 (6.3+20220423-2) ... Setting up xz-utils (5.2.5-2.1) ... Setting up libquadmath0:amd64 (12.1.0-7ubuntu1) ... Setting up libpng16-16:amd64 (1.6.37-5) ... Setting up libatomic1:amd64 (12.1.0-7ubuntu1) ... Setting up libss2:amd64 (1.46.5-2ubuntu2) ... Setting up util-linux (2.38-4ubuntu1) ... Setting up libncursesw6:amd64 (6.3+20220423-2) ... Setting up logsave (1.46.5-2ubuntu2) ... Setting up libubsan1:amd64 (12.1.0-7ubuntu1) ... Setting up libcrypt-dev:amd64 (1:4.4.28-2) ... Setting up mawk (1.3.4.20200120-3.1) ... Setting up libbinutils:amd64 (2.38.90.20220713-2ubuntu1) ... Setting up libisl23:amd64 (0.25-1) ... Setting up openssl (3.0.4-1ubuntu1) ... Installing new version of config file /etc/ssl/openssl.cnf ... Setting up readline-common (8.1.2-1.2) ... Setting up libcc1-0:amd64 (12.1.0-7ubuntu1) ... Setting up liblsan0:amd64 (12.1.0-7ubuntu1) ... Setting up libitm1:amd64 (12.1.0-7ubuntu1) ... Setting up libtsan0:amd64 (11.3.0-4ubuntu1) ... Setting up libctf0:amd64 (2.38.90.20220713-2ubuntu1) ... Setting up pinentry-curses (1.2.0-2ubuntu1) ... Setting up cpp-11 (11.3.0-4ubuntu1) ... Setting up libperl5.34:amd64 (5.34.0-5ubuntu1) ... Setting up libreadline8:amd64 (8.1.2-1.2) ... Setting up e2fsprogs (1.46.5-2ubuntu2) ... Setting up perl (5.34.0-5ubuntu1) ... Setting up libgprofng0:amd64 (2.38.90.20220713-2ubuntu1) ... Setting up libdpkg-perl (1.21.9ubuntu1) ... Setting up libgcc-11-dev:amd64 (11.3.0-4ubuntu1) ... Setting up gpgconf (2.2.27-3ubuntu3) ... Setting up gpg (2.2.27-3ubuntu3) ... Setting up binutils-x86-64-linux-gnu (2.38.90.20220713-2ubuntu1) ... Setting up gpg-agent (2.2.27-3ubuntu3) ... Setting up binutils (2.38.90.20220713-2ubuntu1) ... Setting up dpkg-dev (1.21.9ubuntu1) ... Setting up libstdc++-11-dev:amd64 (11.3.0-4ubuntu1) ... Setting up gcc-11 (11.3.0-4ubuntu1) ... Setting up g++-11 (11.3.0-4ubuntu1) ... Processing triggers for debianutils (5.7-0.2) ... Processing triggers for libc-bin (2.35-0ubuntu3) ... RUN: /usr/share/launchpad-buildd/bin/sbuild-package PACKAGEBUILD-24183204 amd64 kinetic-proposed -c chroot:build-PACKAGEBUILD-24183204 --arch=amd64 --dist=kinetic-proposed --nolog -A cafeobj_1.6.0-2build1.dsc Initiating build PACKAGEBUILD-24183204 with 4 jobs across 4 processor cores. Kernel reported to sbuild: 5.4.0-122-generic #138-Ubuntu SMP Wed Jun 22 15:00:31 UTC 2022 x86_64 sbuild (Debian sbuild) 0.79.0 (05 February 2020) on lcy02-amd64-013.buildd +==============================================================================+ | cafeobj 1.6.0-2build1 (amd64) Tue, 19 Jul 2022 12:26:18 +0000 | +==============================================================================+ Package: cafeobj Version: 1.6.0-2build1 Source Version: 1.6.0-2build1 Distribution: kinetic-proposed Machine Architecture: amd64 Host Architecture: amd64 Build Architecture: amd64 Build Type: binary I: NOTICE: Log filtering will replace 'home/buildd/build-PACKAGEBUILD-24183204/chroot-autobuild' with '<>' I: NOTICE: Log filtering will replace 'build/cafeobj-PFsJxf/resolver-xcV6jS' with '<>' +------------------------------------------------------------------------------+ | Fetch source files | +------------------------------------------------------------------------------+ Local sources ------------- cafeobj_1.6.0-2build1.dsc exists in .; copying to chroot I: NOTICE: Log filtering will replace 'build/cafeobj-PFsJxf/cafeobj-1.6.0' with '<>' I: NOTICE: Log filtering will replace 'build/cafeobj-PFsJxf' with '<>' +------------------------------------------------------------------------------+ | Install package build dependencies | +------------------------------------------------------------------------------+ Setup apt archive ----------------- Merged Build-Depends: debhelper (>= 10), sbcl, build-essential, fakeroot Filtered Build-Depends: debhelper (>= 10), sbcl, build-essential, fakeroot dpkg-deb: building package 'sbuild-build-depends-main-dummy' in '/<>/apt_archive/sbuild-build-depends-main-dummy.deb'. Ign:1 copy:/<>/apt_archive ./ InRelease Get:2 copy:/<>/apt_archive ./ Release [957 B] Ign:3 copy:/<>/apt_archive ./ Release.gpg Get:4 copy:/<>/apt_archive ./ Sources [370 B] Get:5 copy:/<>/apt_archive ./ Packages [450 B] Fetched 1777 B in 0s (158 kB/s) Reading package lists... Reading package lists... Install main build dependencies (apt-based resolver) ---------------------------------------------------- Installing build dependencies Reading package lists... Building dependency tree... Reading state information... The following additional packages will be installed: autoconf automake autopoint autotools-dev bsdextrautils debhelper debugedit dh-autoreconf dh-strip-nondeterminism dwz file gettext gettext-base groff-base intltool-debian libarchive-zip-perl libdebhelper-perl libdw1 libelf1 libfile-stripnondeterminism-perl libicu71 libmagic-mgc libmagic1 libpipeline1 libsigsegv2 libsub-override-perl libtool libuchardet0 libxml2 m4 man-db po-debconf sbcl Suggested packages: autoconf-archive gnu-standards autoconf-doc dh-make gettext-doc libasprintf-dev libgettextpo-dev groff libtool-doc gfortran | fortran95-compiler gcj-jdk m4-doc apparmor less www-browser libmail-box-perl sbcl-doc sbcl-source slime Recommended packages: curl | wget | lynx libarchive-cpio-perl libltdl-dev libmail-sendmail-perl The following NEW packages will be installed: autoconf automake autopoint autotools-dev bsdextrautils debhelper debugedit dh-autoreconf dh-strip-nondeterminism dwz file gettext gettext-base groff-base intltool-debian libarchive-zip-perl libdebhelper-perl libdw1 libelf1 libfile-stripnondeterminism-perl libicu71 libmagic-mgc libmagic1 libpipeline1 libsigsegv2 libsub-override-perl libtool libuchardet0 libxml2 m4 man-db po-debconf sbcl sbuild-build-depends-main-dummy 0 upgraded, 34 newly installed, 0 to remove and 0 not upgraded. Need to get 28.9 MB of archives. After this operation, 113 MB of additional disk space will be used. Get:1 copy:/<>/apt_archive ./ sbuild-build-depends-main-dummy 0.invalid.0 [670 B] Get:2 http://ftpmaster.internal/ubuntu kinetic/main amd64 libelf1 amd64 0.187-1 [51.3 kB] Get:3 http://ftpmaster.internal/ubuntu kinetic/main amd64 libicu71 amd64 71.1-3 [10.6 MB] Get:4 http://ftpmaster.internal/ubuntu kinetic/main amd64 libxml2 amd64 2.9.14+dfsg-1 [756 kB] Get:5 http://ftpmaster.internal/ubuntu kinetic/main amd64 bsdextrautils amd64 2.38-4ubuntu1 [71.1 kB] Get:6 http://ftpmaster.internal/ubuntu kinetic/main amd64 libmagic-mgc amd64 1:5.41-4 [257 kB] Get:7 http://ftpmaster.internal/ubuntu kinetic/main amd64 libmagic1 amd64 1:5.41-4 [87.3 kB] Get:8 http://ftpmaster.internal/ubuntu kinetic/main amd64 file amd64 1:5.41-4 [21.5 kB] Get:9 http://ftpmaster.internal/ubuntu kinetic/main amd64 gettext-base amd64 0.21-6 [37.9 kB] Get:10 http://ftpmaster.internal/ubuntu kinetic/main amd64 libuchardet0 amd64 0.0.7-1build2 [76.9 kB] Get:11 http://ftpmaster.internal/ubuntu kinetic/main amd64 groff-base amd64 1.22.4-8build1 [955 kB] Get:12 http://ftpmaster.internal/ubuntu kinetic/main amd64 libpipeline1 amd64 1.5.6-1 [23.1 kB] Get:13 http://ftpmaster.internal/ubuntu kinetic/main amd64 man-db amd64 2.10.2-1 [1187 kB] Get:14 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsigsegv2 amd64 2.13-1ubuntu3 [14.6 kB] Get:15 http://ftpmaster.internal/ubuntu kinetic/main amd64 m4 amd64 1.4.18-5ubuntu2 [199 kB] Get:16 http://ftpmaster.internal/ubuntu kinetic/main amd64 autoconf all 2.71-2 [338 kB] Get:17 http://ftpmaster.internal/ubuntu kinetic/main amd64 autotools-dev all 20220109.1 [44.9 kB] Get:18 http://ftpmaster.internal/ubuntu kinetic/main amd64 automake all 1:1.16.5-1.3 [558 kB] Get:19 http://ftpmaster.internal/ubuntu kinetic/main amd64 autopoint all 0.21-6 [421 kB] Get:20 http://ftpmaster.internal/ubuntu kinetic/main amd64 libdebhelper-perl all 13.8ubuntu1 [66.8 kB] Get:21 http://ftpmaster.internal/ubuntu kinetic/main amd64 libtool all 2.4.7-4 [166 kB] Get:22 http://ftpmaster.internal/ubuntu kinetic/main amd64 dh-autoreconf all 20 [16.1 kB] Get:23 http://ftpmaster.internal/ubuntu kinetic/main amd64 libarchive-zip-perl all 1.68-1 [90.2 kB] Get:24 http://ftpmaster.internal/ubuntu kinetic/main amd64 libsub-override-perl all 0.09-3 [9756 B] Get:25 http://ftpmaster.internal/ubuntu kinetic/main amd64 libfile-stripnondeterminism-perl all 1.13.0-1 [18.1 kB] Get:26 http://ftpmaster.internal/ubuntu kinetic/main amd64 dh-strip-nondeterminism all 1.13.0-1 [5344 B] Get:27 http://ftpmaster.internal/ubuntu kinetic/main amd64 libdw1 amd64 0.187-1 [247 kB] Get:28 http://ftpmaster.internal/ubuntu kinetic/main amd64 debugedit amd64 1:5.0-4build1 [47.2 kB] Get:29 http://ftpmaster.internal/ubuntu kinetic/main amd64 dwz amd64 0.14-1build2 [105 kB] Get:30 http://ftpmaster.internal/ubuntu kinetic/main amd64 gettext amd64 0.21-6 [862 kB] Get:31 http://ftpmaster.internal/ubuntu kinetic/main amd64 intltool-debian all 0.35.0+20060710.5 [24.9 kB] Get:32 http://ftpmaster.internal/ubuntu kinetic/main amd64 po-debconf all 1.0.21+nmu1 [233 kB] Get:33 http://ftpmaster.internal/ubuntu kinetic/main amd64 debhelper all 13.8ubuntu1 [938 kB] Get:34 http://ftpmaster.internal/ubuntu kinetic/universe amd64 sbcl amd64 2:2.2.3-2maysync3 [10.4 MB] debconf: delaying package configuration, since apt-utils is not installed Fetched 28.9 MB in 0s (124 MB/s) Selecting previously unselected package libelf1:amd64. (Reading database ... 13592 files and directories currently installed.) Preparing to unpack .../00-libelf1_0.187-1_amd64.deb ... Unpacking libelf1:amd64 (0.187-1) ... Selecting previously unselected package libicu71:amd64. Preparing to unpack .../01-libicu71_71.1-3_amd64.deb ... Unpacking libicu71:amd64 (71.1-3) ... Selecting previously unselected package libxml2:amd64. Preparing to unpack .../02-libxml2_2.9.14+dfsg-1_amd64.deb ... Unpacking libxml2:amd64 (2.9.14+dfsg-1) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../03-bsdextrautils_2.38-4ubuntu1_amd64.deb ... Unpacking bsdextrautils (2.38-4ubuntu1) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../04-libmagic-mgc_1%3a5.41-4_amd64.deb ... Unpacking libmagic-mgc (1:5.41-4) ... Selecting previously unselected package libmagic1:amd64. Preparing to unpack .../05-libmagic1_1%3a5.41-4_amd64.deb ... Unpacking libmagic1:amd64 (1:5.41-4) ... Selecting previously unselected package file. Preparing to unpack .../06-file_1%3a5.41-4_amd64.deb ... Unpacking file (1:5.41-4) ... Selecting previously unselected package gettext-base. Preparing to unpack .../07-gettext-base_0.21-6_amd64.deb ... Unpacking gettext-base (0.21-6) ... Selecting previously unselected package libuchardet0:amd64. Preparing to unpack .../08-libuchardet0_0.0.7-1build2_amd64.deb ... Unpacking libuchardet0:amd64 (0.0.7-1build2) ... Selecting previously unselected package groff-base. Preparing to unpack .../09-groff-base_1.22.4-8build1_amd64.deb ... Unpacking groff-base (1.22.4-8build1) ... Selecting previously unselected package libpipeline1:amd64. Preparing to unpack .../10-libpipeline1_1.5.6-1_amd64.deb ... Unpacking libpipeline1:amd64 (1.5.6-1) ... Selecting previously unselected package man-db. Preparing to unpack .../11-man-db_2.10.2-1_amd64.deb ... Unpacking man-db (2.10.2-1) ... Selecting previously unselected package libsigsegv2:amd64. Preparing to unpack .../12-libsigsegv2_2.13-1ubuntu3_amd64.deb ... Unpacking libsigsegv2:amd64 (2.13-1ubuntu3) ... Selecting previously unselected package m4. Preparing to unpack .../13-m4_1.4.18-5ubuntu2_amd64.deb ... Unpacking m4 (1.4.18-5ubuntu2) ... Selecting previously unselected package autoconf. Preparing to unpack .../14-autoconf_2.71-2_all.deb ... Unpacking autoconf (2.71-2) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../15-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../16-automake_1%3a1.16.5-1.3_all.deb ... Unpacking automake (1:1.16.5-1.3) ... Selecting previously unselected package autopoint. Preparing to unpack .../17-autopoint_0.21-6_all.deb ... Unpacking autopoint (0.21-6) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../18-libdebhelper-perl_13.8ubuntu1_all.deb ... Unpacking libdebhelper-perl (13.8ubuntu1) ... Selecting previously unselected package libtool. Preparing to unpack .../19-libtool_2.4.7-4_all.deb ... Unpacking libtool (2.4.7-4) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../20-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../21-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libsub-override-perl. Preparing to unpack .../22-libsub-override-perl_0.09-3_all.deb ... Unpacking libsub-override-perl (0.09-3) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../23-libfile-stripnondeterminism-perl_1.13.0-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.13.0-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../24-dh-strip-nondeterminism_1.13.0-1_all.deb ... Unpacking dh-strip-nondeterminism (1.13.0-1) ... Selecting previously unselected package libdw1:amd64. Preparing to unpack .../25-libdw1_0.187-1_amd64.deb ... Unpacking libdw1:amd64 (0.187-1) ... Selecting previously unselected package debugedit. Preparing to unpack .../26-debugedit_1%3a5.0-4build1_amd64.deb ... Unpacking debugedit (1:5.0-4build1) ... Selecting previously unselected package dwz. Preparing to unpack .../27-dwz_0.14-1build2_amd64.deb ... Unpacking dwz (0.14-1build2) ... Selecting previously unselected package gettext. Preparing to unpack .../28-gettext_0.21-6_amd64.deb ... Unpacking gettext (0.21-6) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../29-intltool-debian_0.35.0+20060710.5_all.deb ... Unpacking intltool-debian (0.35.0+20060710.5) ... Selecting previously unselected package po-debconf. Preparing to unpack .../30-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../31-debhelper_13.8ubuntu1_all.deb ... Unpacking debhelper (13.8ubuntu1) ... Selecting previously unselected package sbcl. Preparing to unpack .../32-sbcl_2%3a2.2.3-2maysync3_amd64.deb ... Unpacking sbcl (2:2.2.3-2maysync3) ... Selecting previously unselected package sbuild-build-depends-main-dummy. Preparing to unpack .../33-sbuild-build-depends-main-dummy_0.invalid.0_amd64.deb ... Unpacking sbuild-build-depends-main-dummy (0.invalid.0) ... Setting up libpipeline1:amd64 (1.5.6-1) ... Setting up libicu71:amd64 (71.1-3) ... Setting up bsdextrautils (2.38-4ubuntu1) ... Setting up libmagic-mgc (1:5.41-4) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.8ubuntu1) ... Setting up libmagic1:amd64 (1:5.41-4) ... Setting up gettext-base (0.21-6) ... Setting up file (1:5.41-4) ... Setting up autotools-dev (20220109.1) ... Setting up libsigsegv2:amd64 (2.13-1ubuntu3) ... Setting up autopoint (0.21-6) ... Setting up sbcl (2:2.2.3-2maysync3) ... Setting up libuchardet0:amd64 (0.0.7-1build2) ... Setting up libsub-override-perl (0.09-3) ... Setting up libelf1:amd64 (0.187-1) ... Setting up libxml2:amd64 (2.9.14+dfsg-1) ... Setting up libfile-stripnondeterminism-perl (1.13.0-1) ... Setting up libdw1:amd64 (0.187-1) ... Setting up gettext (0.21-6) ... Setting up libtool (2.4.7-4) ... Setting up m4 (1.4.18-5ubuntu2) ... Setting up intltool-debian (0.35.0+20060710.5) ... Setting up autoconf (2.71-2) ... Setting up dh-strip-nondeterminism (1.13.0-1) ... Setting up dwz (0.14-1build2) ... Setting up groff-base (1.22.4-8build1) ... Setting up debugedit (1:5.0-4build1) ... Setting up automake (1:1.16.5-1.3) ... update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode Setting up po-debconf (1.0.21+nmu1) ... Setting up man-db (2.10.2-1) ... Not building database; man-db/auto-update is not 'true'. Created symlink /etc/systemd/system/timers.target.wants/man-db.timer → /lib/systemd/system/man-db.timer. Setting up dh-autoreconf (20) ... Setting up debhelper (13.8ubuntu1) ... Setting up sbuild-build-depends-main-dummy (0.invalid.0) ... Processing triggers for systemd (251.2-2ubuntu1) ... Processing triggers for libc-bin (2.35-0ubuntu3) ... +------------------------------------------------------------------------------+ | Check architectures | +------------------------------------------------------------------------------+ Arch check ok (amd64 included in any all) +------------------------------------------------------------------------------+ | Build environment | +------------------------------------------------------------------------------+ Kernel: Linux 5.4.0-122-generic #138-Ubuntu SMP Wed Jun 22 15:00:31 UTC 2022 amd64 (x86_64) Toolchain package versions: binutils_2.38.90.20220713-2ubuntu1 dpkg-dev_1.21.9ubuntu1 g++-11_11.3.0-4ubuntu1 gcc-11_11.3.0-4ubuntu1 libc6-dev_2.35-0ubuntu3 libstdc++-11-dev_11.3.0-4ubuntu1 libstdc++6_12.1.0-7ubuntu1 linux-libc-dev_5.19.0-9.9 Package versions: adduser_3.121ubuntu1 advancecomp_2.1-2.1ubuntu2 apt_2.5.1 autoconf_2.71-2 automake_1:1.16.5-1.3 autopoint_0.21-6 autotools-dev_20220109.1 base-files_12.2ubuntu2 base-passwd_3.5.52build1 bash_5.1-6ubuntu1 binutils_2.38.90.20220713-2ubuntu1 binutils-common_2.38.90.20220713-2ubuntu1 binutils-x86-64-linux-gnu_2.38.90.20220713-2ubuntu1 bsdextrautils_2.38-4ubuntu1 bsdutils_1:2.38-4ubuntu1 build-essential_12.9ubuntu3 bzip2_1.0.8-5build1 ca-certificates_20211016 coreutils_8.32-4.1ubuntu1 cpp_4:11.2.0-1ubuntu1 cpp-11_11.3.0-4ubuntu1 dash_0.5.11+git20210903+057cd650a4ed-8ubuntu1 debconf_1.5.79ubuntu1 debhelper_13.8ubuntu1 debianutils_5.7-0.2 debugedit_1:5.0-4build1 dh-autoreconf_20 dh-strip-nondeterminism_1.13.0-1 diffutils_1:3.8-0ubuntu2 dpkg_1.21.9ubuntu1 dpkg-dev_1.21.9ubuntu1 dwz_0.14-1build2 e2fsprogs_1.46.5-2ubuntu2 fakeroot_1.29-1ubuntu1 file_1:5.41-4 findutils_4.8.0-1ubuntu3 g++_4:11.2.0-1ubuntu1 g++-11_11.3.0-4ubuntu1 gcc_4:11.2.0-1ubuntu1 gcc-11_11.3.0-4ubuntu1 gcc-11-base_11.3.0-4ubuntu1 gcc-12-base_12.1.0-7ubuntu1 gettext_0.21-6 gettext-base_0.21-6 gpg_2.2.27-3ubuntu3 gpg-agent_2.2.27-3ubuntu3 gpgconf_2.2.27-3ubuntu3 gpgv_2.2.27-3ubuntu3 grep_3.7-1build1 groff-base_1.22.4-8build1 gzip_1.10-4ubuntu4 hostname_3.23ubuntu2 init_1.64 init-system-helpers_1.64 intltool-debian_0.35.0+20060710.5 libacl1_2.3.1-1 libapparmor1_3.0.4-3ubuntu1 libapt-pkg6.0_2.5.1 libarchive-zip-perl_1.68-1 libargon2-1_0~20171227-0.3 libasan6_11.3.0-4ubuntu1 libassuan0_2.5.5-4 libatomic1_12.1.0-7ubuntu1 libattr1_1:2.5.1-1build1 libaudit-common_1:3.0.7-1build1 libaudit1_1:3.0.7-1build1 libbinutils_2.38.90.20220713-2ubuntu1 libblkid1_2.38-4ubuntu1 libbz2-1.0_1.0.8-5build1 libc-bin_2.35-0ubuntu3 libc-dev-bin_2.35-0ubuntu3 libc6_2.35-0ubuntu3 libc6-dev_2.35-0ubuntu3 libcap-ng0_0.8.3-1 libcap2_1:2.44-1build3 libcc1-0_12.1.0-7ubuntu1 libcom-err2_1.46.5-2ubuntu2 libcrypt-dev_1:4.4.28-2 libcrypt1_1:4.4.28-2 libcryptsetup12_2:2.4.3-1ubuntu1 libctf-nobfd0_2.38.90.20220713-2ubuntu1 libctf0_2.38.90.20220713-2ubuntu1 libdb5.3_5.3.28+dfsg1-0.10 libdebconfclient0_0.261ubuntu1 libdebhelper-perl_13.8ubuntu1 libdevmapper1.02.1_2:1.02.175-2.1ubuntu4 libdpkg-perl_1.21.9ubuntu1 libdw1_0.187-1 libelf1_0.187-1 libext2fs2_1.46.5-2ubuntu2 libfakeroot_1.29-1ubuntu1 libfdisk1_2.38-4ubuntu1 libffi8_3.4.2-4 libfile-stripnondeterminism-perl_1.13.0-1 libgcc-11-dev_11.3.0-4ubuntu1 libgcc-s1_12.1.0-7ubuntu1 libgcrypt20_1.10.1-2ubuntu1 libgdbm-compat4_1.23-1 libgdbm6_1.23-1 libgmp10_2:6.2.1+dfsg-3ubuntu1 libgnutls30_3.7.6-2ubuntu1 libgomp1_12.1.0-7ubuntu1 libgpg-error0_1.45-2 libgprofng0_2.38.90.20220713-2ubuntu1 libgssapi-krb5-2_1.19.2-2 libhogweed6_3.7.3-1build2 libicu71_71.1-3 libidn2-0_2.3.3-1 libip4tc2_1.8.7-1ubuntu6 libisl23_0.25-1 libitm1_12.1.0-7ubuntu1 libjson-c5_0.16-1 libk5crypto3_1.19.2-2 libkeyutils1_1.6.1-3ubuntu1 libkmod2_29-1ubuntu1 libkrb5-3_1.19.2-2 libkrb5support0_1.19.2-2 liblockfile-bin_1.17-1build2 liblockfile1_1.17-1build2 liblsan0_12.1.0-7ubuntu1 liblz4-1_1.9.3-2build2 liblzma5_5.2.5-2.1 libmagic-mgc_1:5.41-4 libmagic1_1:5.41-4 libmount1_2.38-4ubuntu1 libmpc3_1.2.1-2build1 libmpfr6_4.1.0-3build3 libncurses6_6.3+20220423-2 libncursesw6_6.3+20220423-2 libnettle8_3.7.3-1build2 libnpth0_1.6-3build2 libnsl-dev_1.3.0-2build2 libnsl2_1.3.0-2build2 libp11-kit0_0.24.1-1 libpam-modules_1.4.0-13ubuntu1 libpam-modules-bin_1.4.0-13ubuntu1 libpam-runtime_1.4.0-13ubuntu1 libpam0g_1.4.0-13ubuntu1 libpcre2-8-0_10.40-1 libpcre3_2:8.39-14 libperl5.34_5.34.0-5ubuntu1 libpipeline1_1.5.6-1 libpng16-16_1.6.37-5 libprocps8_2:3.3.17-6ubuntu2 libquadmath0_12.1.0-7ubuntu1 libreadline8_8.1.2-1.2 libseccomp2_2.5.4-1ubuntu1 libselinux1_3.4-1 libsemanage-common_3.4-1 libsemanage2_3.4-1 libsepol2_3.4-2 libsigsegv2_2.13-1ubuntu3 libsmartcols1_2.38-4ubuntu1 libsqlite3-0_3.39.1-1 libss2_1.46.5-2ubuntu2 libssl3_3.0.4-1ubuntu1 libstdc++-11-dev_11.3.0-4ubuntu1 libstdc++6_12.1.0-7ubuntu1 libsub-override-perl_0.09-3 libsystemd0_251.2-2ubuntu1 libtasn1-6_4.18.0-4build1 libtinfo6_6.3+20220423-2 libtirpc-common_1.3.2-2build1 libtirpc-dev_1.3.2-2build1 libtirpc3_1.3.2-2build1 libtool_2.4.7-4 libtsan0_11.3.0-4ubuntu1 libubsan1_12.1.0-7ubuntu1 libuchardet0_0.0.7-1build2 libudev1_251.2-2ubuntu1 libunistring2_1.0-1 libuuid1_2.38-4ubuntu1 libxml2_2.9.14+dfsg-1 libxxhash0_0.8.1-1 libzstd1_1.5.2+dfsg-1 linux-libc-dev_5.19.0-9.9 lockfile-progs_0.1.19build1 login_1:4.11.1+dfsg1-2ubuntu1 logsave_1.46.5-2ubuntu2 lsb-base_11.1.0ubuntu4 lto-disabled-list_29 m4_1.4.18-5ubuntu2 make_4.3-4.1build1 man-db_2.10.2-1 mawk_1.3.4.20200120-3.1 mount_2.38-4ubuntu1 ncurses-base_6.3+20220423-2 ncurses-bin_6.3+20220423-2 openssl_3.0.4-1ubuntu1 optipng_0.7.7-2build1 passwd_1:4.11.1+dfsg1-2ubuntu1 patch_2.7.6-7build2 perl_5.34.0-5ubuntu1 perl-base_5.34.0-5ubuntu1 perl-modules-5.34_5.34.0-5ubuntu1 pinentry-curses_1.2.0-2ubuntu1 pkgbinarymangler_149 po-debconf_1.0.21+nmu1 policyrcd-script-zg2_0.1-3.1 procps_2:3.3.17-6ubuntu2 readline-common_8.1.2-1.2 rpcsvc-proto_1.4.2-0ubuntu6 sbcl_2:2.2.3-2maysync3 sbuild-build-depends-main-dummy_0.invalid.0 sed_4.8-1ubuntu2 sensible-utils_0.0.17 sgml-base_1.30 systemd_251.2-2ubuntu1 systemd-sysv_251.2-2ubuntu1 sysvinit-utils_3.01-1ubuntu1 tar_1.34+dfsg-1build3 tzdata_2022a-0ubuntu1 ubuntu-keyring_2021.03.26 usrmerge_25ubuntu2 util-linux_2.38-4ubuntu1 util-linux-extra_2.38-4ubuntu1 xz-utils_5.2.5-2.1 zlib1g_1:1.2.11.dfsg-2ubuntu9 +------------------------------------------------------------------------------+ | Build | +------------------------------------------------------------------------------+ Unpack source ------------- -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Format: 3.0 (quilt) Source: cafeobj Binary: cafeobj, cafeobj-mode Architecture: any all Version: 1.6.0-2build1 Maintainer: Norbert Preining Homepage: http://cafeobj.org/ Standards-Version: 4.5.0 Vcs-Browser: https://github.com/CafeOBJ/cafeobj Vcs-Git: https://github.com/CafeOBJ/cafeobj.git Build-Depends: debhelper (>= 10), sbcl Package-List: cafeobj deb science optional arch=any cafeobj-mode deb science optional arch=all Checksums-Sha1: 0e154b4b1b61c871491882b14911548e1dc65f5d 8468232 cafeobj_1.6.0.orig.tar.gz 303d4a80fe52789045a6fd98c854e127228b89d3 6924 cafeobj_1.6.0-2build1.debian.tar.xz Checksums-Sha256: ab97d3cf22d8556524c86540cbb11d4e2eb1ba38cb0198eb068a4493b745d560 8468232 cafeobj_1.6.0.orig.tar.gz 3f53da571fce42e46882eccea01b2c945ec9bea6c5fff18e0986ce629fdf7801 6924 cafeobj_1.6.0-2build1.debian.tar.xz Files: 100d2b48686f9a80506235d9e2bc7528 8468232 cafeobj_1.6.0.orig.tar.gz 08c399ef27278f775fc79792c7a2d24d 6924 cafeobj_1.6.0-2build1.debian.tar.xz -----BEGIN PGP SIGNATURE----- iQJQBAEBCgA6FiEEQ5iE5oYqQpwpDfY7AzxMonYCSDQFAmLWoj8cHGF0aG9zLnJp YmVpcm9AY2Fub25pY2FsLmNvbQAKCRADPEyidgJINMuNEADAVV9vpLfAD7swvlgc GUqxr5B22d+2h/VPmQ4wxW4rWyN3VQRip2cz9tu7qbU5BezcvXnWh06/BflkYHZf 6YPP/iyK4T8bmY0M5Ta9grOK5IuuhRqGUWvHJD7ir+KWD+tcwQqmdCrbFiqGe2sk 7BHrceMUUjdiuQG8S//7eW8oloj3cLmFA5jsasy1FyHNWyvhfryU3OOUuF8t0J5z BWh51Lf2VhKmGYQQBrqQFSoAtJOp+3w/Zw/PQOQ9d6nPu3XuaKrMTg7SDcvw0Tl4 EIvk8vQjJDatQuTvoN+rIL/H66RwiZi4vNLX41SWrpNOikj+5kRCYSSLuhoPMv9Q LGLm10iRMg4YTUHB6ccqyVSTgjaYmjzsljMhekywEdcEIT295kgrZ4NQdF5e4wMW KkkeP8KJAICNMWmB13mjilxSg8rMpKeP1S3RgkDFf6Y3cgiBzTppjovOAaRYQJJb JzlVUp5+4S7yQgEfPxvsQoL9FQaDC5JZ8HWHWA2NQHzgz17nxgo5IbBFUsrtLcYc jvoGm5gaCPCxAAGFCiAMbmN08+U+pccVe+XEKN3iFoGlT6InafubsMgvWA+fZ7CU o+lrz3/+IRSf1SHAXZ+WrYUZZk8ENAW/lF0W6TtBUnNu8p36V7y70EsABLanIrwX Y8Xi/MsRXXSz9qdW4sZ0JzbSRQ== =fjmT -----END PGP SIGNATURE----- gpgv: Signature made Tue Jul 19 12:23:27 2022 UTC gpgv: using RSA key 439884E6862A429C290DF63B033C4CA276024834 gpgv: issuer "athos.ribeiro@canonical.com" gpgv: Can't check signature: No public key dpkg-source: warning: cannot verify signature ./cafeobj_1.6.0-2build1.dsc dpkg-source: info: extracting cafeobj in /<> dpkg-source: info: unpacking cafeobj_1.6.0.orig.tar.gz dpkg-source: info: unpacking cafeobj_1.6.0-2build1.debian.tar.xz dpkg-source: info: using patch list from debian/patches/series dpkg-source: info: applying armhf-remove-buildopts Check disk space ---------------- Sufficient free space for build User Environment ---------------- APT_CONFIG=/var/lib/sbuild/apt.conf DEB_BUILD_OPTIONS=parallel=4 HOME=/sbuild-nonexistent LANG=C.UTF-8 LC_ALL=C.UTF-8 LOGNAME=buildd PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games SCHROOT_ALIAS_NAME=build-PACKAGEBUILD-24183204 SCHROOT_CHROOT_NAME=build-PACKAGEBUILD-24183204 SCHROOT_COMMAND=env SCHROOT_GID=2501 SCHROOT_GROUP=buildd SCHROOT_SESSION_ID=build-PACKAGEBUILD-24183204 SCHROOT_UID=2001 SCHROOT_USER=buildd SHELL=/bin/sh TERM=unknown USER=buildd V=1 dpkg-buildpackage ----------------- Command: dpkg-buildpackage -us -uc -mLaunchpad Build Daemon -b -rfakeroot dpkg-buildpackage: info: source package cafeobj dpkg-buildpackage: info: source version 1.6.0-2build1 dpkg-buildpackage: info: source distribution kinetic dpkg-source --before-build . dpkg-buildpackage: info: host architecture amd64 fakeroot debian/rules clean dh_testdir dh_testroot [ ! -f Makefile ] || /usr/bin/make distclean rm -f install-arch-stamp install-indep-stamp rm -f build-arch-stamp build-indep-stamp rm -rf /<>/tmpcache dh_clean debian/rules build dh_testdir ./configure --prefix=/usr --with-lisp=sbcl checking for a BSD-compatible install... /usr/bin/install -c checking for gcl... no checking for lisp... no checking for sbcl... /usr/bin/sbcl checking for alisp... no checking for clisp... no checking for ccl... no checking for ccl64... no checking whether make sets $(MAKE)... yes checking for a thread-safe mkdir -p... /usr/bin/mkdir -p configure: Building for the following lisp interpreters: sbcl checking for emacs... no checking for xemacs... no checking where .elc files should go... ${datadir}/emacs/site-lisp checking for gcc... gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking how to run the C preprocessor... gcc -E checking for grep that handles long lines and -e... /usr/bin/grep checking for egrep... /usr/bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking size of long... 8 configure: creating ./config.status config.status: creating Makefile config.status: creating make-cafeobj.lisp config.status: creating version.lisp config.status: creating xbin/cafeobj.in config.status: creating doc/refman/Makefile config.status: creating doc/manual/Makefile config.status: creating doc/RefCard/Makefile config.status: creating doc/PigNose/Makefile config.status: creating doc/citp-manual/Makefile config.status: creating doc/namespace/Makefile config.status: creating doc/etc/Makefile config.status: creating doc/search/Makefile #./configure --prefix=/usr --with-lisp=sbcl --enable-rebuild-doc # remove prebuild documentation pdf and rebuild them #rm -f doc/manual/manual.pdf #rm -f doc/refman/reference-manual.pdf #rm -f doc/PigNose/pnguide.pdf #rm -f doc/RefCard/interp.pdf #rm -f doc/RefCard/syntax.pdf #rm -f doc/namespace/namespace.pdf make build make[1]: Entering directory '/<>' mkdir -p dumps/sbcl/ sbcl --dynamic-space-size 4096 < make-cafeobj.lisp This is SBCL 2.2.3.debian, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * NIL * # * # * *CHAOS-ROOT* * "." * CHAOS::*CAFEOBJ-INSTALL-DIR* * "." * CHAOS::*MAKE-BIGPINK* * (:BIGPINK :X86-64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE :SBCL :UNIX) * NIL * ; in: DEFUN MAKE-EXEC-IMAGE ; (CHAOS::GET-TIME-STRING) ; ; caught STYLE-WARNING: ; undefined function: CHAOS::GET-TIME-STRING ; (CHAOS::SET-CAFEOBJ-STANDARD-LIBRARY-PATH) ; ; caught STYLE-WARNING: ; undefined function: CHAOS::SET-CAFEOBJ-STANDARD-LIBRARY-PATH ; ; compilation unit finished ; Undefined functions: ; CHAOS::GET-TIME-STRING CHAOS::SET-CAFEOBJ-STANDARD-LIBRARY-PATH ; caught 2 STYLE-WARNING conditions MAKE-EXEC-IMAGE * CHAOS::*COMPILE-BUILTIN-AXIOM* * MAKE-CAFEOBJ * ** making CafeOBJ (STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD EVAL WARNING: System definition file #P"/<>/sysdef.asd" contains definition for system "chaosx". Please only define "sysdef" and secondary systems with a name starting with "sysdef/" (e.g. "sysdef/test") in that file. WARNING: System definition file #P"/<>/cl-ppcre/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. WARNING: System definition file #P"/<>/cl-ppcre/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. .) ; compiling file "/<>/cl-ppcre/packages.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/packages-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/cl-ppcre/specials.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/specials-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/cl-ppcre/util.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/util-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/cl-ppcre/errors.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/errors-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/cl-ppcre/charset.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a RATIONAL. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 371370.0d0) ; (SINGLE-FLOAT * 371370.0) ; (RATIONAL * 371370)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline ASH ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/charset-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.040 ; compiling file "/<>/cl-ppcre/charmap.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (1- CL-PPCRE::END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-18) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-18) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/charmap-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.032 ; compiling file "/<>/cl-ppcre/chartest.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/chartest-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/cl-ppcre/lexer.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; in: DECLAIM (INLINE UNGET-TOKEN) ; (DECLAIM (INLINE CL-PPCRE::UNGET-TOKEN)) ; ==> ; (SB-C::%PROCLAIM '(INLINE CL-PPCRE::UNGET-TOKEN) (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-PPCRE::UNGET-TOKEN to be INLINE, but 1 call to it was previously ; compiled. A declaration of NOTINLINE at the call site will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/lexer-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.068 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/<>/cl-ppcre/parser.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/parser-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/cl-ppcre/regex-class.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/regex-class-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/cl-ppcre/regex-class-util.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) ; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) ; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/regex-class-util-tmpQ371UGST.fasl ; compilation finished in 0:00:00.092 ; compiling file "/<>/cl-ppcre/convert.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/convert-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.104 ; compiling file "/<>/cl-ppcre/optimize.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a SIMPLE-BASE-STRING. ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (SETF (SUBSEQ CL-PPCRE::COLLECTOR CL-PPCRE::OLD-COLLECTOR-LENGTH) ; (CL-PPCRE::STR CL-PPCRE::ELEMENT) ; CL-PPCRE::SKIP (CL-PPCRE::SKIP CL-PPCRE::ELEMENT)) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/optimize-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/cl-ppcre/closures.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/closures-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.060 ; compiling file "/<>/cl-ppcre/repetition-closures.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/repetition-closures-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.128 ; compiling file "/<>/cl-ppcre/scanner.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; --> CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/scanner-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.180 ; compiling file "/<>/cl-ppcre/api.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {100BE7081F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100C2B287F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {100C4346FF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {100C634E8F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR REAL COMPLEX), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (INCF CL-PPCRE::COUNTER) ; --> THE ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; (LOOP CL-PPCRE::FOR CL-PPCRE::TOKEN CL-PPCRE::IN CL-PPCRE::REPLACEMENT-TEMPLATE ; DO (TYPECASE CL-PPCRE::TOKEN ; (STRING (WRITE-STRING CL-PPCRE::TOKEN CL-PPCRE::S)) ; (INTEGER (WHEN # #) (WHEN # #)) ; (FUNCTION (WRITE-STRING # CL-PPCRE::S)) ; (SYMBOL (CASE CL-PPCRE::TOKEN # # # # #))))) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (LOOP FOR TOKEN IN REPLACEMENT-TEMPLATE ; DO (TYPECASE TOKEN ; (STRING (WRITE-STRING TOKEN S)) ; (INTEGER ; (WHEN (>= TOKEN REG-BOUND) ; (SIGNAL-INVOCATION-ERROR ; "Reference to non-existent register ~A in replacement string." ; (1+ TOKEN))) ; (WHEN (SVREF REG-STARTS TOKEN) ; (WRITE-STRING TARGET-STRING S :START ; (SVREF REG-STARTS TOKEN) :END ; (SVREF REG-ENDS TOKEN)))) ; (FUNCTION ; (WRITE-STRING ; (COND ; (SIMPLE-CALLS ; (APPLY TOKEN ; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) ; (MAP 'LIST ; (LAMBDA (REG-START REG-END) ; (AND REG-START ; (NSUBSEQ TARGET-STRING REG-START ; REG-END))) ; REG-STARTS REG-ENDS))) ; (T ; (FUNCALL TOKEN TARGET-STRING START END MATCH-START ; MATCH-END REG-STARTS REG-ENDS))) ; S)) ; (SYMBOL ; (CASE TOKEN ; ((:BACKSLASH) (WRITE-CHAR #\\ S)) ; ((:MATCH) ; (WRITE-STRING TARGET-STRING S :START MATCH-START :END ; MATCH-END)) ; ((:BEFORE-MATCH) ; (WRITE-STRING TARGET-STRING S :START START :END ; MATCH-START)) ; ((:AFTER-MATCH) ; (WRITE-STRING TARGET-STRING S :START MATCH-END :END ; END)) ; (OTHERWISE ; (WRITE-STRING ; (COND ; (SIMPLE-CALLS ; (APPLY TOKEN ; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) ; (MAP 'LIST ; (LAMBDA (REG-START REG-END) ; (AND REG-START ; (NSUBSEQ TARGET-STRING REG-START ; REG-END))) ; REG-STARTS REG-ENDS))) ; (T ; (FUNCALL TOKEN TARGET-STRING START END MATCH-START ; MATCH-END REG-STARTS REG-ENDS))) ; S))))))) ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFUN REPLACE-AUX ; (FUNCALL ; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM ; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END) ; CL-PPCRE::CURR-REPLACEMENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; (LOOP CL-PPCRE::FOR (CL-PPCRE::FROM CL-PPCRE::TO) CL-PPCRE::ON (APPEND ; (LIST ; CL-PPCRE::START) ; CL-PPCRE::POS-LIST ; (LIST ; CL-PPCRE::END)) ; CL-PPCRE::FOR REPLACE = NIL CL-PPCRE::THEN (AND (NOT REPLACE) ; CL-PPCRE::TO) ; CL-PPCRE::FOR ...)) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (LOOP FOR (FROM TO) ON (APPEND (LIST START) POS-LIST (LIST END)) ; FOR REPLACE = NIL THEN (AND (NOT REPLACE) TO) ; FOR REG-STARTS = (IF REPLACE ; (POP REG-LIST) ; NIL) ; FOR REG-ENDS = (IF REPLACE ; (POP REG-LIST) ; NIL) ; FOR CURR-REPLACEMENT = (IF REPLACE ; (BUILD-REPLACEMENT ; REPLACEMENT-TEMPLATE TARGET-STRING ; START END FROM TO REG-STARTS ; REG-ENDS SIMPLE-CALLS ELEMENT-TYPE) ; NIL) ; WHILE TO ; IF REPLACE ; DO (WRITE-STRING ; (IF PRESERVE-CASE ; (FUNCALL ; (STRING-CASE-MODIFIER TARGET-STRING FROM TO START END) ; CURR-REPLACEMENT) ; CURR-REPLACEMENT) ; S) ELSE ; DO (WRITE-STRING TARGET-STRING S :START FROM :END TO))) ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {100E62386F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {100E62386F}> ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1001C162CF}> ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1001C162CF}> ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cl-ppcre/api-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.188 WARNING: Lisp compilation had style-warnings while compiling # ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; printed 921 notes STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD EVAL WARNING: System definition file #P"/<>/sysdef.asd" contains definition for system "chaosx". Please only define "sysdef" and secondary systems with a name starting with "sysdef/" (e.g. "sysdef/test") in that file. ; compiling file "/<>/chaos-package.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos-package-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.000 ; compiling file "/<>/version.lisp" (written 19 JUL 2022 12:26:24 PM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/version-tmpOPCILR65.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/comlib/globals.lisp" (written 17 JAN 2019 06:56:23 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/globals-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/comlib/macros.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/macros-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/comlib/print-utils.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/print-utils.lisp ; in: DEFUN PRINT-TO-RIGHT ; (- (1- CHAOS::.TERMINAL-WIDTH.) (CHAOS::FILECOL STREAM) CHAOS::*PRINT-INDENT* ; (THE FIXNUM (LENGTH STRING))) ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -4611686018427387834 4611686018427387973), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775737 9223372036854775877) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775737 9223372036854775877), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163637 9223372036854775877) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -9223372036854775737 9223372036854775877), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -13835058055282163637 9223372036854775877) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (DOTIMES ; (CHAOS::X ; (- (1- CHAOS::.TERMINAL-WIDTH.) (CHAOS::FILECOL STREAM) ; CHAOS::*PRINT-INDENT* (THE FIXNUM (LENGTH STRING)))) ; (DECLARE (TYPE FIXNUM CHAOS::X)) ; (PRINC CHAOS::FILL-CHAR STREAM)) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (INTEGER -13835058055282163637 ; 9223372036854775877), not a FIXNUM. ; in: DEFUN PRINT-TO-LEFT ; (- (1- CHAOS::*PRINT-LINE-LIMIT*) CHAOS::*PRINT-INDENT* ; (CHAOS::FILECOL STREAM) (LENGTH STRING)) ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163711 13835058055282163710) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163711 ; 13835058055282163710), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551611 13835058055282163710) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -13835058055282163711 ; 13835058055282163710), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -18446744073709551611 13835058055282163710) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (DOTIMES ; (CHAOS::X ; (- (1- CHAOS::*PRINT-LINE-LIMIT*) CHAOS::*PRINT-INDENT* ; (CHAOS::FILECOL STREAM) (LENGTH STRING))) ; (DECLARE (TYPE FIXNUM CHAOS::X)) ; (PRINC CHAOS::FILL-CHAR STREAM)) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (INTEGER -18446744073709551611 ; 13835058055282163710), not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/print-utils-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/comlib/message.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/message.lisp ; in: DEFUN SET-VERBOSE-LVL ; (<= CHAOS::LVL 3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 3.0d0) (SINGLE-FLOAT 3.0) ; (RATIONAL 3)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN SET-VERBOSE-OFF ; (ZEROP CHAOS::*MSG-LVL*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN SET-EXPORT-OFF ; (= CHAOS::*MSG-LVL* 2) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN SET-QUIET-OFF ; (= CHAOS::*MSG-LVL* 3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN OUTPUT-MSG ; (STRING CHAOS::ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (>= (CHAOS::GET-MSG-LEVEL CHAOS::ID) CHAOS::*MSG-LVL*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/message-tmp10401X32.fasl ; compilation finished in 0:00:00.036 ; compiling file "/<>/comlib/error.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/error-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/comlib/misc.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/misc.lisp ; in: DEFUN OB-COMPARE ; (< CHAOS::X CHAOS::Y) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT RATIO), not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT RATIO), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT RATIO), not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (< CHAOS::Y CHAOS::X) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT RATIO), not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR FLOAT RATIO), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a (OR FLOAT RATIO), not a RATIONAL. ; (LENGTH CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR ; (AND (NOT BASE-STRING) (NOT (VECTOR CHARACTER)) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (LENGTH CHAOS::Y) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT CHAOS::X CHAOS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR ; (AND (NOT BASE-STRING) (NOT (VECTOR CHARACTER)) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * ; (*)). ; (ELT CHAOS::Y CHAOS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (< CHAOS::X CHAOS::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT RATIO), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT RATIO), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (< CHAOS::Y CHAOS::X) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT RATIO), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR FLOAT RATIO), not a DOUBLE-FLOAT. ; (< (THE INTEGER CHAOS::X) (THE INTEGER CHAOS::Y)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (< (THE INTEGER CHAOS::Y) (THE INTEGER CHAOS::X)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; in: DEFUN READ-CHAR-WAIT ; (+ CHAOS::START CHAOS::TIMEOUT) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (< (+ CHAOS::START CHAOS::TIMEOUT) (CHAOS::INTERNAL-REAL-TIME-IN-SECONDS)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (+ CHAOS::START CHAOS::TIMEOUT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (RATIONAL 0 2305843009213693951/1000000), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (RATIONAL 0 2305843009213693951/1000000), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (< (+ CHAOS::START CHAOS::TIMEOUT) (CHAOS::INTERNAL-REAL-TIME-IN-SECONDS)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (RATIONAL 0 2305843009213693951/1000000), not a FIXNUM. ; in: DEFUN ELAPSED-TIME-IN-SECONDS ; (COERCE (/ (- CHAOS::NOW CHAOS::BASE) INTERNAL-TIME-UNITS-PER-SECOND) 'FLOAT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a RATIO. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a BIGNUM. ; (- CHAOS::NOW CHAOS::BASE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (COERCE (/ (- CHAOS::NOW CHAOS::BASE) INTERNAL-TIME-UNITS-PER-SECOND) 'FLOAT) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 64). ; in: DEFUN TIME-IN-SECONDS ; (COERCE (/ CHAOS::SUM INTERNAL-TIME-UNITS-PER-SECOND) 'FLOAT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a RATIO. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a BIGNUM. ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 64). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/misc-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.080 ; compiling file "/<>/comlib/string.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/string-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/comlib/list.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/list-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/comlib/dag.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/dag-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/<>/comlib/fsys.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/fsys.lisp ; in: DEFUN EXPAND-FILE-NAME ; (EQUAL "~" CHAOS::FNAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN SUPPLY-SUFFIXES ; (MAPCAR #'PATHNAME ; (MAPCAR ; #'(LAMBDA (CHAOS::X) ; (CONCATENATE 'STRING (NAMESTRING CHAOS::PATH) ; (NAMESTRING CHAOS::X))) ; CHAOS::SUFFIXES)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING PATHNAME SYNONYM-STREAM ; FILE-STREAM), not a PATHNAME. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING PATHNAME SYNONYM-STREAM ; FILE-STREAM), not a STRING. ; in: DEFUN CHAOS-GET-RELATIVE-PATH ; (PATHNAME CHAOS::FILE-PATH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYNONYM-STREAM FILE-STREAM), not a STRING. ; in: DEFUN CHAOS-PRINT-DIRECTORY-STACK ; (FORMAT STREAM "~%~a" CHAOS::*CHAOS-DIRECTORY-STACK*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN CHAOS-PUSHD ; (LENGTH CHAOS::*CHAOS-DIRECTORY-STACK*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CHAOS-INPUT-FILE ; (APPLY CHAOS::PROC CHAOS::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (>= (FILE-WRITE-DATE CHAOS::BIN-FNAME) (FILE-WRITE-DATE CHAOS::FNAME)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; in: DEFUN PR-SEARCH-PATH ; (FORMAT STREAM "libpath = ~{~a~^:~}" CHAOS::*CHAOS-LIBPATH*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/fsys-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.096 ; compiling file "/<>/comlib/tree-display.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/tree-display.lisp ; in: DEFUN AUGMENT-TREE ; (FUNCALL CHAOS::LEAF? CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::LEAF-INFO CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::INT-NODE-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (* (- (THE FIXNUM (LENGTH (THE LIST CHAOS::CHILDREN))) 1) CHAOS::TREE-SPACING) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (+ (* (- (THE FIXNUM (LENGTH #)) 1) CHAOS::TREE-SPACING) ; (THE FIXNUM (APPLY #'+ (MAPCAR #'CHAOS::AUGM-TREE-WIDTH CHAOS::CHILDREN)))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (* (- (THE FIXNUM (LENGTH (THE LIST CHAOS::CHILDREN))) 1) CHAOS::TREE-SPACING) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (* (- (THE FIXNUM (LENGTH #)) 1) CHAOS::TREE-SPACING) ; (THE FIXNUM (APPLY #'+ (MAPCAR #'CHAOS::AUGM-TREE-WIDTH CHAOS::CHILDREN)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; (+ (- CHAOS::WIDTH (THE FIXNUM (CHAOS::AUGM-TREE-WIDTH CHAOS::LAST-CHILD))) ; (+ (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::FIRST-CHILD)) ; (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::LAST-CHILD)))) ; ; note: forced to do +/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551615 18446744073709551613) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (+ CHAOS::MAX-LEFT CHAOS::MAX-RIGHT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::MAX-LEFT CHAOS::LEFT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::MAX-RIGHT CHAOS::RIGHT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN TRAVERSE-TREE-CHECKING-DUPS ; (FUNCALL CHAOS::LEAF? CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::LEAF-INFO CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::INT-NODE-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN AUGMENT-TREE-AS-GRAPH-AUX ; (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (+ (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING) ; (THE FIXNUM (APPLY #'+ (MAPCAR #'CHAOS::AUGM-TREE-WIDTH CHAOS::CHILDREN)))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING) ; (THE FIXNUM (APPLY #'+ (MAPCAR #'CHAOS::AUGM-TREE-WIDTH CHAOS::CHILDREN)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; (+ (- CHAOS::WIDTH (THE FIXNUM (CHAOS::AUGM-TREE-WIDTH CHAOS::LAST-CHILD))) ; (+ (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::FIRST-CHILD)) ; (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::LAST-CHILD)))) ; ; note: forced to do +/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551615 18446744073709551613) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (+ CHAOS::MAX-LEFT CHAOS::MAX-RIGHT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::MAX-LEFT CHAOS::LEFT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::MAX-RIGHT CHAOS::RIGHT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN PRINT-LOOP1 ; (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::NAME-RIGHT) ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (- CHAOS::ROOT CHAOS::NAME-LEFT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::TREE-WIDTH CHAOS::ROOT 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN PRINT-LOOP2 ; (+ CHAOS::LPAD CHAOS::ROOT1) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (+ CHAOS::ROOT CHAOS::TREE-SPACING CHAOS::RIGHT) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (+ CHAOS::ROOT 1) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- CHAOS::WIDTH (+ CHAOS::ROOT 1)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (+ CHAOS::RIGHT CHAOS::RPAD) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::INFO-RIGHT) ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The second argument is a (INTEGER -6917529027641081854 ; 6917529027641081854), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -16140901064495857661 16140901064495857661) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::NAME-RIGHT) ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (+ CHAOS::LPAD CHAOS::ROOT1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CHAOS::ROOT CHAOS::TREE-SPACING CHAOS::RIGHT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ CHAOS::ROOT 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (- CHAOS::WIDTH (+ CHAOS::ROOT 1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CHAOS::RIGHT CHAOS::RPAD) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (CHAOS::PRINT-LOOP3 (CDR CHAOS::CHILDREN) ; (CONS CHAOS::CHILD1 (CHAOS::PAD CHAOS::LPAD 'NIL)) ; (- CHAOS::WIDTH1 (+ CHAOS::ROOT1 1))) ; ; note: doing signed word to integer coercion (cost 20) to RIGHT ; (- CHAOS::ROOT CHAOS::NAME-LEFT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::ROOT CHAOS::INFO-LEFT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- CHAOS::TREE-WIDTH CHAOS::ROOT 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/tree-display-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.052 ; compiling file "/<>/comlib/lex.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/lex.lisp ; in: DEFUN LEX-SHOW-DELIMITERS ; (FORMAT STREAM "~%~S : ~S" (CODE-CHAR CHAOS::X) CHAOS::SYNTAX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN !SET-SINGLE-READER ; (STRING CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING CHARACTER), not a STRING. ; in: DEFUN STR-MATCH? ; (STRING= (THE SIMPLE-STRING CHAOS::X) ; (IF (STRINGP CHAOS::Y) ; (THE SIMPLE-STRING CHAOS::Y) ; (STRING-DOWNCASE (STRING (THE SYMBOL CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN READER-GET-CHAR ; (INCF CHAOS::.NEWLINE-COUNT.) ; --> THE ; ==> ; (+ 1 CHAOS::.NEWLINE-COUNT.) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CHAOS::.NEWLINE-COUNT. 2) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF CHAOS::.NEWLINE-COUNT.) ; --> THE ; ==> ; (+ 1 CHAOS::.NEWLINE-COUNT.) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> CHAOS::.NEWLINE-COUNT. 2) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN READ-LEXICON ; (STRING CHAOS::.READER-CH.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN READER-SUPPRESS-CH ; (STRING CHAOS::.READER-CH.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN READ-SYM ; (STRING CHAOS::.READER-CH.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN !FORCE-SINGLE-READER ; (CHAR (THE STRING CHAOS::X) 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (STRING CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN !UNSET-SINGLE-READER ; (CHAR (THE STRING CHAOS::X) 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (ASSOC CHAOS::CHR CHAOS::.DEFAULT-SINGLE-CHARS.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/lex-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.080 ; compiling file "/<>/comlib/reader.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/comlib/reader.lisp ; in: DEFUN STRING-MATCH ; (STRING CHAOS::Y) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL. ; (STRING= (THE SIMPLE-STRING CHAOS::X) ; (IF (STRINGP CHAOS::Y) ; (THE SIMPLE-STRING CHAOS::Y) ; (THE SIMPLE-STRING (STRING-DOWNCASE (STRING CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN GENERAL-READ-STRING-MATCHES ; (FUNCALL (CADR CHAOS::Y) CHAOS::X) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN GENERAL-READ-SHOW-CONTEXT ; (EQUAL CHAOS::*READER-STARTING-POSITION* (FILE-POSITION *STANDARD-INPUT*)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (OR UNSIGNED-BYTE BOOLEAN), not a FIXNUM. ; unable to do inline (signed-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a (OR UNSIGNED-BYTE BOOLEAN), not a (SIGNED-BYTE ; 64). ; etc. ; in: DEFUN GENERAL-READ-PRINT-SCHEMA ; (EQL CHAOS::CONTROL-D CHAOS::I) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a ATOM, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a ATOM, not a SINGLE-FLOAT. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/reader-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/comlib/let-over-lambda.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/comlib/let-over-lambda-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.088 ; compiling file "/<>/chaos/primitives/bterm.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bterm-tmp8065ESJT.fasl ; compilation finished in 0:00:00.160 ; compiling file "/<>/chaos/primitives/defterm.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/chaos/primitives/defterm.lisp ; in: DEFUN %MAKE-KEYWORD ; (STRING CHAOS::SYMBOL-OR-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; in: DEFMACRO DEFTERM ; (STRING CHAOS::CONC-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::CONC-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::CONC-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::CONC-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/defterm-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.148 ; compiling file "/<>/chaos/primitives/bobject.lisp" (written 04 MAR 2019 06:26:47 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bobject-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.168 ; compiling file "/<>/chaos/primitives/absntax.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/absntax-tmpE0PA0714.fasl ; compilation finished in 0:00:00.324 ; compiling file "/<>/chaos/primitives/script.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/script-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.448 ; compiling file "/<>/chaos/primitives/op-theory.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/op-theory-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.056 ; compiling file "/<>/chaos/primitives/bmodexp.lisp" (written 04 MAR 2019 06:39:10 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bmodexp-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.104 ; compiling file "/<>/chaos/primitives/bmodule2.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/bmodule2.lisp ; in: DEFUN EQUAL-TOP-LEVEL ; (STRING= CHAOS::X CHAOS::Y) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (EQL CHAOS::X CHAOS::Y) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (AND (NOT (VECTOR CHARACTER)) (NOT BASE-STRING) ; ATOM), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (AND (NOT (VECTOR CHARACTER)) (NOT BASE-STRING) ; ATOM), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bmodule2-tmp267Y2N80.fasl ; compilation finished in 0:00:00.148 ; compiling file "/<>/chaos/primitives/bview2.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/bview2.lisp ; in: DEFUN SAME-TOP-LEVEL ; (EVERY #'EQL CHAOS::ME1 CHAOS::ME2) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bview2-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/chaos/primitives/parse-modexp.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/parse-modexp.lisp ; in: DEFUN PARSE-OPERATOR-REFERENCE ; (POSITION #\. CHAOS::MOD-REF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LENGTH CHAOS::MOD-REF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CHAOS::MOD-REF (1+ CHAOS::POS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/parse-modexp-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.060 ; compiling file "/<>/chaos/primitives/normodexp.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/normodexp-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/primitives/bsort.lisp" (written 17 JAN 2019 06:56:23 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bsort-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.196 ; compiling file "/<>/chaos/primitives/boperator.lisp" (written 10 DEC 2019 02:26:49 AM): ; file: /<>/chaos/primitives/boperator.lisp ; in: DEFUN MAKE-PRINT-OPERATOR-ID ; (STRING CHAOS::A) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; (STRING CHAOS::B) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; in: DEFUN PRINT-METHOD-OBJECT ; (FORMAT STREAM ":op[~a]" (CHAOS::METHOD-NAME CHAOS::OBJ)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN MAKE-METHOD-ID-SYMBOL ; (FIND-IF #'(LAMBDA (CHAOS::X) (STRING= CHAOS::X "_")) (CAR CHAOS::NAM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (STRING= CHAOS::X "_") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; in: DEFUN METHOD-IS-PREDICATE ; (MEMBER CHAOS::*BOOL-SORT* (CHAOS::METHOD-ARITY CHAOS::METHOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN METHOD-IS-RESTRICTION-OF ; (BREAK "HiGo") ; ; note: deleting unreachable code ; in: DEFUN MAKE-OPERATOR-INTERNAL ; (INCF CHAOS::T-CNT) ; --> THE ; ==> ; (+ 1 CHAOS::T-CNT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (> CHAOS::T-CNT 0) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/boperator-tmpOHM494YR.fasl ; compilation finished in 0:00:00.304 ; compiling file "/<>/chaos/primitives/baxioms.lisp" (written 17 JAN 2019 06:56:23 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/baxioms-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/chaos/primitives/bmacro.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/bmacro-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/primitives/gen-eval.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/gen-eval.lisp ; in: DEFUN EVAL-AST ; (STRING CHAOS::MODULE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a STRING. ; (FUNCALL CHAOS::EVALUATOR CHAOS::AST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; EVALUATOR is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; EVALUATOR is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; EVALUATOR is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/gen-eval-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/primitives/meta.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/meta.lisp ; in: DEFUN DO-APPLY!! ; (CHAOS::CREATE-SYSTEM-OBJECT-TERM NIL) ; ; note: deleting unreachable code ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/meta-tmpGW0QV22K.fasl ; compilation finished in 0:00:00.064 ; compiling file "/<>/chaos/primitives/gen-print.lisp" (written 30 SEP 2019 05:33:23 AM): ; file: /<>/chaos/primitives/gen-print.lisp ; in: DEFUN PRINT-VARIABLE ; (STRING (CHAOS::VARIABLE$PRINT-NAME CHAOS::BODY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN VARIABLE-PRINT-STRING ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN BCONST-PRINT-STRING ; (FUNCALL ; (CHAOS::BSORT-TERM-PRINTER ; (CHAOS::TERM-SORT ; CHAOS::TERM)) ; CHAOS::VAL) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN IS-SELF-TERMINATING ; (CHAR CHAOS::TOK 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN TERM-PRINT1 ; (STRING CHAOS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL) ; CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL) ; CHARACTER), not a STRING. ; in: DEFUN TERM-PRINT2 ; (STRING CHAOS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL) ; CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL) ; CHARACTER), not a STRING. ; (<= CHAOS::PREC (CHAOS::GET-METHOD-PRECEDENCE CHAOS::HD)) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (* CHAOS::X 15) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; The result is a (VALUES (INTEGER * 69175290276410818500) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; The result is a (VALUES (INTEGER * 69175290276410818500) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (1- CHAOS::X) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387899) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387899) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; in: DEFUN !PRINT-TERM-TREE ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (IF SORT ; (CHAOS::SORT-ID SORT) ; "unknown") ; ; note: deleting unreachable code ; in: DEFUN PRINT-CHAOS-OBJECT ; (FUNCALL CHAOS::PRINTER CHAOS::OBJECT STREAM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; (FORMAT STREAM "~%-- delcrations -------------------") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a NULL. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/gen-print-tmp2K9J0HSR.fasl ; compilation finished in 0:00:00.092 ; compiling file "/<>/chaos/primitives/context.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/context.lisp ; in: DEFUN IS-SPECIAL-LET-VARIABLE? ; (EQUAL "$$" (SUBSEQ (THE SIMPLE-STRING CHAOS::NAME) 0 2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR (SIMPLE-BASE-STRING 2) ; (SIMPLE-ARRAY CHARACTER ; (2))), not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN GET-BOUND-VALUE ; (EQUAL CHAOS::LET-SYM "$$term") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (EQUAL CHAOS::LET-SYM "$$subterm") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/context-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/primitives/term-utils.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/chaos/primitives/term-utils.lisp ; in: DEFUN SUBSTITUTION-CAN ; (STRING ; (CHAOS::VARIABLE-NAME ; (CAR CHAOS::X))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; (CAR CHAOS::Y))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN UPDATE-LOWEST-PARSE ; (FUNCALL ; (CHAOS::BSORT-TERM-PREDICATE ; CHAOS::S) ; CHAOS::VAL) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN TERM-EQUATIONAL-EQUAL ; (CHAOS::E-EQUAL-IN-THEORY ; (CHAOS::METHOD-THEORY ; CHAOS::F1) ; CHAOS::T1 ; CHAOS::T2) ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN COPY-LIST-TERM-USING-LIST-VAR ; (ASSOC CHAOS::TERM CHAOS::LIST-NEW-VAR :TEST CHAOS::TEST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST is not known to be a function ; in: DEFUN REPLACE-VARIABLES-WITH-TOC ; (FORMAT T WARN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-STRING. ; (ASSOC CHAOS::VAR SUBST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN SUBSTITUTION-IMAGE ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL ; (CHAOS::CHAOS-FORM-EXPR ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN SUBSTITUTION-IMAGE! ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL ; (CHAOS::CHAOS-FORM-EXPR ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN SUBSTITUTION-IMAGE-CP ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL ; (CHAOS::CHAOS-FORM-EXPR ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN SUBSTITUTION-IMAGE-SIMPLIFYING ; (FUNCALL ; (CHAOS::CHAOS-FORM-EXPR ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/term-utils-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.304 ; compiling file "/<>/chaos/primitives/find.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/chaos/primitives/find.lisp ; in: DEFUN FIND-SORT-IN ; (STRING CHAOS::SORT-ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; in: DEFUN FIND-ERROR-SORT-IN ; (STRING CHAOS::SORT-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-STRING SYMBOL), not a STRING. ; in: DEFUN FIND-BUILTIN-METHOD-IN ; (FUNCALL (CAR CHAOS::SORT-INFO) CHAOS::OPNM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL (CAR CHAOS::SI) CHAOS::OPNM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN FIND-PARAMETERIZED-SUBMODULE ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (EQUAL CHAOS::NAME ; (CHAOS::PARAMETER-ARG-NAME ; CHAOS::X))) ; CHAOS::PARAMS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN NTH-SUB ; (RASSOC (CAR CHAOS::I) CHAOS::PARAMS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN SYMBOL-TABLE-ADD ; (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-UNKNOWNS CHAOS::TBL)) ; --> ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT MODULE) (NOT SORT*) (NOT OPERATOR) ; (NOT AXIOM)), not a (OR FIXNUM SINGLE-FLOAT ; (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/find-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.100 ; compiling file "/<>/chaos/primitives/print-object.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/primitives/print-object.lisp ; in: DEFUN PRINT-MODEXP ; (FUNCALL CHAOS::PRINTER CHAOS::ME STREAM CHAOS::SIMPLE CHAOS::NO-PARAM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; (FUNCALL CHAOS::PRINTER CHAOS::ME STREAM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; in: DEFUN PRINT-VIEW-IN-CAFEOBJ-MODE ; (FUNCALL CHAOS::PRINTER CHAOS::VW STREAM CHAOS::SIMPLE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; in: DEFUN PRINT-METHOD-BRIEF ; (CHAOS::METHOD-IS-PREDICATE CHAOS::METH) ; --> BLOCK AND IF IF IF NOT ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN PRINT-RULE-LABELS ; (MAPCAR #'STRING LABELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PRINT-RULE ; (LENGTH CHAOS::EXTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/primitives/print-object-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.188 ; compiling file "/<>/chaos/term-parser/parse-macro.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/term-parser/parse-macro.lisp ; in: DEFUN EXPAND-MACRO ; (1+ CHAOS::*DEBUG-MARCO-NEST*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (1+ CHAOS::*DEBUG-MARCO-NEST*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/term-parser/parse-macro-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/chaos/term-parser/parse-engine.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/term-parser/parse-engine.lisp ; in: DEFUN VARIABLE-COPY-MODIFYING ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN SIMPLE-COPY-TERM-SHARING-VARIABLES ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (ASSOC ; (CHAOS::VARIABLE-NAME ; CHAOS::TERM) ; CHAOS::*PARSE-VARIABLES* :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN GET-QUALIFIED-OP-PATTERN ; (POSITION #\_ CHAOS::EXPR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR LIST ; VECTOR). ; (SUBSEQ CHAOS::EXPR 0 CHAOS::POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ CHAOS::EXPR (1+ CHAOS::POS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST STRING (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN GET-INFO-ON-TOKEN ; (FUNCALL CHAOS::TOKEN-PRED CHAOS::TOKEN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN-PRED is not known to be a function ; in: DEFUN DICTIONARY-MAKE-BUILTIN-CONSTANT ; (FUNCALL ; (CHAOS::BSORT-TERM-CREATOR ; CHAOS::BSORT) ; CHAOS::TOKEN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/term-parser/parse-engine-tmpLM57P5P.fasl ; compilation finished in 0:00:00.112 ; compiling file "/<>/chaos/term-parser/parse-top.lisp" (written 10 DEC 2019 02:30:56 AM): ; file: /<>/chaos/term-parser/parse-top.lisp ; in: DEFUN PRE-CHOOSE-FINAL ; (ASSOC CHAOS::*ID-MODULE* (CHAOS::MODULE-ALL-SUBMODULES CHAOS::MODULE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN PARSER-DIAGNOSE ; (LENGTH (CDR CHAOS::E)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ CHAOS::LENP CHAOS::I) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN PARSE-SHOW-DIFF ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (1+ CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN UPDATE-PARSE-INFORMATION ; (STRING (CAR CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/term-parser/parse-top-tmpZE69DN33.fasl ; compilation finished in 0:00:00.092 ; compiling file "/<>/chaos/e-match/match-utils.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-utils-tmpG8099TO3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/e-match/match-system.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-system-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.100 ; compiling file "/<>/chaos/e-match/match-state.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/e-match/match-state.lisp ; in: DEFUN NEXT-MATCH-STATE ; (CHAOS::THEORY-STATE-MATCH-NEXT-STATE ; CHAOS::THEORY-INFO ; CHAOS::TH-MATCH-STATE) ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAOS::THEORY-STATE-MATCH-INITIALIZE ; CHAOS::THEORY-INFO ; CHAOS::SYS-TO-SOLVE ; (CHAOS::MATCH-SYSTEM-ENV ; CHAOS::NEW-M-SYS)) ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-state-tmp35U57IV6.fasl ; compilation finished in 0:00:00.024 ; compiling file "/<>/chaos/e-match/match-e.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-e-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/e-match/match-idem.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-idem-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/e-match/match-z.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-z-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/chaos/e-match/match-a.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-a-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.056 ; compiling file "/<>/chaos/e-match/match-c.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-c-tmpD68Q8WCA.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/e-match/match-az.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-az-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.048 ; compiling file "/<>/chaos/e-match/match-cz.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-cz-tmpJJ71X849.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/chaos/e-match/match-ac.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/e-match/match-ac.lisp ; in: DEFUN AC-SOLUTION-FROM-STATE ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-C-SOL CHAOS::J) ; CHAOS::TERM-CODE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-F-SOL CHAOS::J) ; CHAOS::TERM-CODE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-C-SOL CHAOS::J) ; CHAOS::TERM-CODE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-F-SOL CHAOS::J) ; CHAOS::TERM-CODE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; in: DEFUN AC-NEXT-STATE-SUB ; (CHAOS::AC-ROTATE-LEFT ; CHAOS::RHS-C-SOL ; CHAOS::M) ; --> SB-KERNEL:%SVSET ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-C-SOL CHAOS::M) ; (SVREF CHAOS::RHS-C-COMPAT CHAOS::M)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-C-SOL CHAOS::M) ; CHAOS::LHS-R-MASK) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-OR ; CHAOS::TEMP ; (SVREF CHAOS::RHS-C-SOL CHAOS::S)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; in: DEFUN MATCH-AC-STATE-INITIALIZE ; (CHAOS::AC-NOTE-REPEATS ; CHAOS::RHS-F-MS ; CHAOS::RHS-F-R ; CHAOS::R-M ; CHAOS::R-GCD) ; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE ; ==> ; (GCD CHAOS::R-GCD CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::AC-NOTE-REPEATS ; CHAOS::RHS-C-MS ; CHAOS::RHS-C-R ; CHAOS::R-M ; CHAOS::R-GCD) ; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE ; ==> ; (GCD CHAOS::R-GCD CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::AC-NOTE-REPEATS ; CHAOS::LHS-V-MS ; CHAOS::LHS-V-R ; CHAOS::L-M ; CHAOS::L-GCD) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::AC-NOTE-REPEATS ; CHAOS::LHS-F-MS ; CHAOS::LHS-F-R ; CHAOS::L-M ; CHAOS::L-GCD) ; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE ; ==> ; (GCD CHAOS::L-GCD CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::MAKE-OR ; CHAOS::TEMP ; (SVREF CHAOS::RHS-C-SOL CHAOS::S)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; in: DEFUN MATCH-AC-NEXT-STATE ; (CHAOS::AC-ROTATE-LEFT ; CHAOS::RHS-F-SOL ; CHAOS::N) ; --> SB-KERNEL:%SVSET ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-F-SOL CHAOS::N) ; (SVREF CHAOS::RHS-F-COMPAT CHAOS::N)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-AND ; (SVREF CHAOS::RHS-F-SOL CHAOS::N) ; CHAOS::LHS-R-MASK) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (CHAOS::MAKE-OR ; CHAOS::TEMP ; (SVREF CHAOS::RHS-F-SOL CHAOS::S)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-ac-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.204 ; compiling file "/<>/chaos/e-match/match-acz.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/chaos/e-match/match-acz.lisp ; in: DEFUN MATCH-ACZ-STATE-INITIALIZE ; (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::RHS-F-MS CHAOS::RHS-F-R CHAOS::R-M ; CHAOS::R-GCD) ; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE ; ==> ; (GCD CHAOS::R-GCD CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::RHS-C-MS CHAOS::RHS-C-R CHAOS::R-M ; CHAOS::R-GCD) ; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE ; ==> ; (GCD CHAOS::R-GCD CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::LHS-V-MS CHAOS::LHS-V-R CHAOS::L-V-M ; CHAOS::L-GCD) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::LHS-F-MS CHAOS::LHS-F-R CHAOS::L-F-M ; CHAOS::L-GCD) ; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE ; ==> ; (GCD CHAOS::L-GCD CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; (CHAOS::EXPT2 ; (+ (THE FIXNUM CHAOS::LHS-V-COUNT) (THE FIXNUM CHAOS::LHS-F-COUNT))) ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 4) because: ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (- ; (CHAOS::EXPT2 ; (+ (THE FIXNUM CHAOS::LHS-V-COUNT) (THE FIXNUM CHAOS::LHS-F-COUNT))) ; 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; etc. ; in: DEFUN MATCH-ACZ-NEXT-STATE-SUB ; (CHAOS::MATCH-ACZ-ROTATE-LEFT CHAOS::RHS-C-SOL CHAOS::M) ; --> SB-KERNEL:%SVSET ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN MATCH-ACZ-NEXT-STATE-AUX ; (CHAOS::MATCH-ACZ-ROTATE-LEFT CHAOS::RHS-F-SOL CHAOS::N) ; --> SB-KERNEL:%SVSET ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (* 2 (SVREF CHAOS::RHS-F-SOL CHAOS::N)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CHAOS::MATCH-ACZ-ROTATE-LEFT CHAOS::RHS-F-SOL CHAOS::N) ; --> SB-KERNEL:%SVSET ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (* 2 (SVREF CHAOS::RHS-F-SOL CHAOS::N)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-acz-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.200 ; compiling file "/<>/chaos/e-match/match.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/e-match/match.lisp ; in: DEFUN FIRST-MATCH ; (CHAOS::THEORY-STATE-MATCH-INITIALIZE ; CHAOS::THEORY-INFO ; CHAOS::SYS ; (CHAOS::MATCH-SYSTEM-ENV ; CHAOS::M-SYS)) ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN FIRST-MATCH-WITH-THEORY ; (CHAOS::THEORY-STATE-MATCH-INITIALIZE ; CHAOS::THEORY-INFO ; CHAOS::SYS ; (CHAOS::MATCH-SYSTEM-ENV ; CHAOS::M-SYS)) ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.011 ; compiling file "/<>/chaos/e-match/match2.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/e-match/match2.lisp ; in: DEFUN IS-LINEAR-GENERAL-PATTERN? ; (MEMBER ELT (CDR CHAOS::LST)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN IS-SIMPLE-AC-MATCH-OK? ; (LENGTH CHAOS::INDEP-VARS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/e-match/match2-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.056 ; compiling file "/<>/chaos/construct/sort.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/construct/sort.lisp ; in: DEFUN ADD-SORT-TO-MODULE ; (CHAOS::MARK-NEED-PARSING-PREPARATION ; MOD) ; --> LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN GLB-SORT ; (LENGTH CHAOS::MEET) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GLB-SORT-NAME ; (STRING CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING CHAOS::Y) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (SORT ; (MAPCAN ; #'(LAMBDA (CHAOS::S) ; (IF (CHAOS::AND-SORT-P CHAOS::S) ; (MAPCAR #'# #) ; (LIST #))) ; CHAOS::SORTS) ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (STRING< (THE SIMPLE-STRING (STRING CHAOS::X)) ; (THE SIMPLE-STRING (STRING CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (MAPCAR #'STRING (DELETE-DUPLICATES CHAOS::COMPO-NAMES :TEST #'EQ)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN LUB-SORT ; (LENGTH CHAOS::JOIN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GENERATE-ERR-SORTS ; (CHAOS::MAKE-ERR-SORT-NAME ; CHAOS::SAME-COMPO) ; --> FORMAT SORT FUNCTION STRING< ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-STRING. ; in: DEFUN DECLARE-SORT-IN-MODULE ; (CHAOS::SET-NEEDS-PARSE ; CHAOS::MODULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-SUBSORT-IN-MODULE ; (CHAOS::SET-NEEDS-PARSE ; MOD) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/sort-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.080 ; compiling file "/<>/chaos/construct/operator.lisp" (written 04 MAR 2019 07:13:56 AM): ; file: /<>/chaos/construct/operator.lisp ; in: DEFUN COMPUTE-MEMO ; (FIND-IF ; #'(LAMBDA (CHAOS::I) (UNLESS (ATOM CHAOS::I) (EQUAL "memo" (CAR CHAOS::I)))) ; CHAOS::ATTR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN CHECK-OVERLOADING-WITH-BUILTIN ; (FUNCALL CHAOS::TOKEN-PRED CHAOS::OPSTR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN-PRED is not known to be a function ; in: DEFUN ADD-OPERATOR-DECLARATION-TO-MODULE ; (CHAOS::MARK-NEED-PARSING-PREPARATION ; MOD) ; --> LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN SETUP-ERROR-OPERATOR ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (AND (EQUAL CHAOS::METHOD-NAME (CHAOS::METHOD-NAME CHAOS::X)) ; (CHAOS::SORT-LIST= ; CHAOS::ARITY ; (CHAOS::METHOD-ARITY CHAOS::X)) ; (CHAOS::SORT= ; CHAOS::ERR-COARITY ; (CHAOS::METHOD-COARITY CHAOS::X)))) ; CHAOS::PRE-ERRS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN COMPUTE-ERROR-METHOD-FORM ; (INCF CHAOS::ARG-NUM) ; --> THE ; ==> ; (+ 1 CHAOS::ARG-NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/operator-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.252 ; compiling file "/<>/chaos/construct/variable.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/construct/variable.lisp ; in: DEFUN CHECK-VAR-NAME-OVERLOADING-WITH-BUILTIN ; (FUNCALL CHAOS::TOKEN-PRED CHAOS::VAR-NAME) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN-PRED is not known to be a function ; in: DEFUN DECLARE-VARIABLE-IN-MODULE ; (CHAR CHAOS::VAR-NAME 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (ASSOC CHAOS::VAR-NAME ; (CHAOS::MODULE-VARIABLES ; MOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (STRING CHAOS::VAR-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN DECLARE-PCONST-IN-MODULE ; (ASSOC CHAOS::VAR-NAME ; (CHAOS::MODULE-VARIABLES ; MOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (STRING CHAOS::VAR-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/variable-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/chaos/construct/match-method.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/match-method-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/construct/axiom.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/chaos/construct/axiom.lisp ; in: DEFUN CONVERT-LISP-FORM-TERM ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::V)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN CONVERT-CHAOS-EXPR ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::V)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN INVOKE-GENERAL-LISP-FUN ; (APPLY CHAOS::FUN CHAOS::BINDINGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUN is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/axiom-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.092 ; compiling file "/<>/chaos/construct/gen-rule.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/construct/gen-rule.lisp ; in: DEFUN GATHER-SUBMODULE-RULES ; (CHAOS::MODULE-IS-READY-FOR-REWRITING ; (CAR CHAOS::SUBMODULE)) ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; in: DEFUN GET-DIS-SUBMODULE-AXIOMS ; (CHAOS::MODULE-IS-READY-FOR-REWRITING ; (CAR CHAOS::SUBMODULE)) ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; in: DEFUN CREATE-RULE-NAME ; (INCF (CHAOS::MODULE-CONTEXT-$$RULE-COUNTER (CHAOS::MODULE-CONTEXT MOD))) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHAOS::MODULE-DYN-CONTEXT #:OBJ) 9)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/gen-rule-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/chaos/construct/rwl.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/rwl-tmpULDB0RG.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/chaos/construct/beh.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/construct/beh.lisp ; in: DEFUN TRY-BEH-PROOF-IN ; (CHAOS::SET-NEEDS-RULE ; CHAOS::MODULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAOS::SET-NEEDS-RULE ; CHAOS::PROOF-MOD) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-RULE ; CHAOS::MODULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-RULE ; CHAOS::PROOF-MOD) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (CHAOS::SET-NEEDS-RULE ; CHAOS::MODULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/beh-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.064 ; compiling file "/<>/chaos/construct/module.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/construct/module.lisp ; in: DEFUN PREPARE-FOR-PARSING ; (FUNCALL CHAOS::HOOK-FUN CHAOS::MODULE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (ASSOC CHAOS::SUB CHAOS::ALS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (CHAOS::MARK-MODULE-READY-FOR-PARSING ; CHAOS::MODULE) ; --> LET SB-KERNEL:THE* MAX ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::NEED-PARSING-PREPARATION ; CHAOS::MODULE) ; --> IF ; ==> ; (< (CHAOS::MODULE-STATUS CHAOS::MODULE) CHAOS::MODULE-READY-PARSING) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (CHAOS::MARK-MODULE-READY-FOR-PARSING ; CHAOS::MODULE) ; --> LET SB-KERNEL:THE* MAX ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN COMPILE-MODULE ; (CHAOS::NEED-REWRITING-PREPARATION ; CHAOS::MODULE) ; --> IF ; ==> ; (< (CHAOS::MODULE-STATUS CHAOS::MODULE) CHAOS::MODULE-READY-REWRITING) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/module-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.032 ; compiling file "/<>/chaos/construct/trs.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/construct/trs.lisp ; in: DEFUN GET-MODULE-TRS ; (CHAOS::NEED-REWRITING-PREPARATION ; CHAOS::MODULE) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; in: DEFUN MAKE-TRS-MODULE-NAME-INTERNAL ; (INCF CHAOS::_TRS_MODULE_NAMES_) ; --> THE ; ==> ; (+ 1 CHAOS::_TRS_MODULE_NAMES_) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN TRS-GET-REAL-METHOD-IF-DUMMY ; (RASSOC CHAOS::METHOD (CHAOS::TRS$DUMMY-METHODS CHAOS::TRS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN MAKE-TRS-OP-NAME ; (STRING ; (OR ; (CDR ; (CHAOS::ASSQ ; CHAOS::ERR-SORT ; CHAOS::SORT-NAME-MAP)) ; (CHAOS::SORT-ID CHAOS::ERR-SORT))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING CHARACTER SYMBOL), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING CHARACTER SYMBOL), not a STRING. ; (LENGTH CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR CHAOS::NAME CHAOS::POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN FIX-TRS-IDS ; (FIND-IF ; #'(LAMBDA (CHAOS::X) (AND (CONSP CHAOS::X) (OR (EQ # :ID) (EQ # :IDR)))) ; CHAOS::INFO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN TRS-REV-OP-NAME ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN RE-PRINT-TRS-TERM ; (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TRS-TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (<= CHAOS::PREC (CHAOS::GET-METHOD-PRECEDENCE CHAOS::HD)) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; in: DEFUN GET-TRS-AXIOM ; (STRING (CAR CHAOS::LABEL)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/construct/trs-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.124 ; compiling file "/<>/chaos/decafe/mutils.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/decafe/mutils-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/decafe/modmorph.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/decafe/modmorph.lisp ; in: DEFUN MODMORPH-PREPARE-FOR-PARSING ; (CHAOS::MARK-MODULE-READY-FOR-PARSING ; MOD) ; --> LET SB-KERNEL:THE* MAX ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN MODMORPH-FIND-ERROR-METHOD ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (AND (CHAOS::METHOD-P (CAR CHAOS::X)) ; (EQUAL ; (CHAOS::METHOD-SYMBOL ; #) ; CHAOS::NAME) ; (= (THE FIXNUM #) CHAOS::ALEN))) ; CHAOS::OPMAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN MAKE-ANON-VIEW-NAME ; (INCF CHAOS::*X-ANON-VIEW-NAME*) ; --> THE ; ==> ; (+ 1 CHAOS::*X-ANON-VIEW-NAME*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN MODMORPH-APPLY-OP-MAP-2 ; (ASSOC ; (CHAOS::TERM-HEAD ; CHAOS::TERM) ; CHAOS::OP_MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (ASSOC CHAOS::OM (CHAOS::MODMORPH-MODULE MAP)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN MODMORPH-RECREATE-TERM ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (AND ; (EQUAL CHAOS::VAR-NAME ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; (CHAOS::SORT= ; CHAOS::IMG-SORT ; (CHAOS::VARIABLE-SORT ; CHAOS::X)))) ; CHAOS::*MODMORPH-LOCAL-VARS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (ASSOC CHAOS::HEAD CHAOS::OPMAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (ASSOC ; (CHAOS::METHOD-MODULE ; CHAOS::HEAD) ; CHAOS::MODMAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN APPLY-OP-MAP ; (ASSOC ; (CHAOS::TERM-HEAD ; CHAOS::TERM) ; CHAOS::OP-MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN MAPPING-IMAGE-2 ; (ASSOC CHAOS::OM (CHAOS::MODMORPH-MODULE MAP)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/decafe/modmorph-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.124 ; compiling file "/<>/chaos/decafe/mrmap.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/decafe/mrmap.lisp ; in: DEFUN IMAGE-RENAME-SORT ; (FIND-IF ; #'(LAMBDA (CHAOS::Y) (CHAOS::RMAP-SORT-MATCH CHAOS::X (CAR CHAOS::Y))) ; CHAOS::REN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN IMAGE-RENAME-OP ; (FIND-IF #'(LAMBDA (CHAOS::Y) (EQUAL CHAOS::X (CAR CHAOS::Y))) CHAOS::REN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN IMAGE-RENAME-PARAM ; (FIND-IF #'(LAMBDA (CHAOS::Y) (EQUAL CHAOS::X (CAR CHAOS::Y))) CHAOS::REN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN INVERSE-IMAGE-RENAME-SORT ; (FIND-IF ; #'(LAMBDA (CHAOS::Y) (CHAOS::RMAP-SORT-MATCH CHAOS::X (CAR CHAOS::Y))) ; CHAOS::REN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN *IMAGE-RENAME-SORT ; (FIND-IF ; #'(LAMBDA (CHAOS::Y) ; (CHAOS::SORT= ; CHAOS::X ; (CAR CHAOS::Y))) ; MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN *IMAGE-RENAME-METHOD ; (FIND-IF #'(LAMBDA (CHAOS::Y) (EQ CHAOS::X (CAR CHAOS::Y))) MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN IS-RENAME-INJECTIVE ; (FIND-IF ; #'(LAMBDA (CHAOS::Y) ; (AND (NOT (EQ CHAOS::X CHAOS::Y)) (EQUAL (CAR CHAOS::X) (CAR CHAOS::Y)) ; (NOT (EQUAL # #)))) ; CHAOS::REN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FIND-IF ; #'(LAMBDA (CHAOS::Y) ; (AND (NOT (EQ CHAOS::X CHAOS::Y)) (NOT (EQUAL # #)) ; (EQUAL (CADR CHAOS::X) (CADR CHAOS::Y)))) ; CHAOS::REN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/decafe/mrmap-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.055 ; compiling file "/<>/chaos/decafe/meval.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/decafe/meval-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.028 ; compiling file "/<>/chaos/decafe/view.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/decafe/view.lisp ; in: DEFUN VIEW-MAP-IMAGE-SORT ; (FIND-IF ; #'(LAMBDA (CHAOS::V) ; (CHAOS::SORT= ; CHAOS::X ; (CAR CHAOS::V))) ; CHAOS::SORT-MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN *FIND-SORT-IN-MAP ; (FIND-IF ; #'(LAMBDA (CHAOS::Y) ; (CHAOS::SORT= ; CHAOS::X ; (CAR CHAOS::Y))) ; MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN *FIND-METHOD-IN-MAP ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (IF (CHAOS::OPERATOR-METHOD-P ; (CAR CHAOS::X)) ; (EQ CHAOS::METHOD (CAR CHAOS::X)) ; (EQ CHAOS::METHOD ; (CHAOS::TERM-HEAD ; #)))) ; CHAOS::OP-MAPPING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN SPLIT-STR ; (LENGTH CHAOS::STR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CHAOS::STR CHAOS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CHAR CHAOS::STR CHAOS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN FIND-METHOD-MAPPED ; (LENGTH CHAOS::ARITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN FIND-SORT-IMAGE* ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (CHAOS::SORT= ; SORT ; (CAR CHAOS::X))) ; CHAOS::SORT-MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/decafe/view-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.088 ; compiling file "/<>/chaos/decafe/mimport.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/decafe/mimport.lisp ; in: DEFUN INCORPORATE-MODULE-COPYING ; (CHAOS::USING-RECREATE-TERM (CHAOS::TERM) ; (COND ; ((CHAOS::TERM-IS-BUILTIN-CONSTANT? ; CHAOS::TERM) ; (CHAOS::MAKE-BCONST-TERM (CHAOS::USING-FIND-SORT-ERR #) ; (CHAOS::TERM-BUILTIN-VALUE ; CHAOS::TERM))) ; ((CHAOS::TERM-IS-VARIABLE? ; CHAOS::TERM) ; (LET (# #) ; (LET # ; #))) ; ((CHAOS::TERM-IS-LISP-FORM? ; CHAOS::TERM) ; CHAOS::TERM) ; (T ; (LET (#) ; (LET # ; # ; #))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; (CHAOS::USING-IMPORT-SUBS (CHAOS::SMOD) ; (DOLIST (CHAOS::S (REVERSE (CHAOS::MODULE-DIRECT-SUBMODULES CHAOS::SMOD))) ; (CHAOS::USING-IMPORT-SUB (CAR CHAOS::S) (CDR CHAOS::S)))) ; ; note: Return value count mismatch prevents known return from these functions: ; USING-IMPORT-SUBS ; (CHAOS::USING-FIND-SORT-ERR (CHAOS::S) ; (LET ((SORT (CDR #))) ; (COND (SORT SORT) ; ((CHAOS::ERR-SORT-P CHAOS::S) (SETQ #) ; (IF SORT ; # ; #)) ; (T CHAOS::S)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; in: DEFUN MODEXP-ADD-METHOD-TO-TABLE ; (PUSHNEW CHAOS::METHOD ; (CHAOS::OPINFO-METHODS ; CHAOS::OPINFO)) ; --> ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/decafe/mimport-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.096 ; compiling file "/<>/chaos/cafein/rengine.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/chaos/cafein/rengine.lisp ; in: DEFUN LONGEST-TERM-ID ; (LENGTH CHAOS::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (> CHAOS::KEYLEN CHAOS::MAXLEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; in: DEFUN !APPLY-ONE-RULE ; (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GLOBAL-STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-MATCH-METHOD is not known to be a function ; (FUNCALL ; (OR ; (THE SYMBOL ; (CHAOS::RULE-FIRST-MATCH-METHOD ; CHAOS::RULE)) ; (PROGN ; (WHEN CHAOS::*CHAOS-VERBOSE* ; (CHAOS::WITH-OUTPUT-CHAOS-WARNING ; NIL ; # ; # ; #)) ; (CHAOS::COMPUTE-RULE-METHOD CHAOS::RULE) ; (SYMBOL-FUNCTION (THE SYMBOL #)))) ; (CHAOS::RULE-LHS ; CHAOS::RULE) ; CHAOS::TERM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN APPLY-RULE ; (OR (CHAOS::APPLY-A-EXTENSIONS CHAOS::RULE CHAOS::TERM CHAOS::TOP) ; CHAOS::IS-APPLIED) ; --> IF ; ==> ; CHAOS::IS-APPLIED ; ; note: deleting unreachable code ; (OR (CHAOS::APPLY-AC-EXTENSION CHAOS::RULE CHAOS::TERM CHAOS::TOP) ; CHAOS::IS-APPLIED) ; --> IF ; ==> ; CHAOS::IS-APPLIED ; ; note: deleting unreachable code ; in: DEFUN CAFEIN-STEPPER ; (FIND-IF #'(LAMBDA (ELT) (MEMBER CHAOS::KEY (CAR ELT) :TEST #'EQUAL)) ; CHAOS::CAFEIN-STEPPER-PROCS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (CDR CHAOS::PROC) CHAOS::INP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (LET ((CHAOS::INP (CHAOS::GET-STEP-COMMAND))) ; (UNLESS (LISTP CHAOS::INP) (RETURN-FROM CHAOS::NEXT-LOOP)) ; (WHEN ; (MEMBER (CAR CHAOS::INP) '("eof" "q" ":q" "quit" ":quit" CHAOS::EOF) ; :TEST #'EQUAL) ; (CHAOS::STEP-OFF) ; (RETURN-FROM CHAOS::CAFEIN-STEPPER NIL)) ; (LET* ((CHAOS::KEY #) (CHAOS::PROC #)) ; (IF CHAOS::PROC ; (FUNCALL # CHAOS::INP) ; (PROGN #))))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (LET ((CHAOS::INP #)) ; (UNLESS (LISTP CHAOS::INP) (RETURN-FROM CHAOS::NEXT-LOOP)) ; (WHEN (MEMBER # '# :TEST #'EQUAL) ; (CHAOS::STEP-OFF) ; (RETURN-FROM CHAOS::CAFEIN-STEPPER NIL)) ; (LET* (# #) ; (IF CHAOS::PROC ; # ; #))))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN GET-STEP-COMMAND ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (WHEN CHAOS::TOP-LEVEL? ; (FORMAT T "~%STEP[~D]? " CHAOS::*RULE-COUNT*) ; (FORCE-OUTPUT)) ; (CHAOS::READER 'CHAOS::STEP-COMMANDS CHAOS::*STEP-COMMANDS*))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (WHEN CHAOS::TOP-LEVEL? ; (FORMAT T "~%STEP[~D]? " CHAOS::*RULE-COUNT*) ; (FORCE-OUTPUT)) ; (CHAOS::READER 'CHAOS::STEP-COMMANDS CHAOS::*STEP-COMMANDS*)) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN APPLY-SORT-MEMB-INTERNAL ; (1+ CHAOS::.SORT-MEMB-NESTING.) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CHAOS::.SORT-MEMB-NESTING. CHAOS::.SORT-MEMB-NESTING-LIMIT.) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (1+ CHAOS::.SORT-MEMB-NESTING.) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> CHAOS::.SORT-MEMB-NESTING. CHAOS::.SORT-MEMB-NESTING-LIMIT.) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/cafein/rengine-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.200 ; compiling file "/<>/chaos/cafein/cbred.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/cafein/cbred.lisp ; in: DEFUN CBRED-MAKE-NEW-VARIABLE ; (INCF CHAOS::VARNUM) ; --> THE ; ==> ; (+ 1 CHAOS::VARNUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN APPLY-CO-RULES ; (PUSHNEW ; (CAR ; (CHAOS::RULE-LABELS ; CHAOS::RULE)) ; CHAOS::APPLIED) ; --> SETQ THE ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN NEXT-CRULE-LABEL ; (INCF CHAOS::.CRULE-LABEL-NUM.) ; --> THE ; ==> ; (+ 1 CHAOS::.CRULE-LABEL-NUM.) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN FIND-OCC ; (FUNCALL CHAOS::PREDICATE CHAOS::TERM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PREDICATE is not known to be a function ; (1+ CHAOS::NUM-IF) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/cafein/cbred-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.048 ; compiling file "/<>/chaos/cafein/reducer.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/cafein/reducer.lisp ; in: DEFUN GENERATE-STATISTICS-FORM-REWRITING-ONLY ; (ZEROP (CHAOS::NUMBER-MEMO-HITS)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN GENERATE-STATISTICS-FORM ; (ZEROP (CHAOS::NUMBER-MEMO-HITS)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/cafein/reducer-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.048 ; compiling file "/<>/chaos/tools/regcheck.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/regcheck.lisp ; in: DEFUN REGULARIZE-MAKE-GLB ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (WHEN CHAOS::*REGULARIZE-OPTIMIZE* ; (CHAOS::REG-SORT-INCLUDED CHAOS::X CHAOS::GLB CHAOS::SO) ; (EQUAL (CHAOS::SORT-ID CHAOS::GLB) (CHAOS::SORT-ID CHAOS::X)))) ; CHAOS::*REGULARIZE-GLB-SORTS-SO-FAR*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/regcheck-tmpRJTU435C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/<>/chaos/tools/regularize.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/regularize.lisp ; in: DEFUN REGULARIZE-SIGNATURE-INTERNAL ; (PUSHNEW CHAOS::METH ; (CHAOS::MODULE-METHODS-FOR-REGULARITY ; CHAOS::MODULE)) ; --> ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN REGULARIZE-SIGNATURE ; (CHAOS::MARK-NEED-PARSING-PREPARATION ; CHAOS::MODULE) ; --> LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/regularize-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/tools/describe.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/describe.lisp ; in: DEFUN DESCRIBE-OPERATOR ; (STRING (CDR CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN SHOW-MODULE-IN-CAFEOBJ-SYNTAX ; (STRING ; (CHAOS::PARAMETER-IMPORTED-MODE ; CHAOS::SB)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (EQUAL "protecting" CHAOS::MODE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (DELETE-IF ; #'(LAMBDA (CHAOS::X) (CHAOS::IGNORE-FROM-IMPORT-LIST (CAR CHAOS::X))) ; CHAOS::SUBS) ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (STRING (CDR CHAOS::SB)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (ASSOC (CAR CHAOS::SB) (CHAOS::MODULE-ALIAS MOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (STRING (CDR CHAOS::SB)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; (CDR CHAOS::V))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (CHAOS::MODULE-IS-READY-FOR-REWRITING ; MOD) ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; in: DEFUN PRINT-OUT-SORT ; (FUNCALL CHAOS::PRINTER CHAOS::S MOD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; (FUNCALL CHAOS::PRINTER CHAOS::SUPER MOD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; (FUNCALL CHAOS::PRINTER CHAOS::SUB MOD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRINTER is not known to be a function ; in: DEFUN GET-NON-PARAMETER-SUBMODULES ; (MEMBER (CAR CHAOS::SB) CHAOS::SKIP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN PRINT-SUBMODULE-LIST ; (STRING (CDR CHAOS::SB)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PRINT-MODULE-SUBMODULES ; (STRING (CDR CHAOS::SB)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PRINT-MODULE-PARAMETERS ; (STRING ; (CHAOS::PARAMETER-IMPORTED-MODE ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PRINT-MODULE-VARIABLES ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::V)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/describe-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.080 ; compiling file "/<>/chaos/tools/sort-tree.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/sort-tree.lisp ; in: DEFUN !PRINT-SORT-TREE ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN !PRINT-MODULE-SORT-TREE ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/sort-tree-tmp319UV2V8.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/tools/module-tree.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/module-tree.lisp ; in: DEFUN !PRINT-MODULE-TREE ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN PRINT-MODEXP-TREE ; (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN D-MODULE-TREE* ; (FORMAT STREAM "~a: " CHAOS::NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (INCF CHAOS::Y-NUM) ; --> THE ; ==> ; (+ 1 CHAOS::Y-NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/module-tree-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.024 ; compiling file "/<>/chaos/tools/show.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/show.lisp ; in: DEFUN SHOW-SELECTION-STACK ; (1- CHAOS::DEPTH) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (DOTIMES (CHAOS::I (1- CHAOS::DEPTH)) (PRINC " ")) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (INCF CHAOS::DEPTH) ; --> THE ; ==> ; (+ 1 CHAOS::DEPTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN PRINT-PENDING ; (- CHAOS::DEPTH 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (DOTIMES (CHAOS::I (- CHAOS::DEPTH 1)) (PRINC " ")) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (DOTIMES (CHAOS::I CHAOS::DEPTH) (PRINC " ")) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (INCF CHAOS::DEPTH) ; --> THE ; ==> ; (+ 1 CHAOS::DEPTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN PRINT-RULES ; (INCF CHAOS::I) ; --> THE ; ==> ; (+ 1 CHAOS::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN SHOW-PARAM ; (1+ CHAOS::NO) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/show-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.048 ; compiling file "/<>/chaos/tools/set.lisp" (written 18 OCT 2019 12:45:43 AM): ; file: /<>/chaos/tools/set.lisp ; in: DEFUN SET-CHAOS-SWITCH ; (LENGTH CHAOS::OPT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL CHAOS::ON-PROC) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ON-PROC is not known to be a function ; (FUNCALL CHAOS::OFF-PROC) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; OFF-PROC is not known to be a function ; (FUNCALL ; (CHAOS::CHAOS-SWITCH-SET-PROC ; CHAOS::SW) ; CHAOS::DAT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN SHOW-MODES ; (LENGTH CHAOS::OPT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CHAOS-SET-CEXEC-LIMIT ; (LENGTH (CAR CHAOS::VALUE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CHAOS-SET-PRINT-DEPTH ; (LENGTH (CAR CHAOS::VALUE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/set-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.040 ; compiling file "/<>/chaos/tools/op-check.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/op-check.lisp ; in: DEFUN CHECK-METHOD-COHERENCY ; (INCF CHAOS::CON-COUNT) ; --> THE ; ==> ; (+ 1 CHAOS::CON-COUNT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN CHECK-DEF-RHS ; (< 1 CHAOS::.OP-FOUND.) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN CHECK-DEF-RHS* ; (INCF CHAOS::.OP-FOUND.) ; --> THE ; ==> ; (+ 1 CHAOS::.OP-FOUND.) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH CHAOS::OCCURRENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (1+ CHAOS::X) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= CHAOS::CONTEXT-DEPTH (LENGTH CHAOS::OCCURRENCE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387900)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (INCF CHAOS::.OP-FOUND.) ; --> THE ; ==> ; (+ 1 CHAOS::.OP-FOUND.) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (>= CHAOS::CONTEXT-DEPTH (LENGTH CHAOS::OCCURRENCE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (1+ CHAOS::X) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN CHECK-METHOD-CONGRUENCY ; (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (<= (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) (LENGTH CHAOS::OCC-L)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (<= (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) (LENGTH CHAOS::OCC-L)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN SUBSTITUTION-IMAGE2 ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; CHAOS::TERM) ; CHAOS::SIGMA) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/op-check-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.108 ; compiling file "/<>/chaos/tools/compat.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/compat.lisp ; in: DEFUN FIND-COMPAT-METHOD ; (LENGTH CHAOS::ARITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (EVERY ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (CHAOS::SORT<= ; CHAOS::X ; CHAOS::Y)) ; CHAOS::ARITY (CHAOS::METHOD-ARITY CHAOS::METH)) ; ; note: unable to open code because: can't determine sequence argument type ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/compat-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/tools/help.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/help-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/tools/inspect.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/inspect.lisp ; in: DEFUN DESCRIBE-NAME ; (CHAR CHAOS::PRINT-NAME 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FORMAT STREAM "~%** [~a] -----------------------------------------" ; (STRING-UPCASE CHAOS::.CURRENT-CHAR-INDEX.)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~%~A~10T" ; (IF (SYMBOLP CHAOS::NAME) ; (STRING CHAOS::NAME) ; CHAOS::NAME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~%No object with name ~A found." CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-PARAMETERS ; (FORMAT STREAM "- parameter theory ~A(type ~S)" CHAOS::NAME ; (TYPE-OF CHAOS::NAME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM ", declared in ~A" CHAOS::CONTEXT-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-SUBMODULES ; (ASSOC CHAOS::OBJ (CHAOS::MODULE-SUBMODULES MOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (FORMAT STREAM "- direct sub-module") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM ", alias of module ") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "- parameter theory") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "- indirect sub-module") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM ", alias of module ") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM ", declared in ~A" CHAOS::CONTEXT-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (ASSOC CHAOS::NAME (CHAOS::MODULE-ALIAS MOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (FORMAT STREAM ", renamed (original name = ~a)." ; (WITH-OUTPUT-TO-STRING (CHAOS::STR) ; (CHAOS::PRINT-MOD-NAME CHAOS::OBJ CHAOS::STR T))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-SORTS ; (FORMAT STREAM "- hidden sort declared in ~a" CHAOS::CONTEXT-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "- sort declared in ~a" CHAOS::CONTEXT-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (FORMAT STREAM " the name must be qualified for disambiguation: ~A.~A" ; (STRING CHAOS::NAME) CHAOS::QNAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (RASSOC (CHAOS::OBJECT-CONTEXT-MOD CHAOS::OBJ) (CHAOS::MODULE-ALIAS MOD)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (STRING CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (FORMAT STREAM " the name must be qualified for disambiguation: ~A.~A" ; (STRING CHAOS::NAME) (CAR CHAOS::A-NAME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM " the name must be qualified for disambiguation,") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM " but the module name is not simple one:") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-OPERATORS ; (FORMAT STREAM "- operator:") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-AXIOMS ; (FORMAT STREAM "- axiom declared in ~a" CHAOS::CONTEXT-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-VARIABLES ; (FORMAT STREAM "- variable of sort ~a" ; (WITH-OUTPUT-TO-STRING (CHAOS::STR) ; (CHAOS::PRINT-SORT-NAME ; (CHAOS::VARIABLE-SORT ; CHAOS::OBJ) ; MOD CHAOS::STR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN INSPECT-SHOW-UNKNOWNS ; (FORMAT STREAM "- unknown object ~s" CHAOS::OBJ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/inspect-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.024 ; compiling file "/<>/chaos/tools/sensible.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/tools/sensible.lisp ; in: DEFUN CHECK-OP-SENSIBLENESS ; (PUSHNEW CHAOS::METHOD CHAOS::VIO-PAIR) ; --> SETQ THE ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (PUSHNEW CHAOS::M2 CHAOS::VIO-PAIR) ; --> SETQ THE ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tools/sensible-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.008 ; compiling file "/<>/chaos/eval/eval-mod.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/eval/eval-mod.lisp ; in: DEFUN EVAL-MOD ; (LENGTH (CAR CHAOS::TOKS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ (CAR CHAOS::TOKS) 0 3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ (CAR CHAOS::TOKS) 3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN EVAL-MOD-EXT ; (1- CHAOS::NO) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/eval/eval-mod-tmp8S0II570.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/chaos/eval/eval-ast.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/eval/eval-ast.lisp ; in: DEFUN DECLARE-SORT ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-BSORT ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-OPERATOR ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::MARK-NEED-PARSING-PREPARATION ; CHAOS::*CURRENT-MODULE*) ; --> LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (CHAOS::MARK-NEED-PARSING-PREPARATION ; CHAOS::*CURRENT-MODULE*) ; --> LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-OPERATOR-ATTRIBUTES ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-VARIABLE ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-PCONST ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN PARSE-AXIOM-DECLARATION ; (MEMBER CHAOS::ML LABELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN DECLARE-AXIOM-NOW ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DECLARE-AXIOM ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN EVAL-MACRO ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN PROCESS-LABELS ; (DELETE "," CHAOS::X :TEST #'EQUAL) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FIND #\. CHAOS::L) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (CHAR CHAOS::L 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/eval/eval-ast-tmpJE88A12F.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/chaos/eval/eval-ast2.lisp" (written 24 OCT 2019 08:53:43 AM): ; file: /<>/chaos/eval/eval-ast2.lisp ; in: DEFUN SET-REWRITE-COUNT-LIMIT ; (> CHAOS::NUM 0) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; in: DEFUN GET-INT-OR-NULL ; (LENGTH (CAR CHAOS::VALUE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SAVE-SYSTEM ; (FORMAT STREAM "~&(in-package \"CHAOS\")") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~&(eval-when (:execute :load-toplevel)") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~&;;; system standard prelude.") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~&;;; user defined modules.") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~&;;; views.") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~%)") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~&(eval-ast-if-need-no-error '~s)" ; (CHAOS::%VIEW-DECL* ; (CHAOS::VIEW-NAME ; CHAOS::V) ; (CHAOS::VIEW-DECL-FORM ; CHAOS::V))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; (FORMAT STREAM "~&(eval-ast-if-need-no-error '~s)" ELT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; in: DEFUN DUMP-USER-MODULE ; (FORMAT STREAM "~&(eval-ast-if-need-no-error '~s)" CHAOS::DECL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN RESTORE-SYSTEM ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (LET ((CHAOS::*CHAOS-QUIET* (NOT CHAOS::*CHAOS-VERBOSE*))) ; (IF (PROBE-FILE CHAOS::FILE) ; (PROGN (LOAD CHAOS::FILE) (FORMAT T "~%done restoring.")) ; (CHAOS::WITH-OUTPUT-CHAOS-ERROR ; ('CHAOS::NO-FILE) ; (FORMAT T "No such file ~a" CHAOS::FILE))))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (LET ((CHAOS::*CHAOS-QUIET* #)) ; (IF (PROBE-FILE CHAOS::FILE) ; (PROGN # #) ; (CHAOS::WITH-OUTPUT-CHAOS-ERROR ; # ; #))))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN LOAD-PRELUDE* ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (LET ((CHAOS::*DRIBBLE-AST* T) (CHAOS::*AST-LOG* NIL) (CHAOS::F NIL)) ; (SETQ CHAOS::F ; (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::FILE :PROC CHAOS::PROCESSOR ; :LOAD-PATH # :ERRORP CHAOS::ERRORP)) ; (IF (AND CHAOS::*SYSTEM-STANDARD-PRELUDE* (NOT CHAOS::OVERRIDE)) ; (SETQ CHAOS::*SYSTEM-STANDARD-PRELUDE* #) ; (SETQ CHAOS::*SYSTEM-STANDARD-PRELUDE* #)) ; CHAOS::F)) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (LET ((CHAOS::*DRIBBLE-AST* T) (CHAOS::*AST-LOG* NIL) (CHAOS::F NIL)) ; (SETQ CHAOS::F #) ; (IF (AND CHAOS::*SYSTEM-STANDARD-PRELUDE* #) ; (SETQ #) ; (SETQ #)) ; CHAOS::F))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN EVAL-REQUIRE-COMMAND ; (FUNCALL CHAOS::PROC CHAOS::FILE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PROC is not known to be a function ; (FUNCALL CHAOS::PROC ; (FORMAT NIL "~{~A~^/~}" (CL-PPCRE:SPLIT "::" CHAOS::FEATURE))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PROC is not known to be a function ; in: DEFUN SHOW-DESCRIBE ; (LENGTH (CADR CHAOS::DAT)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (1- CHAOS::NO) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN TIMER ; (- CHAOS::*RUN-TIME* CHAOS::SYS) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (/ (- CHAOS::*RUN-TIME* CHAOS::SYS) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (FLOAT (/ (- CHAOS::*RUN-TIME* CHAOS::SYS) INTERNAL-TIME-UNITS-PER-SECOND)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a RATIO. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a BIGNUM. ; (- CHAOS::*REAL-TIME* REAL) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (/ (- CHAOS::*REAL-TIME* REAL) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (FLOAT (/ (- CHAOS::*REAL-TIME* REAL) INTERNAL-TIME-UNITS-PER-SECOND)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a RATIO. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a BIGNUM. ; (- CHAOS::*RUN-TIME* CHAOS::SYS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (FLOAT (/ (- CHAOS::*RUN-TIME* CHAOS::SYS) INTERNAL-TIME-UNITS-PER-SECOND)) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 64). ; (- CHAOS::*REAL-TIME* REAL) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (FLOAT (/ (- CHAOS::*REAL-TIME* REAL) INTERNAL-TIME-UNITS-PER-SECOND)) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 64). ; in: DEFUN EVAL-CBRED ; (ZEROP CHAOS::*TERM-MEMO-HASH-HIT*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN !INPUT-FILE ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (CHAOS::EVAL-AST ; (CHAOS::%INPUT* CHAOS::FILE CHAOS::*CHAOS-LIBPATH* ; 'CHAOS::PROCESS-CAFEOBJ-INPUT '(".bin" ".cafe" ".mod") ; NIL)))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (CHAOS::EVAL-AST ; (CHAOS::%INPUT* CHAOS::FILE CHAOS::*CHAOS-LIBPATH* ; 'CHAOS::PROCESS-CAFEOBJ-INPUT '(".bin" ".cafe" ".mod") ; NIL))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN CAFEOBJ-EVAL-PRELUDE-PROC ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (CHAOS::EVAL-AST CHAOS::AST)) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN EVAL-DELIMITER-PROC ; (CHAOS::CASE-EQUAL ; (THE SIMPLE-STRING (SECOND CHAOS::PRE-ARGS)) ; ("=" (SETQ CHAOS::OP :SET)) ; ("+" (SETQ CHAOS::OP :ADD)) ; ("-" (SETQ CHAOS::OP :DELETE)) ; (T ; (CHAOS::WITH-OUTPUT-CHAOS-ERROR ; ('CHAOS::INTERNAL) ; (FORMAT T "delimiter op given ivalid op ~a" (SECOND CHAOS::PRE-ARGS))))) ; --> IF EQUAL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; --> IF IF EQUAL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; --> IF IF IF EQUAL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/eval/eval-ast2-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.164 ; compiling file "/<>/chaos/eval/chaos-top.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/eval/chaos-top-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/chaos/boot/preproc.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/boot/preproc-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.052 ; compiling file "/<>/chaos/boot/prelude.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/boot/prelude-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/chaos/boot/builtins.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/boot/builtins-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.016 -- defining module* TRIV done. -- defining module! TRUTH-VALUE done. -- defining module! NZNAT-VALUE done. -- defining module! NAT-VALUE done. -- defining module! INT-VALUE done. -- defining module! RAT-VALUE done. -- defining module! FLOAT-VALUE done. -- defining module! ID done. -- defining module! CHAR-VALUE done. -- defining module! STRING-VALUE done. ; compiling file "/<>/chaos/tram/tram.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/chaos/tram/tram.lisp ; in: DEFUN TRAM-GET-ID ; (STRING CHAOS::PREFIX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN RE-MAKE-TRAM-TOK-SEQ ; (STRING CHAOS::SYM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/tram/tram-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.192 ; compiling file "/<>/chaos/psup/psup.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/chaos/psup/psup.lisp ; in: DEFUN PSUP-MAKE-SORT-INFO ; (STRING ; (CDR ; (CHAOS::ASSQ ; SORT ; (CHAOS::TRS$SORT-NAME-MAP CHAOS::TRS)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-GET-MODULE-SORTS ; (STRING (CDR CHAOS::S)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-GET-SORT-GRAPH* ; (STRING (CAR CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CADR CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CAR CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CADR CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-MAKE-METHOD-INFO ; (STRING (CAR CHAOS::MINFO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CADDR CHAOS::MINFO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (MAPCAR #'STRING (CADR CHAOS::MINFO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-MAP-CHAOS-OP-TO-TRS ; (STRING (CHAOS::MAP-CHAOS-OP-TO-TRS CHAOS::METHOD CHAOS::TRS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN TRS-TERM-TO-PSUP-TERM ; (STRING SORT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-PARSE-VARS ; (LENGTH CHAOS::DECL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN PSUP-RE-MAKE-VARIABLE-FORM ; (STRING (CHAOS::TRS-TERM-HEAD CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CHAOS::TRS-TERM-SORT CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-MAKE-TERM-FORM ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN TRS-TERM-TO-PSUP ; (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PSUP-MAKE-AXIOM-INFO ; (STRING (CHAOS::TRS-AXIOM-LABEL CHAOS::AX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/chaos/psup/psup-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.072 ; compiling file "/<>/thstuff/parse-apply.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/thstuff/parse-apply.lisp ; in: DEFUN PARSE-RULE-SPEC ; (CHAR CHAOS::TOK 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (POSITION-IF #'(LAMBDA (CHAOS::X) (CHAR= #\. CHAOS::X)) CHAOS::TOK) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/parse-apply-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.068 ; compiling file "/<>/thstuff/basics.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/thstuff/basics.lisp ; in: DEFUN COMMAND-DISPLAY ; (LENGTH CHAOS::$$ACTION-STACK) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN COMPUTE-OCCUR-SELECTION ; (ZEROP CHAOS::I) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (1- CHAOS::I) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= 0 CHAOS::I) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 0.0d0) (SINGLE-FLOAT * 0.0) ; (RATIONAL * 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (<= CHAOS::I ; (LENGTH ; (CHAOS::TERM-SUBTERMS ; CHAOS::CUR))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (<= 0 CHAOS::I) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (<= CHAOS::I ; (LENGTH ; (CHAOS::TERM-SUBTERMS ; CHAOS::CUR))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (1- CHAOS::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN COMPUTE-SUBSEQ-SELECTION ; (1- CHAOS::M1) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (1- CHAOS::N1) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (LENGTH CHAOS::LST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (< 1 CHAOS::M1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LENGTH CHAOS::LST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (< CHAOS::N1 (LENGTH CHAOS::LST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1+ CHAOS::N) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (SUBSEQ CHAOS::LST CHAOS::M (1+ CHAOS::N)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ CHAOS::LST 0 CHAOS::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (1+ CHAOS::N) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (SUBSEQ CHAOS::LST (1+ CHAOS::N)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (<= CHAOS::M CHAOS::N) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (<= 1 CHAOS::M1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 1.0d0) (SINGLE-FLOAT * 1.0) ; (RATIONAL * 1)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (<= CHAOS::N1 (LENGTH CHAOS::LST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (1- CHAOS::M1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1- CHAOS::N1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= CHAOS::M CHAOS::N) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (<= 1 CHAOS::M1) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (<= CHAOS::N1 (LENGTH CHAOS::LST)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (< 1 CHAOS::M1) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (< CHAOS::N1 (LENGTH CHAOS::LST)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (1+ CHAOS::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN COMPUTE-SUBSET-SELECTION ; (LENGTH CHAOS::LST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (1- CHAOS::I) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (< CHAOS::N CHAOS::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= 0 CHAOS::N) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 0.0d0) (SINGLE-FLOAT * 0.0) ; (RATIONAL * 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (1- CHAOS::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= 0 CHAOS::N) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (< CHAOS::N CHAOS::LEN) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN COMPUTE-SET-OCS ; (PUSHNEW CHAOS::VAL CHAOS::RES) ; --> SETQ THE ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN COMPUTE-VARIABLE-SUBSTITUTION ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::AVAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN GET-SUBTERM-POS ; (1- CHAOS::P) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (>= CHAOS::RP 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 0.0d0) (SINGLE-FLOAT * 0.0) ; (RATIONAL * 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (1- CHAOS::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (>= CHAOS::RP 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN FIND-MATCHING-RULES ; (1+ CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/basics-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.088 ; compiling file "/<>/thstuff/eval-match.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/thstuff/eval-match.lisp ; in: DEFUN FIND-REWRITE-RULES-TOP ; (STRING CHAOS::LABEL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN FIND-REWRITE-RULES-ALL ; (STRING CHAOS::LABEL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PERFORM-MATCH ; (FUNCALL CHAOS::FIRST-MATCH-METH CHAOS::PATTERN CHAOS::REAL-TARGET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FIRST-MATCH-METH is not known to be a function ; (FUNCALL CHAOS::NEXT-MATCH-METH CHAOS::GLOBAL-STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-MATCH-METH is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-MATCH-METH is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/eval-match-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.032 ; compiling file "/<>/thstuff/eval-apply.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/thstuff/eval-apply.lisp ; in: DEFUN APPLY-ONE-RULE-NO-SIMPLIFY ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; (CHAOS::RULE-RHS ; CHAOS::RULE)) ; SUBST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GLOBAL-STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-MATCH-METHOD is not known to be a function ; (FUNCALL ; (CHAOS::RULE-FIRST-MATCH-METHOD ; CHAOS::RULE) ; (CHAOS::RULE-LHS ; CHAOS::RULE) ; CHAOS::TERM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL ; (CHAOS::LISP-FORM-FUNCTION ; (CHAOS::RULE-RHS ; CHAOS::RULE)) ; SUBST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/eval-apply-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.040 ; compiling file "/<>/thstuff/cexec.lisp" (written 10 DEC 2019 06:00:23 AM): ; file: /<>/thstuff/cexec.lisp ; in: DEFUN SHOW-RWL-SCH-GRAPH ; (FORMAT T "no context module...") ; ; note: deleting unreachable code ; in: DEFUN TERM-HASH-EQUAL ; (SXHASH CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a NUMBER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SYMBOL. ; in: DEFUN CEXEC-HASH-TERM ; (CHAOS::TERM-HASH-EQUAL ; (CHAOS::TERM-BUILTIN-VALUE ; CHAOS::TERM)) ; --> BLOCK LOGAND ; ==> ; (SXHASH CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a NUMBER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SYMBOL. ; in: DEFUN CEXEC-LOOP-CHECK ; (LENGTH CHAOS::ENTRY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN CEXEC-TERM-1 ; (MAPCAR #'1+ (CHAOS::RULE-PAT-POS CHAOS::RULE-PAT)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/cexec-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.316 ; compiling file "/<>/thstuff/case.lisp" (written 15 NOV 2018 12:48:56 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/case-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/thstuff/proof-struct.lisp" (written 16 DEC 2019 07:35:07 AM): ; file: /<>/thstuff/proof-struct.lisp ; in: DEFUN PR-TACTIC ; (FORMAT STREAM "[~a]" (CHAOS::TACTIC-NAME CHAOS::TACTIC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN GET-BUILTIN-TACTIC ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (STRING-EQUAL CHAOS::NAME (SYMBOL-NAME (CHAOS::TACTIC-NAME CHAOS::X)))) ; CHAOS::.ALL-BUILTIN-TACTICS.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN PR-TACTIC-SEQ ; (FORMAT STREAM "( ~{~a~^ ~a ~} )" ; (MAPCAR #'(LAMBDA (CHAOS::X) (CHAOS::TACTIC-NAME CHAOS::X)) ; CHAOS::TACTICS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN PR-TACTIC-CTF ; (FORMAT STREAM ":ctf") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN PR-TACTIC-CSP ; (FORMAT STREAM ":csp") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN PR-TACTIC-INIT ; (FORMAT STREAM ":init") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "[~a]" (SECOND (CHAOS::TACTIC-INIT-KIND CHAOS::OBJ))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN FIND-CITP-FLAG-INDEX ; (CHAOS::CITP-FLAG-NAME ; CHAOS::X) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (STRING= CHAOS::NAME ; (CHAOS::CITP-FLAG-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN PRINT-CITP-FLAG ; (= CHAOS::INDEX CHAOS::CITP-ALL) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN PR-CITP-FLAG-INTERNAL ; (CHAOS::CITP-FLAG-NAME ; CHAOS::INDEX) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::CITP-FLAG ; CHAOS::INDEX) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN HELP-CITP-FLAG ; (CHAOS::CITP-FLAG-STRUCT ; CHAOS::INDEX) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN INITIALIZE-CITP-FLAG ; (SETF (CHAOS::CITP-FLAG-NAME ; CHAOS::CITP-ALL) ; "citp-all" ; (CHAOS::CITP-FLAG-NAME ; CHAOS::CITP-VERBOSE) ; "citp-verbose" ; (CHAOS::CITP-FLAG-NAME ; CHAOS::CITP-SHOW-RWL) ; "citp-show-rwl" ; (CHAOS::CITP-FLAG-NAME ; CHAOS::CITP-SPOILER) ; "citp-spoiler" ; (CHAOS::CITP-FLAG-NAME ; CHAOS::CITP-PRINT-MESSAGE) ; "citp-print-message" ; (CHAOS::CITP-FLAG-NAME ; CHAOS::CITP-NORMALIZE-INIT) ; "citp-normalize-init" ; ...) ; --> SETF LET THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG ; CHAOS::CITP-PRINT-MESSAGE) ; T) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG ; CHAOS::CITP-NORMALIZE-INIT) ; T) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG ; CHAOS::CITP-NORMALIZE-LHS) ; T) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG-HOOK ; CHAOS::CITP-VERBOSE) ; #'(LAMBDA (CHAOS::NAME CHAOS::VALUE) ; (DECLARE (IGNORE CHAOS::NAME)) ; (SETF CHAOS::*CITP-VERBOSE* CHAOS::VALUE))) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG-HOOK ; CHAOS::CITP-SHOW-RWL) ; #'(LAMBDA (CHAOS::NAME CHAOS::VALUE) ; (DECLARE (IGNORE CHAOS::NAME)) ; (SETF CHAOS::*CITP-SHOW-RWL* CHAOS::VALUE))) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG-HOOK ; CHAOS::CITP-SPOILER) ; #'(LAMBDA (CHAOS::NAME CHAOS::VALUE) ; (DECLARE (IGNORE CHAOS::NAME)) ; (SETF CHAOS::*CITP-SPOILER* CHAOS::VALUE))) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG-STRUCT ; CHAOS::IDX) ; (CHAOS::MAKE-CITP-FLAG-STRUCT :VALUE NIL)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN USE-SENTENCES-IN-GOAL ; (LENGTH CHAOS::NEW-AXS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN EMBED-SENTENCES-IN-MODULE ; (LENGTH CHAOS::NEW-AXS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-PTREE-GOAL-NAME ; (EQUAL CHAOS::P-NAME "root") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN PR-PTREE ; (INCF CHAOS::NUM) ; --> THE ; ==> ; (+ 1 CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN DEFAULT-CONSTRUCTOR-ORDER ; (SORT CHAOS::CONSTRUCTORS ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (LET ((CHAOS::AX #) (CHAOS::AY #)) ; (IF (< CHAOS::AX CHAOS::AY) ; T ; (IF # ; NIL ; #))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (< CHAOS::AX CHAOS::AY) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (> CHAOS::AX CHAOS::AY) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (< CHAOS::AX CHAOS::AY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (> CHAOS::AX CHAOS::AY) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN ORDER-CONSTRUCTORS ; (POSITION :* CHAOS::ORDER-SPEC) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR LIST ; VECTOR). ; (SUBSEQ CHAOS::ORDER-SPEC 0 CHAOS::POS-STAR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ CHAOS::ORDER-SPEC (1+ CHAOS::POS-STAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN SHOW-CONSTRUCTOR-ORDER ; (INCF CHAOS::NUM) ; --> THE ; ==> ; (+ 1 CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN SET-CONSTRUCTOR-ORDER ; (SORT CHAOS::OVERS ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (LET ((CHAOS::X-NUM #) (CHAOS::Y-NUM #)) ; (DECLARE (TYPE FIXNUM CHAOS::X-NUM CHAOS::Y-NUM)) ; (< CHAOS::X-NUM CHAOS::Y-NUM)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFUN MAKE-IND-CONST-NAME ; (STRING CHAOS::NAME-PREFIX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN FIND-GOAL-NODE ; (STRING= (CHAOS::GOAL-NAME CHAOS::GOAL) CHAOS::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-BASE-STRING. ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN SELECT-NEXT-GOAL ; (STRING= CHAOS::GOAL-NAME ".") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN PRINT-DISCHARGED-SENTENCES ; (LENGTH CHAOS::DISCHARGED) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN !PRINT-PROOF-VERTICAL ; (FUNCALL CHAOS::LEAF-NAME CHAOS::NODE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DESCRIBE-PROOF-TREE ; (+ CHAOS::*PROOF-INDENT* CHAOS::*PRINT-INDENT*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/proof-struct-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.236 ; compiling file "/<>/thstuff/apply-tactic.lisp" (written 20 JAN 2020 01:13:27 AM): ; file: /<>/thstuff/apply-tactic.lisp ; in: DEFUN REMOVE-NONEXEC ; (MEMBER CHAOS::LB CHAOS::NON-EXEC-LABELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN SELECT-COMB-ELEMS ; (LENGTH CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SENTENCE-IS-SATISFIED ; (SETQ CHAOS::RESULT :CT) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; in: DEFUN AXIOM-IS-AN-INSTANCE-OF ; (FUNCALL ; (CHAOS::RULE-FIRST-MATCH-METHOD ; CHAOS::CX) ; (CHAOS::RULE-LHS ; CHAOS::CX) ; (CHAOS::RULE-LHS ; CHAOS::AX)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-MATCH-METHOD is not known to be a function ; in: DEFUN GET-REAL-TARGET-VARIABLE ; (FIND-IF ; #'(LAMBDA (CHAOS::M) ; (AND ; (CHAOS::SORT= ; (CHAOS::VARIABLE-SORT ; CHAOS::M) ; (CHAOS::VARIABLE-SORT ; CHAOS::INDVAR)) ; (EQUAL ; (CHAOS::VARIABLE-NAME ; CHAOS::M) ; (CHAOS::VARIABLE-NAME ; CHAOS::INDVAR)))) ; CHAOS::AXIOM-VARIABLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN MAKE-STEP-CONSTRUCTOR-TERM ; (ZEROP (CDR CHAOS::VAR-ASSOC)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (INCF (CDR CHAOS::VAR-ASSOC)) ; ==> ; (+ 1 (CDR #:VAR-ASSOC17)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (STRING ; (CHAOS::VARIABLE-NAME ; VARIABLE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (INCF (CDR CHAOS::VAR-ASSOC)) ; ==> ; (+ 1 (CDR #:VAR-ASSOC18)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (+ 1 (CDR #:VAR-ASSOC17)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF CHAOS::N) ; --> THE ; ==> ; (+ 1 CHAOS::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (< 1 (INCF CHAOS::N)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; etc. ; in: DEFUN RESOLVE-INDUCTION-SUBST ; (ASSOC CHAOS::V CHAOS::RSUBSTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN FIND-GTERM-MATCHING-CONDITIONALS ; (SETF (AREF CHAOS::.DUPLICATED. CHAOS::IDX) ; (REMOVE-DUPLICATES CHAOS::REJECTED :TEST ; #'CHAOS::TERM-EQUATIONAL-EQUAL)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN FIND-SUB-CASE-IN ; (FIND CHAOS::X CHAOS::XC :TEST #'CHAOS::TERM-EQUATIONAL-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LENGTH CHAOS::XC) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CASE-IS-VALID ; (AREF CHAOS::.DUPLICATED. CHAOS::IDX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN NORMALIZE-CASES ; (LENGTH CHAOS::.DUPLICATED.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (AREF CHAOS::.DUPLICATED. CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DELETE CHAOS::C CHAOS::ALL-CASES :TEST #'CHAOS::TERM-EQUATIONAL-EQUAL) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; in: DEFUN GENERATE-CASES ; (LENGTH CHAOS::RV-COMBS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN RULE-IS-FOR-CASE ; (STRING CHAOS::LB) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN RULE-IS-CASE-GENERATED ; (STRING CHAOS::LB) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN GET-TARGET-AXIOM ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN MAKE-AXIOM-INSTANCE ; (CHAOS::MAKE-PROPER-LABEL (CHAOS::LABEL) ; (IF (STRINGP CHAOS::LABEL) ; (INTERN CHAOS::LABEL) ; CHAOS::LABEL)) ; ; note: Return type not fixed values, so can't use known return convention: ; (VALUES (AND (NOT (VECTOR CHARACTER)) (NOT BASE-STRING)) &OPTIONAL ; (MEMBER :INTERNAL :EXTERNAL :INHERITED NIL)) ; in: DEFUN INSTANCIATE-AXIOM-IN-GOAL ; (CHAOS::CITP-FLAG ; CHAOS::CITP-NORMALIZE-INIT) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::CITP-FLAG ; CHAOS::CITP-NORMALIZE-LHS) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN CITP-RENAME-TERM-VARIABLES ; (MEMBER CHAOS::VAR CHAOS::DONE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN PR-CPP ; (FORMAT STREAM "~%Critical Pair ---------") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN GENERATE-CRITICAL-PAIRS ; (SORT CHAOS::SUBS #'CHAOS::LRPO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFUN REDUCE-IN-GOAL ; (STRING CHAOS::MODE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN MAKE-CTF-CONSTRUCTOR-PATTERN ; (ZEROP (CDR CHAOS::PN)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (INCF (CDR CHAOS::PN)) ; ==> ; (+ 1 (CDR #:PN2)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ==> ; (+ 1 (CDR #:PN3)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ==> ; (+ 1 (CDR #:PN2)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (+ 1 (CDR #:PN3)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN DO-APPLY-CTF-TO-EQUATION ; (CHAOS::ADD-ASSUMPTION (CHAOS::GOAL CHAOS::LHS CHAOS::RHS) ; (LET (CHAOS::N-AXIOM) ; (MULTIPLE-VALUE-BIND (CHAOS::N-LHS CHAOS::N-RHS TYPE) ; (CHAOS::SIMPLIFY-BOOLEAN-AXIOM CHAOS::LHS CHAOS::RHS) ; (COND (CHAOS::N-LHS # # # #) (T #))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; in: DEFUN APPLY-CTF ; (LENGTH CHAOS::NEXT-GOALS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN APPLY-CSP ; (LENGTH CHAOS::NEXT-GOALS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN APPLY-TACTIC ; (FUNCALL (CHAOS::TACTIC-EXECUTOR CHAOS::TACTIC) CHAOS::PTREE-NODE ; CHAOS::TACTIC) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/apply-tactic-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.308 ; compiling file "/<>/thstuff/citp.lisp" (written 16 DEC 2019 07:35:07 AM): ; file: /<>/thstuff/citp.lisp ; in: DEFUN CITP-PARSE-DEFINE ; (LENGTH CHAOS::COM-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CHAOS::NAME 0 4) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN CITP-PARSE-SPOILER ; (SETF (CHAOS::CITP-FLAG ; CHAOS::CITP-SPOILER) ; CHAOS::VALUE) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PARSE-TERM-IN-CONTEXT ; (ELT TYPE 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY * (*)). ; in: DEFUN CITP-EVAL-SET ; (CHAOS::CITP-FLAG ; CHAOS::CITP-PRINT-MESSAGE) ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (= CHAOS::CITP-ALL CHAOS::INDEX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (SETF (CHAOS::CITP-FLAG ; CHAOS::X) ; CHAOS::VALUE) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::CITP-FLAG ; CHAOS::INDEX) ; CHAOS::VALUE) ; --> THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::CITP-FLAG-HOOK ; CHAOS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (FUNCALL ; (CHAOS::CITP-FLAG-HOOK ; CHAOS::INDEX) ; CHAOS::NAME CHAOS::VALUE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN ADD-METHOD-THEORY ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::SET-NEEDS-PARSE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/citp-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.064 ; compiling file "/<>/thstuff/bterm-inspector.lisp" (written 15 NOV 2018 12:48:56 AM): ; file: /<>/thstuff/bterm-inspector.lisp ; in: DEFUN PRINT-BTERM ; (FORMAT STREAM "(~d) " (INCF CHAOS::NUM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a NULL. ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN ABST-BTERM-VARIABLES ; (PUSHNEW (CAR CHAOS::SUB) CHAOS::VARS) ; --> SETQ THE ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; in: DEFUN MAKE-TF-COMBINATION ; (EXPT 2 CHAOS::C) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 4) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; in: DEFUN ASSIGN-TF ; (LENGTH CHAOS::LIST-VARS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (EXPT 2 CHAOS::COLUMNS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 4) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (DOTIMES (CHAOS::R CHAOS::ROWS) ; (LET ((SUBST NIL)) ; (DOTIMES (CHAOS::C CHAOS::COLUMNS) (PUSH (CONS # #) SUBST)) ; (PUSH (NREVERSE SUBST) CHAOS::L-SUBST))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (INCF CHAOS::NUM) ; --> THE ; ==> ; (+ 1 CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN PRINT-BTERM-SUBSTITUTION ; (SORT (CHAOS::TERM-PVARIABLES CHAOS::TERM-REPRESENTATION) ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (STRING< ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING< ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; The second argument is a STRING, not a SIMPLE-STRING. ; in: DEFUN PRINT-BTERM-WITH-SUBST ; (MEMBER CHAOS::VAR CHAOS::DONE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PRINT-BTERM-GRINDING ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::VAR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CAR CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING (CAR CHAOS::Y)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING< (STRING (CAR CHAOS::X)) (STRING (CAR CHAOS::Y))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; The second argument is a STRING, not a SIMPLE-STRING. ; in: DEFUN RESOLVE-BTERM-BY-WF ; (LENGTH CHAOS::VARS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (LENGTH CHAOS::BASES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ 1 CHAOS::J CHAOS::I) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN BINSPECT-INTRO-PREDICATES ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; CHAOS::V)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (CHAOS::SET-NEEDS-PARSE ; CHAOS::MODULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN MAKE-PRED-ORDERED-PAIRS ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING< ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; The second argument is a STRING, not a SIMPLE-STRING. ; in: DEFUN MAKE-PRED-COMBINATIONS ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING< ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::X)) ; (STRING ; (CHAOS::VARIABLE-NAME ; CHAOS::Y))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; The second argument is a STRING, not a SIMPLE-STRING. ; in: DEFUN REPORT-BGUESS-RESULT ; (INCF CHAOS::DEPTH) ; --> THE ; ==> ; (+ 1 CHAOS::DEPTH) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH CHAOS::SOLUTIONS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (INCF CHAOS::DEPTH) ; --> THE ; ==> ; (+ 1 CHAOS::DEPTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF CHAOS::NUM) ; --> THE ; ==> ; (+ 1 CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN DO-BGUESS ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; (CAR CHAOS::COMB))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING ; (CHAOS::VARIABLE-PRINT-NAME ; (CDR CHAOS::COMB))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN BRESOLVE ; (LENGTH CHAOS::RARGS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (< 0 CHAOS::LIMIT) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN FIND-VARIABLE-IN-ABST-BTERM ; (STRING= CHAOS::NAME ; (CHAOS::VARIABLE-PRINT-NAME ; (CAR CHAOS::SUB))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/thstuff/bterm-inspector-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.096 ; compiling file "/<>/BigPink/codes/types.lisp" (written 17 JAN 2019 06:56:23 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/types-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.104 ; compiling file "/<>/BigPink/codes/glob.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/glob.lisp ; in: EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL) ; (SETF (AREF CHAOS::*PN-PARAMETERS* CHAOS::X) (CHAOS::MAKE-PN-PARAM)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF CHAOS::*PN-CONTROL-FLAGS* CHAOS::X) (CHAOS::MAKE-PIGNOSE-FLAG)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN RESET-PN-INTERNAL-FLAGS ; (SETF (AREF CHAOS::*PN-INTERNAL-FLAGS* CHAOS::X) NIL) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/glob-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.032 ; compiling file "/<>/BigPink/codes/proof-sys.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/proof-sys.lisp ; in: DEFUN UPDATE-MODULE-PROOF-SYSTEM ; (DEFUN CHAOS::UPDATE-MODULE-PROOF-SYSTEM (MOD &OPTIONAL CHAOS::DO-ANYWAY) ; (DECLARE (TYPE CHAOS::MODULE MOD)) ; (LET ((CHAOS::CLEAR-PASSIVE NIL)) ; (WHEN ; (CHAOS::NEED-REWRITING-PREPARATION ; MOD) ; (CHAOS::COMPILE-MODULE MOD) ; (SETQ CHAOS::CLEAR-PASSIVE T) ; (SETQ CHAOS::DO-ANYWAY T)) ; (UNLESS ; (CHAOS::MODULE-PROOF-SYSTEM ; MOD) ; (SETQ CHAOS::DO-ANYWAY T)) ; (LET ((CHAOS::PSYSTEM #)) ; (WHEN CHAOS::CLEAR-PASSIVE (SETF #)) ; (CHAOS::RESET-CLAUSE-DB CHAOS::PSYSTEM) ; (CHAOS::MODULE-AXIOMS->CLAUSE CHAOS::PSYSTEM) ; (CHAOS::PREPARE-FOR-PARSING MOD) ; CHAOS::PSYSTEM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CHAOS::UPDATE-MODULE-PROOF-SYSTEM ; (MOD &OPTIONAL CHAOS::DO-ANYWAY) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE CHAOS::MODULE MOD)) ; (BLOCK CHAOS::UPDATE-MODULE-PROOF-SYSTEM ; (LET ((CHAOS::CLEAR-PASSIVE NIL)) ; (WHEN ; (CHAOS::NEED-REWRITING-PREPARATION ; MOD) ; (CHAOS::COMPILE-MODULE MOD) ; (SETQ #) ; (SETQ #)) ; (UNLESS ; (CHAOS::MODULE-PROOF-SYSTEM ; MOD) ; (SETQ #)) ; (LET (#) ; (WHEN CHAOS::CLEAR-PASSIVE #) ; (CHAOS::RESET-CLAUSE-DB CHAOS::PSYSTEM) ; (CHAOS::MODULE-AXIOMS->CLAUSE CHAOS::PSYSTEM) ; (CHAOS::PREPARE-FOR-PARSING MOD) ; CHAOS::PSYSTEM)))) ; ; caught STYLE-WARNING: ; The variable DO-ANYWAY is assigned but never read. ; (CHAOS::NEED-REWRITING-PREPARATION ; MOD) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/proof-sys-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.008 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/<>/BigPink/codes/syntax.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/syntax.lisp ; in: DEFUN CHECK-FOPL-SYNTAX-AUX ; (CHAOS::CHECK-VAR-DECL (CHAOS::VAR-DECL) ; (COND ; ((CHAOS::TERM-IS-VARIABLE? ; CHAOS::VAR-DECL) ; T) ; ((AND ; (CHAOS::TERM-IS-APPLICATION-FORM? ; CHAOS::VAR-DECL) ; (CHAOS::TERM-SUBTERMS ; CHAOS::VAR-DECL)) ; (LET (#) ; (OR # #))) ; (T ; (IF CHAOS::REPORT-ERROR ; (CHAOS::WITH-OUTPUT-CHAOS-ERROR ; # ; # ; #) ; NIL)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/syntax-tmp758YUXMV.fasl ; compilation finished in 0:00:00.024 ; compiling file "/<>/BigPink/codes/index.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/index.lisp ; in: DEFUN NLIST-PUSH ; (INCF (CAR CHAOS::NLIST)) ; ==> ; (+ 1 (CAR #:NLIST0)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN DTREE-INDEX ; (ASSOC ATOM (CHAOS::DTREE-ATOMS CHAOS::DTREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND ATOM (NOT NULL)), not a (OR FIXNUM SINGLE-FLOAT ; (NOT NUMBER)). ; in: DEFUN DTREE-FETCH ; (+ CHAOS::VAR-N-IN ; (CHAOS::NLIST-N ; CHAOS::VAR-NLIST)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (>= CHAOS::VAR-N CHAOS::BEST-N) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (+ CHAOS::VAR-N-IN ; (CHAOS::NLIST-N ; CHAOS::VAR-NLIST)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (>= CHAOS::VAR-N CHAOS::BEST-N) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; in: DEFUN DTREE-ATOM-FETCH ; (ASSOC CHAOS::OP (CHAOS::DTREE-ATOMS CHAOS::DTREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (INCF CHAOS::VAR-N ; (CHAOS::NLIST-N ; CHAOS::ATOM-NLIST)) ; --> THE ; ==> ; (+ ; (CHAOS::NLIST-N ; CHAOS::ATOM-NLIST) ; CHAOS::VAR-N) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (< ; (INCF CHAOS::VAR-N ; (CHAOS::NLIST-N ; CHAOS::ATOM-NLIST)) ; CHAOS::BEST-N) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (INCF CHAOS::VAR-N ; (CHAOS::NLIST-N ; CHAOS::ATOM-NLIST)) ; --> THE ; ==> ; (+ ; (CHAOS::NLIST-N ; CHAOS::ATOM-NLIST) ; CHAOS::VAR-N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (< ; (INCF CHAOS::VAR-N ; (CHAOS::NLIST-N ; CHAOS::ATOM-NLIST)) ; CHAOS::BEST-N) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN DTREE-DELETE ; (DELETE CHAOS::VALUE (CDR CHAOS::NLIST) :COUNT 1 :TEST CHAOS::TEST) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (DECF (CAR CHAOS::NLIST)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (ASSOC ATOM (CHAOS::DTREE-ATOMS CHAOS::DTREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ATOM, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (DECF (CAR CHAOS::NLIST)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN INDEX-ALL-LITERALS ; (CHAOS::PN-FLAG ; CHAOS::BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN UN-INDEX-ALL-LITERALS ; (CHAOS::PN-FLAG ; CHAOS::BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN UN-INDEX-ALL-LITERALS-SLOW ; (CHAOS::PN-FLAG ; CHAOS::BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN INDEX-CLASH-LITERALS ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN UN-INDEX-CLASH-LITERALS ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN UN-INDEX-CLASH-LITERALS-SLOW ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN IS-PARAMOD-INSERT ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN IS-PARAMOD-DELETE ; (DELETE CHAOS::LITERAL CHAOS::ENT :TEST ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (EQ CHAOS::X (CHAOS::PARAMOD-LITERAL CHAOS::Y)))) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (DELETE CHAOS::LITERAL CHAOS::ENT :TEST ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (EQ CHAOS::X (CHAOS::PARAMOD-LITERAL CHAOS::Y)))) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; in: DEFUN IS-PARAMOD-FETCH-CONCAT ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN ADD-EQ-LITERAL ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-VARS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-SKIP-SKOLEM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN ADD-EQ-LITERAL-TO-TABLE ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-UNITS-ONLY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-LEFT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-RIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN DELETE-EQ-LITERAL-FROM-TABLE ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-LEFT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-RIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN DELETE-EQ-LITERAL-ATOM-FROM-TABLE ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/index-tmpGMQXK1HK.fasl ; compilation finished in 0:00:00.120 ; compiling file "/<>/BigPink/codes/butils.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/butils.lisp ; in: DEFUN PN-MAKE-NEW-VARIABLE ; (CHAOS::PN-FLAG ; CHAOS::NEW-VARIABLE-NAME) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN ID-NESTED-SKOLEMS ; (RETURN-FROM CHAOS::ID-NESTED-SKOLEMS T) ; ; note: deleting unreachable code ; in: DEFUN INIT-PN-OPTIONS ; (SETF (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-LEFT) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-RIGHT) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-LEFT) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-RIGHT) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::FOR-SUB) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::BACK-SUB) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-KEPT) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-STATS) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-GIVEN) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-BACK-SUB) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-NEW-DEMOD) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-BACK-DEMOD) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::BACK-UNIT-DELETION) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::SIMPLIFY-FOL) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-PROOFS) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::NEW-VARIABLE-NAME) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::ORDER-HYPER) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PUT-GOAL-IN-SOS) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::CHECK-INIT-ALWAYS) ; T) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::NO-JUNK) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::NO-CONFUSION) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::META-PARAMOD) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::RANDOMIZE-SOS) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::DEMOD-LIMIT) ; 1000) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-WEIGHT) ; MOST-POSITIVE-FIXNUM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-GIVEN) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-SOS) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-SECONDS) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::NEG-WEIGHT) ; 0) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-KEPT) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-GEN) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-LITERALS) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-PROOFS) ; 1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::STATS-LEVEL) ; 2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::PICK-GIVEN-RATIO) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::CHANGE-LIMIT-AFTER) ; 0) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::NEW-MAX-WEIGHT) ; MOST-POSITIVE-FIXNUM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-ANSWERS) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::DYNAMIC-DEMOD-DEPTH) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::DYNAMIC-DEMOD-RHS) ; 1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::INV-CHECK-MAX-DEPTH) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::CONTROL-MEMORY-POINT) ; 20) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::X) ; -1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::X) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN FIND-PN-FLAG-INDEX ; (CHAOS::PN-FLAG-NAME ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (STRING= CHAOS::NAME ; (CHAOS::PN-FLAG-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN FIND-PN-PARAMETER-INDEX ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (STRING= CHAOS::NAME ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN SAVE-PN-FLAGS ; (CHAOS::PN-FLAG ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN RESTORE-PN-FLAGS ; (SETF (CHAOS::PN-FLAG ; CHAOS::X) ; (AREF ARRAY CHAOS::X)) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN SAVE-PN-PARAMETERS ; (CHAOS::PN-PARAMETER ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN RESTORE-PN-PARAMETERS ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::X) ; (AREF ARRAY CHAOS::X)) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN FIND-OPTION-SET ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (STRING= CHAOS::NAME (CHAOS::OPTION-SET-NAME CHAOS::X))) ; CHAOS::*PN-OPTION-SET*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (STRING= CHAOS::NAME (CHAOS::OPTION-SET-NAME CHAOS::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN SAVE-OPTION-SET ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN RESTORE-OPTION-SET ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PR-LIST-OF-FLAG ; (SORT CHAOS::FLAGS ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (DECLARE (TYPE FIXNUM CHAOS::X CHAOS::Y)) ; (STRING< ; (THE SIMPLE-STRING ; (CHAOS::PN-FLAG-NAME ; CHAOS::X)) ; (THE SIMPLE-STRING ; (CHAOS::PN-FLAG-NAME ; CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (CHAOS::PN-FLAG-NAME ; CHAOS::FLAG) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::FLAG) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG-NAME ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG-NAME ; CHAOS::Y) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PR-LIST-OF-PARAM ; (SORT CHAOS::PARAMS ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (DECLARE (TYPE FIXNUM CHAOS::X CHAOS::Y)) ; (STRING< ; (THE SIMPLE-STRING ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::X)) ; (THE SIMPLE-STRING ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER-MIN ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER-MAX ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::X) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::Y) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN AUTO-CHANGE-FLAG ; (CHAOS::PN-FLAG ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG-NAME ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::INDEX) ; CHAOS::VALUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN DEPENDENT-FLAGS ; (CHAOS::PN-FLAG ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN AUTO-CHANGE-PARAM ; (CHAOS::PN-PARAMETER ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER-NAME ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::INDEX) ; CHAOS::VALUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN MOVE-FROM-USABLE-TO-SOS ; (FUNCALL CHAOS::PRED CHAOS::C) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PRED is not known to be a function ; in: DEFUN RESET-MEMORY-CONTROL ; (* 20 (THE FIXNUM (LENGTH CHAOS::*SOS*))) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES (MOD 92233720368547758001) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES (MOD 92233720368547758001) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; in: DEFUN PN-CONTROL-MEMORY ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-SOS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (= CHAOS::.NEXT-CONTROL-POINT. ; (CHAOS::PN-STAT ; CHAOS::CL-GIVEN)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::PN-PARAMETER ; CHAOS::CONTROL-MEMORY-POINT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-WEIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-WEIGHT) ; CHAOS::I) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (* CHAOS::N 20) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES ; (INTEGER -92233720368547758080 92233720368547758060) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -92233720368547758080 92233720368547758060) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (* CHAOS::N 20) CHAOS::SIZE) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -92233720368547758080 ; 92233720368547758060), not a FIXNUM. ; (SETQ CHAOS::.NEXT-CONTROL-POINT. ; (+ ; (CHAOS::PN-STAT ; CHAOS::CL-GIVEN) ; (CHAOS::PN-PARAMETER ; CHAOS::CONTROL-MEMORY-POINT))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of SET ; in: DEFUN PN-RUN-TIME ; (CHAOS::CLOCK-STOP ; CHAOS::PN-GLOBAL-RUN-TIME) ; --> IF PROGN INCF LET* + ; ==> ; (- (GET-INTERNAL-REAL-TIME) (CHAOS::PN-CLOCK-CURR CHAOS::CLOCK)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; --> IF PROGN INCF LET* ; ==> ; (+ (- (GET-INTERNAL-REAL-TIME) (CHAOS::PN-CLOCK-CURR CHAOS::CLOCK)) ; (CHAOS::PN-CLOCK-ACCUM #:CLOCK0)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; in: DEFUN CHECK-PN-STOP ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-GIVEN) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-GEN) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-SECONDS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-KEPT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (>= CHAOS::SECONDS (FLOAT CHAOS::MAX-SECONDS?)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; in: DEFUN CHECK-FOR-PROOF ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-PROOFS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-PROOFS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN REPORT-CLAUSE-SET-PROPS ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PN-AUTOMATIC-SETTINGS-1 ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (= 1 CHAOS::MAX-LITS?) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PN-AUTOMATIC-SETTINGS-2 ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (= 1 CHAOS::MAX-LITS?) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (> CHAOS::MAX-LITS? 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (> CHAOS::MAX-LITS? 1) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN PN-AUTOMATIC-SETTINGS-3 ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (= 1 CHAOS::MAX-LITS?) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PRINT-PN-STAT-DETAIL ; (CHAOS::PN-FLAG ; CHAOS::BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PROP-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::FACTOR) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEMOD-INF) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::UR-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BACK-UNIT-DELETION) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN INFER-CLEAN-UP ; (CHAOS::PN-FLAG ; CHAOS::PRINT-LISTS-AT-END) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-STATS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::STATS-LEVEL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PRINT-PN-TIMES ; (CHAOS::PN-FLAG ; CHAOS::BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BACK-UNIT-DELETION) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PRINT-PN-TIMES-BRIEF ; (CHAOS::PN-FLAG ; CHAOS::BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/butils-tmp49Q238TW.fasl ; compilation finished in 0:00:00.192 ; compiling file "/<>/BigPink/codes/unify.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/unify.lisp ; in: DEFUN UNIFY ; (CHAOS::PN-FLAG ; CHAOS::UNIFY-HEAVY) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PN-MATCH ; (CHAOS::PN-FLAG ; CHAOS::UNIFY-HEAVY) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/unify-tmpMXPMJ5KG.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/BigPink/codes/clause.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/clause.lisp ; in: DEFUN COMPARE-LITERAL ; (CHAOS::PN-FLAG ; CHAOS::PROPOSITIONAL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN NEW-CLAUSE ; (INCF (CHAOS::PSYSTEM-CLAUSE-COUNTER CHAOS::PSYS)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHAOS::PSYSTEM #:OBJ) 9)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN CLAUSE-ALL-PARENTS ; (MEMBER CHAOS::PID CHAOS::SO-FAR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (PUSHNEW CHAOS::PC CHAOS::PLIST) ; --> SETQ THE ADJOIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (NOT NULL), not a (OR FIXNUM SINGLE-FLOAT ; (NOT NUMBER)). ; in: DEFUN UNIT-DELETION ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN FIND-LIGHTEST-CLAUSE ; (CHAOS::PN-FLAG ; CHAOS::RANDOMIZE-SOS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-SOS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN FIND-GIVEN-CLAUSE ; (CHAOS::PN-FLAG ; CHAOS::SOS-QUEUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::SOS-STACK) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::PICK-GIVEN-RATIO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN WEIGHT-CLAUSE ; (CHAOS::PN-PARAMETER ; CHAOS::NEG-WEIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN MAP-REST ; (AREF CHAOS::.MAP-ARRAY. CHAOS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (SETF (AREF CHAOS::.MAP-ARRAY. CHAOS::I) T) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (SETF (AREF CHAOS::.MAP-ARRAY. CHAOS::I) NIL) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN SUBSUME? ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN FORWARD-SUBSUME ; (CHAOS::PN-FLAG ; CHAOS::PROPOSITIONAL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::FACTOR) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN BACK-SUBSUME ; (CHAOS::PN-FLAG ; CHAOS::FACTOR) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN UNIT-CONFLICT ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-PROOFS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PN-DISTINCT-CONSTANTS ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-DIST-CONST) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/clause-tmpB69313KI.fasl ; compilation finished in 0:00:00.080 ; compiling file "/<>/BigPink/codes/formula.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/formula.lisp ; in: DEFUN PN-TERM-EQUATIONAL-EQUAL ; (CHAOS::E-EQUAL-IN-THEORY ; (CHAOS::METHOD-THEORY ; CHAOS::F1) ; CHAOS::T1 ; CHAOS::T2) ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN UNIQUE-ALL-VARIABLES ; (CHAOS::UNIQUE (CHAOS::F) (DECLARE (TYPE CHAOS::TERM CHAOS::F)) ; (LET ((TYPE (CHAOS::FOPL-SENTENCE-TYPE CHAOS::F))) ; (DECLARE (TYPE SYMBOL TYPE)) ; (WHEN CHAOS::*DEBUG-FORMULA* ; (FORMAT T "~%>[unique-all-variables]: ~a" TYPE) ; (CHAOS::TERM-PRINT CHAOS::F)) ; (CASE TYPE ; (:ATOM) ; ((:NOT :AND :OR :EQ :BEQ) (DOLIST # #)) ; (OTHERWISE ; (IF # ; # ; #) ; (CHAOS::UNIQUE #))) ; (WHEN CHAOS::*DEBUG-FORMULA* ; (FORMAT T "~%<[unique-var..]:") ; (CHAOS::TERM-PRINT CHAOS::F)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; in: DEFUN CONJ-NORMAL-FORM ; (CHAOS::PN-FLAG ; CHAOS::SIMPLIFY-FOL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN DISTRIBUTE-OR ; (CHAOS::PN-FLAG ; CHAOS::SIMPLIFY-FOL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (FIND-IF #'(LAMBDA (CHAOS::X) (EQ :AND (CHAOS::FOPL-SENTENCE-TYPE CHAOS::X))) ; CHAOS::ARGS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (DELETE CHAOS::AND-FORM CHAOS::ARGS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (CHAOS::PN-FLAG ; CHAOS::SIMPLIFY-FOL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN GEN-SUBSUME-PROP ; (1+ CHAOS::*DEBUG-SUBSUME-PROP-NEST*) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/formula-tmp9ZT99EEA.fasl ; compilation finished in 0:00:00.164 ; compiling file "/<>/BigPink/codes/modconv.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/modconv.lisp ; in: DEFUN PN-SET-TF-FLAG ; (CHAOS::PN-FLAG ; CHAOS::META-PARAMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN MODULE-AXIOMS->CLAUSE ; (CHAOS::PN-FLAG ; CHAOS::NO-JUNK) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-CONFUSION) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/modconv-tmpW045U8V2.fasl ; compilation finished in 0:00:00.148 ; compiling file "/<>/BigPink/codes/weight.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/weight.lisp ; in: DEFUN MAKE-OP-PREC-RELATIONS ; (DELETE CHAOS::METH1 CHAOS::RHS-METHODS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; in: DEFUN DUMP-OP-LEX-TABLE ; (< (CDR CHAOS::X) (CDR CHAOS::Y)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (SORT CHAOS::ENTRIES ; #'(LAMBDA (CHAOS::X CHAOS::Y) (< (CDR CHAOS::X) (CDR CHAOS::Y)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (< (CDR CHAOS::X) (CDR CHAOS::Y)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN OP-LEX-COMPARE ; (STRING= CHAOS::N1 CHAOS::N2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN ORDER-LEX-OP ; (STRING= CHAOS::N1 CHAOS::N2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN MAKE-LEXICAL-PREC-TABLE ; (SORT CHAOS::MLIST #'CHAOS::ORDER-LEX-OP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFUN TERM-LEX-ORDER-VARS ; (< CHAOS::VN2 CHAOS::VN1) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN LEX-CHECK ; (CHAOS::PN-FLAG ; CHAOS::LEX-ORDER-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/weight-tmp6XOIRI3N.fasl ; compilation finished in 0:00:00.124 ; compiling file "/<>/BigPink/codes/lrpo.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/lrpo.lisp ; in: DEFUN PN-ORIENT-TERM-PAIR ; (CHAOS::PN-FLAG ; CHAOS::LRPO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/lrpo-tmp9ZHTLHSG.fasl ; compilation finished in 0:00:00.020 ; compiling file "/<>/BigPink/codes/resolve.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/resolve.lisp ; in: DEFUN BUILD-HYPER ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN CLASH-ONE ; (FUNCALL CHAOS::CLAUSE-PRED CHAOS::CLASH-CLAUSE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; CLAUSE-PRED is not known to be a function ; (CHAOS::PN-FLAG ; CHAOS::ORDER-HYPER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN HYPER-CLASH! ; (LET ((CHAOS::CLASHES NIL) ; (CHAOS::LIST-RESOLVENT NIL) ; (CHAOS::BACKUP NIL) ; (CHAOS::C-END NIL)) ; (DECLARE (TYPE (OR NULL CHAOS::CLASH) CHAOS::CLASHES) ; (TYPE LIST CHAOS::LIST-RESOLVENT) ; (TYPE (OR NULL CHAOS::CLASH) CHAOS::C-END)) ; (LOOP ; (IF (NOT CHAOS::BACKUP) ; (IF (OR # #) ; (LET # ; # ; # ; # ; # ; # ; # ; #) ; (PROGN # # #)) ; (IF (OR # #) ; (RETURN-FROM CHAOS::HYPER-CLASH! CHAOS::LIST-RESOLVENT) ; (PROGN # # #))) ; (UNLESS CHAOS::BACKUP ; (IF (CHAOS::CLASH-EVALUABLE CHAOS::CLASHES) ; (IF # ; # ; #) ; (UNLESS # #)))) ; CHAOS::LIST-RESOLVENT) ; ; note: deleting unreachable code ; in: DEFUN HYPER-RESOLUTION ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::ORDER-HYPER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN NEG-HYPER-RESOLUTION ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::ORDER-HYPER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN UR-RESOLUTION ; (INCF CHAOS::J) ; --> THE ; ==> ; (+ 1 CHAOS::J) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN BINARY-RESOLUTION ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN NEXT-FACTOR ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/resolve-tmpRW73Q691.fasl ; compilation finished in 0:00:00.060 ; compiling file "/<>/BigPink/codes/paramod.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/paramod.lisp ; in: DEFUN APPLY-SUBST-2 ; (INCF CHAOS::POS) ; --> THE ; ==> ; (+ 1 CHAOS::POS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN BUILD-BIN-PARA ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PARA-INTO-TERMS-ALPHA ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-LEFT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-RIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PARA-FROM-ALPHA ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-UNITS-ONLY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PARAMODULATION-FROM ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-UNITS-ONLY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-LEFT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-RIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-VARS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PARA-INTO-TERMS ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-LEFT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-RIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PARAMODULATION-INTO ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-UNITS-ONLY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/paramod-tmp4TM0ME1F.fasl ; compilation finished in 0:00:00.040 ; compiling file "/<>/BigPink/codes/demod.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/demod.lisp ; in: DEFUN DYNAMIC-DEMODULATOR ; (CHAOS::PN-FLAG ; CHAOS::LRPO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DYNAMIC-DEMOD-ALL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::DYNAMIC-DEMOD-RHS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::DYNAMIC-DEMOD-DEPTH) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DYNAMIC-DEMOD-LEX-DEP) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::LRPO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DYNAMIC-DEMOD-ALL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN DEMOD-REPLACE-TERM ; (CHAOS::PN-PARAMETER ; CHAOS::DEMOD-LIMIT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::TRACE-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN APPLY-ONE-DEMODULATOR* ; (CHAOS::DEMOD-REPLACE-TERM CHAOS::TERM CHAOS::CONTR) ; --> BLOCK WHEN IF <= CHAOS::PN-PARAMETER CHAOS::PN-PARAM-VALUE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> BLOCK WHEN IF CHAOS::PN-FLAG CHAOS::PIGNOSE-FLAG-VALUE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::LRPO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN DEMOD-METHOD-REWRITE-STRATEGY ; (AREF CHAOS::.DEMOD-STRAT. CHAOS::NUM-ARGS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN BACK-DEMODULATE ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/demod-tmpU2IL9N4.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/BigPink/codes/infer.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/infer.lisp ; in: DEFUN INFER-MAIN ; (CHAOS::PN-FLAG ; CHAOS::AUTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-GIVEN) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::CHANGE-LIMIT-AFTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::NEW-MAX-WEIGHT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-WEIGHT) ; CHAOS::NEW-LIMIT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-STATS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN INFER ; (CHAOS::PN-FLAG ; CHAOS::CONTROL-MEMORY) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PROP-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::UR-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEMOD-INF) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN POST-PROCESS ; (CHAOS::PN-FLAG ; CHAOS::EQ-UNITS-BOTH-WAYS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::ORDER-EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-NEW-DEMOD) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BACK-SUB) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-BACK-SUB) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::FACTOR) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BACK-UNIT-DELETION) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-BACK-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN POST-PROC-ALL ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PRE-PROCESS ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-KEPT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NO-NEW-DEMOD) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DYNAMIC-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEMOD-INF) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-NEW-DEMOD) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-PROOFS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-STATS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PROC-GEN ; (CHAOS::PN-FLAG ; CHAOS::VERY-VERBOSE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DIST-CONST) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::ORDER-EQ) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::LRPO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DISCARD-NON-ORIENTABLE-EQ) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::UNIT-DELETION) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::FACTOR) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-LITERALS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DISCARD-XX-RESOLVABLE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-WEIGHT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::VERY-VERBOSE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DELETE-IDENTICAL-NESTED-SKOLEM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::SORT-LITERALS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::ORDER-EQ) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::FOR-SUB) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::VERY-VERBOSE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::QUIET) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INFER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PREPARE-INFERENCE ; (CHAOS::PN-FLAG ; CHAOS::UNIVERSAL-SYMMETRY) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PROCESS-INPUT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-LISTS-AT-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-LISTS-AT-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-LISTS-AT-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::INPUT-SOS-FIRST) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (1- (CHAOS::NEXT-CLAUSE-NUM)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; in: DEFUN CHECK-PN-OPTIONS ; (CHAOS::PN-FLAG ; CHAOS::BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::UR-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEMOD-INF) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-RIGHT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM-LEFT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-RIGHT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO-LEFT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-ONES-RULE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::KB) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::KB2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::KB3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::LRPO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::DEMOD-LIMIT) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-LITERALS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::MAX-PROOFS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER ; CHAOS::PICK-GIVEN-RATIO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::SOS-STACK) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::SOS-QUEUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::SOS-STACK) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::SOS-QUEUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/infer-tmpOPW41KDL.fasl ; compilation finished in 0:00:00.120 ; compiling file "/<>/BigPink/codes/sigmatch.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/sigmatch.lisp ; in: DEFUN SIGMATCH-OP ; (SORT CHAOS::ARITY ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (STRING< ; (STRING ; (CHAOS::SORT-NAME ; CHAOS::X)) ; (STRING ; (CHAOS::SORT-NAME ; CHAOS::Y))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFUN MAKE-SIGMATCH-OP-PAT ; (FIND-IF ; #'(LAMBDA (CHAOS::X) ; (LET ((CHAOS::TSORT #)) ; (EQ ; (CHAOS::SORT-NAME ; CHAOS::TSORT) ; (CHAOS::SORT-NAME ; #)))) ; CHAOS::VM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (RASSOC SORT CHAOS::SAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/sigmatch-tmpIPVWLON2.fasl ; compilation finished in 0:00:00.028 ; compiling file "/<>/BigPink/codes/refine.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/refine.lisp ; in: DEFUN CHECK-REFINE ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-REFINE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; NIL) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-PROOFS) ; 1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/refine-tmpO0LCOIDS.fasl ; compilation finished in 0:00:00.012 ; compiling file "/<>/BigPink/codes/commands.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/commands.lisp ; in: DEFUN PIGNOSE-PROCESS-FAX-PROC ; (STRING (SECOND CHAOS::LHS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (CHAR (FIRST CHAOS::INPUT) 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN PIGNOSE-PROCESS-GOAL-PROC ; (STRING (SECOND CHAOS::LHS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (CHAR (FIRST CHAOS::INPUT) 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN PIGNOSE-PARSE-SOS ; (CHAOS::CASE-EQUAL ; (THE SIMPLE-STRING (SECOND CHAOS::PRE-ARGS)) ; ("=" (SETQ CHAOS::OP :SET)) ; ("+" (SETQ CHAOS::OP :ADD)) ; ("-" (SETQ CHAOS::OP :DELETE)) ; (T ; (CHAOS::WITH-OUTPUT-CHAOS-ERROR ; ('CHAOS::INTERNAL) ; (FORMAT T "sos op given ivalid op ~a" (SECOND CHAOS::PRE-ARGS))))) ; --> IF EQUAL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; --> IF IF EQUAL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; --> IF IF IF EQUAL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN EVAL-FAX ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN EVAL-SOS ; (SORT (CHAOS::PSYSTEM-SOS CHAOS::PSYS) ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (< (CHAOS::CLAUSE-ID CHAOS::X) (CHAOS::CLAUSE-ID CHAOS::Y)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (SORT (CHAOS::PSYSTEM-USABLE CHAOS::PSYS) ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (< (CHAOS::CLAUSE-ID CHAOS::X) (CHAOS::CLAUSE-ID CHAOS::Y)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (SORT (CHAOS::PSYSTEM-PASSIVE CHAOS::PSYS) ; #'(LAMBDA (CHAOS::X CHAOS::Y) ; (< (CHAOS::CLAUSE-ID CHAOS::X) (CHAOS::CLAUSE-ID CHAOS::Y)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFUN DO-RESOLVE ; (CHAOS::PN-FLAG ; CHAOS::PRINT-STATS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN EVAL-PN-SET-FLAG ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-FLAG ; CHAOS::INDEX) ; CHAOS::VALUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG-HOOK ; CHAOS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (FUNCALL ; (CHAOS::PN-FLAG-HOOK ; CHAOS::INDEX) ; CHAOS::VALUE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN EVAL-PN-ASSIGN ; (CHAOS::PN-PARAMETER-MIN ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-PARAMETER-MAX ; CHAOS::INDEX) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PRINT-MESSAGE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::INDEX) ; CHAOS::VALUE) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (< CHAOS::VALUE MIN) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (> CHAOS::VALUE MAX) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN PERFORM-DEMODULATION* ; (ZEROP CHAOS::*TERM-MEMO-HASH-HIT*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/commands-tmpP264WQ6O.fasl ; compilation finished in 0:00:00.228 ; compiling file "/<>/BigPink/codes/inv.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/BigPink/codes/inv.lisp ; in: DEFUN MAKE-INV-CHECK-CONTEXT ; (CHAOS::PN-FLAG ; CHAOS::DEBUG-INV-CHECK) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN MAKE-PN-INV-CHECK-PAT ; (FORMAT CHAOS::PRINT-MSG "~%~a: " MAKE-CONDITION) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (MEMBER T) STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (MEMBER T) STREAM), not a (MEMBER T). ; (FORMAT CHAOS::PRINT-MSG "~%goal: ") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (MEMBER T) STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (MEMBER T) STREAM), not a (MEMBER T). ; in: DEFUN SETUP-INV-CHECK-DB ; (CHAOS::PN-FLAG ; CHAOS::AUTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN PERFORM-INV-CHECK ; (CHAOS::PN-FLAG ; CHAOS::AUTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO2) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::AUTO3) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::BINARY-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::NEG-HYPER-RES) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-FROM) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::PARA-INTO) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::DEMOD-INF) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (CHAOS::PN-PARAMETER ; CHAOS::MAX-PROOFS) ; 1) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::SET-NEEDS-RULE) ; --> SETF LET SB-KERNEL:THE* MIN ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387904)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; in: DEFUN DO-INVARIANCE-CHECK ; (CHAOS::PN-PARAMETER ; CHAOS::INV-CHECK-MAX-DEPTH) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (CHAOS::PN-FLAG ; CHAOS::CHECK-INIT-ALWAYS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (INCF CHAOS::LOOPS) ; --> THE ; ==> ; (+ 1 CHAOS::LOOPS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (> CHAOS::LOOPS CHAOS::MAX-LOOPS) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (INCF CHAOS::NUM) ; --> THE ; ==> ; (+ 1 CHAOS::NUM) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (< CHAOS::LOOPS CHAOS::SKIP-L) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (< CHAOS::NUM CHAOS::SKIP-NUM) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; in: DEFUN PN-CHECK-INVARIANCE ; (CHAOS::PN-FLAG ; CHAOS::PRINT-STATS) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/BigPink/codes/inv-tmpESC43OCR.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/cafeobj/cafeobjvar.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/cafeobjvar-tmpWCAM54ZJ.fasl ; compilation finished in 0:00:00.000 ; compiling file "/<>/cafeobj/creader.lisp" (written 16 DEC 2019 07:35:07 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/creader-tmpVTMW561L.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/cafeobj/oldoc.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/cafeobj/oldoc.lisp ; in: DEFUN PRINT-ONLINE-DOCUMENT ; (FORMAT STREAM "~%*** key : ~a" (CHAOS::OLDOC-KEY CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&red-title : ~a" (CHAOS::OLDOC-RTITLE CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&title : ~a" (CHAOS::OLDOC-TITLE CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&mdkey : ~a" (CHAOS::OLDOC-MDKEY CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&main : ~a" (CHAOS::OLDOC-MAIN CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&example : ~a" (CHAOS::OLDOC-EXAMPLE CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&names : ~a" (CHAOS::OLDOC-NAMES CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&related : ~a" (CHAOS::OLDOC-RELATED CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&cache : ~a" (CHAOS::OLDOC-CACHE CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~&cateogry : ~a" (CHAOS::OLDOC-CATEGORY CHAOS::DOC)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN OLDOC-FIND-DOC-ENTRY ; (LENGTH CHAOS::REDSS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH CHAOS::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CHAOS::N 0 CHAOS::REDSSLEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN OLDOC-PARSE-TO-WORDS ; (STRING-TRIM "\"'" CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-STRING. ; in: DEFUN OLDOC-SEARCH-ALL ; (SEARCH CHAOS::X CHAOS::Y) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; The second argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; The second argument is a SEQUENCE, not a VECTOR. ; (APPLY CHAOS::X (LIST CHAOS::FULLSS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; X is not known to be a function ; in: DEFUN FORMAT-MARKDOWN ; (FUNCALL CHAOS::.MD-REPLACE-BQ. ; (FUNCALL CHAOS::.MD-REPLACE-TILDE. ; (FUNCALL CHAOS::.MD-REMOVE-CODE-SIGN. ; (FUNCALL CHAOS::.MD-REMOVE-LINK2. ; (FUNCALL CHAOS::.MD-REMOVE-LINK. #))))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REPLACE-TILDE. ; (FUNCALL CHAOS::.MD-REMOVE-CODE-SIGN. ; (FUNCALL CHAOS::.MD-REMOVE-LINK2. ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. ; CHAOS::STR))))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-CODE-SIGN. ; (FUNCALL CHAOS::.MD-REMOVE-LINK2. ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. ; CHAOS::STR)))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-LINK2. ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN OLDOC-REDUCE-STRING ; (FUNCALL CHAOS::.MD-REMOVE-BQ. ; (FUNCALL CHAOS::.MD-REMOVE-LINK2. ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. ; CHAOS::STR)))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-LINK2. ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-LINK. ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN EXPORT-REFMAN ; (SORT CHAOS::DATA #'CHAOS::REFMAN-SORT :KEY #'CAR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FORMAT CHAOS::OUT "~a" (CDR CHAOS::D)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM NULL), not a NULL. ; in: DEFUN SHOW-UNDOCUMENTED ; (SORT CHAOS::DOCS #'STRING<= :KEY #'CHAOS::OLDOC-KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL CHAOS::.TODO. CHAOS::STR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN OLDOC-LIST-CATEGORIES ; (1+ CHAOS::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/oldoc-tmpUNNGT9CF.fasl ; compilation finished in 0:00:00.116 ; compiling file "/<>/cafeobj/define.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/cafeobj/define.lisp ; in: DEFUN PRINT-COMDE ; (FORMAT STREAM "~%** key : ~a" (CHAOS::COMDE-KEY CHAOS::ME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~% type : ~a" (CHAOS::COMDE-TYPE CHAOS::ME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~% category : ~a" (CHAOS::COMDE-CATEGORY CHAOS::ME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~% parser : ~a" (CHAOS::COMDE-PARSER CHAOS::ME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (FORMAT STREAM "~% evaluator : ~a" (CHAOS::COMDE-EVALUATOR CHAOS::ME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN SHOW-TOP-ENTRIES ; (SORT CHAOS::KEYS #'STRING<=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFUN SHOW-DECL-ENTRIES ; (SORT CHAOS::KEYS #'STRING<=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFMACRO DEFINE ; (MEMBER CHAOS::CATEGORY CHAOS::.VALID-COM-CATEGORIES.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; (MEMBER CHAOS::CATEGORY CHAOS::.VALID-DECL-CATEGORIES.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)). ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/define-tmp4L3W83SU.fasl ; compilation finished in 0:00:00.024 ; compiling file "/<>/cafeobj/trans-com.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/cafeobj/trans-com.lisp ; in: DEFUN PARSE-IN-CONTEXT-MODEXP-WITH-TERM ; (LENGTH CHAOS::E) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN PARSE-PUSHD-COMMAND ; (LENGTH CHAOS::INP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN PARSE-POPD-COMMAND ; (LENGTH CHAOS::INP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN PARSE-CONTINUE-COMMAND ; (> CHAOS::NUM 0) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/trans-com-tmpGE7QNNEE.fasl ; compilation finished in 0:00:00.036 ; compiling file "/<>/cafeobj/trans-decl.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/cafeobj/trans-decl.lisp ; in: DEFUN PROCESS-IMPORTATION-FORM ; (FIND-IF #'(LAMBDA (CHAOS::X) (OR (EQL CHAOS::X #\.) (EQL CHAOS::X #\@))) ; CHAOS::PARAM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN PROCESS-AXIOM-FORM ; (STRING CHAOS::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN PARSE-MODULE-ELEMENT ; (FUNCALL CHAOS::PARSER CHAOS::E) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PARSER is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/trans-decl-tmp9B0UZGT4.fasl ; compilation finished in 0:00:00.060 ; compiling file "/<>/cafeobj/trans-form.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/cafeobj/trans-form.lisp ; in: DEFUN CAFEOBJ->CHAOS ; (FORMAT CHAOS::PORT ; "~&;;; this file is generated by CafeOBJ to Chaos converter version 1.2") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a NULL. ; (FORMAT CHAOS::PORT "~&;;; creation date = ~a" (CHAOS::GET-TIME-STRING)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a NULL. ; (FORMAT CHAOS::PORT "~%;;; source file = ~a" CHAOS::IN-FILE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a NULL. ; (FORMAT CHAOS::PORT "~&(in-package :chaos)~%") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STREAM BOOLEAN), not a NULL. ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/trans-form-tmpAJ5U325P.fasl ; compilation finished in 0:00:00.004 ; compiling file "/<>/cafeobj/command-top.lisp" (written 15 NOV 2018 12:48:55 AM): ; file: /<>/cafeobj/command-top.lisp ; in: DEFUN CAFEOBJ-PROCESS-ARGS ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (SETQ CHAOS::*CAFEOBJ-LOAD-INIT-FILE* T) ; (SETQ CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES* NIL) ; (SETQ CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE* NIL) ; (LET* ((CHAOS::ARGS (CHAOS::GET-ARG-STRING)) ; (CHAOS::ARGC (LENGTH CHAOS::ARGS))) ; (DECLARE (TYPE LIST CHAOS::ARGS)) ; (WHEN (< 0 CHAOS::ARGC) ; (LET (#) ; (CHAOS::WHILE ; # ; #)))) ; (LET ((CHAOS::*CHAOS-QUIET* T)) ; (WHEN ; (AND CHAOS::*CAFEOBJ-BATCH* ; (NULL CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*)) ; (RETURN-FROM CHAOS::CAFEOBJ-PROCESS-ARGS NIL)) ; (IF CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE* ; (PROGN (FORMAT T "~%-- loading prelude") (SETQ #)) ; (UNLESS CHAOS::*CAFEOBJ-STANDARD-PRELUDE-PATH* ; (FORMAT T "~%-- loading standard prelude") ; (SETQ #))) ; (WHEN CHAOS::*CAFEOBJ-SECONDARY-PRELUDE-FILE* ; (FORMAT T "~%-- appending prelude") ; (SETQ CHAOS::*CAFEOBJ-SECONDARY-PRELUDE-PATH* #)) ; (CHAOS::LOAD-PRELUDE "site-init" 'CHAOS::PROCESS-CAFEOBJ-INPUT T))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (SETQ CHAOS::*CAFEOBJ-LOAD-INIT-FILE* T) ; (SETQ CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES* NIL) ; (SETQ CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE* NIL) ; (LET* ((CHAOS::ARGS #) (CHAOS::ARGC #)) ; (DECLARE (TYPE LIST CHAOS::ARGS)) ; (WHEN (< 0 CHAOS::ARGC) ; (LET # ; #))) ; (LET ((CHAOS::*CHAOS-QUIET* T)) ; (WHEN (AND CHAOS::*CAFEOBJ-BATCH* #) ; (RETURN-FROM CHAOS::CAFEOBJ-PROCESS-ARGS NIL)) ; (IF CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE* ; (PROGN # #) ; (UNLESS CHAOS::*CAFEOBJ-STANDARD-PRELUDE-PATH* # #)) ; (WHEN CHAOS::*CAFEOBJ-SECONDARY-PRELUDE-FILE* ; (FORMAT T "~%-- appending prelude") ; (SETQ #)) ; (CHAOS::LOAD-PRELUDE "site-init" 'CHAOS::PROCESS-CAFEOBJ-INPUT T)))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN CAFEOBJ-WHAT-IS ; (FORMAT T CHAOS::DESCRIPTION) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING FUNCTION), not a SIMPLE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING FUNCTION), not a FUNCTION. ; in: DEFUN GET-COMMAND-DESCRIPTION ; (STRING= CHAOS::LEVEL "??") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; in: DEFUN CAFEOBJ-INPUT ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (IF CHAOS::*CAFEOBJ-BATCH* ; (LET (#) ; (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC ; :LOAD-PATH CHAOS::LOAD-PATH :SUFFIX '#)) ; (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC :LOAD-PATH ; CHAOS::LOAD-PATH :SUFFIX ; '(".cafe" ".mod"))))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (IF CHAOS::*CAFEOBJ-BATCH* ; (LET ((*PRINT-CASE* :DOWNCASE)) ; (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC :LOAD-PATH ; CHAOS::LOAD-PATH :SUFFIX '(".cafe" ".mod"))) ; (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC :LOAD-PATH ; CHAOS::LOAD-PATH :SUFFIX '(".cafe" ".mod")))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; in: DEFUN CAFEOBJ-PROBE-FILE ; (<= (FILE-WRITE-DATE CHAOS::SRC) (FILE-WRITE-DATE CHAOS::BIN)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; in: DEFUN CAFEOBJ-EVALUATE-COMMAND ; (FUNCALL CHAOS::PARSER CHAOS::INP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PARSER is not known to be a function ; (FUNCALL CHAOS::EVALUATOR CHAOS::PFORM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; EVALUATOR is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/command-top-tmpAOF1CYAS.fasl ; compilation finished in 0:00:00.084 ; compiling file "/<>/cafeobj/commands.lisp" (written 20 JAN 2020 04:55:35 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/commands-tmpIXCQTSHA.fasl ; compilation finished in 0:00:00.080 ; compiling file "/<>/cafeobj/declarations.lisp" (written 15 NOV 2018 12:48:55 AM): ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/declarations-tmp5E6VIEMS.fasl ; compilation finished in 0:00:00.016 ; compiling file "/<>/cafeobj/cafeobj-top.lisp" (written 17 JAN 2019 06:56:23 AM): ; file: /<>/cafeobj/cafeobj-top.lisp ; in: DEFUN PROCESS-INIT-FILES-HANDLING-EXCEPTIONS ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (CHAOS::CAFEOBJ-INIT-FILES) ; (DOLIST (CHAOS::F (REVERSE CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*)) ; (CHAOS::CAFEOBJ-INPUT CHAOS::F))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; (CHAOS::WITH-CHAOS-TOP-ERROR ; NIL ; (CHAOS::WITH-CHAOS-ERROR ; NIL ; (CHAOS::CAFEOBJ-INIT-FILES) ; (DOLIST (CHAOS::F (REVERSE CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*)) ; (CHAOS::CAFEOBJ-INPUT CHAOS::F)))) ; --> LET IF LET IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; STD-PROC is not known to be a function ; wrote /<>/tmpcache/common-lisp/sbcl-2.2.3.debian-linux-x64/<>/cafeobj/cafeobj-top-tmpI0PODGVV.fasl ; compilation finished in 0:00:00.020 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2389 notes [undoing binding stack and other enclosing state... done] [performing final GC... done] [defragmenting immobile space... (fin,inst,fdefn,code,sym)=799+970+24325+25278+28142... done] [saving current Lisp image into ./dumps/sbcl/cafeobj.sbcl: writing 0 bytes from the read-only space at 0x50000000 writing 736 bytes from the static space at 0x50100000 writing 35454976 bytes from the dynamic space at 0x1000000000 writing 2310144 bytes from the immobile space at 0x50200000 writing 16207872 bytes from the immobile space at 0x52a00000 done] chmod +x dumps/sbcl/cafeobj.sbcl cat ./xbin/cafeobj.in | \ sed -e 's:@FIRSTCHOICE@:sbcl:g' \ -e 's:@LIBPATH@:lib/cafeobj-1.6:g' \ -e 's:@SHAREPATH@:share/cafeobj-1.6:g' >./xbin/cafeobj touch build-stamp make[1]: Leaving directory '/<>' touch build-arch-stamp touch build-indep-stamp fakeroot debian/rules binary mkdir -p /<>/debian/cafeobj-mode/usr/share/emacs/site-lisp cp elisp/cafeobj-mode.el /<>/debian/cafeobj-mode/usr/share/emacs/site-lisp touch install-indep-stamp dh_testdir dh_testroot dh_installdocs README.md dh_installchangelogs dh_installemacsen dh_compress -X.pdf dh_fixperms dh_installdeb dh_gencontrol dh_md5sums dh_builddeb INFO: pkgstriptranslations version 149 pkgstriptranslations: processing cafeobj-mode (in debian/cafeobj-mode); do_strip: , oemstrip: pkgmaintainermangler: Maintainer field overridden to "Ubuntu Developers " pkgstripfiles: processing control file: debian/cafeobj-mode/DEBIAN/control, package cafeobj-mode, directory debian/cafeobj-mode pkgstripfiles: Truncating usr/share/doc/cafeobj-mode/changelog.Debian.gz to topmost ten records pkgstripfiles: Running PNG optimization (using 4 cpus) for package cafeobj-mode ... pkgstripfiles: No PNG files. dpkg-deb: building package 'cafeobj-mode' in '../cafeobj-mode_1.6.0-2build1_all.deb'. dh_testdir dh_testroot dh_prep DESTDIR=/<>/debian/cafeobj /usr/bin/make install make[1]: Entering directory '/<>' /usr/bin/install -c -d /<>/debian/cafeobj/usr/share/cafeobj-1.6/lib /usr/bin/install -c -m 0644 \ ./lib/lib/*.cafe \ /<>/debian/cafeobj/usr/share/cafeobj-1.6/lib /usr/bin/install -c -d /<>/debian/cafeobj/usr/share/cafeobj-1.6/prelude /usr/bin/install -c -m 0644 ./lib/prelude/*.bin \ /<>/debian/cafeobj/usr/share/cafeobj-1.6/prelude /usr/bin/install -c -d /<>/debian/cafeobj/usr/lib/cafeobj-1.6 cp -a dumps/* /<>/debian/cafeobj/usr/lib/cafeobj-1.6 chmod 0755 /<>/debian/cafeobj/usr/lib/cafeobj-1.6/*/* /usr/bin/install -c -d /<>/debian/cafeobj/usr/bin /usr/bin/install -c -m 0755 xbin/cafeobj /<>/debian/cafeobj/usr/bin # man page /usr/bin/install -c -d /<>/debian/cafeobj/usr/share/man/man1 /usr/bin/install -c -m 0644 doc/etc/cafeobj.1 /<>/debian/cafeobj/usr/share/man/man1 # doc files /usr/bin/install -c -d /<>/debian/cafeobj/usr/share/doc//cafeobj /usr/bin/install -c -m 0644 \ doc/binspect/binspect.pdf doc/citp-manual/citp.pdf doc/manual/manual.pdf doc/namespace/namespace.pdf doc/PigNose/pnguide.pdf doc/RefCard/interp.pdf doc/RefCard/syntax.pdf doc/refman/reference-manual.pdf doc/search/search-predicate.pdf \ doc/etc/cafe-citp.txt \ elisp/cafeobj-mode.el \ lib/icons/cafeobj-logo.png \ lib/icons/cafeobj-logo-small.png \ /<>/debian/cafeobj/usr/share/doc//cafeobj /usr/bin/install -c -d /<>/debian/cafeobj/usr/share/doc//cafeobj/examples /usr/bin/install -c -m 0644 doc/examples/*.mod \ /<>/debian/cafeobj/usr/share/doc//cafeobj/examples # emacs lisp file installation /usr/bin/install -c -d /<>/debian/cafeobj/usr/share/emacs/site-lisp /usr/bin/install -c -m 0644 elisp/cafeobj-mode.el /<>/debian/cafeobj/usr/share/emacs/site-lisp # end of installation routines touch install-stamp make[1]: Leaving directory '/<>' # make install does also install the cafeobj-mode.el, remove it rm /<>/debian/cafeobj/usr/share/emacs/site-lisp/cafeobj-mode.el rmdir /<>/debian/cafeobj/usr/share/emacs/site-lisp/ rmdir /<>/debian/cafeobj/usr/share/emacs touch install-arch-stamp dh_testdir dh_testroot dh_installdocs README.md dh_installchangelogs # do NOT strip otherwise the sbcl dump file is broken! #dh_strip dh_compress -X.pdf dh_fixperms dh_installdeb dh_shlibdeps dh_gencontrol dh_md5sums dh_builddeb INFO: pkgstriptranslations version 149 pkgstriptranslations: processing cafeobj (in debian/cafeobj); do_strip: , oemstrip: pkgmaintainermangler: Maintainer field overridden to "Ubuntu Developers " pkgstripfiles: processing control file: debian/cafeobj/DEBIAN/control, package cafeobj, directory debian/cafeobj pkgstripfiles: Truncating usr/share/doc/cafeobj/changelog.Debian.gz to topmost ten records pkgstripfiles: Running PNG optimization (using 4 cpus) for package cafeobj ... xargs: warning: options --max-lines and --replace/-I/-i are mutually exclusive, ignoring previous --max-lines value oo pkgstripfiles: PNG optimization (2/0) for package cafeobj took 24 s dpkg-deb: building package 'cafeobj' in '../cafeobj_1.6.0-2build1_amd64.deb'. dpkg-genbuildinfo --build=binary -O../cafeobj_1.6.0-2build1_amd64.buildinfo dpkg-genchanges --build=binary -mLaunchpad Build Daemon -O../cafeobj_1.6.0-2build1_amd64.changes dpkg-genchanges: info: binary-only upload (no source code included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) -------------------------------------------------------------------------------- Build finished at 2022-07-19T12:27:31Z Finished -------- I: Built successfully +------------------------------------------------------------------------------+ | Changes | +------------------------------------------------------------------------------+ cafeobj_1.6.0-2build1_amd64.changes: ------------------------------------ Format: 1.8 Date: Tue, 19 Jul 2022 09:22:30 -0300 Source: cafeobj Binary: cafeobj cafeobj-mode Built-For-Profiles: noudeb Architecture: all amd64 Version: 1.6.0-2build1 Distribution: kinetic-proposed Urgency: medium Maintainer: Launchpad Build Daemon Changed-By: Athos Ribeiro Description: cafeobj - new generation algebraic specification and programming language cafeobj-mode - Emacs major mode for editing CafeOBJ source code Changes: cafeobj (1.6.0-2build1) kinetic; urgency=medium . * No change rebuild for sbcl ppc64el bootstrap. Checksums-Sha1: 67a0414c91d28a71c4a7ed2f17ba38f05e597e66 26198 cafeobj-mode_1.6.0-2build1_all.deb 340231f6a130dc44044684bf37e9501785c877fa 5860 cafeobj_1.6.0-2build1_amd64.buildinfo a1e68770f51c4bac59c17957b994f4cfaa5bd35c 14003094 cafeobj_1.6.0-2build1_amd64.deb Checksums-Sha256: 8edbe6ce04e85019200ae8c84cbd0c7a7f6ef06c7c6c9b6b800730e222c1120c 26198 cafeobj-mode_1.6.0-2build1_all.deb e484a84876d3a61a0a018d6b024cdf9dc25e1d208fcdda88ae5f8d055be80d0a 5860 cafeobj_1.6.0-2build1_amd64.buildinfo 9eed3b40e7ab646e50b17b5220a7ed160fad953233d1ea7a9c64a36d4a445489 14003094 cafeobj_1.6.0-2build1_amd64.deb Files: fa0679b935e6e1dadbd4e42c8755727f 26198 science optional cafeobj-mode_1.6.0-2build1_all.deb 641f2a05572b77d4769087a4b4e0d523 5860 science optional cafeobj_1.6.0-2build1_amd64.buildinfo 00d2a29960ec642bc9ad2234b02dc93b 14003094 science optional cafeobj_1.6.0-2build1_amd64.deb /<>/cafeobj_1.6.0-2build1_amd64.changes.new could not be renamed to /<>/cafeobj_1.6.0-2build1_amd64.changes: Illegal seek Distribution field may be wrong!!! +------------------------------------------------------------------------------+ | Buildinfo | +------------------------------------------------------------------------------+ Format: 1.0 Source: cafeobj Binary: cafeobj cafeobj-mode Architecture: all amd64 Version: 1.6.0-2build1 Checksums-Md5: fa0679b935e6e1dadbd4e42c8755727f 26198 cafeobj-mode_1.6.0-2build1_all.deb 00d2a29960ec642bc9ad2234b02dc93b 14003094 cafeobj_1.6.0-2build1_amd64.deb Checksums-Sha1: 67a0414c91d28a71c4a7ed2f17ba38f05e597e66 26198 cafeobj-mode_1.6.0-2build1_all.deb a1e68770f51c4bac59c17957b994f4cfaa5bd35c 14003094 cafeobj_1.6.0-2build1_amd64.deb Checksums-Sha256: 8edbe6ce04e85019200ae8c84cbd0c7a7f6ef06c7c6c9b6b800730e222c1120c 26198 cafeobj-mode_1.6.0-2build1_all.deb 9eed3b40e7ab646e50b17b5220a7ed160fad953233d1ea7a9c64a36d4a445489 14003094 cafeobj_1.6.0-2build1_amd64.deb Build-Origin: Ubuntu Build-Architecture: amd64 Build-Date: Tue, 19 Jul 2022 12:27:30 +0000 Build-Path: /<> Build-Tainted-By: merged-usr-via-aliased-dirs usr-local-has-programs Installed-Build-Depends: autoconf (= 2.71-2), automake (= 1:1.16.5-1.3), autopoint (= 0.21-6), autotools-dev (= 20220109.1), base-files (= 12.2ubuntu2), base-passwd (= 3.5.52build1), bash (= 5.1-6ubuntu1), binutils (= 2.38.90.20220713-2ubuntu1), binutils-common (= 2.38.90.20220713-2ubuntu1), binutils-x86-64-linux-gnu (= 2.38.90.20220713-2ubuntu1), bsdextrautils (= 2.38-4ubuntu1), bsdutils (= 1:2.38-4ubuntu1), build-essential (= 12.9ubuntu3), bzip2 (= 1.0.8-5build1), coreutils (= 8.32-4.1ubuntu1), cpp (= 4:11.2.0-1ubuntu1), cpp-11 (= 11.3.0-4ubuntu1), dash (= 0.5.11+git20210903+057cd650a4ed-8ubuntu1), debconf (= 1.5.79ubuntu1), debhelper (= 13.8ubuntu1), debianutils (= 5.7-0.2), debugedit (= 1:5.0-4build1), dh-autoreconf (= 20), dh-strip-nondeterminism (= 1.13.0-1), diffutils (= 1:3.8-0ubuntu2), dpkg (= 1.21.9ubuntu1), dpkg-dev (= 1.21.9ubuntu1), dwz (= 0.14-1build2), file (= 1:5.41-4), findutils (= 4.8.0-1ubuntu3), g++ (= 4:11.2.0-1ubuntu1), g++-11 (= 11.3.0-4ubuntu1), gcc (= 4:11.2.0-1ubuntu1), gcc-11 (= 11.3.0-4ubuntu1), gcc-11-base (= 11.3.0-4ubuntu1), gcc-12-base (= 12.1.0-7ubuntu1), gettext (= 0.21-6), gettext-base (= 0.21-6), grep (= 3.7-1build1), groff-base (= 1.22.4-8build1), gzip (= 1.10-4ubuntu4), hostname (= 3.23ubuntu2), init-system-helpers (= 1.64), intltool-debian (= 0.35.0+20060710.5), libacl1 (= 2.3.1-1), libarchive-zip-perl (= 1.68-1), libasan6 (= 11.3.0-4ubuntu1), libatomic1 (= 12.1.0-7ubuntu1), libattr1 (= 1:2.5.1-1build1), libaudit-common (= 1:3.0.7-1build1), libaudit1 (= 1:3.0.7-1build1), libbinutils (= 2.38.90.20220713-2ubuntu1), libblkid1 (= 2.38-4ubuntu1), libbz2-1.0 (= 1.0.8-5build1), libc-bin (= 2.35-0ubuntu3), libc-dev-bin (= 2.35-0ubuntu3), libc6 (= 2.35-0ubuntu3), libc6-dev (= 2.35-0ubuntu3), libcap-ng0 (= 0.8.3-1), libcap2 (= 1:2.44-1build3), libcc1-0 (= 12.1.0-7ubuntu1), libcom-err2 (= 1.46.5-2ubuntu2), libcrypt-dev (= 1:4.4.28-2), libcrypt1 (= 1:4.4.28-2), libctf-nobfd0 (= 2.38.90.20220713-2ubuntu1), libctf0 (= 2.38.90.20220713-2ubuntu1), libdb5.3 (= 5.3.28+dfsg1-0.10), libdebconfclient0 (= 0.261ubuntu1), libdebhelper-perl (= 13.8ubuntu1), libdpkg-perl (= 1.21.9ubuntu1), libdw1 (= 0.187-1), libelf1 (= 0.187-1), libfile-stripnondeterminism-perl (= 1.13.0-1), libgcc-11-dev (= 11.3.0-4ubuntu1), libgcc-s1 (= 12.1.0-7ubuntu1), libgcrypt20 (= 1.10.1-2ubuntu1), libgdbm-compat4 (= 1.23-1), libgdbm6 (= 1.23-1), libgmp10 (= 2:6.2.1+dfsg-3ubuntu1), libgomp1 (= 12.1.0-7ubuntu1), libgpg-error0 (= 1.45-2), libgprofng0 (= 2.38.90.20220713-2ubuntu1), libgssapi-krb5-2 (= 1.19.2-2), libicu71 (= 71.1-3), libisl23 (= 0.25-1), libitm1 (= 12.1.0-7ubuntu1), libk5crypto3 (= 1.19.2-2), libkeyutils1 (= 1.6.1-3ubuntu1), libkrb5-3 (= 1.19.2-2), libkrb5support0 (= 1.19.2-2), liblsan0 (= 12.1.0-7ubuntu1), liblz4-1 (= 1.9.3-2build2), liblzma5 (= 5.2.5-2.1), libmagic-mgc (= 1:5.41-4), libmagic1 (= 1:5.41-4), libmount1 (= 2.38-4ubuntu1), libmpc3 (= 1.2.1-2build1), libmpfr6 (= 4.1.0-3build3), libnsl-dev (= 1.3.0-2build2), libnsl2 (= 1.3.0-2build2), libpam-modules (= 1.4.0-13ubuntu1), libpam-modules-bin (= 1.4.0-13ubuntu1), libpam-runtime (= 1.4.0-13ubuntu1), libpam0g (= 1.4.0-13ubuntu1), libpcre2-8-0 (= 10.40-1), libpcre3 (= 2:8.39-14), libperl5.34 (= 5.34.0-5ubuntu1), libpipeline1 (= 1.5.6-1), libquadmath0 (= 12.1.0-7ubuntu1), libseccomp2 (= 2.5.4-1ubuntu1), libselinux1 (= 3.4-1), libsigsegv2 (= 2.13-1ubuntu3), libsmartcols1 (= 2.38-4ubuntu1), libssl3 (= 3.0.4-1ubuntu1), libstdc++-11-dev (= 11.3.0-4ubuntu1), libstdc++6 (= 12.1.0-7ubuntu1), libsub-override-perl (= 0.09-3), libsystemd0 (= 251.2-2ubuntu1), libtinfo6 (= 6.3+20220423-2), libtirpc-common (= 1.3.2-2build1), libtirpc-dev (= 1.3.2-2build1), libtirpc3 (= 1.3.2-2build1), libtool (= 2.4.7-4), libtsan0 (= 11.3.0-4ubuntu1), libubsan1 (= 12.1.0-7ubuntu1), libuchardet0 (= 0.0.7-1build2), libudev1 (= 251.2-2ubuntu1), libunistring2 (= 1.0-1), libuuid1 (= 2.38-4ubuntu1), libxml2 (= 2.9.14+dfsg-1), libzstd1 (= 1.5.2+dfsg-1), linux-libc-dev (= 5.19.0-9.9), login (= 1:4.11.1+dfsg1-2ubuntu1), lsb-base (= 11.1.0ubuntu4), lto-disabled-list (= 29), m4 (= 1.4.18-5ubuntu2), make (= 4.3-4.1build1), man-db (= 2.10.2-1), mawk (= 1.3.4.20200120-3.1), ncurses-base (= 6.3+20220423-2), ncurses-bin (= 6.3+20220423-2), patch (= 2.7.6-7build2), perl (= 5.34.0-5ubuntu1), perl-base (= 5.34.0-5ubuntu1), perl-modules-5.34 (= 5.34.0-5ubuntu1), po-debconf (= 1.0.21+nmu1), rpcsvc-proto (= 1.4.2-0ubuntu6), sbcl (= 2:2.2.3-2maysync3), sed (= 4.8-1ubuntu2), sensible-utils (= 0.0.17), sysvinit-utils (= 3.01-1ubuntu1), tar (= 1.34+dfsg-1build3), util-linux (= 2.38-4ubuntu1), util-linux-extra (= 2.38-4ubuntu1), xz-utils (= 5.2.5-2.1), zlib1g (= 1:1.2.11.dfsg-2ubuntu9) Environment: DEB_BUILD_OPTIONS="parallel=4" DEB_BUILD_PROFILES="noudeb" LANG="C.UTF-8" LC_ALL="C.UTF-8" SOURCE_DATE_EPOCH="1658233350" +------------------------------------------------------------------------------+ | Package contents | +------------------------------------------------------------------------------+ cafeobj-mode_1.6.0-2build1_all.deb ---------------------------------- new Debian package, version 2.0. size 26198 bytes: control archive=776 bytes. 42 bytes, 1 lines conffiles 669 bytes, 17 lines control 385 bytes, 5 lines md5sums Package: cafeobj-mode Source: cafeobj Version: 1.6.0-2build1 Architecture: all Maintainer: Ubuntu Developers Original-Maintainer: Norbert Preining Installed-Size: 122 Depends: emacsen-common (>= 2.0.8) Recommends: cafeobj Section: science Priority: optional Homepage: http://cafeobj.org/ Description: Emacs major mode for editing CafeOBJ source code cafeobj-mode provides syntax highlighting and indentation for CafeOBJ source code inside emacs. Included is the ability to interact with a CafeOBJ interpreter inside emacs and to send expressions from CafeOBJ source files to the running interpreter. drwxr-xr-x root/root 0 2022-07-19 12:22 ./ drwxr-xr-x root/root 0 2022-07-19 12:22 ./etc/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./etc/emacs/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./etc/emacs/site-start.d/ -rw-r--r-- root/root 527 2020-02-18 20:27 ./etc/emacs/site-start.d/50cafeobj-mode.el drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/emacsen-common/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/emacsen-common/packages/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/emacsen-common/packages/compat/ -rw-r--r-- root/root 2 2020-02-18 20:27 ./usr/lib/emacsen-common/packages/compat/cafeobj-mode drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/doc/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/doc/cafeobj-mode/ -rw-r--r-- root/root 2919 2020-01-20 04:57 ./usr/share/doc/cafeobj-mode/README.md -rw-r--r-- root/root 927 2022-07-19 12:22 ./usr/share/doc/cafeobj-mode/changelog.Debian.gz -rw-r--r-- root/root 4858 2020-02-18 20:27 ./usr/share/doc/cafeobj-mode/copyright drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/emacs/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/emacs/site-lisp/ -rw-r--r-- root/root 96113 2022-07-19 12:22 ./usr/share/emacs/site-lisp/cafeobj-mode.el cafeobj_1.6.0-2build1_amd64.deb ------------------------------- new Debian package, version 2.0. size 14003094 bytes: control archive=2701 bytes. 1498 bytes, 31 lines control 4739 bytes, 65 lines md5sums Package: cafeobj Version: 1.6.0-2build1 Architecture: amd64 Maintainer: Ubuntu Developers Original-Maintainer: Norbert Preining Installed-Size: 56049 Depends: libc6 (>= 2.34), zlib1g (>= 1:1.1.4) Section: science Priority: optional Homepage: http://cafeobj.org/ Description: new generation algebraic specification and programming language CafeOBJ is a most advanced formal specification language which inherits many advanced features (e.g. flexible mix-fix syntax, powerful and clear typing system with ordered sorts, parameteric modules and views for instantiating the parameters, and module expressions, etc.) from OBJ (or more exactly OBJ3) algebraic specification language. . CafeOBJ is a language for writing formal (i.e. mathematical) specifications of models for wide varieties of software and systems, and verifying properties of them. CafeOBJ implements equational logic by rewriting and can be used as a powerful interactive theorem proving system. Specifiers can write proof scores also in CafeOBJ and doing proofs by executing the proof scores. . CafeOBJ has state-of-art rigorous logical semantics based on institutions. The CafeOBJ cube shows the structure of the various logics underlying the combination of the various paradigms implemented by the language. Proof scores in CafeOBJ are also based on institution based rigorous semantics, and can be constructed using a complete set of proof rules. drwxr-xr-x root/root 0 2022-07-19 12:22 ./ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/bin/ -rwxr-xr-x root/root 5442 2022-07-19 12:22 ./usr/bin/cafeobj drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/cafeobj-1.6/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/lib/cafeobj-1.6/sbcl/ -rwxr-xr-x root/root 54471256 2022-07-19 12:22 ./usr/lib/cafeobj-1.6/sbcl/cafeobj.sbcl drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/cafeobj-1.6/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/ -rw-r--r-- root/root 1785 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/2tuple.cafe -rw-r--r-- root/root 1939 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/3tuple.cafe -rw-r--r-- root/root 2103 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/4tuple.cafe -rw-r--r-- root/root 2211 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/base_bool.cafe -rw-r--r-- root/root 446 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/bool+.cafe -rw-r--r-- root/root 3993 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/bool.cafe -rw-r--r-- root/root 3705 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/character.cafe -rw-r--r-- root/root 2622 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/eql.cafe -rw-r--r-- root/root 3600 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/float.cafe -rw-r--r-- root/root 14031 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/fopl.cafe -rw-r--r-- root/root 3077 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/identical.cafe -rw-r--r-- root/root 3073 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/int.cafe -rw-r--r-- root/root 15900 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/metalevel.cafe -rw-r--r-- root/root 3131 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/nat.cafe -rw-r--r-- root/root 4823 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/ntruth.cafe -rw-r--r-- root/root 2863 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/nznat.cafe -rw-r--r-- root/root 1635 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/qid.cafe -rw-r--r-- root/root 2933 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/rat.cafe -rw-r--r-- root/root 15409 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/rwl.cafe -rw-r--r-- root/root 3593 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/string.cafe -rw-r--r-- root/root 2407 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/sys_bool.cafe -rw-r--r-- root/root 5351 2022-07-19 12:22 ./usr/share/cafeobj-1.6/lib/truth.cafe drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/cafeobj-1.6/prelude/ -rw-r--r-- root/root 2343 2022-07-19 12:22 ./usr/share/cafeobj-1.6/prelude/std.bin drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/doc/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/doc/cafeobj/ -rw-r--r-- root/root 2919 2020-01-20 04:57 ./usr/share/doc/cafeobj/README.md -rw-r--r-- root/root 82094 2022-07-19 12:22 ./usr/share/doc/cafeobj/binspect.pdf -rw-r--r-- root/root 1591 2022-07-19 12:22 ./usr/share/doc/cafeobj/cafe-citp.txt.gz -rw-r--r-- root/root 14992 2022-07-19 12:22 ./usr/share/doc/cafeobj/cafeobj-logo-small.png -rw-r--r-- root/root 192662 2022-07-19 12:22 ./usr/share/doc/cafeobj/cafeobj-logo.png -rw-r--r-- root/root 22665 2022-07-19 12:22 ./usr/share/doc/cafeobj/cafeobj-mode.el.gz -rw-r--r-- root/root 924 2022-07-19 12:22 ./usr/share/doc/cafeobj/changelog.Debian.gz -rw-r--r-- root/root 213061 2022-07-19 12:22 ./usr/share/doc/cafeobj/citp.pdf -rw-r--r-- root/root 4858 2020-02-18 20:27 ./usr/share/doc/cafeobj/copyright drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/ -rw-r--r-- root/root 4634 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/atm.mod.gz -rw-r--r-- root/root 3001 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/bag.mod -rw-r--r-- root/root 1677 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/bank-account.mod.gz -rw-r--r-- root/root 1628 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/blist.mod -rw-r--r-- root/root 1476 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/bset.mod.gz -rw-r--r-- root/root 2492 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/counter.mod -rw-r--r-- root/root 1466 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/cws.mod.gz -rw-r--r-- root/root 1529 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/debt-red.mod.gz -rw-r--r-- root/root 1189 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/flag.mod -rw-r--r-- root/root 3510 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/hss.mod -rw-r--r-- root/root 1583 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/integer.mod -rw-r--r-- root/root 958 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/list.mod -rw-r--r-- root/root 1597 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/monoid.mod.gz -rw-r--r-- root/root 1145 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/nat-omega.mod -rw-r--r-- root/root 2407 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/nnat-hsa.mod -rw-r--r-- root/root 569 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/nnat-rwl.mod -rw-r--r-- root/root 1468 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/path.mod -rw-r--r-- root/root 1578 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/sieve.mod -rw-r--r-- root/root 738 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/simple-nat.mod -rw-r--r-- root/root 1749 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/sorting.mod.gz -rw-r--r-- root/root 3786 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/tel.mod -rw-r--r-- root/root 1682 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/ubuffer.mod.gz -rw-r--r-- root/root 1560 2022-07-19 12:22 ./usr/share/doc/cafeobj/examples/watch.mod.gz -rw-r--r-- root/root 120999 2022-07-19 12:22 ./usr/share/doc/cafeobj/interp.pdf -rw-r--r-- root/root 1029319 2022-07-19 12:22 ./usr/share/doc/cafeobj/manual.pdf -rw-r--r-- root/root 146514 2022-07-19 12:22 ./usr/share/doc/cafeobj/namespace.pdf -rw-r--r-- root/root 440944 2022-07-19 12:22 ./usr/share/doc/cafeobj/pnguide.pdf -rw-r--r-- root/root 180781 2022-07-19 12:22 ./usr/share/doc/cafeobj/reference-manual.pdf -rw-r--r-- root/root 130631 2022-07-19 12:22 ./usr/share/doc/cafeobj/search-predicate.pdf -rw-r--r-- root/root 122162 2022-07-19 12:22 ./usr/share/doc/cafeobj/syntax.pdf drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/man/ drwxr-xr-x root/root 0 2022-07-19 12:22 ./usr/share/man/man1/ -rw-r--r-- root/root 1420 2022-07-19 12:22 ./usr/share/man/man1/cafeobj.1.gz +------------------------------------------------------------------------------+ | Post Build | +------------------------------------------------------------------------------+ +------------------------------------------------------------------------------+ | Cleanup | +------------------------------------------------------------------------------+ Purging /<> Not removing build depends: as requested +------------------------------------------------------------------------------+ | Summary | +------------------------------------------------------------------------------+ Build Architecture: amd64 Build Type: binary Build-Space: 152256 Build-Time: 68 Distribution: kinetic-proposed Host Architecture: amd64 Install-Time: 4 Job: cafeobj_1.6.0-2build1.dsc Machine Architecture: amd64 Package: cafeobj Package-Time: 73 Source-Version: 1.6.0-2build1 Space: 152256 Status: successful Version: 1.6.0-2build1 -------------------------------------------------------------------------------- Finished at 2022-07-19T12:27:31Z Build needed 00:01:13, 152256k disk space Adding user buildd to group lxd RUN: /usr/share/launchpad-buildd/bin/in-target scan-for-processes --backend=chroot --series=kinetic --arch=amd64 PACKAGEBUILD-24183204 Scanning for processes to kill in build PACKAGEBUILD-24183204