RUN: /usr/share/launchpad-buildd/slavebin/slave-prep ['slave-prep']
Forking launchpad-buildd slave process...
Kernel version: Linux lgw01-53 3.19.0-31-generic #36~14.04.1-Ubuntu SMP Thu Oct 8 10:21:08 UTC 2015 x86_64
Buildd toolchain package versions: launchpad-buildd_135 python-lpbuildd_135 sbuild_0.65.2-1ubuntu2~ubuntu14.04.1~ppa6 bzr-builder_0.7.3+bzr174~ppa13~ubuntu14.04.1 bzr_2.6.0+bzr6593-1ubuntu1.1 dpkg-dev_1.17.5ubuntu5.4 python-debian_0.1.27ubuntu1~ubuntu14.04.1~ppa1.
Syncing the system clock with the buildd NTP service...
 3 Nov 17:14:23 ntpdate[1648]: adjust time server 10.211.37.1 offset -0.000112 sec
RUN: /usr/share/launchpad-buildd/slavebin/unpack-chroot ['unpack-chroot', 'PACKAGEBUILD-8254940', '/home/buildd/filecache-default/8204889cda79fca0b488b979ea0c52fb9d6dbd17']
Unpacking chroot for build PACKAGEBUILD-8254940
RUN: /usr/share/launchpad-buildd/slavebin/mount-chroot ['mount-chroot', 'PACKAGEBUILD-8254940']
Mounting chroot for build PACKAGEBUILD-8254940
RUN: /usr/share/launchpad-buildd/slavebin/override-sources-list ['override-sources-list', 'PACKAGEBUILD-8254940', 'deb http://ftpmaster.internal/ubuntu xenial main universe', 'deb http://ftpmaster.internal/ubuntu xenial-security main universe', 'deb http://ftpmaster.internal/ubuntu xenial-updates main universe', 'deb http://ftpmaster.internal/ubuntu xenial-proposed main universe']
Overriding sources.list in build-PACKAGEBUILD-8254940
RUN: /usr/share/launchpad-buildd/slavebin/update-debian-chroot ['update-debian-chroot', 'PACKAGEBUILD-8254940', 'amd64']
Updating debian chroot for build PACKAGEBUILD-8254940
Get:1 http://ftpmaster.internal xenial InRelease [218 kB]
Get:2 http://ftpmaster.internal xenial-security InRelease [64.4 kB]
Get:3 http://ftpmaster.internal xenial-updates InRelease [64.4 kB]
Get:4 http://ftpmaster.internal xenial-proposed InRelease [64.4 kB]
Get:5 http://ftpmaster.internal xenial/main amd64 Packages [1433 kB]
Get:6 http://ftpmaster.internal xenial/universe amd64 Packages [6885 kB]
Get:7 http://ftpmaster.internal xenial/main Translation-en [839 kB]
Get:8 http://ftpmaster.internal xenial/universe Translation-en [4693 kB]
Get:9 http://ftpmaster.internal xenial-security/main amd64 Packages [28 B]
Get:10 http://ftpmaster.internal xenial-security/universe amd64 Packages [28 B]
Get:11 http://ftpmaster.internal xenial-security/main Translation-en [28 B]
Get:12 http://ftpmaster.internal xenial-security/universe Translation-en [28 B]
Get:13 http://ftpmaster.internal xenial-updates/main amd64 Packages [28 B]
Get:14 http://ftpmaster.internal xenial-updates/universe amd64 Packages [28 B]
Get:15 http://ftpmaster.internal xenial-updates/main Translation-en [28 B]
Get:16 http://ftpmaster.internal xenial-updates/universe Translation-en [28 B]
Get:17 http://ftpmaster.internal xenial-proposed/main amd64 Packages [93.3 kB]
Get:18 http://ftpmaster.internal xenial-proposed/universe amd64 Packages [323 kB]
Get:19 http://ftpmaster.internal xenial-proposed/main Translation-en [50.1 kB]
Get:20 http://ftpmaster.internal xenial-proposed/universe Translation-en [173 kB]
Fetched 14.9 MB in 6s (2234 kB/s)
Reading package lists...
Reading package lists...
Building dependency tree...
Reading state information...
The following package was automatically installed and is no longer required:
  udev
Use 'apt-get autoremove' to remove it.
The following packages will be upgraded:
  advancecomp base-files binutils bsdutils cpp-5 diffutils dpkg dpkg-dev
  e2fslibs e2fsprogs g++-5 gcc-5 gcc-5-base init libasan2 libatomic1
  libaudit-common libaudit1 libblkid1 libcap2 libcap2-bin libcc1-0 libcilkrts5
  libcomerr2 libdpkg-perl libfdisk1 libgcc-5-dev libgcc1 libgcrypt20
  libgnutls-deb0-28 libgomp1 libgpg-error0 libgssapi-krb5-2 libitm1
  libk5crypto3 libkrb5-3 libkrb5support0 liblsan0 libmount1 libmpx0
  libquadmath0 libsmartcols1 libsqlite3-0 libss2 libstdc++-5-dev libstdc++6
  libsystemd0 libtasn1-6 libtsan0 libubsan0 libudev1 libuuid1 linux-libc-dev
  mount pkg-create-dbgsym systemd systemd-sysv udev util-linux
59 upgraded, 0 newly installed, 0 to remove and 0 not upgraded.
Need to get 111 MB of archives.
After this operation, 326 MB of additional disk space will be used.
Get:1 http://ftpmaster.internal/ubuntu/ xenial/main base-files amd64 9.4ubuntu2 [62.2 kB]
Get:2 http://ftpmaster.internal/ubuntu/ xenial-proposed/main bsdutils amd64 1:2.27.1-1ubuntu1 [51.8 kB]
Get:3 http://ftpmaster.internal/ubuntu/ xenial/main diffutils amd64 1:3.3-2 [156 kB]
Get:4 http://ftpmaster.internal/ubuntu/ xenial/main dpkg amd64 1.18.3ubuntu1 [2081 kB]
Get:5 http://ftpmaster.internal/ubuntu/ xenial/main e2fslibs amd64 1.42.13-1ubuntu1 [188 kB]
Get:6 http://ftpmaster.internal/ubuntu/ xenial/main e2fsprogs amd64 1.42.13-1ubuntu1 [771 kB]
Get:7 http://ftpmaster.internal/ubuntu/ xenial/main init amd64 1.24ubuntu1 [4006 B]
Get:8 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libsmartcols1 amd64 2.27.1-1ubuntu1 [62.9 kB]
Get:9 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libuuid1 amd64 2.27.1-1ubuntu1 [15.2 kB]
Get:10 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libblkid1 amd64 2.27.1-1ubuntu1 [107 kB]
Get:11 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libfdisk1 amd64 2.27.1-1ubuntu1 [138 kB]
Get:12 http://ftpmaster.internal/ubuntu/ xenial-proposed/main util-linux amd64 2.27.1-1ubuntu1 [848 kB]
Get:13 http://ftpmaster.internal/ubuntu/ xenial-proposed/main mount amd64 2.27.1-1ubuntu1 [121 kB]
Get:14 http://ftpmaster.internal/ubuntu/ xenial/main udev amd64 227-2ubuntu1 [972 kB]
Get:15 http://ftpmaster.internal/ubuntu/ xenial/main libudev1 amd64 227-2ubuntu1 [56.9 kB]
Get:16 http://ftpmaster.internal/ubuntu/ xenial/main libaudit-common all 1:2.4.4-4ubuntu1 [3892 B]
Get:17 http://ftpmaster.internal/ubuntu/ xenial/main libaudit1 amd64 1:2.4.4-4ubuntu1 [36.3 kB]
Get:18 http://ftpmaster.internal/ubuntu/ xenial/main libcap2 amd64 1:2.24-12 [12.9 kB]
Get:19 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libmount1 amd64 2.27.1-1ubuntu1 [115 kB]
Get:20 http://ftpmaster.internal/ubuntu/ xenial/main libcap2-bin amd64 1:2.24-12 [20.2 kB]
Get:21 http://ftpmaster.internal/ubuntu/ xenial/main libsystemd0 amd64 227-2ubuntu1 [203 kB]
Get:22 http://ftpmaster.internal/ubuntu/ xenial/main systemd amd64 227-2ubuntu1 [3443 kB]
Get:23 http://ftpmaster.internal/ubuntu/ xenial/main systemd-sysv amd64 227-2ubuntu1 [15.0 kB]
Get:24 http://ftpmaster.internal/ubuntu/ xenial/main libgomp1 amd64 5.2.1-23ubuntu1 [55.2 kB]
Get:25 http://ftpmaster.internal/ubuntu/ xenial/main libitm1 amd64 5.2.1-23ubuntu1 [27.4 kB]
Get:26 http://ftpmaster.internal/ubuntu/ xenial/main libatomic1 amd64 5.2.1-23ubuntu1 [8886 B]
Get:27 http://ftpmaster.internal/ubuntu/ xenial/main libasan2 amd64 5.2.1-23ubuntu1 [269 kB]
Get:28 http://ftpmaster.internal/ubuntu/ xenial/main liblsan0 amd64 5.2.1-23ubuntu1 [109 kB]
Get:29 http://ftpmaster.internal/ubuntu/ xenial/main libtsan0 amd64 5.2.1-23ubuntu1 [249 kB]
Get:30 http://ftpmaster.internal/ubuntu/ xenial/main libubsan0 amd64 5.2.1-23ubuntu1 [100 kB]
Get:31 http://ftpmaster.internal/ubuntu/ xenial/main libcilkrts5 amd64 5.2.1-23ubuntu1 [40.0 kB]
Get:32 http://ftpmaster.internal/ubuntu/ xenial/main libmpx0 amd64 5.2.1-23ubuntu1 [9738 B]
Get:33 http://ftpmaster.internal/ubuntu/ xenial/main libquadmath0 amd64 5.2.1-23ubuntu1 [131 kB]
Get:34 http://ftpmaster.internal/ubuntu/ xenial/main cpp-5 amd64 5.2.1-23ubuntu1 [26.4 MB]
Get:35 http://ftpmaster.internal/ubuntu/ xenial/main libcc1-0 amd64 5.2.1-23ubuntu1 [30.9 kB]
Get:36 http://ftpmaster.internal/ubuntu/ xenial/main binutils amd64 2.25.51.20151028-0ubuntu1 [2313 kB]
Get:37 http://ftpmaster.internal/ubuntu/ xenial/main g++-5 amd64 5.2.1-23ubuntu1 [37.0 MB]
Get:38 http://ftpmaster.internal/ubuntu/ xenial/main gcc-5 amd64 5.2.1-23ubuntu1 [26.6 MB]
Get:39 http://ftpmaster.internal/ubuntu/ xenial/main libgcc-5-dev amd64 5.2.1-23ubuntu1 [2233 kB]
Get:40 http://ftpmaster.internal/ubuntu/ xenial/main gcc-5-base amd64 5.2.1-23ubuntu1 [16.6 kB]
Get:41 http://ftpmaster.internal/ubuntu/ xenial/main libstdc++6 amd64 5.2.1-23ubuntu1 [393 kB]
Get:42 http://ftpmaster.internal/ubuntu/ xenial/main libstdc++-5-dev amd64 5.2.1-23ubuntu1 [1421 kB]
Get:43 http://ftpmaster.internal/ubuntu/ xenial/main libgcc1 amd64 1:5.2.1-23ubuntu1 [38.8 kB]
Get:44 http://ftpmaster.internal/ubuntu/ xenial/main libcomerr2 amd64 1.42.13-1ubuntu1 [65.7 kB]
Get:45 http://ftpmaster.internal/ubuntu/ xenial/main libgpg-error0 amd64 1.20-1 [32.8 kB]
Get:46 http://ftpmaster.internal/ubuntu/ xenial/main libgcrypt20 amd64 1.6.4-3 [336 kB]
Get:47 http://ftpmaster.internal/ubuntu/ xenial/main libss2 amd64 1.42.13-1ubuntu1 [70.0 kB]
Get:48 http://ftpmaster.internal/ubuntu/ xenial/main libdpkg-perl all 1.18.3ubuntu1 [195 kB]
Get:49 http://ftpmaster.internal/ubuntu/ xenial/main dpkg-dev all 1.18.3ubuntu1 [583 kB]
Get:50 http://ftpmaster.internal/ubuntu/ xenial/main libtasn1-6 amd64 4.7-2 [43.1 kB]
Get:51 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libgnutls-deb0-28 amd64 3.3.18-1ubuntu1 [520 kB]
Get:52 http://ftpmaster.internal/ubuntu/ xenial/main libsqlite3-0 amd64 3.9.1-2 [395 kB]
Get:53 http://ftpmaster.internal/ubuntu/ xenial/main libgssapi-krb5-2 amd64 1.13.2+dfsg-3 [119 kB]
Get:54 http://ftpmaster.internal/ubuntu/ xenial/main libkrb5-3 amd64 1.13.2+dfsg-3 [273 kB]
Get:55 http://ftpmaster.internal/ubuntu/ xenial/main libkrb5support0 amd64 1.13.2+dfsg-3 [30.2 kB]
Get:56 http://ftpmaster.internal/ubuntu/ xenial/main libk5crypto3 amd64 1.13.2+dfsg-3 [81.3 kB]
Get:57 http://ftpmaster.internal/ubuntu/ xenial/main advancecomp amd64 1.20-1 [160 kB]
Get:58 http://ftpmaster.internal/ubuntu/ xenial-proposed/main linux-libc-dev amd64 4.2.0-17.21 [808 kB]
Get:59 http://ftpmaster.internal/ubuntu/ xenial/main pkg-create-dbgsym all 0.70 [9046 B]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 111 MB in 45s (2411 kB/s)
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11690 files and directories currently installed.)
Preparing to unpack .../base-files_9.4ubuntu2_amd64.deb ...
Unpacking base-files (9.4ubuntu2) over (7.2ubuntu11) ...
Setting up base-files (9.4ubuntu2) ...
Installing new version of config file /etc/debian_version ...
Installing new version of config file /etc/issue ...
Installing new version of config file /etc/issue.net ...
Installing new version of config file /etc/lsb-release ...
Updating /etc/profile to current default.
Updating /etc/nsswitch.conf to current default.
Updating /root/.profile to current default.
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11692 files and directories currently installed.)
Preparing to unpack .../bsdutils_1%3a2.27.1-1ubuntu1_amd64.deb ...
Unpacking bsdutils (1:2.27.1-1ubuntu1) over (1:2.26.2-6ubuntu3) ...
Setting up bsdutils (1:2.27.1-1ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11692 files and directories currently installed.)
Preparing to unpack .../diffutils_1%3a3.3-2_amd64.deb ...
Unpacking diffutils (1:3.3-2) over (1:3.3-1) ...
Setting up diffutils (1:3.3-2) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11692 files and directories currently installed.)
Preparing to unpack .../dpkg_1.18.3ubuntu1_amd64.deb ...
Unpacking dpkg (1.18.3ubuntu1) over (1.18.2ubuntu5) ...
Setting up dpkg (1.18.3ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11692 files and directories currently installed.)
Preparing to unpack .../e2fslibs_1.42.13-1ubuntu1_amd64.deb ...
Unpacking e2fslibs:amd64 (1.42.13-1ubuntu1) over (1.42.12-1ubuntu2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up e2fslibs:amd64 (1.42.13-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11692 files and directories currently installed.)
Preparing to unpack .../e2fsprogs_1.42.13-1ubuntu1_amd64.deb ...
Unpacking e2fsprogs (1.42.13-1ubuntu1) over (1.42.12-1ubuntu2) ...
Setting up e2fsprogs (1.42.13-1ubuntu1) ...
Installing new version of config file /etc/mke2fs.conf ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11693 files and directories currently installed.)
Preparing to unpack .../init_1.24ubuntu1_amd64.deb ...
Unpacking init (1.24ubuntu1) over (1.23ubuntu3) ...
Setting up init (1.24ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11693 files and directories currently installed.)
Preparing to unpack .../libsmartcols1_2.27.1-1ubuntu1_amd64.deb ...
Unpacking libsmartcols1:amd64 (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libsmartcols1:amd64 (2.27.1-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11693 files and directories currently installed.)
Preparing to unpack .../libuuid1_2.27.1-1ubuntu1_amd64.deb ...
Unpacking libuuid1:amd64 (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libuuid1:amd64 (2.27.1-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11693 files and directories currently installed.)
Preparing to unpack .../libblkid1_2.27.1-1ubuntu1_amd64.deb ...
Unpacking libblkid1:amd64 (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libblkid1:amd64 (2.27.1-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11693 files and directories currently installed.)
Preparing to unpack .../libfdisk1_2.27.1-1ubuntu1_amd64.deb ...
Unpacking libfdisk1:amd64 (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libfdisk1:amd64 (2.27.1-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11693 files and directories currently installed.)
Preparing to unpack .../util-linux_2.27.1-1ubuntu1_amd64.deb ...
Unpacking util-linux (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Setting up util-linux (2.27.1-1ubuntu1) ...
Processing triggers for systemd (225-1ubuntu9) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../mount_2.27.1-1ubuntu1_amd64.deb ...
Unpacking mount (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Setting up mount (2.27.1-1ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../udev_227-2ubuntu1_amd64.deb ...
Unpacking udev (227-2ubuntu1) over (225-1ubuntu9) ...
Preparing to unpack .../libudev1_227-2ubuntu1_amd64.deb ...
Unpacking libudev1:amd64 (227-2ubuntu1) over (225-1ubuntu9) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libudev1:amd64 (227-2ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libaudit-common_1%3a2.4.4-4ubuntu1_all.deb ...
Unpacking libaudit-common (1:2.4.4-4ubuntu1) over (1:2.4.2-1ubuntu1) ...
Setting up libaudit-common (1:2.4.4-4ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libaudit1_1%3a2.4.4-4ubuntu1_amd64.deb ...
Unpacking libaudit1:amd64 (1:2.4.4-4ubuntu1) over (1:2.4.2-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libaudit1:amd64 (1:2.4.4-4ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libcap2_1%3a2.24-12_amd64.deb ...
Unpacking libcap2:amd64 (1:2.24-12) over (1:2.24-9) ...
Setting up libcap2:amd64 (1:2.24-12) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libmount1_2.27.1-1ubuntu1_amd64.deb ...
Unpacking libmount1:amd64 (2.27.1-1ubuntu1) over (2.26.2-6ubuntu3) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libmount1:amd64 (2.27.1-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libcap2-bin_1%3a2.24-12_amd64.deb ...
Unpacking libcap2-bin (1:2.24-12) over (1:2.24-9) ...
Setting up libcap2-bin (1:2.24-12) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libsystemd0_227-2ubuntu1_amd64.deb ...
Unpacking libsystemd0:amd64 (227-2ubuntu1) over (225-1ubuntu9) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libsystemd0:amd64 (227-2ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../systemd_227-2ubuntu1_amd64.deb ...
Unpacking systemd (227-2ubuntu1) over (225-1ubuntu9) ...
Setting up systemd (227-2ubuntu1) ...
Installing new version of config file /etc/X11/xinit/xinitrc.d/50-systemd-user.sh ...
Installing new version of config file /etc/systemd/journald.conf ...
Installing new version of config file /etc/systemd/system.conf ...
addgroup: The group `systemd-journal' already exists as a system group. Exiting.
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../systemd-sysv_227-2ubuntu1_amd64.deb ...
Unpacking systemd-sysv (227-2ubuntu1) over (225-1ubuntu9) ...
Setting up systemd-sysv (227-2ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11701 files and directories currently installed.)
Preparing to unpack .../libgomp1_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libgomp1:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libitm1_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libitm1:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libatomic1_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libatomic1:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libasan2_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libasan2:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../liblsan0_5.2.1-23ubuntu1_amd64.deb ...
Unpacking liblsan0:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libtsan0_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libtsan0:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libubsan0_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libubsan0:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libcilkrts5_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libcilkrts5:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libmpx0_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libmpx0:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libquadmath0_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libquadmath0:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../cpp-5_5.2.1-23ubuntu1_amd64.deb ...
Unpacking cpp-5 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libcc1-0_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libcc1-0:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../binutils_2.25.51.20151028-0ubuntu1_amd64.deb ...
Unpacking binutils (2.25.51.20151028-0ubuntu1) over (2.25.1-6ubuntu1) ...
Preparing to unpack .../g++-5_5.2.1-23ubuntu1_amd64.deb ...
Unpacking g++-5 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../gcc-5_5.2.1-23ubuntu1_amd64.deb ...
Unpacking gcc-5 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libgcc-5-dev_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libgcc-5-dev:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../gcc-5-base_5.2.1-23ubuntu1_amd64.deb ...
Unpacking gcc-5-base:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up gcc-5-base:amd64 (5.2.1-23ubuntu1) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libstdc++6_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libstdc++6:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libstdc++6:amd64 (5.2.1-23ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libstdc++-5-dev_5.2.1-23ubuntu1_amd64.deb ...
Unpacking libstdc++-5-dev:amd64 (5.2.1-23ubuntu1) over (5.2.1-22ubuntu2) ...
Preparing to unpack .../libgcc1_1%3a5.2.1-23ubuntu1_amd64.deb ...
Unpacking libgcc1:amd64 (1:5.2.1-23ubuntu1) over (1:5.2.1-22ubuntu2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libgcc1:amd64 (1:5.2.1-23ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libcomerr2_1.42.13-1ubuntu1_amd64.deb ...
Unpacking libcomerr2:amd64 (1.42.13-1ubuntu1) over (1.42.12-1ubuntu2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libcomerr2:amd64 (1.42.13-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libgpg-error0_1.20-1_amd64.deb ...
Unpacking libgpg-error0:amd64 (1.20-1) over (1.19-2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libgpg-error0:amd64 (1.20-1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libgcrypt20_1.6.4-3_amd64.deb ...
Unpacking libgcrypt20:amd64 (1.6.4-3) over (1.6.3-2ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libgcrypt20:amd64 (1.6.4-3) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libss2_1.42.13-1ubuntu1_amd64.deb ...
Unpacking libss2:amd64 (1.42.13-1ubuntu1) over (1.42.12-1ubuntu2) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libss2:amd64 (1.42.13-1ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libdpkg-perl_1.18.3ubuntu1_all.deb ...
Unpacking libdpkg-perl (1.18.3ubuntu1) over (1.18.2ubuntu5) ...
Preparing to unpack .../dpkg-dev_1.18.3ubuntu1_all.deb ...
Unpacking dpkg-dev (1.18.3ubuntu1) over (1.18.2ubuntu5) ...
Preparing to unpack .../libtasn1-6_4.7-2_amd64.deb ...
Unpacking libtasn1-6:amd64 (4.7-2) over (4.5-2) ...
Preparing to unpack .../libgnutls-deb0-28_3.3.18-1ubuntu1_amd64.deb ...
Unpacking libgnutls-deb0-28:amd64 (3.3.18-1ubuntu1) over (3.3.15-5ubuntu2) ...
Preparing to unpack .../libsqlite3-0_3.9.1-2_amd64.deb ...
Unpacking libsqlite3-0:amd64 (3.9.1-2) over (3.8.11.1-1) ...
Preparing to unpack .../libgssapi-krb5-2_1.13.2+dfsg-3_amd64.deb ...
Unpacking libgssapi-krb5-2:amd64 (1.13.2+dfsg-3) over (1.13.2+dfsg-2) ...
Preparing to unpack .../libkrb5-3_1.13.2+dfsg-3_amd64.deb ...
Unpacking libkrb5-3:amd64 (1.13.2+dfsg-3) over (1.13.2+dfsg-2) ...
Preparing to unpack .../libkrb5support0_1.13.2+dfsg-3_amd64.deb ...
Unpacking libkrb5support0:amd64 (1.13.2+dfsg-3) over (1.13.2+dfsg-2) ...
Preparing to unpack .../libk5crypto3_1.13.2+dfsg-3_amd64.deb ...
Unpacking libk5crypto3:amd64 (1.13.2+dfsg-3) over (1.13.2+dfsg-2) ...
Preparing to unpack .../advancecomp_1.20-1_amd64.deb ...
Unpacking advancecomp (1.20-1) over (1.19-1) ...
Preparing to unpack .../linux-libc-dev_4.2.0-17.21_amd64.deb ...
Unpacking linux-libc-dev:amd64 (4.2.0-17.21) over (4.2.0-16.19) ...
Preparing to unpack .../pkg-create-dbgsym_0.70_all.deb ...
Unpacking pkg-create-dbgsym (0.70) over (0.69) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up udev (227-2ubuntu1) ...
Installing new version of config file /etc/init.d/udev ...
addgroup: The group `input' already exists as a system group. Exiting.
virtio network devices detected, disabling predictable interface names in /etc/systemd/network/50-virtio-kernel-names.link
Running in chroot, ignoring request.
invoke-rc.d: policy-rc.d denied execution of restart.
Setting up libgomp1:amd64 (5.2.1-23ubuntu1) ...
Setting up libitm1:amd64 (5.2.1-23ubuntu1) ...
Setting up libatomic1:amd64 (5.2.1-23ubuntu1) ...
Setting up libasan2:amd64 (5.2.1-23ubuntu1) ...
Setting up liblsan0:amd64 (5.2.1-23ubuntu1) ...
Setting up libtsan0:amd64 (5.2.1-23ubuntu1) ...
Setting up libubsan0:amd64 (5.2.1-23ubuntu1) ...
Setting up libcilkrts5:amd64 (5.2.1-23ubuntu1) ...
Setting up libmpx0:amd64 (5.2.1-23ubuntu1) ...
Setting up libquadmath0:amd64 (5.2.1-23ubuntu1) ...
Setting up cpp-5 (5.2.1-23ubuntu1) ...
Setting up libcc1-0:amd64 (5.2.1-23ubuntu1) ...
Setting up binutils (2.25.51.20151028-0ubuntu1) ...
Setting up libgcc-5-dev:amd64 (5.2.1-23ubuntu1) ...
Setting up gcc-5 (5.2.1-23ubuntu1) ...
Setting up libstdc++-5-dev:amd64 (5.2.1-23ubuntu1) ...
Setting up g++-5 (5.2.1-23ubuntu1) ...
Setting up libdpkg-perl (1.18.3ubuntu1) ...
Setting up dpkg-dev (1.18.3ubuntu1) ...
Setting up libtasn1-6:amd64 (4.7-2) ...
Setting up libgnutls-deb0-28:amd64 (3.3.18-1ubuntu1) ...
Setting up libsqlite3-0:amd64 (3.9.1-2) ...
Setting up libkrb5support0:amd64 (1.13.2+dfsg-3) ...
Setting up libk5crypto3:amd64 (1.13.2+dfsg-3) ...
Setting up libkrb5-3:amd64 (1.13.2+dfsg-3) ...
Setting up libgssapi-krb5-2:amd64 (1.13.2+dfsg-3) ...
Setting up advancecomp (1.20-1) ...
Setting up linux-libc-dev:amd64 (4.2.0-17.21) ...
Setting up pkg-create-dbgsym (0.70) ...
Processing triggers for systemd (227-2ubuntu1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
RUN: /usr/share/launchpad-buildd/slavebin/sbuild-package ['sbuild-package', 'PACKAGEBUILD-8254940', 'amd64', 'xenial-proposed', '-c', 'chroot:autobuild', '--arch=amd64', '--dist=xenial-proposed', '--purge=never', '--nolog', '-A', 'cafeobj_1.5.4-2.dsc']
Initiating build PACKAGEBUILD-8254940 with 4 jobs across 4 processor cores.
Kernel reported to sbuild: 3.19.0-31-generic #36~14.04.1-Ubuntu SMP Thu Oct 8 10:21:08 UTC 2015 x86_64
sbuild (Debian sbuild) 0.65.2 (24 Mar 2015) on lgw01-53.buildd

╔══════════════════════════════════════════════════════════════════════════════╗
║ cafeobj 1.5.4-2 (amd64)                                    03 Nov 2015 17:15 ║
╚══════════════════════════════════════════════════════════════════════════════╝

Package: cafeobj
Version: 1.5.4-2
Source Version: 1.5.4-2
Distribution: xenial-proposed
Machine Architecture: amd64
Host Architecture: amd64
Build Architecture: amd64

I: NOTICE: Log filtering will replace 'build/cafeobj-WO9QUf/cafeobj-1.5.4' with '«PKGBUILDDIR»'
I: NOTICE: Log filtering will replace 'build/cafeobj-WO9QUf' with '«BUILDDIR»'
I: NOTICE: Log filtering will replace 'home/buildd/build-PACKAGEBUILD-8254940/chroot-autobuild' with '«CHROOT»'

┌──────────────────────────────────────────────────────────────────────────────┐
│ Fetch source files                                                           │
└──────────────────────────────────────────────────────────────────────────────┘


Local sources
─────────────

cafeobj_1.5.4-2.dsc exists in .; copying to chroot

Check architectures
───────────────────


Check dependencies
──────────────────

Merged Build-Depends: build-essential, fakeroot
Filtered Build-Depends: build-essential, fakeroot
dpkg-deb: building package 'sbuild-build-depends-core-dummy' in '/«BUILDDIR»/resolver-tc62WU/apt_archive/sbuild-build-depends-core-dummy.deb'.
Ign file: ./ InRelease
Ign file: ./ Release.gpg
Get:1 file: ./ Release [2119 B]
Ign file: ./ Translation-en
Reading package lists...
Reading package lists...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Install core build dependencies (apt-based resolver)                         │
└──────────────────────────────────────────────────────────────────────────────┘

Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following NEW packages will be installed:
  sbuild-build-depends-core-dummy
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 0 B/770 B of archives.
After this operation, 0 B of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  sbuild-build-depends-core-dummy
debconf: delaying package configuration, since apt-utils is not installed
Authentication warning overridden.
Selecting previously unselected package sbuild-build-depends-core-dummy.
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../sbuild-build-depends-core-dummy.deb ...
Unpacking sbuild-build-depends-core-dummy (0.invalid.0) ...
Setting up sbuild-build-depends-core-dummy (0.invalid.0) ...
Merged Build-Depends: base-files, base-passwd, bash, bsdutils, coreutils, dash, debianutils, diffutils, dpkg, e2fsprogs, findutils, grep, gzip, hostname, init, libc-bin, login, mount, ncurses-base, ncurses-bin, perl-base, sed, tar, util-linux, libc6-dev | libc-dev, gcc (>= 4:5.2), g++ (>= 4:5.2), make, dpkg-dev (>= 1.17.11), debhelper (>= 8.1.0~), sbcl, fonts-mplus, fonts-freefont-otf, texlive-latex-recommended, texlive-fonts-recommended, texlive-latex-extra, texlive-bibtex-extra, texlive-xetex, lmodern, pandoc, pandoc-citeproc
Filtered Build-Depends: base-files, base-passwd, bash, bsdutils, coreutils, dash, debianutils, diffutils, dpkg, e2fsprogs, findutils, grep, gzip, hostname, init, libc-bin, login, mount, ncurses-base, ncurses-bin, perl-base, sed, tar, util-linux, libc6-dev | libc-dev, gcc (>= 4:5.2), g++ (>= 4:5.2), make, dpkg-dev (>= 1.17.11), debhelper (>= 8.1.0~), sbcl, fonts-mplus, fonts-freefont-otf, texlive-latex-recommended, texlive-fonts-recommended, texlive-latex-extra, texlive-bibtex-extra, texlive-xetex, lmodern, pandoc, pandoc-citeproc
dpkg-deb: building package 'sbuild-build-depends-cafeobj-dummy' in '/«BUILDDIR»/resolver-zjEifV/apt_archive/sbuild-build-depends-cafeobj-dummy.deb'.
Ign file: ./ InRelease
Ign file: ./ Release.gpg
Get:1 file: ./ Release [2119 B]
Ign file: ./ Translation-en
Reading package lists...
Reading package lists...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Install cafeobj build dependencies (apt-based resolver)                      │
└──────────────────────────────────────────────────────────────────────────────┘

Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following extra packages will be installed:
  bsdmainutils debhelper file fontconfig-config fonts-dejavu-core
  fonts-freefont-otf fonts-lmodern fonts-mplus gettext gettext-base groff-base
  intltool-debian libasprintf0v5 libavahi-client3 libavahi-common-data
  libavahi-common3 libbibutils2 libcroco3 libcups2 libcupsfilters1
  libcupsimage2 libexpat1 libfontconfig1 libfreetype6
  libghc-pandoc-citeproc-data libglib2.0-0 libgraphite2-3 libgs9 libgs9-common
  libharfbuzz-icu0 libharfbuzz0b libice6 libicu55 libijs-0.35 libjbig0
  libjbig2dec0 libjpeg-turbo8 libjpeg8 libkpathsea6 liblcms2-2 liblua5.1-0
  libmagic1 libpaper-utils libpaper1 libpipeline1 libpixman-1-0 libpoppler56
  libpotrace0 libptexenc1 libpython-stdlib libpython2.7-minimal
  libpython2.7-stdlib libsm6 libsynctex1 libtexlua52 libtexluajit2 libtiff5
  libunistring0 libx11-6 libx11-data libxau6 libxaw7 libxcb1 libxdmcp6
  libxext6 libxi6 libxml2 libxmu6 libxpm4 libxt6 libyaml-0-2 libzzip-0-13
  lmodern man-db mime-support pandoc pandoc-citeproc pandoc-data po-debconf
  poppler-data preview-latex-style python python-minimal python2.7
  python2.7-minimal sbcl t1utils tex-common texlive-base texlive-bibtex-extra
  texlive-binaries texlive-fonts-recommended texlive-latex-base
  texlive-latex-extra texlive-latex-recommended texlive-pictures texlive-xetex
  tipa ucf x11-common xdg-utils
Suggested packages:
  wamerican wordlist whois vacation dh-make gettext-doc groff cups-common
  fonts-droid texlive-lang-cjk liblcms2-utils less www-browser texlive-luatex
  etoolbox libmail-box-perl poppler-utils ghostscript fonts-japanese-mincho
  fonts-ipafont-mincho fonts-japanese-gothic fonts-ipafont-gothic
  fonts-arphic-ukai fonts-arphic-uming fonts-nanum python-doc python-tk
  python2.7-doc binfmt-support sbcl-doc sbcl-source slime gv postscript-viewer
  xpdf-reader pdf-viewer perl-tk libfile-which-perl
  libspreadsheet-parseexcel-perl python-pygments texlive-pstricks dot2tex
  libtcltk-ruby prerex gvfs-bin
Recommended packages:
  curl wget lynx-cur libasprintf-dev libgettextpo-dev libglib2.0-data
  shared-mime-info xdg-user-dirs xml-core libmail-sendmail-perl ruby wish
  tex-gyre texlive-fonts-recommended-doc texlive-latex-base-doc
  texlive-latex-extra-doc prosper texlive-latex-recommended-doc
  texlive-pictures-doc libfile-mimeinfo-perl libnet-dbus-perl
  libx11-protocol-perl x11-utils x11-xserver-utils
The following NEW packages will be installed:
  bsdmainutils debhelper file fontconfig-config fonts-dejavu-core
  fonts-freefont-otf fonts-lmodern fonts-mplus gettext gettext-base groff-base
  intltool-debian libasprintf0v5 libavahi-client3 libavahi-common-data
  libavahi-common3 libbibutils2 libcroco3 libcups2 libcupsfilters1
  libcupsimage2 libexpat1 libfontconfig1 libfreetype6
  libghc-pandoc-citeproc-data libglib2.0-0 libgraphite2-3 libgs9 libgs9-common
  libharfbuzz-icu0 libharfbuzz0b libice6 libicu55 libijs-0.35 libjbig0
  libjbig2dec0 libjpeg-turbo8 libjpeg8 libkpathsea6 liblcms2-2 liblua5.1-0
  libmagic1 libpaper-utils libpaper1 libpipeline1 libpixman-1-0 libpoppler56
  libpotrace0 libptexenc1 libpython-stdlib libpython2.7-minimal
  libpython2.7-stdlib libsm6 libsynctex1 libtexlua52 libtexluajit2 libtiff5
  libunistring0 libx11-6 libx11-data libxau6 libxaw7 libxcb1 libxdmcp6
  libxext6 libxi6 libxml2 libxmu6 libxpm4 libxt6 libyaml-0-2 libzzip-0-13
  lmodern man-db mime-support pandoc pandoc-citeproc pandoc-data po-debconf
  poppler-data preview-latex-style python python-minimal python2.7
  python2.7-minimal sbcl sbuild-build-depends-cafeobj-dummy t1utils tex-common
  texlive-base texlive-bibtex-extra texlive-binaries texlive-fonts-recommended
  texlive-latex-base texlive-latex-extra texlive-latex-recommended
  texlive-pictures texlive-xetex tipa ucf x11-common xdg-utils
0 upgraded, 102 newly installed, 0 to remove and 0 not upgraded.
Need to get 193 MB/193 MB of archives.
After this operation, 727 MB of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  sbuild-build-depends-cafeobj-dummy
Authentication warning overridden.
Get:1 http://ftpmaster.internal/ubuntu/ xenial/main libasprintf0v5 amd64 0.19.4-1ubuntu3 [6676 B]
Get:2 http://ftpmaster.internal/ubuntu/ xenial/main libxau6 amd64 1:1.0.8-1 [8376 B]
Get:3 http://ftpmaster.internal/ubuntu/ xenial/main libxdmcp6 amd64 1:1.1.2-1 [11.2 kB]
Get:4 http://ftpmaster.internal/ubuntu/ xenial/main libxcb1 amd64 1.11-0ubuntu1 [40.1 kB]
Get:5 http://ftpmaster.internal/ubuntu/ xenial/main libx11-data all 2:1.6.3-1ubuntu2 [113 kB]
Get:6 http://ftpmaster.internal/ubuntu/ xenial/main libx11-6 amd64 2:1.6.3-1ubuntu2 [571 kB]
Get:7 http://ftpmaster.internal/ubuntu/ xenial/main libxext6 amd64 2:1.3.3-1 [29.4 kB]
Get:8 http://ftpmaster.internal/ubuntu/ xenial/main groff-base amd64 1.22.3-1 [1183 kB]
Get:9 http://ftpmaster.internal/ubuntu/ xenial/main bsdmainutils amd64 9.0.6ubuntu1 [175 kB]
Get:10 http://ftpmaster.internal/ubuntu/ xenial/main libpipeline1 amd64 1.4.1-1 [24.9 kB]
Get:11 http://ftpmaster.internal/ubuntu/ xenial/main man-db amd64 2.7.4-1 [858 kB]
Get:12 http://ftpmaster.internal/ubuntu/ xenial/main libavahi-common-data amd64 0.6.31-4ubuntu4 [21.1 kB]
Get:13 http://ftpmaster.internal/ubuntu/ xenial/main libavahi-common3 amd64 0.6.31-4ubuntu4 [22.0 kB]
Get:14 http://ftpmaster.internal/ubuntu/ xenial/main libavahi-client3 amd64 0.6.31-4ubuntu4 [25.7 kB]
Get:15 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libglib2.0-0 amd64 2.46.1-2 [1108 kB]
Get:16 http://ftpmaster.internal/ubuntu/ xenial/main libicu55 amd64 55.1-4ubuntu1 [7652 kB]
Get:17 http://ftpmaster.internal/ubuntu/ xenial/main libxml2 amd64 2.9.2+zdfsg1-4 [692 kB]
Get:18 http://ftpmaster.internal/ubuntu/ xenial/main libcroco3 amd64 0.6.8-3 [83.2 kB]
Get:19 http://ftpmaster.internal/ubuntu/ xenial/main fonts-dejavu-core all 2.35-1 [1039 kB]
Get:20 http://ftpmaster.internal/ubuntu/ xenial/main ucf all 3.0030 [55.5 kB]
Get:21 http://ftpmaster.internal/ubuntu/ xenial/main fontconfig-config all 2.11.1-0ubuntu6 [48.7 kB]
Get:22 http://ftpmaster.internal/ubuntu/ xenial/main libexpat1 amd64 2.1.0-7 [71.4 kB]
Get:23 http://ftpmaster.internal/ubuntu/ xenial/main libfreetype6 amd64 2.5.2-4ubuntu2 [312 kB]
Get:24 http://ftpmaster.internal/ubuntu/ xenial/main libfontconfig1 amd64 2.11.1-0ubuntu6 [127 kB]
Get:25 http://ftpmaster.internal/ubuntu/ xenial/main libgraphite2-3 amd64 1.2.4-3ubuntu1 [54.6 kB]
Get:26 http://ftpmaster.internal/ubuntu/ xenial/main x11-common all 1:7.7+7ubuntu4 [58.6 kB]
Get:27 http://ftpmaster.internal/ubuntu/ xenial/main libice6 amd64 2:1.0.9-1 [39.2 kB]
Get:28 http://ftpmaster.internal/ubuntu/ xenial/main libjpeg-turbo8 amd64 1.3.0-0ubuntu2 [104 kB]
Get:29 http://ftpmaster.internal/ubuntu/ xenial/main liblcms2-2 amd64 2.6-3ubuntu2 [137 kB]
Get:30 http://ftpmaster.internal/ubuntu/ xenial/main libpaper1 amd64 1.1.24+nmu2ubuntu3 [13.4 kB]
Get:31 http://ftpmaster.internal/ubuntu/ xenial/main libsm6 amd64 2:1.2.2-1 [15.8 kB]
Get:32 http://ftpmaster.internal/ubuntu/ xenial/main libunistring0 amd64 0.9.3-5.2ubuntu1 [279 kB]
Get:33 http://ftpmaster.internal/ubuntu/ xenial/main libxpm4 amd64 1:3.5.11-1 [33.1 kB]
Get:34 http://ftpmaster.internal/ubuntu/ xenial/main libyaml-0-2 amd64 0.1.6-3 [47.6 kB]
Get:35 http://ftpmaster.internal/ubuntu/ xenial/main libzzip-0-13 amd64 0.13.62-3 [26.1 kB]
Get:36 http://ftpmaster.internal/ubuntu/ xenial/main poppler-data all 0.4.7-3 [1473 kB]
Get:37 http://ftpmaster.internal/ubuntu/ xenial/main libpython2.7-minimal amd64 2.7.10-4ubuntu1 [337 kB]
Get:38 http://ftpmaster.internal/ubuntu/ xenial/main python2.7-minimal amd64 2.7.10-4ubuntu1 [1262 kB]
Get:39 http://ftpmaster.internal/ubuntu/ xenial/main python-minimal amd64 2.7.9-1 [28.2 kB]
Get:40 http://ftpmaster.internal/ubuntu/ xenial/main mime-support all 3.59ubuntu1 [31.0 kB]
Get:41 http://ftpmaster.internal/ubuntu/ xenial/main libpython2.7-stdlib amd64 2.7.10-4ubuntu1 [1795 kB]
Get:42 http://ftpmaster.internal/ubuntu/ xenial/main python2.7 amd64 2.7.10-4ubuntu1 [210 kB]
Get:43 http://ftpmaster.internal/ubuntu/ xenial/main libpython-stdlib amd64 2.7.9-1 [7754 B]
Get:44 http://ftpmaster.internal/ubuntu/ xenial/main python amd64 2.7.9-1 [137 kB]
Get:45 http://ftpmaster.internal/ubuntu/ xenial/main libjbig0 amd64 2.1-3.1 [26.6 kB]
Get:46 http://ftpmaster.internal/ubuntu/ xenial/main libmagic1 amd64 1:5.22+15-2ubuntu1 [211 kB]
Get:47 http://ftpmaster.internal/ubuntu/ xenial/main file amd64 1:5.22+15-2ubuntu1 [20.7 kB]
Get:48 http://ftpmaster.internal/ubuntu/ xenial/main gettext-base amd64 0.19.4-1ubuntu3 [48.3 kB]
Get:49 http://ftpmaster.internal/ubuntu/ xenial/main gettext amd64 0.19.4-1ubuntu3 [857 kB]
Get:50 http://ftpmaster.internal/ubuntu/ xenial/main intltool-debian all 0.35.0+20060710.4 [24.9 kB]
Get:51 http://ftpmaster.internal/ubuntu/ xenial/main po-debconf all 1.0.18 [234 kB]
Get:52 http://ftpmaster.internal/ubuntu/ xenial/main debhelper all 9.20151005ubuntu1 [729 kB]
Get:53 http://ftpmaster.internal/ubuntu/ xenial/universe fonts-freefont-otf all 20120503-4 [3068 kB]
Get:54 http://ftpmaster.internal/ubuntu/ xenial/main tex-common all 6.04 [545 kB]
Get:55 http://ftpmaster.internal/ubuntu/ xenial/main fonts-lmodern all 2.004.5-1 [4553 kB]
Get:56 http://ftpmaster.internal/ubuntu/ xenial/universe fonts-mplus all 057-2 [18.4 MB]
Get:57 http://ftpmaster.internal/ubuntu/ xenial/universe libbibutils2 amd64 4.12-5 [353 kB]
Get:58 http://ftpmaster.internal/ubuntu/ xenial/main libcups2 amd64 2.1.0-5 [195 kB]
Get:59 http://ftpmaster.internal/ubuntu/ xenial/main libjpeg8 amd64 8c-2ubuntu8 [2194 B]
Get:60 http://ftpmaster.internal/ubuntu/ xenial/main libtiff5 amd64 4.0.5-1 [144 kB]
Get:61 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libcupsfilters1 amd64 1.1.0-1 [76.7 kB]
Get:62 http://ftpmaster.internal/ubuntu/ xenial/main libcupsimage2 amd64 2.1.0-5 [16.0 kB]
Get:63 http://ftpmaster.internal/ubuntu/ xenial/main libijs-0.35 amd64 0.35-11 [15.5 kB]
Get:64 http://ftpmaster.internal/ubuntu/ xenial/main libjbig2dec0 amd64 0.12+20150918-1 [55.1 kB]
Get:65 http://ftpmaster.internal/ubuntu/ xenial/main libgs9-common all 9.16~dfsg~0-0ubuntu3 [2938 kB]
Get:66 http://ftpmaster.internal/ubuntu/ xenial/main libgs9 amd64 9.16~dfsg~0-0ubuntu3 [2062 kB]
Get:67 http://ftpmaster.internal/ubuntu/ xenial/main libharfbuzz0b amd64 1.0.1-1build2 [140 kB]
Get:68 http://ftpmaster.internal/ubuntu/ xenial/main libharfbuzz-icu0 amd64 1.0.1-1build2 [5282 B]
Get:69 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libkpathsea6 amd64 2015.20150524.37493-7build1 [54.9 kB]
Get:70 http://ftpmaster.internal/ubuntu/ xenial/main liblua5.1-0 amd64 5.1.5-8 [102 kB]
Get:71 http://ftpmaster.internal/ubuntu/ xenial/main libpaper-utils amd64 1.1.24+nmu2ubuntu3 [8244 B]
Get:72 http://ftpmaster.internal/ubuntu/ xenial/main libpixman-1-0 amd64 0.33.2-2 [231 kB]
Get:73 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libpoppler56 amd64 0.37.0-0ubuntu1 [754 kB]
Get:74 http://ftpmaster.internal/ubuntu/ xenial/main libpotrace0 amd64 1.12-1 [17.8 kB]
Get:75 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libptexenc1 amd64 2015.20150524.37493-7build1 [34.4 kB]
Get:76 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libsynctex1 amd64 2015.20150524.37493-7build1 [41.4 kB]
Get:77 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libtexlua52 amd64 2015.20150524.37493-7build1 [90.5 kB]
Get:78 http://ftpmaster.internal/ubuntu/ xenial-proposed/main libtexluajit2 amd64 2015.20150524.37493-7build1 [213 kB]
Get:79 http://ftpmaster.internal/ubuntu/ xenial/main libxt6 amd64 1:1.1.5-0ubuntu1 [160 kB]
Get:80 http://ftpmaster.internal/ubuntu/ xenial/main libxmu6 amd64 2:1.1.2-1ubuntu1 [46.0 kB]
Get:81 http://ftpmaster.internal/ubuntu/ xenial/main libxaw7 amd64 2:1.0.13-1 [173 kB]
Get:82 http://ftpmaster.internal/ubuntu/ xenial/main libxi6 amd64 2:1.7.5-1 [28.6 kB]
Get:83 http://ftpmaster.internal/ubuntu/ xenial/main lmodern all 2.004.5-1 [9571 kB]
Get:84 http://ftpmaster.internal/ubuntu/ xenial/universe pandoc-data all 1.13.2.1~dfsg-1build6 [76.4 kB]
Get:85 http://ftpmaster.internal/ubuntu/ xenial/universe pandoc amd64 1.13.2.1~dfsg-1build6 [6081 kB]
Get:86 http://ftpmaster.internal/ubuntu/ xenial/main preview-latex-style all 11.88-1ubuntu1 [186 kB]
Get:87 http://ftpmaster.internal/ubuntu/ xenial/universe sbcl amd64 2:1.2.14-1ubuntu1 [9013 kB]
Get:88 http://ftpmaster.internal/ubuntu/ xenial/main t1utils amd64 1.38-4 [52.5 kB]
Get:89 http://ftpmaster.internal/ubuntu/ xenial-proposed/main texlive-binaries amd64 2015.20150524.37493-7build1 [9492 kB]
Get:90 http://ftpmaster.internal/ubuntu/ xenial/main xdg-utils all 1.1.0~rc3+git20150907-1ubuntu2 [58.3 kB]
Get:91 http://ftpmaster.internal/ubuntu/ xenial/main texlive-base all 2015.20150625-1ubuntu1 [18.1 MB]
Get:92 http://ftpmaster.internal/ubuntu/ xenial/main texlive-latex-base all 2015.20150625-1ubuntu1 [968 kB]
Get:93 http://ftpmaster.internal/ubuntu/ xenial/main texlive-bibtex-extra all 2015.20151016-1 [35.4 MB]
Get:94 http://ftpmaster.internal/ubuntu/ xenial/main texlive-fonts-recommended all 2015.20150625-1ubuntu1 [5704 kB]
Get:95 http://ftpmaster.internal/ubuntu/ xenial/main texlive-latex-recommended all 2015.20150625-1ubuntu1 [10.2 MB]
Get:96 http://ftpmaster.internal/ubuntu/ xenial/main texlive-pictures all 2015.20150625-1ubuntu1 [3089 kB]
Get:97 http://ftpmaster.internal/ubuntu/ xenial/main texlive-latex-extra all 2015.20151016-1 [10.7 MB]
Get:98 http://ftpmaster.internal/ubuntu/ xenial/main tipa all 2:1.3-20 [2978 kB]
Get:99 http://ftpmaster.internal/ubuntu/ xenial/universe texlive-xetex all 2015.20150625-1ubuntu1 [9488 kB]
Get:100 http://ftpmaster.internal/ubuntu/ xenial/universe libghc-pandoc-citeproc-data all 0.6.0.1-1build4 [44.7 kB]
Get:101 http://ftpmaster.internal/ubuntu/ xenial/universe pandoc-citeproc amd64 0.6.0.1-1build4 [5128 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 193 MB in 28s (6837 kB/s)
Selecting previously unselected package libasprintf0v5:amd64.
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 11721 files and directories currently installed.)
Preparing to unpack .../libasprintf0v5_0.19.4-1ubuntu3_amd64.deb ...
Unpacking libasprintf0v5:amd64 (0.19.4-1ubuntu3) ...
Selecting previously unselected package libxau6:amd64.
Preparing to unpack .../libxau6_1%3a1.0.8-1_amd64.deb ...
Unpacking libxau6:amd64 (1:1.0.8-1) ...
Selecting previously unselected package libxdmcp6:amd64.
Preparing to unpack .../libxdmcp6_1%3a1.1.2-1_amd64.deb ...
Unpacking libxdmcp6:amd64 (1:1.1.2-1) ...
Selecting previously unselected package libxcb1:amd64.
Preparing to unpack .../libxcb1_1.11-0ubuntu1_amd64.deb ...
Unpacking libxcb1:amd64 (1.11-0ubuntu1) ...
Selecting previously unselected package libx11-data.
Preparing to unpack .../libx11-data_2%3a1.6.3-1ubuntu2_all.deb ...
Unpacking libx11-data (2:1.6.3-1ubuntu2) ...
Selecting previously unselected package libx11-6:amd64.
Preparing to unpack .../libx11-6_2%3a1.6.3-1ubuntu2_amd64.deb ...
Unpacking libx11-6:amd64 (2:1.6.3-1ubuntu2) ...
Selecting previously unselected package libxext6:amd64.
Preparing to unpack .../libxext6_2%3a1.3.3-1_amd64.deb ...
Unpacking libxext6:amd64 (2:1.3.3-1) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../groff-base_1.22.3-1_amd64.deb ...
Unpacking groff-base (1.22.3-1) ...
Selecting previously unselected package bsdmainutils.
Preparing to unpack .../bsdmainutils_9.0.6ubuntu1_amd64.deb ...
Unpacking bsdmainutils (9.0.6ubuntu1) ...
Selecting previously unselected package libpipeline1:amd64.
Preparing to unpack .../libpipeline1_1.4.1-1_amd64.deb ...
Unpacking libpipeline1:amd64 (1.4.1-1) ...
Selecting previously unselected package man-db.
Preparing to unpack .../man-db_2.7.4-1_amd64.deb ...
Unpacking man-db (2.7.4-1) ...
Selecting previously unselected package libavahi-common-data:amd64.
Preparing to unpack .../libavahi-common-data_0.6.31-4ubuntu4_amd64.deb ...
Unpacking libavahi-common-data:amd64 (0.6.31-4ubuntu4) ...
Selecting previously unselected package libavahi-common3:amd64.
Preparing to unpack .../libavahi-common3_0.6.31-4ubuntu4_amd64.deb ...
Unpacking libavahi-common3:amd64 (0.6.31-4ubuntu4) ...
Selecting previously unselected package libavahi-client3:amd64.
Preparing to unpack .../libavahi-client3_0.6.31-4ubuntu4_amd64.deb ...
Unpacking libavahi-client3:amd64 (0.6.31-4ubuntu4) ...
Selecting previously unselected package libglib2.0-0:amd64.
Preparing to unpack .../libglib2.0-0_2.46.1-2_amd64.deb ...
Unpacking libglib2.0-0:amd64 (2.46.1-2) ...
Selecting previously unselected package libicu55:amd64.
Preparing to unpack .../libicu55_55.1-4ubuntu1_amd64.deb ...
Unpacking libicu55:amd64 (55.1-4ubuntu1) ...
Selecting previously unselected package libxml2:amd64.
Preparing to unpack .../libxml2_2.9.2+zdfsg1-4_amd64.deb ...
Unpacking libxml2:amd64 (2.9.2+zdfsg1-4) ...
Selecting previously unselected package libcroco3:amd64.
Preparing to unpack .../libcroco3_0.6.8-3_amd64.deb ...
Unpacking libcroco3:amd64 (0.6.8-3) ...
Selecting previously unselected package fonts-dejavu-core.
Preparing to unpack .../fonts-dejavu-core_2.35-1_all.deb ...
Unpacking fonts-dejavu-core (2.35-1) ...
Selecting previously unselected package ucf.
Preparing to unpack .../archives/ucf_3.0030_all.deb ...
Moving old data out of the way
Unpacking ucf (3.0030) ...
Selecting previously unselected package fontconfig-config.
Preparing to unpack .../fontconfig-config_2.11.1-0ubuntu6_all.deb ...
Unpacking fontconfig-config (2.11.1-0ubuntu6) ...
Selecting previously unselected package libexpat1:amd64.
Preparing to unpack .../libexpat1_2.1.0-7_amd64.deb ...
Unpacking libexpat1:amd64 (2.1.0-7) ...
Selecting previously unselected package libfreetype6:amd64.
Preparing to unpack .../libfreetype6_2.5.2-4ubuntu2_amd64.deb ...
Unpacking libfreetype6:amd64 (2.5.2-4ubuntu2) ...
Selecting previously unselected package libfontconfig1:amd64.
Preparing to unpack .../libfontconfig1_2.11.1-0ubuntu6_amd64.deb ...
Unpacking libfontconfig1:amd64 (2.11.1-0ubuntu6) ...
Selecting previously unselected package libgraphite2-3:amd64.
Preparing to unpack .../libgraphite2-3_1.2.4-3ubuntu1_amd64.deb ...
Unpacking libgraphite2-3:amd64 (1.2.4-3ubuntu1) ...
Selecting previously unselected package x11-common.
Preparing to unpack .../x11-common_1%3a7.7+7ubuntu4_all.deb ...
Unpacking x11-common (1:7.7+7ubuntu4) ...
Selecting previously unselected package libice6:amd64.
Preparing to unpack .../libice6_2%3a1.0.9-1_amd64.deb ...
Unpacking libice6:amd64 (2:1.0.9-1) ...
Selecting previously unselected package libjpeg-turbo8:amd64.
Preparing to unpack .../libjpeg-turbo8_1.3.0-0ubuntu2_amd64.deb ...
Unpacking libjpeg-turbo8:amd64 (1.3.0-0ubuntu2) ...
Selecting previously unselected package liblcms2-2:amd64.
Preparing to unpack .../liblcms2-2_2.6-3ubuntu2_amd64.deb ...
Unpacking liblcms2-2:amd64 (2.6-3ubuntu2) ...
Selecting previously unselected package libpaper1:amd64.
Preparing to unpack .../libpaper1_1.1.24+nmu2ubuntu3_amd64.deb ...
Unpacking libpaper1:amd64 (1.1.24+nmu2ubuntu3) ...
Selecting previously unselected package libsm6:amd64.
Preparing to unpack .../libsm6_2%3a1.2.2-1_amd64.deb ...
Unpacking libsm6:amd64 (2:1.2.2-1) ...
Selecting previously unselected package libunistring0:amd64.
Preparing to unpack .../libunistring0_0.9.3-5.2ubuntu1_amd64.deb ...
Unpacking libunistring0:amd64 (0.9.3-5.2ubuntu1) ...
Selecting previously unselected package libxpm4:amd64.
Preparing to unpack .../libxpm4_1%3a3.5.11-1_amd64.deb ...
Unpacking libxpm4:amd64 (1:3.5.11-1) ...
Selecting previously unselected package libyaml-0-2:amd64.
Preparing to unpack .../libyaml-0-2_0.1.6-3_amd64.deb ...
Unpacking libyaml-0-2:amd64 (0.1.6-3) ...
Selecting previously unselected package libzzip-0-13:amd64.
Preparing to unpack .../libzzip-0-13_0.13.62-3_amd64.deb ...
Unpacking libzzip-0-13:amd64 (0.13.62-3) ...
Selecting previously unselected package poppler-data.
Preparing to unpack .../poppler-data_0.4.7-3_all.deb ...
Unpacking poppler-data (0.4.7-3) ...
Selecting previously unselected package libpython2.7-minimal:amd64.
Preparing to unpack .../libpython2.7-minimal_2.7.10-4ubuntu1_amd64.deb ...
Unpacking libpython2.7-minimal:amd64 (2.7.10-4ubuntu1) ...
Selecting previously unselected package python2.7-minimal.
Preparing to unpack .../python2.7-minimal_2.7.10-4ubuntu1_amd64.deb ...
Unpacking python2.7-minimal (2.7.10-4ubuntu1) ...
Selecting previously unselected package python-minimal.
Preparing to unpack .../python-minimal_2.7.9-1_amd64.deb ...
Unpacking python-minimal (2.7.9-1) ...
Selecting previously unselected package mime-support.
Preparing to unpack .../mime-support_3.59ubuntu1_all.deb ...
Unpacking mime-support (3.59ubuntu1) ...
Selecting previously unselected package libpython2.7-stdlib:amd64.
Preparing to unpack .../libpython2.7-stdlib_2.7.10-4ubuntu1_amd64.deb ...
Unpacking libpython2.7-stdlib:amd64 (2.7.10-4ubuntu1) ...
Selecting previously unselected package python2.7.
Preparing to unpack .../python2.7_2.7.10-4ubuntu1_amd64.deb ...
Unpacking python2.7 (2.7.10-4ubuntu1) ...
Selecting previously unselected package libpython-stdlib:amd64.
Preparing to unpack .../libpython-stdlib_2.7.9-1_amd64.deb ...
Unpacking libpython-stdlib:amd64 (2.7.9-1) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Processing triggers for systemd (227-2ubuntu1) ...
Setting up libpython2.7-minimal:amd64 (2.7.10-4ubuntu1) ...
Setting up python2.7-minimal (2.7.10-4ubuntu1) ...
Setting up python-minimal (2.7.9-1) ...
Selecting previously unselected package python.
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 14135 files and directories currently installed.)
Preparing to unpack .../python_2.7.9-1_amd64.deb ...
Unpacking python (2.7.9-1) ...
Selecting previously unselected package libjbig0:amd64.
Preparing to unpack .../libjbig0_2.1-3.1_amd64.deb ...
Unpacking libjbig0:amd64 (2.1-3.1) ...
Selecting previously unselected package libmagic1:amd64.
Preparing to unpack .../libmagic1_1%3a5.22+15-2ubuntu1_amd64.deb ...
Unpacking libmagic1:amd64 (1:5.22+15-2ubuntu1) ...
Selecting previously unselected package file.
Preparing to unpack .../file_1%3a5.22+15-2ubuntu1_amd64.deb ...
Unpacking file (1:5.22+15-2ubuntu1) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../gettext-base_0.19.4-1ubuntu3_amd64.deb ...
Unpacking gettext-base (0.19.4-1ubuntu3) ...
Selecting previously unselected package gettext.
Preparing to unpack .../gettext_0.19.4-1ubuntu3_amd64.deb ...
Unpacking gettext (0.19.4-1ubuntu3) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../intltool-debian_0.35.0+20060710.4_all.deb ...
Unpacking intltool-debian (0.35.0+20060710.4) ...
Selecting previously unselected package po-debconf.
Preparing to unpack .../po-debconf_1.0.18_all.deb ...
Unpacking po-debconf (1.0.18) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../debhelper_9.20151005ubuntu1_all.deb ...
Unpacking debhelper (9.20151005ubuntu1) ...
Selecting previously unselected package fonts-freefont-otf.
Preparing to unpack .../fonts-freefont-otf_20120503-4_all.deb ...
Unpacking fonts-freefont-otf (20120503-4) ...
Selecting previously unselected package tex-common.
Preparing to unpack .../tex-common_6.04_all.deb ...
Unpacking tex-common (6.04) ...
Selecting previously unselected package fonts-lmodern.
Preparing to unpack .../fonts-lmodern_2.004.5-1_all.deb ...
Unpacking fonts-lmodern (2.004.5-1) ...
Selecting previously unselected package fonts-mplus.
Preparing to unpack .../fonts-mplus_057-2_all.deb ...
Unpacking fonts-mplus (057-2) ...
Selecting previously unselected package libbibutils2.
Preparing to unpack .../libbibutils2_4.12-5_amd64.deb ...
Unpacking libbibutils2 (4.12-5) ...
Selecting previously unselected package libcups2:amd64.
Preparing to unpack .../libcups2_2.1.0-5_amd64.deb ...
Unpacking libcups2:amd64 (2.1.0-5) ...
Selecting previously unselected package libjpeg8:amd64.
Preparing to unpack .../libjpeg8_8c-2ubuntu8_amd64.deb ...
Unpacking libjpeg8:amd64 (8c-2ubuntu8) ...
Selecting previously unselected package libtiff5:amd64.
Preparing to unpack .../libtiff5_4.0.5-1_amd64.deb ...
Unpacking libtiff5:amd64 (4.0.5-1) ...
Selecting previously unselected package libcupsfilters1:amd64.
Preparing to unpack .../libcupsfilters1_1.1.0-1_amd64.deb ...
Unpacking libcupsfilters1:amd64 (1.1.0-1) ...
Selecting previously unselected package libcupsimage2:amd64.
Preparing to unpack .../libcupsimage2_2.1.0-5_amd64.deb ...
Unpacking libcupsimage2:amd64 (2.1.0-5) ...
Selecting previously unselected package libijs-0.35:amd64.
Preparing to unpack .../libijs-0.35_0.35-11_amd64.deb ...
Unpacking libijs-0.35:amd64 (0.35-11) ...
Selecting previously unselected package libjbig2dec0.
Preparing to unpack .../libjbig2dec0_0.12+20150918-1_amd64.deb ...
Unpacking libjbig2dec0 (0.12+20150918-1) ...
Selecting previously unselected package libgs9-common.
Preparing to unpack .../libgs9-common_9.16~dfsg~0-0ubuntu3_all.deb ...
Unpacking libgs9-common (9.16~dfsg~0-0ubuntu3) ...
Selecting previously unselected package libgs9.
Preparing to unpack .../libgs9_9.16~dfsg~0-0ubuntu3_amd64.deb ...
Unpacking libgs9 (9.16~dfsg~0-0ubuntu3) ...
Selecting previously unselected package libharfbuzz0b:amd64.
Preparing to unpack .../libharfbuzz0b_1.0.1-1build2_amd64.deb ...
Unpacking libharfbuzz0b:amd64 (1.0.1-1build2) ...
Selecting previously unselected package libharfbuzz-icu0:amd64.
Preparing to unpack .../libharfbuzz-icu0_1.0.1-1build2_amd64.deb ...
Unpacking libharfbuzz-icu0:amd64 (1.0.1-1build2) ...
Selecting previously unselected package libkpathsea6:amd64.
Preparing to unpack .../libkpathsea6_2015.20150524.37493-7build1_amd64.deb ...
Unpacking libkpathsea6:amd64 (2015.20150524.37493-7build1) ...
Selecting previously unselected package liblua5.1-0:amd64.
Preparing to unpack .../liblua5.1-0_5.1.5-8_amd64.deb ...
Unpacking liblua5.1-0:amd64 (5.1.5-8) ...
Selecting previously unselected package libpaper-utils.
Preparing to unpack .../libpaper-utils_1.1.24+nmu2ubuntu3_amd64.deb ...
Unpacking libpaper-utils (1.1.24+nmu2ubuntu3) ...
Selecting previously unselected package libpixman-1-0:amd64.
Preparing to unpack .../libpixman-1-0_0.33.2-2_amd64.deb ...
Unpacking libpixman-1-0:amd64 (0.33.2-2) ...
Selecting previously unselected package libpoppler56:amd64.
Preparing to unpack .../libpoppler56_0.37.0-0ubuntu1_amd64.deb ...
Unpacking libpoppler56:amd64 (0.37.0-0ubuntu1) ...
Selecting previously unselected package libpotrace0.
Preparing to unpack .../libpotrace0_1.12-1_amd64.deb ...
Unpacking libpotrace0 (1.12-1) ...
Selecting previously unselected package libptexenc1:amd64.
Preparing to unpack .../libptexenc1_2015.20150524.37493-7build1_amd64.deb ...
Unpacking libptexenc1:amd64 (2015.20150524.37493-7build1) ...
Selecting previously unselected package libsynctex1:amd64.
Preparing to unpack .../libsynctex1_2015.20150524.37493-7build1_amd64.deb ...
Unpacking libsynctex1:amd64 (2015.20150524.37493-7build1) ...
Selecting previously unselected package libtexlua52:amd64.
Preparing to unpack .../libtexlua52_2015.20150524.37493-7build1_amd64.deb ...
Unpacking libtexlua52:amd64 (2015.20150524.37493-7build1) ...
Selecting previously unselected package libtexluajit2:amd64.
Preparing to unpack .../libtexluajit2_2015.20150524.37493-7build1_amd64.deb ...
Unpacking libtexluajit2:amd64 (2015.20150524.37493-7build1) ...
Selecting previously unselected package libxt6:amd64.
Preparing to unpack .../libxt6_1%3a1.1.5-0ubuntu1_amd64.deb ...
Unpacking libxt6:amd64 (1:1.1.5-0ubuntu1) ...
Selecting previously unselected package libxmu6:amd64.
Preparing to unpack .../libxmu6_2%3a1.1.2-1ubuntu1_amd64.deb ...
Unpacking libxmu6:amd64 (2:1.1.2-1ubuntu1) ...
Selecting previously unselected package libxaw7:amd64.
Preparing to unpack .../libxaw7_2%3a1.0.13-1_amd64.deb ...
Unpacking libxaw7:amd64 (2:1.0.13-1) ...
Selecting previously unselected package libxi6:amd64.
Preparing to unpack .../libxi6_2%3a1.7.5-1_amd64.deb ...
Unpacking libxi6:amd64 (2:1.7.5-1) ...
Selecting previously unselected package lmodern.
Preparing to unpack .../lmodern_2.004.5-1_all.deb ...
Unpacking lmodern (2.004.5-1) ...
Selecting previously unselected package pandoc-data.
Preparing to unpack .../pandoc-data_1.13.2.1~dfsg-1build6_all.deb ...
Unpacking pandoc-data (1.13.2.1~dfsg-1build6) ...
Selecting previously unselected package pandoc.
Preparing to unpack .../pandoc_1.13.2.1~dfsg-1build6_amd64.deb ...
Unpacking pandoc (1.13.2.1~dfsg-1build6) ...
Selecting previously unselected package preview-latex-style.
Preparing to unpack .../preview-latex-style_11.88-1ubuntu1_all.deb ...
Unpacking preview-latex-style (11.88-1ubuntu1) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../sbcl_2%3a1.2.14-1ubuntu1_amd64.deb ...
Unpacking sbcl (2:1.2.14-1ubuntu1) ...
Selecting previously unselected package t1utils.
Preparing to unpack .../t1utils_1.38-4_amd64.deb ...
Unpacking t1utils (1.38-4) ...
Selecting previously unselected package texlive-binaries.
Preparing to unpack .../texlive-binaries_2015.20150524.37493-7build1_amd64.deb ...
Unpacking texlive-binaries (2015.20150524.37493-7build1) ...
Selecting previously unselected package xdg-utils.
Preparing to unpack .../xdg-utils_1.1.0~rc3+git20150907-1ubuntu2_all.deb ...
Unpacking xdg-utils (1.1.0~rc3+git20150907-1ubuntu2) ...
Selecting previously unselected package texlive-base.
Preparing to unpack .../texlive-base_2015.20150625-1ubuntu1_all.deb ...
Unpacking texlive-base (2015.20150625-1ubuntu1) ...
Selecting previously unselected package texlive-latex-base.
Preparing to unpack .../texlive-latex-base_2015.20150625-1ubuntu1_all.deb ...
Unpacking texlive-latex-base (2015.20150625-1ubuntu1) ...
Selecting previously unselected package texlive-bibtex-extra.
Preparing to unpack .../texlive-bibtex-extra_2015.20151016-1_all.deb ...
Unpacking texlive-bibtex-extra (2015.20151016-1) ...
Selecting previously unselected package texlive-fonts-recommended.
Preparing to unpack .../texlive-fonts-recommended_2015.20150625-1ubuntu1_all.deb ...
Unpacking texlive-fonts-recommended (2015.20150625-1ubuntu1) ...
Selecting previously unselected package texlive-latex-recommended.
Preparing to unpack .../texlive-latex-recommended_2015.20150625-1ubuntu1_all.deb ...
Unpacking texlive-latex-recommended (2015.20150625-1ubuntu1) ...
Selecting previously unselected package texlive-pictures.
Preparing to unpack .../texlive-pictures_2015.20150625-1ubuntu1_all.deb ...
Unpacking texlive-pictures (2015.20150625-1ubuntu1) ...
Selecting previously unselected package texlive-latex-extra.
Preparing to unpack .../texlive-latex-extra_2015.20151016-1_all.deb ...
Unpacking texlive-latex-extra (2015.20151016-1) ...
Selecting previously unselected package tipa.
Preparing to unpack .../tipa_2%3a1.3-20_all.deb ...
Unpacking tipa (2:1.3-20) ...
Selecting previously unselected package texlive-xetex.
Preparing to unpack .../texlive-xetex_2015.20150625-1ubuntu1_all.deb ...
Unpacking texlive-xetex (2015.20150625-1ubuntu1) ...
Selecting previously unselected package libghc-pandoc-citeproc-data.
Preparing to unpack .../libghc-pandoc-citeproc-data_0.6.0.1-1build4_all.deb ...
Unpacking libghc-pandoc-citeproc-data (0.6.0.1-1build4) ...
Selecting previously unselected package pandoc-citeproc.
Preparing to unpack .../pandoc-citeproc_0.6.0.1-1build4_amd64.deb ...
Unpacking pandoc-citeproc (0.6.0.1-1build4) ...
Selecting previously unselected package sbuild-build-depends-cafeobj-dummy.
Preparing to unpack .../sbuild-build-depends-cafeobj-dummy.deb ...
Unpacking sbuild-build-depends-cafeobj-dummy (0.invalid.0) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Setting up libasprintf0v5:amd64 (0.19.4-1ubuntu3) ...
Setting up libxau6:amd64 (1:1.0.8-1) ...
Setting up libxdmcp6:amd64 (1:1.1.2-1) ...
Setting up libxcb1:amd64 (1.11-0ubuntu1) ...
Setting up libx11-data (2:1.6.3-1ubuntu2) ...
Setting up libx11-6:amd64 (2:1.6.3-1ubuntu2) ...
Setting up libxext6:amd64 (2:1.3.3-1) ...
Setting up groff-base (1.22.3-1) ...
Setting up bsdmainutils (9.0.6ubuntu1) ...
update-alternatives: using /usr/bin/bsd-write to provide /usr/bin/write (write) in auto mode
update-alternatives: using /usr/bin/bsd-from to provide /usr/bin/from (from) in auto mode
Setting up libpipeline1:amd64 (1.4.1-1) ...
Setting up man-db (2.7.4-1) ...
Not building database; man-db/auto-update is not 'true'.
Setting up libavahi-common-data:amd64 (0.6.31-4ubuntu4) ...
Setting up libavahi-common3:amd64 (0.6.31-4ubuntu4) ...
Setting up libavahi-client3:amd64 (0.6.31-4ubuntu4) ...
Setting up libglib2.0-0:amd64 (2.46.1-2) ...
No schema files found: doing nothing.
Setting up libicu55:amd64 (55.1-4ubuntu1) ...
Setting up libxml2:amd64 (2.9.2+zdfsg1-4) ...
Setting up libcroco3:amd64 (0.6.8-3) ...
Setting up fonts-dejavu-core (2.35-1) ...
Setting up ucf (3.0030) ...
Setting up fontconfig-config (2.11.1-0ubuntu6) ...
Setting up libexpat1:amd64 (2.1.0-7) ...
Setting up libfreetype6:amd64 (2.5.2-4ubuntu2) ...
Setting up libfontconfig1:amd64 (2.11.1-0ubuntu6) ...
Setting up libgraphite2-3:amd64 (1.2.4-3ubuntu1) ...
Setting up x11-common (1:7.7+7ubuntu4) ...
update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults
Running in chroot, ignoring request.
invoke-rc.d: policy-rc.d denied execution of start.
Setting up libice6:amd64 (2:1.0.9-1) ...
Setting up libjpeg-turbo8:amd64 (1.3.0-0ubuntu2) ...
Setting up liblcms2-2:amd64 (2.6-3ubuntu2) ...
Setting up libpaper1:amd64 (1.1.24+nmu2ubuntu3) ...

Creating config file /etc/papersize with new version
Setting up libsm6:amd64 (2:1.2.2-1) ...
Setting up libunistring0:amd64 (0.9.3-5.2ubuntu1) ...
Setting up libxpm4:amd64 (1:3.5.11-1) ...
Setting up libyaml-0-2:amd64 (0.1.6-3) ...
Setting up libzzip-0-13:amd64 (0.13.62-3) ...
Setting up poppler-data (0.4.7-3) ...
Setting up mime-support (3.59ubuntu1) ...
Setting up libpython2.7-stdlib:amd64 (2.7.10-4ubuntu1) ...
Setting up python2.7 (2.7.10-4ubuntu1) ...
Setting up libpython-stdlib:amd64 (2.7.9-1) ...
Setting up python (2.7.9-1) ...
Setting up libjbig0:amd64 (2.1-3.1) ...
Setting up libmagic1:amd64 (1:5.22+15-2ubuntu1) ...
Setting up file (1:5.22+15-2ubuntu1) ...
Setting up gettext-base (0.19.4-1ubuntu3) ...
Setting up gettext (0.19.4-1ubuntu3) ...
Setting up intltool-debian (0.35.0+20060710.4) ...
Setting up po-debconf (1.0.18) ...
Setting up debhelper (9.20151005ubuntu1) ...
Setting up fonts-freefont-otf (20120503-4) ...
Setting up tex-common (6.04) ...
update-language: texlive-base not installed and configured, doing nothing!
Setting up fonts-lmodern (2.004.5-1) ...
Setting up fonts-mplus (057-2) ...
Setting up libbibutils2 (4.12-5) ...
Setting up libcups2:amd64 (2.1.0-5) ...
Setting up libjpeg8:amd64 (8c-2ubuntu8) ...
Setting up libtiff5:amd64 (4.0.5-1) ...
Setting up libcupsfilters1:amd64 (1.1.0-1) ...
Setting up libcupsimage2:amd64 (2.1.0-5) ...
Setting up libijs-0.35:amd64 (0.35-11) ...
Setting up libjbig2dec0 (0.12+20150918-1) ...
Setting up libgs9-common (9.16~dfsg~0-0ubuntu3) ...
update-alternatives: using /usr/share/ghostscript/9.16 to provide /usr/share/ghostscript/current (ghostscript-current) in auto mode
Setting up libgs9 (9.16~dfsg~0-0ubuntu3) ...
Setting up libharfbuzz0b:amd64 (1.0.1-1build2) ...
Setting up libharfbuzz-icu0:amd64 (1.0.1-1build2) ...
Setting up libkpathsea6:amd64 (2015.20150524.37493-7build1) ...
Setting up liblua5.1-0:amd64 (5.1.5-8) ...
Setting up libpaper-utils (1.1.24+nmu2ubuntu3) ...
Setting up libpixman-1-0:amd64 (0.33.2-2) ...
Setting up libpoppler56:amd64 (0.37.0-0ubuntu1) ...
Setting up libpotrace0 (1.12-1) ...
Setting up libptexenc1:amd64 (2015.20150524.37493-7build1) ...
Setting up libsynctex1:amd64 (2015.20150524.37493-7build1) ...
Setting up libtexlua52:amd64 (2015.20150524.37493-7build1) ...
Setting up libtexluajit2:amd64 (2015.20150524.37493-7build1) ...
Setting up libxt6:amd64 (1:1.1.5-0ubuntu1) ...
Setting up libxmu6:amd64 (2:1.1.2-1ubuntu1) ...
Setting up libxaw7:amd64 (2:1.0.13-1) ...
Setting up libxi6:amd64 (2:1.7.5-1) ...
Setting up lmodern (2.004.5-1) ...
Setting up pandoc-data (1.13.2.1~dfsg-1build6) ...
Setting up pandoc (1.13.2.1~dfsg-1build6) ...
Setting up preview-latex-style (11.88-1ubuntu1) ...
update-language: texlive-base not installed and configured, doing nothing!
Regenerating '/var/lib/texmf/fmtutil.cnf-DEBIAN'... done.
Regenerating '/var/lib/texmf/fmtutil.cnf-TEXLIVEDIST'... done.
update-fmtutil has updated the following file(s):
	/var/lib/texmf/fmtutil.cnf-DEBIAN
	/var/lib/texmf/fmtutil.cnf-TEXLIVEDIST
If you want to activate the changes in the above file(s),
you should run fmtutil-sys or fmtutil.
Setting up sbcl (2:1.2.14-1ubuntu1) ...
Setting up t1utils (1.38-4) ...
Setting up texlive-binaries (2015.20150524.37493-7build1) ...
update-alternatives: using /usr/bin/xdvi-xaw to provide /usr/bin/xdvi.bin (xdvi.bin) in auto mode
update-alternatives: using /usr/bin/bibtex.original to provide /usr/bin/bibtex (bibtex) in auto mode
Setting up xdg-utils (1.1.0~rc3+git20150907-1ubuntu2) ...
Setting up libghc-pandoc-citeproc-data (0.6.0.1-1build4) ...
Setting up pandoc-citeproc (0.6.0.1-1build4) ...
Processing triggers for tex-common (6.04) ...
texlive-base is not ready, delaying updmap-sys call
update-language: texlive-base not installed and configured, doing nothing!
texlive-base is not ready, skipping fmtutil-sys --all call
Setting up texlive-base (2015.20150625-1ubuntu1) ...
/usr/bin/tl-paper: setting paper size for dvips to a4.
/usr/bin/tl-paper: setting paper size for dvipdfmx to a4.
/usr/bin/tl-paper: setting paper size for xdvi to a4.
/usr/bin/tl-paper: setting paper size for pdftex to a4.
Processing triggers for tex-common (6.04) ...
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Building format(s) --all.
	This may take some time... done.
Setting up texlive-fonts-recommended (2015.20150625-1ubuntu1) ...
Setting up texlive-latex-base (2015.20150625-1ubuntu1) ...
Processing triggers for tex-common (6.04) ...
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Building format(s) --all.
	This may take some time... done.
Setting up texlive-latex-recommended (2015.20150625-1ubuntu1) ...
Setting up texlive-pictures (2015.20150625-1ubuntu1) ...
Setting up tipa (2:1.3-20) ...
Regenerating '/var/lib/texmf/fmtutil.cnf-DEBIAN'... done.
Regenerating '/var/lib/texmf/fmtutil.cnf-TEXLIVEDIST'... done.
update-fmtutil has updated the following file(s):
	/var/lib/texmf/fmtutil.cnf-DEBIAN
	/var/lib/texmf/fmtutil.cnf-TEXLIVEDIST
If you want to activate the changes in the above file(s),
you should run fmtutil-sys or fmtutil.
Setting up texlive-bibtex-extra (2015.20151016-1) ...
Processing triggers for tex-common (6.04) ...
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Setting up texlive-latex-extra (2015.20151016-1) ...
Processing triggers for tex-common (6.04) ...
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Setting up texlive-xetex (2015.20150625-1ubuntu1) ...
Processing triggers for tex-common (6.04) ...
Building format(s) --all.
	This may take some time... done.
Setting up sbuild-build-depends-cafeobj-dummy (0.invalid.0) ...
Processing triggers for libc-bin (2.21-0ubuntu4) ...
Processing triggers for systemd (227-2ubuntu1) ...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Build environment                                                            │
└──────────────────────────────────────────────────────────────────────────────┘

Kernel: Linux 3.19.0-31-generic amd64 (x86_64)
Toolchain package versions: binutils_2.25.51.20151028-0ubuntu1 dpkg-dev_1.18.3ubuntu1 g++-5_5.2.1-23ubuntu1 gcc-5_5.2.1-23ubuntu1 libc6-dev_2.21-0ubuntu4 libstdc++-5-dev_5.2.1-23ubuntu1 libstdc++6_5.2.1-23ubuntu1 linux-libc-dev_4.2.0-17.21
Package versions: adduser_3.113+nmu3ubuntu4 advancecomp_1.20-1 apt_1.0.10.2ubuntu1 apt-transport-https_1.0.10.2ubuntu1 base-files_9.4ubuntu2 base-passwd_3.5.38 bash_4.3-14ubuntu1 binutils_2.25.51.20151028-0ubuntu1 bsdmainutils_9.0.6ubuntu1 bsdutils_1:2.27.1-1ubuntu1 build-essential_12.1ubuntu2 bzip2_1.0.6-8 ca-certificates_20150426ubuntu1 coreutils_8.23-4ubuntu2 cpp_4:5.2.1-3ubuntu1 cpp-5_5.2.1-23ubuntu1 dash_0.5.7-4ubuntu2 debconf_1.5.57ubuntu1 debhelper_9.20151005ubuntu1 debianutils_4.5.1 diffutils_1:3.3-2 dmsetup_2:1.02.99-1ubuntu1 dpkg_1.18.3ubuntu1 dpkg-dev_1.18.3ubuntu1 e2fslibs_1.42.13-1ubuntu1 e2fsprogs_1.42.13-1ubuntu1 fakeroot_1.20.2-1ubuntu1 file_1:5.22+15-2ubuntu1 findutils_4.4.2-9build1 fontconfig-config_2.11.1-0ubuntu6 fonts-dejavu-core_2.35-1 fonts-freefont-otf_20120503-4 fonts-lmodern_2.004.5-1 fonts-mplus_057-2 g++_4:5.2.1-3ubuntu1 g++-5_5.2.1-23ubuntu1 gcc_4:5.2.1-3ubuntu1 gcc-5_5.2.1-23ubuntu1 gcc-5-base_5.2.1-23ubuntu1 gettext_0.19.4-1ubuntu3 gettext-base_0.19.4-1ubuntu3 gnupg_1.4.18-7ubuntu1 gpgv_1.4.18-7ubuntu1 grep_2.21-2 groff-base_1.22.3-1 gzip_1.6-4ubuntu1 hostname_3.15ubuntu2 init_1.24ubuntu1 initscripts_2.88dsf-59.2ubuntu2 insserv_1.14.0-5ubuntu3 intltool-debian_0.35.0+20060710.4 libacl1_2.2.52-2 libapparmor1_2.10-0ubuntu6 libapt-pkg4.16_1.0.10.2ubuntu1 libasan2_5.2.1-23ubuntu1 libasn1-8-heimdal_1.6~rc2+dfsg-10ubuntu1 libasprintf0v5_0.19.4-1ubuntu3 libatomic1_5.2.1-23ubuntu1 libattr1_1:2.4.47-2 libaudit-common_1:2.4.4-4ubuntu1 libaudit1_1:2.4.4-4ubuntu1 libavahi-client3_0.6.31-4ubuntu4 libavahi-common-data_0.6.31-4ubuntu4 libavahi-common3_0.6.31-4ubuntu4 libbibutils2_4.12-5 libblkid1_2.27.1-1ubuntu1 libbz2-1.0_1.0.6-8 libc-bin_2.21-0ubuntu4 libc-dev-bin_2.21-0ubuntu4 libc6_2.21-0ubuntu4 libc6-dev_2.21-0ubuntu4 libcap2_1:2.24-12 libcap2-bin_1:2.24-12 libcc1-0_5.2.1-23ubuntu1 libcilkrts5_5.2.1-23ubuntu1 libcomerr2_1.42.13-1ubuntu1 libcroco3_0.6.8-3 libcryptsetup4_2:1.6.6-5ubuntu2 libcups2_2.1.0-5 libcupsfilters1_1.1.0-1 libcupsimage2_2.1.0-5 libcurl3-gnutls_7.43.0-1ubuntu2 libdb5.3_5.3.28-11 libdbus-1-3_1.10.0-1ubuntu1 libdebconfclient0_0.192ubuntu1 libdevmapper1.02.1_2:1.02.99-1ubuntu1 libdpkg-perl_1.18.3ubuntu1 libexpat1_2.1.0-7 libfakeroot_1.20.2-1ubuntu1 libfdisk1_2.27.1-1ubuntu1 libffi6_3.2.1-3 libfontconfig1_2.11.1-0ubuntu6 libfreetype6_2.5.2-4ubuntu2 libgcc-5-dev_5.2.1-23ubuntu1 libgcc1_1:5.2.1-23ubuntu1 libgcrypt20_1.6.4-3 libgdbm3_1.8.3-13.1 libghc-pandoc-citeproc-data_0.6.0.1-1build4 libglib2.0-0_2.46.1-2 libgmp10_2:6.0.0+dfsg-7 libgnutls-deb0-28_3.3.18-1ubuntu1 libgomp1_5.2.1-23ubuntu1 libgpg-error0_1.20-1 libgraphite2-3_1.2.4-3ubuntu1 libgs9_9.16~dfsg~0-0ubuntu3 libgs9-common_9.16~dfsg~0-0ubuntu3 libgssapi-krb5-2_1.13.2+dfsg-3 libgssapi3-heimdal_1.6~rc2+dfsg-10ubuntu1 libharfbuzz-icu0_1.0.1-1build2 libharfbuzz0b_1.0.1-1build2 libhcrypto4-heimdal_1.6~rc2+dfsg-10ubuntu1 libheimbase1-heimdal_1.6~rc2+dfsg-10ubuntu1 libheimntlm0-heimdal_1.6~rc2+dfsg-10ubuntu1 libhogweed4_3.1.1-4 libhx509-5-heimdal_1.6~rc2+dfsg-10ubuntu1 libice6_2:1.0.9-1 libicu55_55.1-4ubuntu1 libidn11_1.28-1ubuntu2 libijs-0.35_0.35-11 libisl13_0.14-2 libitm1_5.2.1-23ubuntu1 libjbig0_2.1-3.1 libjbig2dec0_0.12+20150918-1 libjpeg-turbo8_1.3.0-0ubuntu2 libjpeg8_8c-2ubuntu8 libk5crypto3_1.13.2+dfsg-3 libkeyutils1_1.5.9-5ubuntu1 libkmod2_21-1ubuntu1 libkpathsea6_2015.20150524.37493-7build1 libkrb5-26-heimdal_1.6~rc2+dfsg-10ubuntu1 libkrb5-3_1.13.2+dfsg-3 libkrb5support0_1.13.2+dfsg-3 liblcms2-2_2.6-3ubuntu2 libldap-2.4-2_2.4.41+dfsg-1ubuntu2 liblockfile-bin_1.09-6ubuntu1 liblockfile1_1.09-6ubuntu1 liblsan0_5.2.1-23ubuntu1 liblua5.1-0_5.1.5-8 liblzma5_5.1.1alpha+20120614-2ubuntu2 libmagic1_1:5.22+15-2ubuntu1 libmount1_2.27.1-1ubuntu1 libmpc3_1.0.3-1 libmpfr4_3.1.3-1 libmpx0_5.2.1-23ubuntu1 libncurses5_5.9+20150516-2ubuntu1 libncursesw5_5.9+20150516-2ubuntu1 libnettle6_3.1.1-4 libnih-dbus1_1.0.3-4ubuntu27 libnih1_1.0.3-4ubuntu27 libp11-kit0_0.23.1-3 libpam-modules_1.1.8-3.1ubuntu3 libpam-modules-bin_1.1.8-3.1ubuntu3 libpam-runtime_1.1.8-3.1ubuntu3 libpam0g_1.1.8-3.1ubuntu3 libpaper-utils_1.1.24+nmu2ubuntu3 libpaper1_1.1.24+nmu2ubuntu3 libpcre3_2:8.35-7.1ubuntu1 libpipeline1_1.4.1-1 libpixman-1-0_0.33.2-2 libpng12-0_1.2.51-0ubuntu3 libpoppler56_0.37.0-0ubuntu1 libpotrace0_1.12-1 libprocps3_1:3.3.9-1ubuntu8 libptexenc1_2015.20150524.37493-7build1 libpython-stdlib_2.7.9-1 libpython2.7-minimal_2.7.10-4ubuntu1 libpython2.7-stdlib_2.7.10-4ubuntu1 libquadmath0_5.2.1-23ubuntu1 libreadline6_6.3-8ubuntu1 libroken18-heimdal_1.6~rc2+dfsg-10ubuntu1 librtmp1_2.4+20150115.gita107cef-1build1 libsasl2-2_2.1.26.dfsg1-14 libsasl2-modules-db_2.1.26.dfsg1-14 libseccomp2_2.2.3-2ubuntu1 libselinux1_2.3-2build1 libsemanage-common_2.3-1build2 libsemanage1_2.3-1build2 libsepol1_2.3-2 libslang2_2.3.0-2ubuntu1 libsm6_2:1.2.2-1 libsmartcols1_2.27.1-1ubuntu1 libsqlite3-0_3.9.1-2 libss2_1.42.13-1ubuntu1 libssl1.0.0_1.0.2d-0ubuntu1 libstdc++-5-dev_5.2.1-23ubuntu1 libstdc++6_5.2.1-23ubuntu1 libsynctex1_2015.20150524.37493-7build1 libsystemd0_227-2ubuntu1 libtasn1-6_4.7-2 libtexlua52_2015.20150524.37493-7build1 libtexluajit2_2015.20150524.37493-7build1 libtiff5_4.0.5-1 libtinfo5_5.9+20150516-2ubuntu1 libtsan0_5.2.1-23ubuntu1 libubsan0_5.2.1-23ubuntu1 libudev1_227-2ubuntu1 libunistring0_0.9.3-5.2ubuntu1 libusb-0.1-4_2:0.1.12-27 libustr-1.0-1_1.0.4-5 libuuid1_2.27.1-1ubuntu1 libwind0-heimdal_1.6~rc2+dfsg-10ubuntu1 libx11-6_2:1.6.3-1ubuntu2 libx11-data_2:1.6.3-1ubuntu2 libxau6_1:1.0.8-1 libxaw7_2:1.0.13-1 libxcb1_1.11-0ubuntu1 libxdmcp6_1:1.1.2-1 libxext6_2:1.3.3-1 libxi6_2:1.7.5-1 libxml2_2.9.2+zdfsg1-4 libxmu6_2:1.1.2-1ubuntu1 libxpm4_1:3.5.11-1 libxt6_1:1.1.5-0ubuntu1 libyaml-0-2_0.1.6-3 libzzip-0-13_0.13.62-3 linux-libc-dev_4.2.0-17.21 lmodern_2.004.5-1 lockfile-progs_0.1.17 login_1:4.1.5.1-1.1ubuntu7 lsb-base_4.1+Debian11ubuntu8 make_4.0-8.2 man-db_2.7.4-1 mawk_1.3.3-17ubuntu2 mime-support_3.59ubuntu1 mount_2.27.1-1ubuntu1 multiarch-support_2.21-0ubuntu4 ncurses-base_5.9+20150516-2ubuntu1 ncurses-bin_5.9+20150516-2ubuntu1 openssl_1.0.2d-0ubuntu1 optipng_0.7.5-1 pandoc_1.13.2.1~dfsg-1build6 pandoc-citeproc_0.6.0.1-1build4 pandoc-data_1.13.2.1~dfsg-1build6 passwd_1:4.1.5.1-1.1ubuntu7 patch_2.7.5-1 perl_5.20.2-6 perl-base_5.20.2-6 perl-modules_5.20.2-6 pkg-create-dbgsym_0.70 pkgbinarymangler_122 po-debconf_1.0.18 policyrcd-script-zg2_0.1-2 poppler-data_0.4.7-3 preview-latex-style_11.88-1ubuntu1 procps_1:3.3.9-1ubuntu8 python_2.7.9-1 python-minimal_2.7.9-1 python2.7_2.7.10-4ubuntu1 python2.7-minimal_2.7.10-4ubuntu1 readline-common_6.3-8ubuntu1 sbcl_2:1.2.14-1ubuntu1 sbuild-build-depends-cafeobj-dummy_0.invalid.0 sbuild-build-depends-core-dummy_0.invalid.0 sed_4.2.2-6.1 sensible-utils_0.0.9 systemd_227-2ubuntu1 systemd-sysv_227-2ubuntu1 sysv-rc_2.88dsf-59.2ubuntu2 sysvinit-utils_2.88dsf-59.2ubuntu2 t1utils_1.38-4 tar_1.27.1-2 tex-common_6.04 texlive-base_2015.20150625-1ubuntu1 texlive-bibtex-extra_2015.20151016-1 texlive-binaries_2015.20150524.37493-7build1 texlive-fonts-recommended_2015.20150625-1ubuntu1 texlive-latex-base_2015.20150625-1ubuntu1 texlive-latex-extra_2015.20151016-1 texlive-latex-recommended_2015.20150625-1ubuntu1 texlive-pictures_2015.20150625-1ubuntu1 texlive-xetex_2015.20150625-1ubuntu1 tipa_2:1.3-20 tzdata_2015g-1 ubuntu-keyring_2012.05.19 ucf_3.0030 udev_227-2ubuntu1 util-linux_2.27.1-1ubuntu1 x11-common_1:7.7+7ubuntu4 xdg-utils_1.1.0~rc3+git20150907-1ubuntu2 xz-utils_5.1.1alpha+20120614-2ubuntu2 zlib1g_1:1.2.8.dfsg-2ubuntu4

┌──────────────────────────────────────────────────────────────────────────────┐
│ Build                                                                        │
└──────────────────────────────────────────────────────────────────────────────┘


Unpack source
─────────────

gpgv: Signature made Mon Nov  2 13:20:28 2015 UTC using RSA key ID 860CDC13
gpgv: Can't check signature: public key not found
dpkg-source: warning: failed to verify signature on ./cafeobj_1.5.4-2.dsc
dpkg-source: info: extracting cafeobj in cafeobj-1.5.4
dpkg-source: info: unpacking cafeobj_1.5.4.orig.tar.gz
dpkg-source: info: unpacking cafeobj_1.5.4-2.debian.tar.xz
dpkg-source: info: applying fix-refman-fonts
dpkg-source: info: applying fix-syntax-font
dpkg-source: info: applying armhf-remove-buildopts
dpkg-source: info: applying upstream-configure-remove-biber

Check disc space
────────────────

Sufficient free space for build

User Environment
────────────────

DEB_BUILD_OPTIONS=parallel=4
HOME=/home/buildd
LANG=C
LOGNAME=buildd
MAIL=/var/mail/buildd
OLDPWD=/
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games
PWD=/«PKGBUILDDIR»
SHELL=/bin/sh
SUDO_COMMAND=/usr/sbin/chroot /«CHROOT» su buildd -s /bin/sh -c cd '/«PKGBUILDDIR»' && 'env'
SUDO_GID=2501
SUDO_UID=2001
SUDO_USER=buildd
TERM=unknown
USER=buildd
USERNAME=root

dpkg-buildpackage
─────────────────

dpkg-buildpackage: source package cafeobj
dpkg-buildpackage: source version 1.5.4-2
dpkg-buildpackage: source distribution unstable
 dpkg-source --before-build cafeobj-1.5.4
dpkg-buildpackage: host architecture amd64
 fakeroot debian/rules clean
dh_testdir
dh_testroot
[ ! -f Makefile ] || /usr/bin/make distclean
rm -f install-stamp
rm -rf /«PKGBUILDDIR»/tmpcache
dh_clean
 debian/rules build
dh_testdir
./configure --prefix=/usr --with-lisp=sbcl --enable-rebuild-doc
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... /bin/mkdir -p
configure: Building for the following lisp interpreters:  sbcl
checking for xelatex... yes
checking for pandoc... yes
checking for pdflatex... yes
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
# 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
make build
make[1]: Entering directory '/«PKGBUILDDIR»'
mkdir -p dumps/sbcl/
sbcl --dynamic-space-size 2048 < make-cafeobj.lisp
This is SBCL 1.2.14.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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
* 
#<PACKAGE "COMMON-LISP-USER">
* 
#<PACKAGE "CHAOS">
* 
*CHAOS-ROOT*
* 
"."
* 
CHAOS::*CAFEOBJ-INSTALL-DIR*
* 
"."
* 
CHAOS::*MAKE-BIGPINK*
* 
(:BIGPINK :ALIEN-CALLBACKS :ANSI-CL :ASH-RIGHT-VOPS :C-STACK-IS-CONTROL-STACK
 :COMMON-LISP :COMPARE-AND-SWAP-VOPS :COMPLEX-FLOAT-VOPS :CYCLE-COUNTER :ELF
 :FLOAT-EQL-VOPS :FP-AND-PC-STANDARD-SAVE :GENCGC :IEEE-FLOATING-POINT
 :INLINE-CONSTANTS :INTEGER-EQL-VOP :INTERLEAVED-RAW-SLOTS :LARGEFILE
 :LINKAGE-TABLE :LINUX :LITTLE-ENDIAN :MEMORY-BARRIER-VOPS :MULTIPLY-HIGH-VOPS
 :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
 :OS-PROVIDES-GETPROTOBY-R :OS-PROVIDES-POLL :OS-PROVIDES-PUTWC
 :OS-PROVIDES-SUSECONDS-T :PACKAGE-LOCAL-NICKNAMES :PRECISE-ARG-COUNT-ERROR
 :RAW-INSTANCE-INIT-VOPS :SB-AFTER-XC-CORE :SB-CORE-COMPRESSION :SB-DOC
 :SB-EVAL :SB-FUTEX :SB-LDB :SB-PACKAGE-LOCKS :SB-SIMD-PACK
 :SB-SOURCE-LOCATIONS :SB-TEST :SB-THREAD :SB-UNICODE :SB-XREF-FOR-INTERNALS
 :SBCL :STACK-ALLOCATABLE-CLOSURES :STACK-ALLOCATABLE-FIXED-OBJECTS
 :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-VECTORS
 :STACK-GROWS-DOWNWARD-NOT-UPWARD :SYMBOL-INFO-VOPS :UNIX
 :UNWIND-TO-FRAME-AND-CALL-VOP :X86-64)
* 
NIL
; in: DEFUN MAKE-EXEC-IMAGE
;     (SETQ *CHAOS-NEW* T)
; 
; caught WARNING:
;   undefined variable: *CHAOS-NEW*

;     (SETQ CHAOS::-CAFEOBJ-LOAD-TIME- (CHAOS::GET-TIME-STRING))
; 
; caught WARNING:
;   undefined variable: CHAOS::-CAFEOBJ-LOAD-TIME-

;     (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
;   Undefined variables:
;     *CHAOS-NEW* CHAOS::-CAFEOBJ-LOAD-TIME-
;   caught 2 WARNING conditions
;   caught 2 STYLE-WARNING conditions
* 
MAKE-EXEC-IMAGE
* 
CHAOS::*COMPILE-BUILTIN-AXIOM*
* 
MAKE-CAFEOBJ
* 
STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD EVAL
** making CafeOBJ (.)
; compiling file "/«PKGBUILDDIR»/cl-ppcre/packages.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :CL-PPCRE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/packages-TMP.fasl written
; compilation finished in 0:00:00.003
; compiling file "/«PKGBUILDDIR»/cl-ppcre/specials.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...)
; compiling (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...)
; compiling (DEFVAR *EXTENDED-MODE-P* ...)
; compiling (DECLAIM (BOOLEAN *EXTENDED-MODE-P*))
; compiling (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...)
; compiling (DECLAIM (FIXNUM *REGEX-CHAR-CODE-LIMIT*))
; compiling (DEFVAR *STRING* ...)
; compiling (DECLAIM (SIMPLE-STRING *STRING*))
; compiling (DEFVAR *START-POS* ...)
; compiling (DECLAIM (FIXNUM *START-POS*))
; compiling (DEFVAR *REAL-START-POS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *END-POS* ...)
; compiling (DECLAIM (FIXNUM *END-POS*))
; compiling (DEFVAR *REG-STARTS* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *REG-STARTS*))
; compiling (DEFVAR *REGS-MAYBE-START* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *REGS-MAYBE-START*))
; compiling (DEFVAR *REG-ENDS* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *REG-ENDS*))
; compiling (DEFVAR *END-STRING-POS* ...)
; compiling (DEFVAR *REP-NUM* ...)
; compiling (DECLAIM (FIXNUM *REP-NUM*))
; compiling (DEFVAR *ZERO-LENGTH-NUM* ...)
; compiling (DECLAIM (FIXNUM *ZERO-LENGTH-NUM*))
; compiling (DEFVAR *REPEAT-COUNTERS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LAST-POS-STORES* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *LAST-POS-STORES*))
; compiling (DEFVAR *USE-BMH-MATCHERS* ...)
; compiling (DEFVAR *OPTIMIZE-CHAR-CLASSES* ...)
; compiling (DEFVAR *PROPERTY-RESOLVER* ...)
; compiling (DEFVAR *ALLOW-QUOTING* ...)
; compiling (DEFVAR *ALLOW-NAMED-REGISTERS* ...)
; compiling (PUSHNEW :CL-PPCRE ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/specials-TMP.fasl written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/cl-ppcre/util.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFMACRO DEFCONSTANT ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFMACRO WITH-REBINDING ...)
; compiling (DECLAIM (INLINE DIGIT-CHAR-P))
; compiling (DEFUN DIGIT-CHAR-P ...)
; compiling (DECLAIM (INLINE WORD-CHAR-P))
; compiling (DEFUN WORD-CHAR-P ...)
; compiling (DEFCONSTANT +WHITESPACE-CHAR-STRING+ ...)

; file: /«PKGBUILDDIR»/cl-ppcre/util.lisp
; in: DEFUN WHITESPACEP
;     (FIND CL-PPCRE::CHR CL-PPCRE::+WHITESPACE-CHAR-STRING+ :TEST #'CHAR=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM SEQUENCE SB-C::FROM-END SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; compiling (DEFUN WHITESPACEP ...)
; compiling (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...)
; compiling (DECLAIM (INLINE NSUBSEQ))
; compiling (DEFUN NSUBSEQ ...)
; compiling (DEFUN NORMALIZE-VAR-LIST ...)

; file: /«PKGBUILDDIR»/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 CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a STRING, not a SIMPLE-BASE-STRING.
; compiling (DEFUN STRING-LIST-TO-SIMPLE-STRING ...)

; file: /«PKGBUILDDIR»/cl-ppcre/util.lisp
; in: DEFUN COMPLEMENT*
;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN COMPLEMENT* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/util-TMP.fasl written
; compilation finished in 0:00:00.052
; compiling file "/«PKGBUILDDIR»/cl-ppcre/errors.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFVAR *SYNTAX-ERROR-STRING* ...)
; compiling (DEFINE-CONDITION PPCRE-ERROR ...)
; compiling (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...)
; compiling (DEFMACRO SIGNAL-SYNTAX-ERROR* ...)
; compiling (DEFMACRO SIGNAL-SYNTAX-ERROR ...)
; compiling (DEFMACRO SIGNAL-INVOCATION-ERROR ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/errors-TMP.fasl written
; compilation finished in 0:00:00.017
; compiling file "/«PKGBUILDDIR»/cl-ppcre/charset.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFCONSTANT +PROBE-DEPTH+ ...)
; compiling (DEFUN MAKE-CHAR-VECTOR ...)
; compiling (DEFSTRUCT (CHARSET #) ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DECLAIM (INLINE MIX))

; file: /«PKGBUILDDIR»/cl-ppcre/charset.lisp
; in: DEFUN MIX
;     (+ CL-PPCRE::CODE CL-PPCRE::HASH)
; 
; 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 5) 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.
; compiling (DEFUN MIX ...)
; compiling (DECLAIM (INLINE COMPUTE-INDEX))

; file: /«PKGBUILDDIR»/cl-ppcre/charset.lisp
; in: DEFUN COMPUTE-INDEX
;     (LENGTH VECTOR)
; 
; 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 VECTOR.

;     (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; 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.

; --> LET IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR
;                            (RATIONAL (-4611686018427387899)
;                                      (4611686018427387899))
;                            (DOUBLE-FLOAT -4.611686018427388d18
;                             4.611686018427388d18)
;                            (SINGLE-FLOAT -4.611686e18
;                             4.611686e18)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
; ==>
;   (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18)
;                               (DOUBLE-FLOAT -4.611686018427388d18
;                                9.223372036854776d18)
;                               (RATIONAL (-4611686018427387900)
;                                         (9223372036854775798))), not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18)
;                               (DOUBLE-FLOAT -4.611686018427388d18
;                                9.223372036854776d18)
;                               (RATIONAL (-4611686018427387900)
;                                         (9223372036854775798))), not a RATIONAL.

;     (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))
; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< NUMBER 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.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 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.

; --> LET IF 
; ==>
;   (+ REM SB-C::DIVISOR)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR
;                                (RATIONAL (-4611686018427387899)
;                                          (4611686018427387899))
;                                (DOUBLE-FLOAT -4.611686018427388d18
;                                 4.611686018427388d18)
;                                (SINGLE-FLOAT -4.611686e18 4.611686e18)), not a FIXNUM.
;       The result is a (VALUES
;                        (OR (SINGLE-FLOAT -4.611686e18 9.223372e18)
;                            (DOUBLE-FLOAT -4.611686018427388d18
;                             9.223372036854776d18)
;                            (RATIONAL (-4611686018427387900)
;                                      (9223372036854775798)))
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a (OR
;                                (RATIONAL (-4611686018427387899)
;                                          (4611686018427387899))
;                                (DOUBLE-FLOAT -4.611686018427388d18
;                                 4.611686018427388d18)
;                                (SINGLE-FLOAT -4.611686e18 4.611686e18)), not a (SIGNED-BYTE
;                                                                                 64).
;       The result is a (VALUES
;                        (OR (SINGLE-FLOAT -4.611686e18 9.223372e18)
;                            (DOUBLE-FLOAT -4.611686018427388d18
;                             9.223372036854776d18)
;                            (RATIONAL (-4611686018427387900)
;                                      (9223372036854775798)))
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
; ==>
;   (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18)
;                                   (DOUBLE-FLOAT -4.611686018427388d18
;                                    9.223372036854776d18)
;                                   (RATIONAL (-4611686018427387900)
;                                             (9223372036854775798))), not a FIXNUM.
;       The result is a (VALUES
;                        (OR
;                         (RATIONAL (-4611686018427387899) (9223372036854775799))
;                         (DOUBLE-FLOAT -4.611686018427388d18
;                          9.223372036854776d18)
;                         (SINGLE-FLOAT -4.611686e18 9.223372e18))
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18)
;                                   (DOUBLE-FLOAT -4.611686018427388d18
;                                    9.223372036854776d18)
;                                   (RATIONAL (-4611686018427387900)
;                                             (9223372036854775798))), not a FIXNUM.
;       The result is a (VALUES
;                        (OR
;                         (RATIONAL (-4611686018427387899) (9223372036854775799))
;                         (DOUBLE-FLOAT -4.611686018427388d18
;                          9.223372036854776d18)
;                         (SINGLE-FLOAT -4.611686e18 9.223372e18))
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; compiling (DEFUN COMPUTE-INDEX ...)
; compiling (DEFUN IN-CHARSET-P ...)
; compiling (DEFUN ADD-TO-CHARSET ...)
; compiling (DEFUN %ADD-TO-CHARSET ...)

; file: /«PKGBUILDDIR»/cl-ppcre/charset.lisp
; in: DEFUN %ADD-TO-CHARSET/EXPAND
;     (* 2 CL-PPCRE::NEW-SIZE)
; 
; 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: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (>= CL-PPCRE::NEW-SIZE 371370)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (* 2 CL-PPCRE::NEW-SIZE)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) 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.

;     (>= CL-PPCRE::NEW-SIZE 371370)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

;     (LET* ((CL-PPCRE::OLD-VECTOR (CL-PPCRE::CHARSET-VECTOR SET))
;            (CL-PPCRE::NEW-SIZE (* 2 (LENGTH CL-PPCRE::OLD-VECTOR))))
;       (TAGBODY
;        :RETRY
;         (MULTIPLE-VALUE-BIND (CL-PPCRE::NEW-DEPTH CL-PPCRE::NEW-VECTOR)
;             (IF (>= CL-PPCRE::NEW-SIZE 371370)
;                 (VALUES 0 #)
;                 (VALUES CL-PPCRE::+PROBE-DEPTH+ #))
;           (SETF # CL-PPCRE::NEW-DEPTH
;                 # CL-PPCRE::NEW-VECTOR)
;           (FLET (#)
;             (CL-PPCRE::TRY-ADD CHAR)
;             (DOTIMES # #))))
;       (INCF (CL-PPCRE::CHARSET-COUNT SET))
;       T)
; 
; note: doing signed word to integer coercion (cost 20) to NEW-SIZE
; compiling (DEFUN %ADD-TO-CHARSET/EXPAND ...)

; file: /«PKGBUILDDIR»/cl-ppcre/charset.lisp
; in: DEFUN MAP-CHARSET
;     (ZEROP (DECF CL-PPCRE::N))
; ==>
;   (= (DECF CL-PPCRE::N) 0)
; 
; 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 because: The operands might not be the same type.

;     (DECF CL-PPCRE::N)
; --> SETQ THE 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.

; ==>
;   (SETQ CL-PPCRE::N (SB-IMPL::XSUBTRACT 1 CL-PPCRE::N))
; 
; note: doing signed word to integer coercion (cost 20) to N
; compiling (DEFUN MAP-CHARSET ...)

; file: /«PKGBUILDDIR»/cl-ppcre/charset.lisp
; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION
;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 ...)
; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE 
; --> = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::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.

; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE 
; --> = IF 
; ==>
;   (= SB-C::X SB-C::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 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.
; compiling (DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/charset-TMP.fasl written
; compilation finished in 0:00:00.087
; compiling file "/«PKGBUILDDIR»/cl-ppcre/charmap.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFSTRUCT (CHARMAP #) ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DECLAIM (INLINE IN-CHARMAP-P))
; compiling (DEFUN IN-CHARMAP-P ...)
; compiling (DEFUN CHARMAP-CONTENTS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/charmap.lisp
; in: DEFUN MAKE-CHARMAP
;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN MAKE-CHARMAP ...)

; file: /«PKGBUILDDIR»/cl-ppcre/charmap.lisp
; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION
;     (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 ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF 
; ==>
;   (< CL-PPCRE::CODE #:LOOP-LIMIT-200)
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::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.

; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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 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)
; ==>
;   (- CL-PPCRE::END 1)
; 
; 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 ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF 
; ==>
;   (< CL-PPCRE::CODE #:LOOP-LIMIT-200)
; 
; 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.
; compiling (DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/charmap-TMP.fasl written
; compilation finished in 0:00:00.069
; compiling file "/«PKGBUILDDIR»/cl-ppcre/chartest.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)

; file: /«PKGBUILDDIR»/cl-ppcre/chartest.lisp
; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION
;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 ...)
; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE 
; --> = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::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.

; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE 
; --> = IF 
; ==>
;   (= SB-C::X SB-C::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 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.
; compiling (DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ...)

; file: /«PKGBUILDDIR»/cl-ppcre/chartest.lisp
; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION
;     (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; 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
;   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.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (RATIONAL (-2) (2)) (DOUBLE-FLOAT -2.0d0 2.0d0)
;                               (SINGLE-FLOAT -2.0 2.0)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF 
; --> PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; 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
;   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.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (RATIONAL (-2) (2)) (DOUBLE-FLOAT -2.0d0 2.0d0)
;                               (SINGLE-FLOAT -2.0 2.0)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF 
; --> PLUSP 
; ==>
;   (> NUMBER 0)
; 
; 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 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.

;     (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF 
; --> PLUSP 
; ==>
;   (> NUMBER 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.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 
; ==>
;   (+ SB-C::TRU 1)
; 
; 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))
; --> IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 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.

;     (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF 
; --> PLUSP 
; ==>
;   (> NUMBER 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.

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 
; ==>
;   (+ SB-C::TRU 1)
; 
; 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))
; --> IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/chartest-TMP.fasl written
; compilation finished in 0:00:00.034
; compiling file "/«PKGBUILDDIR»/cl-ppcre/lexer.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS))
; compiling (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...)
; compiling (DEFSTRUCT (LEXER #) ...)

; file: /«PKGBUILDDIR»/cl-ppcre/lexer.lisp
; in: DEFUN MAKE-LEXER
;     (DEFUN CL-PPCRE::MAKE-LEXER (STRING)
;       (DECLARE (INLINE CL-PPCRE::MAKE-LEXER-INTERNAL)
;                (STRING STRING))
;       (CL-PPCRE::MAKE-LEXER-INTERNAL :STR
;        (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING STRING) :LEN (LENGTH STRING)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CL-PPCRE::MAKE-LEXER
;                    (SB-INT:NAMED-LAMBDA CL-PPCRE::MAKE-LEXER
;                        (STRING)
;                      (DECLARE (INLINE CL-PPCRE::MAKE-LEXER-INTERNAL)
;                               (STRING STRING))
;                      (BLOCK CL-PPCRE::MAKE-LEXER
;                        (CL-PPCRE::MAKE-LEXER-INTERNAL :STR
;                         (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING STRING) :LEN
;                         (LENGTH STRING))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CL-PPCRE::MAKE-LEXER-INTERNAL could not be inlined because its source
;   code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
;   in effect to save function definitions for inlining.
; compiling (DEFUN MAKE-LEXER ...)
; compiling (DECLAIM (INLINE END-OF-STRING-P))
; compiling (DEFUN END-OF-STRING-P ...)
; compiling (DECLAIM (INLINE LOOKING-AT-P))
; compiling (DEFUN LOOKING-AT-P ...)
; compiling (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED))
; compiling (DEFUN NEXT-CHAR-NON-EXTENDED ...)

; file: /«PKGBUILDDIR»/cl-ppcre/lexer.lisp
; in: DEFUN NEXT-CHAR
;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
;                                     "Comment group not closed.")
; ==>
;   (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS CL-PPCRE::ERROR-POS :FORMAT-CONTROL
;          "Comment group not closed." :FORMAT-ARGUMENTS (LIST))
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN NEXT-CHAR ...)
; compiling (DECLAIM (INLINE FAIL))
; compiling (DEFUN FAIL ...)
; compiling (DEFUN GET-NUMBER ...)
; compiling (DECLAIM (INLINE TRY-NUMBER))
; compiling (DEFUN TRY-NUMBER ...)
; compiling (DECLAIM (INLINE MAKE-CHAR-FROM-CODE))

; file: /«PKGBUILDDIR»/cl-ppcre/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
;                                     "No character for hex-code ~X." NUMBER)
; --> ERROR 
; ==>
;   CL-PPCRE::ERROR-POS
; 
; note: deleting unreachable code
; compiling (DEFUN MAKE-CHAR-FROM-CODE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/lexer.lisp
; in: DEFUN UNESCAPE-CHAR
;     (CL-PPCRE::MAKE-CHAR-FROM-CODE NUMBER CL-PPCRE::ERROR-POS)
; --> BLOCK LET OR LET IF OR THE CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR LIST CONS 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (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.
; compiling (DEFUN UNESCAPE-CHAR ...)
; compiling (DEFUN READ-CHAR-PROPERTY ...)
; compiling (DEFUN COLLECT-CHAR-CLASS ...)
; compiling (DEFUN MAYBE-PARSE-FLAGS ...)
; compiling (DEFUN GET-QUANTIFIER ...)
; compiling (DEFUN PARSE-REGISTER-NAME-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/lexer.lisp
; in: DEFUN GET-TOKEN
;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR "End of string following '(?<'.")
; --> CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR 
; ==>
;   "End of string following '(?<'."
; 
; note: deleting unreachable code

;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;                                     "Character '~A' may not follow '(?<'."
;                                     CL-PPCRE::NEXT-CHAR)
; ==>
;   (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS
;          (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL
;          "Character '~A' may not follow '(?<'." :FORMAT-ARGUMENTS
;          (LIST CL-PPCRE::NEXT-CHAR))
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;                                     "Character '~A' may not follow '(?'."
;                                     CL-PPCRE::NEXT-CHAR)
; ==>
;   (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS
;          (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL
;          "Character '~A' may not follow '(?'." :FORMAT-ARGUMENTS
;          (LIST CL-PPCRE::NEXT-CHAR))
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;                                     "Quantifier '~A' not allowed."
;                                     CL-PPCRE::NEXT-CHAR)
; ==>
;   (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS
;          (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL
;          "Quantifier '~A' not allowed." :FORMAT-ARGUMENTS
;          (LIST CL-PPCRE::NEXT-CHAR))
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN GET-TOKEN ...)

; file: /«PKGBUILDDIR»/cl-ppcre/lexer.lisp
; in: DECLAIM (INLINE UNGET-TOKEN)
;     (DECLAIM (INLINE CL-PPCRE::UNGET-TOKEN))
; --> EVAL-WHEN 
; ==>
;   (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.
; compiling (DECLAIM (INLINE UNGET-TOKEN))
; compiling (DEFUN UNGET-TOKEN ...)
; compiling (DECLAIM (INLINE START-OF-SUBEXPR-P))
; compiling (DEFUN START-OF-SUBEXPR-P ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/lexer-TMP.fasl written
; compilation finished in 0:00:00.242
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "cl-ppcre" "lexer">
; compiling file "/«PKGBUILDDIR»/cl-ppcre/parser.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)

; file: /«PKGBUILDDIR»/cl-ppcre/parser.lisp
; in: DEFUN GROUP
;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2)
;                                     "Opening paren has no matching closing paren.")
; ==>
;   (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS (+ CL-PPCRE::OPEN-PAREN-POS 2)
;          :FORMAT-CONTROL "Opening paren has no matching closing paren."
;          :FORMAT-ARGUMENTS (LIST))
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN GROUP ...)
; compiling (DEFUN GREEDY-QUANT ...)
; compiling (DEFUN QUANT ...)
; compiling (DEFUN SEQ ...)
; compiling (DEFUN REG-EXPR ...)
; compiling (DEFUN PARSE-STRING ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/parser-TMP.fasl written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/cl-ppcre/regex-class.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFCLASS REGEX ...)
; compiling (DEFCLASS SEQ ...)
; compiling (DEFCLASS ALTERNATION ...)
; compiling (DEFCLASS LOOKAHEAD ...)
; compiling (DEFCLASS LOOKBEHIND ...)
; compiling (DEFCLASS REPETITION ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS REGISTER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS STANDALONE ...)
; compiling (DEFCLASS BACK-REFERENCE ...)
; compiling (DEFCLASS CHAR-CLASS ...)
; compiling (DEFCLASS STR ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS ANCHOR ...)
; compiling (DEFCLASS EVERYTHING ...)
; compiling (DEFCLASS WORD-BOUNDARY ...)
; compiling (DEFCLASS BRANCH ...)
; compiling (DEFCLASS FILTER ...)
; compiling (DEFCLASS VOID ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
;     (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING)
; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

;     (LENGTH (CL-PPCRE::STR CL-PPCRE::STR))
; 
; 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 VECTOR.
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/regex-class-TMP.fasl written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFMETHOD LEN ...)
; compiling (DEFMETHOD STR ...)
; compiling (DEFMETHOD SKIP ...)
; compiling (DEFMETHOD START-OF-END-STRING-P ...)
; compiling (DEFGENERIC CASE-MODE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD CASE-MODE (STR T)
;     (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR))
; ==>
;   (= (CL-PPCRE::LEN CL-PPCRE::STR) 0)
; 
; 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 because: The operands might not be the same type.
; compiling (DEFMETHOD CASE-MODE ...)
; compiling (DEFMETHOD CASE-MODE ...)
; compiling (DEFGENERIC COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFGENERIC REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFGENERIC EVERYTHINGP ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD EVERYTHINGP (SEQ)
;     (LENGTH CL-PPCRE::CLEANED-ELEMENTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; compiling (DEFMETHOD EVERYTHINGP ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD EVERYTHINGP (ALTERNATION)
;     (DEFMETHOD CL-PPCRE::EVERYTHINGP
;                ((CL-PPCRE::ALTERNATION CL-PPCRE::ALTERNATION))
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (WITH-SLOTS (CL-PPCRE::CHOICES)
;           CL-PPCRE::ALTERNATION
;         (AND (= 1 (LENGTH CL-PPCRE::CHOICES))
;              (CL-PPCRE::EVERYTHINGP (FIRST CL-PPCRE::CHOICES)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF = 
; ==>
;   (LENGTH (SB-PCL::ACCESSOR-SLOT-VALUE #:G331 'CL-PPCRE::CHOICES))
; 
; 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 VECTOR.
; compiling (DEFMETHOD EVERYTHINGP ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD EVERYTHINGP (REPETITION)
;     (DEFMETHOD CL-PPCRE::EVERYTHINGP
;                ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION))
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (WITH-SLOTS (CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM CL-PPCRE::REGEX)
;           CL-PPCRE::REPETITION
;         (AND CL-PPCRE::MAXIMUM (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;              (CL-PPCRE::EVERYTHINGP CL-PPCRE::REGEX))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF = 
; --> (LAMBDA (#:G345 #:G344 #:G343) (DECLARE (TYPE NUMBER #:G345 #:G344 #:G343)) (IF (= #:G345 #:G344) (IF (= #:G344 #:G343) T NIL) NIL)) 
; --> SB-C::%FUNCALL IF 
; ==>
;   (= #:G345 #:G344)
; 
; 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 because: The operands might not be the same type.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF = 
; --> (LAMBDA (#:G345 #:G344 #:G343) (DECLARE (TYPE NUMBER #:G345 #:G344 #:G343)) (IF (= #:G345 #:G344) (IF (= #:G344 #:G343) T NIL) NIL)) 
; --> SB-C::%FUNCALL IF IF 
; ==>
;   (= #:G344 #:G343)
; 
; 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 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.
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFGENERIC REGEX-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; 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 ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY SETQ 
; --> THE 
; ==>
;   (+ #:LOOP-SUM-394 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.
; compiling (DEFMETHOD REGEX-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-LENGTH (ALTERNATION)
;     (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN)
; --> IF 
; ==>
;   (= CL-PPCRE::LEN CL-PPCRE::OLD-LEN)
; 
; 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 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.
; compiling (DEFMETHOD REGEX-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; 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 GENERIC-EQL (cost 10)
;       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.
; compiling (DEFMETHOD REGEX-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-LENGTH (REPETITION)
;     (DEFMETHOD CL-PPCRE::REGEX-LENGTH
;                ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION))
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;           CL-PPCRE::REPETITION
;         (IF (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
;             (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
;             NIL)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF 
; ==>
;   (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G425 'CL-PPCRE::MINIMUM)
;      (SB-PCL::ACCESSOR-SLOT-VALUE #:G425 'CL-PPCRE::LEN))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF THE 
; ==>
;   (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G425 'CL-PPCRE::MINIMUM)
;        (SB-PCL::ACCESSOR-SLOT-VALUE #:G425 'CL-PPCRE::MAXIMUM))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF 
; ==>
;   (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G425 'CL-PPCRE::MINIMUM)
;      (SB-PCL::ACCESSOR-SLOT-VALUE #:G425 'CL-PPCRE::LEN))
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).
;       unable to do inline float arithmetic (cost 4) 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.
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFGENERIC REGEX-MIN-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; 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)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY SETQ 
; --> THE 
; ==>
;   (+ #:LOOP-SUM-511 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.
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; 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)
; --> BLOCK LET LET SB-LOOP::WITH-MINIMAX-VALUE LET SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF OR THE < 
; --> IF 
; ==>
;   (< #:LOOP-MAXMIN-TEMP-528 #:LOOP-MAXMIN-527)
; 
; 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.
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; 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)))
; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::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.

; --> LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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 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.
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION)
;     (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
;        (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).
;       unable to do inline float arithmetic (cost 4) 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.
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFGENERIC COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T)
;     (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET)
; --> IF 
; ==>
;   (= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET)
; 
; 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 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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; 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 GENERIC-EQL (cost 10)
;       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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T)
;     (DEFMETHOD CL-PPCRE::COMPUTE-OFFSETS
;                ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION) CL-PPCRE::START-POS)
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;           CL-PPCRE::REPETITION
;         (IF (AND CL-PPCRE::LEN (EQ CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
;             (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN))
;             NIL)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF + 
; ==>
;   (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G677 'CL-PPCRE::MINIMUM)
;      (SB-PCL::ACCESSOR-SLOT-VALUE #:G677 'CL-PPCRE::LEN))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).
;       unable to do inline float arithmetic (cost 4) 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.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF 
; ==>
;   (+ CL-PPCRE::START-POS
;      (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G677 'CL-PPCRE::MINIMUM)
;         (SB-PCL::ACCESSOR-SLOT-VALUE #:G677 '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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T)
;     (1+ CL-PPCRE::START-POS)
; ==>
;   (+ CL-PPCRE::START-POS 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T)
;     (1+ CL-PPCRE::START-POS)
; ==>
;   (+ CL-PPCRE::START-POS 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (STR T)
;     (+ CL-PPCRE::START-POS (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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T)
;     (+ CL-PPCRE::START-POS 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.
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/regex-class-util-TMP.fasl written
; compilation finished in 0:00:00.340
; compiling file "/«PKGBUILDDIR»/cl-ppcre/convert.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFMACRO CASE-INSENSITIVE-MODE-P ...)
; compiling (DEFMACRO MULTI-LINE-MODE-P ...)
; compiling (DEFMACRO SINGLE-LINE-MODE-P ...)
; compiling (DEFUN SET-FLAG ...)
; compiling (DEFGENERIC RESOLVE-PROPERTY ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION
;     (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; in: DEFUN MAYBE-SPLIT-REPETITION
;     (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN MAYBE-SPLIT-REPETITION ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; in: DEFUN MAYBE-ACCUMULATE
;     (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)
; --> PROGN 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-BASE-STRING.
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
;   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-ARRAY CHARACTER (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY CHARACTER
;                                                        (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        SINGLE-FLOAT (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        DOUBLE-FLOAT (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
;   The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
;                                                              &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 2) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 4) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 7) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 8) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 15) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 16) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 31) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 32) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 62) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 63) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (UNSIGNED-BYTE 64) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (SIGNED-BYTE 8) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (SIGNED-BYTE 16) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (SIGNED-BYTE 32) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY FIXNUM (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (SIGNED-BYTE 64) (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
;                                            (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (COMPLEX SINGLE-FLOAT)
;                                                        (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
;                                            (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
;                                             (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY
;                                                        (COMPLEX DOUBLE-FLOAT)
;                                                        (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
;   The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
;                                                              &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).

;     (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
;             (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
;                (CL-PPCRE::LEN CL-PPCRE::STR)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF CL-PPCRE::LEN) #:NEW112 #:STARTS-WITH111)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN MAYBE-ACCUMULATE ...)
; compiling (DECLAIM (INLINE CONVERT-AUX))
; compiling (DEFUN CONVERT-AUX ...)
; compiling (DEFGENERIC CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (1- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE))
; ==>
;   (- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE) 1)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T)
;     (ZEROP LENGTH)
; --> = IF 
; ==>
;   (= LENGTH 0)
; 
; 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 because: The operands might not be the same type.

;     (1- CL-PPCRE::MAXIMUM)
; ==>
;   (- CL-PPCRE::MAXIMUM 1)
; 
; note: doing signed word to integer coercion (cost 20)

;     (1- CL-PPCRE::MINIMUM)
; ==>
;   (- CL-PPCRE::MINIMUM 1)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 64) arithmetic
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; 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.
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T)
;     (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a STRING.
;   The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                                SYMBOL CHARACTER), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.
;   The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                                SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.

;     (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 (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-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 ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* 
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+ 
; ==>
;   (+ CL-PPCRE::REG-INDEX 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)
; ==>
;   (- CL-PPCRE::BACKREF-NUMBER 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.
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; compiling (DEFGENERIC CONVERT-SIMPLE-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...)
; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/convert.lisp
; in: DEFUN CONVERT
;     (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING)
; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD GATHER-STRINGS (SEQ)
;     (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))
; --> PROGN 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-BASE-STRING.
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
;   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-ARRAY CHARACTER (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY CHARACTER
;                                                      (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY SINGLE-FLOAT
;                                                      (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY DOUBLE-FLOAT
;                                                      (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-BIT-VECTOR.
;   The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
;                                                            &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 2) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 4) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 7) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 8) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 15) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 16) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 31) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 32) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 62) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 63) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (UNSIGNED-BYTE 64) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (SIGNED-BYTE 8) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (SIGNED-BYTE 16) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (SIGNED-BYTE 32) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY FIXNUM (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY FIXNUM (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (SIGNED-BYTE 64) (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
;                                          (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (COMPLEX SINGLE-FLOAT)
;                                                      (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
;                                          (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
;                                             (*)).
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
;                                                     (SIMPLE-ARRAY
;                                                      (COMPLEX DOUBLE-FLOAT)
;                                                      (*))
;                                                     &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-VECTOR.
;   The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
;   The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-VECTOR &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))
; --> SETQ 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 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       etc.
; compiling (DEFUN CONVERT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/convert-TMP.fasl written
; compilation finished in 0:00:00.399
; compiling file "/«PKGBUILDDIR»/cl-ppcre/optimize.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFGENERIC FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFGENERIC GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFGENERIC START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD START-ANCHORED-P (REPETITION)
;     (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION))
; ==>
;   (> (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) 0)
; 
; 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.
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD START-ANCHORED-P (REGEX)
;     (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX))
; ==>
;   (= (CL-PPCRE::LEN CL-PPCRE::REGEX) 0)
; 
; 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 because: The operands might not be the same type.
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFGENERIC END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD END-STRING-AUX (SEQ)
;     (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END))
; --> = IF 
; ==>
;   (= (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END) 0)
; 
; 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 because: The operands might not be the same type.

;     (CHAR CL-PPCRE::STR CL-PPCRE::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFUN END-STRING ...)
; compiling (DEFGENERIC COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; 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))
; --> BLOCK LET SB-LOOP::WITH-MINIMAX-VALUE LET SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF OR THE < 
; --> IF 
; ==>
;   (< #:LOOP-MAXMIN-TEMP-355 #:LOOP-MAXMIN-354)
; 
; 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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; 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))
; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::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.

; --> LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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 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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (STR T)
;     (+ CL-PPCRE::CURRENT-MIN-REST (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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T)
;     (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0))
; 
; 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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T)
;     (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
;        (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).
;       unable to do inline float arithmetic (cost 4) 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::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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T)
;     (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND))
; 
; 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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; file: /«PKGBUILDDIR»/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T)
;     (1+ CL-PPCRE::CURRENT-MIN-REST)
; ==>
;   (+ CL-PPCRE::CURRENT-MIN-REST 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/optimize-TMP.fasl written
; compilation finished in 0:00:00.218
; compiling file "/«PKGBUILDDIR»/cl-ppcre/closures.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DECLAIM (INLINE *STRING*= ...))
; compiling (DEFUN *STRING*= ...)

; file: /«PKGBUILDDIR»/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))
; ==>
;   (SB-INT:TWO-ARG-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.
; compiling (DEFUN *STRING*-EQUAL ...)
; compiling (DEFGENERIC CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T)
;     (FUNCALL CL-PPCRE::TEST-MATCHER (- CL-PPCRE::START-POS CL-PPCRE::LEN))
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-MATCHER)
;                   (- CL-PPCRE::START-POS CL-PPCRE::LEN))
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMACRO INSERT-CHAR-CLASS-TESTER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/closures.lisp
; 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 LET LAMBDA FUNCTION AND IF AND IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION186)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/closures.lisp
; 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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

;     (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR)
; ==>
;   (SB-INT:TWO-ARG-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 SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a 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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

;     (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::NEXT-FN)
;                   (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DECLAIM (INLINE WORD-BOUNDARY-P))
; compiling (DEFUN WORD-BOUNDARY-P ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/closures.lisp
; 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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T)
;     (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::FN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::NEXT-FN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/closures-TMP.fasl written
; compilation finished in 0:00:00.256
; compiling file "/«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFMACRO INCF-AFTER ...)
; compiling (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...)
; compiling (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)

; file: /«PKGBUILDDIR»/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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> BLOCK TAGBODY WHEN IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION123)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

;     (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; ==>
;   (SB-INT:TWO-ARG-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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

;     (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))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (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))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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*= CL-PPCRE::STR CL-PPCRE::CURR-POS
;                           (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 64) arithmetic
; compiling (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; --> LET* + AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; --> LET* SB-IMPL::XSUBTRACT AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...)
; compiling (DEFGENERIC CREATE-GREEDY-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; 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)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; --> LET* + AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; --> LET* SB-IMPL::XSUBTRACT AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFMETHOD CREATE-GREEDY-MATCHER ...)
; compiling (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF FUNCALL 
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION580)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

;     (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; ==>
;   (SB-INT:TWO-ARG-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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

;     (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))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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::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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (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))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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::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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET MIN LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> IF LAMBDA FUNCTION LET 1+ 
; ==>
;   (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
; 
; 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.

; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION 
; --> LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; 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)))
; --> IF LAMBDA FUNCTION LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - 
; ==>
;   (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET 
; ==>
;   (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 64) arithmetic
; compiling (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; --> LET* + AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; --> LET* SB-IMPL::XSUBTRACT AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; compiling (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; 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)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; --> LET* + AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; --> LET* SB-IMPL::XSUBTRACT AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...)
; compiling (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; 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 LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA 
; --> FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY 
; --> UNLESS IF AND IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION933)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; ==>
;   (SB-INT:TWO-ARG-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 SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.
; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; --> LET* + AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; --> LET* SB-IMPL::XSUBTRACT AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; ==>
;   (= (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION) 0)
; 
; 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 because: The operands might not be the same type.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; --> LET* + AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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))
; --> LET* SB-IMPL::XSUBTRACT AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T)
;     (DEFMETHOD CL-PPCRE::CREATE-MATCHER-AUX
;                ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION) CL-PPCRE::NEXT-FN)
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (WITH-SLOTS (CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM CL-PPCRE::LEN
;                                      CL-PPCRE::MIN-LEN CL-PPCRE::GREEDYP
;                                      CL-PPCRE::CONTAINS-REGISTER-P)
;           CL-PPCRE::REPETITION
;         (COND
;          ((AND CL-PPCRE::MAXIMUM #)
;           (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)"))
;          ((AND CL-PPCRE::MAXIMUM #)
;           (ERROR
;            "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)"))
;          ((AND # CL-PPCRE::LEN #)
;           (CL-PPCRE::CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER
;            CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN))
;          ((EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;           (CL-PPCRE::CREATE-CONSTANT-REPETITION-MATCHER CL-PPCRE::REPETITION
;            CL-PPCRE::NEXT-FN))
;          ((AND CL-PPCRE::GREEDYP CL-PPCRE::LEN #)
;           (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION
;            CL-PPCRE::NEXT-FN))
;          ((AND CL-PPCRE::GREEDYP #)
;           (CL-PPCRE::CREATE-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION
;            CL-PPCRE::NEXT-FN))
;          (CL-PPCRE::GREEDYP
;           (CL-PPCRE::CREATE-GREEDY-MATCHER CL-PPCRE::REPETITION
;            CL-PPCRE::NEXT-FN))
;          ((AND CL-PPCRE::LEN # #)
;           (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER
;            CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN))
;          ((OR # #)
;           (CL-PPCRE::CREATE-NON-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION
;            CL-PPCRE::NEXT-FN))
;          (T
;           (CL-PPCRE::CREATE-NON-GREEDY-MATCHER CL-PPCRE::REPETITION
;            CL-PPCRE::NEXT-FN)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF THE ZEROP 
; ==>
;   (= (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MAXIMUM) 0)
; 
; 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 because: The operands might not be the same type.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF THE = 
; --> (LAMBDA (#:G1108 #:G1107 #:G1106) (DECLARE (TYPE NUMBER #:G1108 #:G1107 #:G1106)) (IF (= #:G1108 #:G1107) (IF (= #:G1107 #:G1106) T NIL) NIL)) 
; --> SB-C::%FUNCALL IF 
; ==>
;   (= #:G1108 #:G1107)
; 
; 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 because: The operands might not be the same type.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF THE = 
; --> (LAMBDA (#:G1108 #:G1107 #:G1106) (DECLARE (TYPE NUMBER #:G1108 #:G1107 #:G1106)) (IF (= #:G1108 #:G1107) (IF (= #:G1107 #:G1106) T NIL) NIL)) 
; --> SB-C::%FUNCALL IF IF 
; ==>
;   (= #:G1107 #:G1106)
; 
; 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 because: The operands might not be the same type.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF 
; --> THE LET PLUSP > IF 
; ==>
;   (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MIN-LEN) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF 
; --> IF IF PLUSP 
; ==>
;   (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::LEN) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF 
; --> IF LET PLUSP > IF 
; ==>
;   (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MIN-LEN) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF THE = 
; --> (LAMBDA (#:G1108 #:G1107 #:G1106) (DECLARE (TYPE NUMBER #:G1108 #:G1107 #:G1106)) (IF (= #:G1108 #:G1107) (IF (= #:G1107 #:G1106) T NIL) NIL)) 
; --> SB-C::%FUNCALL IF 
; ==>
;   (= #:G1108 #:G1107)
; 
; 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.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF 
; ==>
;   (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MINIMUM)
;        (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MAXIMUM))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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 GENERIC-EQL (cost 10)
;       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.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF 
; --> THE LET PLUSP > IF 
; ==>
;   (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MIN-LEN) 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.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF 
; --> IF IF PLUSP 
; ==>
;   (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::LEN) 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.

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF 
; --> IF LET PLUSP > IF 
; ==>
;   (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1101 'CL-PPCRE::MIN-LEN) 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.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/repetition-closures-TMP.fasl written
; compilation finished in 0:00:00.483
; compiling file "/«PKGBUILDDIR»/cl-ppcre/scanner.lisp" (written 09 SEP 2014 08:18:38 PM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFMACRO BMH-MATCHER-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
;     (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF AND IF AND THE CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
;                              (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J))
; 
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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.

;     (MAKE-ARRAY CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* :ELEMENT-TYPE 'FIXNUM
;                 :INITIAL-ELEMENT CL-PPCRE::M)
; --> LOCALLY MAKE-ARRAY TRULY-THE FILL LET* 
; ==>
;   (SB-KERNEL:UB64-BASH-FILL
;    (LET* ((SB-C::BITS (LDB # #)) (SB-C::RES SB-C::BITS))
;      (DECLARE (TYPE WORD SB-C::RES))
;      SB-C::RES)
;    SB-C::SEQ (SB-KERNEL:%CHECK-BOUND SB-C::SEQ SB-C::BOUND SB-C::START)
;    (-
;     (IF SB-C::END
;         (SB-KERNEL:%CHECK-BOUND SB-C::SEQ SB-C::BOUND SB-C::END)
;         SB-C::LEN)
;     SB-C::START))
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN CREATE-BMH-MATCHER ...)
; compiling (DEFMACRO CHAR-SEARCHER-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-CHAR-SEARCHER
;     (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION AND IF AND THE LOOP BLOCK LET LET SB-LOOP::LOOP-BODY 
; --> TAGBODY WHEN IF SETQ THE AND IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
;                              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.
; compiling (DEFUN CREATE-CHAR-SEARCHER ...)
; compiling (DECLAIM (INLINE NEWLINE-SKIPPER))
; compiling (DEFUN NEWLINE-SKIPPER ...)
; compiling (DEFMACRO INSERT-ADVANCE-FN ...)

; file: /«PKGBUILDDIR»/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-SCANNER-AUX
;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY 
; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK 
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE 
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < 
; ==>
;   (+ 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 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE 
; ==>
;   (< (+ 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.

; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP 
; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN 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) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEA5793}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEA6663}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEA75F3}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEA8603}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEA9593}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEAA523}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEAB4B3}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

;     (SETQ CL-PPCRE::TRY-POS (1+ CL-PPCRE::*END-STRING-POS*))
; 
; note: doing signed word to integer coercion (cost 20) to TRY-POS
; 
; note: doing signed word to integer coercion (cost 20) to TRY-POS

;     (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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)

;     (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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* 
; ==>
;   (SB-C::%SPECIAL-BIND
;    '#<SB-C::GLOBAL-VAR
;       :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;       :KIND :SPECIAL {100AE18153}>
;    #<SB-C::LAMBDA-VAR
;      :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;      :FLAGS (SB-C::DELETED)
;      :SPECVAR #<SB-C::GLOBAL-VAR
;                 :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
;                 :KIND :SPECIAL {100AE18153}>
;      {100BEAC443}>)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of BIND/LET

;     (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
; --> SB-C::%FUNCALL 
; ==>
;   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

;     (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 #
;                #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN 
; --> IF PROGN SETQ THE FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST)
;                   (1- CL-PPCRE::END-TEST-POS))
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN CREATE-SCANNER-AUX ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/scanner-TMP.fasl written
; compilation finished in 0:00:00.931
; compiling file "/«PKGBUILDDIR»/cl-ppcre/api.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CL-PPCRE)
; compiling (DEFGENERIC CREATE-SCANNER ...)

; file: /«PKGBUILDDIR»/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.
; compiling (DEFMETHOD CREATE-SCANNER ...)
; compiling (DEFMETHOD CREATE-SCANNER ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFMETHOD CREATE-SCANNER (T)
;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
;   (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
; 
; 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 because: The operands might not be the same type.

;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
;   (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
; 
; 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 because: The operands might not be the same type.

;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
;   (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 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.

;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
;   (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 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.
; compiling (DEFMETHOD CREATE-SCANNER ...)
; compiling (DEFGENERIC SCAN ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; --> LET COND IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY 
; --> MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> LET COND IF COND THE PROGN COERCE THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; compiling (DEFMETHOD SCAN ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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)
; --> LET COND IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY 
; --> MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> LET COND IF COND THE PROGN COERCE THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; compiling (DEFMETHOD SCAN ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; --> LET COND IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY 
; --> MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> LET COND IF COND THE PROGN COERCE THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; compiling (DEFMETHOD SCAN ...)
; compiling (DEFINE-COMPILER-MACRO SCAN ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN SCAN-TO-STRINGS
;     (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)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET 
; ==>
;   (LENGTH #:G321)
; 
; 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 VECTOR.

;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; 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 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)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET LET MIN LET 
; ==>
;   (LENGTH #:G322)
; 
; 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 VECTOR.
; compiling (DEFUN SCAN-TO-STRINGS ...)
; compiling (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...)
; compiling (DEFMACRO REGISTER-GROUPS-BIND ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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.  After
;   the last match, returns RESULT-FORM if provided or NIL otherwise. An
;   implicit block named NIL surrounds DO-SCANS; RETURN may be used to
;   terminate the loop immediately.  If REGEX matches an empty string the
;   scan is continued one position behind this match. BODY may start with
;   declarations."
;       (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)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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.  After
;   the last match, returns RESULT-FORM if provided or NIL otherwise. An
;   implicit block named NIL surrounds DO-SCANS; RETURN may be used to
;   terminate the loop immediately.  If REGEX matches an empty string the
;   scan is continued one position behind this match. BODY may start with
;   declarations."
;       (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* #
;                #
;                #)))))
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-SCANS . DEFMACRO)
;       ((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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-SCANS
;       (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 #)
;           `(BLOCK NIL #)))))
; 
; 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)

; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-SCANS . DEFMACRO)
;       ((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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-SCANS
;       (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 #)
;           `(BLOCK NIL #)))))
; 
; 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)
; compiling (DEFMACRO DO-SCANS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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,
;   returns RESULT-FORM if provided or NIL otherwise.  An implicit block
;   named NIL surrounds DO-MATCHES; RETURN may be used to terminate the
;   loop immediately.  If REGEX matches an empty string the scan is
;   continued one position behind this match.  BODY may start with
;   declarations."
;       (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)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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,
;   returns RESULT-FORM if provided or NIL otherwise.  An implicit block
;   named NIL surrounds DO-MATCHES; RETURN may be used to terminate the
;   loop immediately.  If REGEX matches an empty string the scan is
;   continued one position behind this match.  BODY may start with
;   declarations."
;       (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)))
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-MATCHES . DEFMACRO)
;       ((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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-MATCHES
;       (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)

; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-MATCHES . DEFMACRO)
;       ((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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-MATCHES
;       (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)
; compiling (DEFMACRO DO-MATCHES ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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
;   match, returns RESULT-FORM if provided or NIL otherwise.  An implicit
;   block named NIL surrounds DO-MATCHES-AS-STRINGS; RETURN may be used to
;   terminate the loop immediately.  If REGEX matches an empty string the
;   scan is continued one position behind this match.  If SHAREDP is true,
;   the substrings may share structure with TARGET-STRING.  BODY may start
;   with declarations."
;       (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)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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
;   match, returns RESULT-FORM if provided or NIL otherwise.  An implicit
;   block named NIL surrounds DO-MATCHES-AS-STRINGS; RETURN may be used to
;   terminate the loop immediately.  If REGEX matches an empty string the
;   scan is continued one position behind this match.  If SHAREDP is true,
;   the substrings may share structure with TARGET-STRING.  BODY may start
;   with declarations."
;       (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 #
;                #)))))
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-MATCHES-AS-STRINGS . DEFMACRO)
;       ((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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-MATCHES-AS-STRINGS
;       (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 #
;              #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX
;                                                      TARGET-STRING &OPTIONAL
;                                                      RESULT-FORM &KEY START END
;                                                      SHAREDP)

; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-MATCHES-AS-STRINGS . DEFMACRO)
;       ((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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-MATCHES-AS-STRINGS
;       (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 #
;              #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX
;                                                      TARGET-STRING &OPTIONAL
;                                                      RESULT-FORM &KEY START END
;                                                      SHAREDP)
; compiling (DEFMACRO DO-MATCHES-AS-STRINGS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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
;   variable is either bound to a string or to NIL.  For each element of
;   VAR-LIST which is NIL there's no binding to the corresponding register
;   group. The number of variables in VAR-LIST must not be greater than
;   the number of register groups.  After the last match, returns
;   RESULT-FORM if provided or NIL otherwise.  An implicit block named NIL
;   surrounds DO-REGISTER-GROUPS; RETURN may be used to terminate the loop
;   immediately. If REGEX matches an empty string the scan is continued
;   one position behind this match.  If SHAREDP is true, the substrings
;   may share structure with TARGET-STRING.  BODY may start with
;   declarations."
;       (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)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
;       "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
;   variable is either bound to a string or to NIL.  For each element of
;   VAR-LIST which is NIL there's no binding to the corresponding register
;   group. The number of variables in VAR-LIST must not be greater than
;   the number of register groups.  After the last match, returns
;   RESULT-FORM if provided or NIL otherwise.  An implicit block named NIL
;   surrounds DO-REGISTER-GROUPS; RETURN may be used to terminate the loop
;   immediately. If REGEX matches an empty string the scan is continued
;   one position behind this match.  If SHAREDP is true, the substrings
;   may share structure with TARGET-STRING.  BODY may start with
;   declarations."
;       (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 #
;                #)))))
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-REGISTER-GROUPS . DEFMACRO)
;       (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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-REGISTER-GROUPS
;       (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 #
;              #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING
;                                                            &OPTIONAL RESULT-FORM
;                                                            &KEY START END SHAREDP)

; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::NAMED-DS-BIND (:MACRO CL-PPCRE:DO-REGISTER-GROUPS . DEFMACRO)
;       (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)
;       (CDR #:EXPR)
;     (BLOCK CL-PPCRE:DO-REGISTER-GROUPS
;       (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 #
;              #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING
;                                                            &OPTIONAL RESULT-FORM
;                                                            &KEY START END SHAREDP)
; compiling (DEFMACRO DO-REGISTER-GROUPS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN ALL-MATCHES
;     (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))
; --> CL-PPCRE:DO-SCANS 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 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 because: The operands might not be the same type.

; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   (+ CL-PPCRE::MATCH-END 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; 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 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))
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR THE 
; ==>
;   (LENGTH #:TARGET-STRING778)
; 
; 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 VECTOR.

; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE 
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE 
; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE 
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE 
; --> THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

; --> CL-PPCRE:DO-SCANS 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.

; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   (+ CL-PPCRE::MATCH-END 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.
; compiling (DEFUN ALL-MATCHES ...)
; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN ALL-MATCHES-AS-STRINGS
;     (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 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-START861 #:MATCH-END862)
; 
; 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 because: The operands might not be the same type.

; --> LET 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+ 
; ==>
;   (+ #:MATCH-END862 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; 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 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 LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR 
; --> THE 
; ==>
;   (LENGTH #:TARGET-STRING866)
; 
; 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 VECTOR.

; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE 
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE 
; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE 
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE 
; --> THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

; --> LET 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-START861 #:MATCH-END862)
; 
; 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 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+ 
; ==>
;   (+ #:MATCH-END862 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.
; compiling (DEFUN ALL-MATCHES-AS-STRINGS ...)
; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN SPLIT
;     (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; 
; 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 because: The operands might not be the same type.

;     (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
; 
; 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 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 ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ 
; --> THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)))
; --> 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 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 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+ 
; ==>
;   (+ CL-PPCRE::MATCH-END 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
; 
; 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.

;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; 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 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)))
; --> LET BLOCK LET* OR LET IF OR THE 
; ==>
;   (LENGTH #:TARGET-STRING948)
; 
; 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 VECTOR.

; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND 
; --> IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND 
; --> IF COND THE PROGN COERCE THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

;     (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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 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.

;     (INCF CL-PPCRE::COUNTER)
; --> SETQ 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)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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)))
; --> 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+ 
; ==>
;   (+ CL-PPCRE::MATCH-END 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.

;     (> 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.
; compiling (DEFUN SPLIT ...)
; compiling (DEFINE-COMPILER-MACRO SPLIT ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN STRING-CASE-MODIFIER
;     (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAR CL-PPCRE::STR CL-PPCRE::TO)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN STRING-CASE-MODIFIER ...)
; compiling (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; 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))
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                           CL-PPCRE::REG-SCANNER CL-PPCRE::REPLACEMENT-STRING)
;       (WHEN (< CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;         (PUSH
;          (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM
;                  CL-PPCRE::MATCH-START)
;          CL-PPCRE::COLLECTOR))
;       (LET* ((CL-PPCRE::PARSE-START
;               (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING
;                            :START CL-PPCRE::MATCH-START :END
;                            CL-PPCRE::MATCH-END))
;              (CL-PPCRE::TOKEN
;               (IF CL-PPCRE::PARSE-START
;                   #
;                   #)))
;         (WHEN (AND (NUMBERP CL-PPCRE::TOKEN) (< CL-PPCRE::TOKEN 0))
;           (CL-PPCRE::SIGNAL-INVOCATION-ERROR
;            "Illegal substring ~S in replacement string."
;            (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::MATCH-START
;                    CL-PPCRE::MATCH-END)))
;         (PUSH CL-PPCRE::TOKEN CL-PPCRE::COLLECTOR))
;       (SETQ CL-PPCRE::FROM CL-PPCRE::MATCH-END))
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE 
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE 
; --> THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a STRING, not a SIMPLE-BASE-STRING.

;     (< 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))
; ==>
;   (-
;    (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START
;                   :JUNK-ALLOWED T)
;    1)
; 
; 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 GENERIC-< (cost 10)
;       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.
;       etc.
; compiling (LET* (# #) ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN BUILD-REPLACEMENT
;     (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0)
; 
; note: unable to
;   optimize
; because:
;   The array dimensions are unknown; must call ARRAY-DIMENSION at runtime.

;     (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)
; --> TRULY-THE 
; ==>
;   (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G1227 #:G1228)
; 
; 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))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TOKEN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (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)
; --> TRULY-THE 
; ==>
;   (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G1229 #:G1230)
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TOKEN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
; --> IF 
; ==>
;   (< SB-C::X SB-C::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.

;     (1+ CL-PPCRE::TOKEN)
; ==>
;   (+ CL-PPCRE::TOKEN 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.

;     (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
;                        CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (- CL-PPCRE::END CL-PPCRE::START)
; 
; 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.

;     (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
;                        CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (- CL-PPCRE::END CL-PPCRE::START)
; 
; 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.
; compiling (DEFUN BUILD-REPLACEMENT ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM
;     CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN REPLACE-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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.
; compiling (DEFUN REGEX-REPLACE ...)
; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN REGEX-REPLACE-ALL
;     (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))
; --> 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 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 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+ 
; ==>
;   (+ CL-PPCRE::MATCH-END 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, 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.

;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; 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 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))
; --> LET BLOCK LET* OR LET IF OR THE 
; ==>
;   (LENGTH #:TARGET-STRING1331)
; 
; 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 VECTOR.

; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND 
; --> IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; 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 VECTOR.

; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND 
; --> IF COND THE PROGN COERCE THE IF 
; ==>
;   (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

; --> 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+ 
; ==>
;   (+ CL-PPCRE::MATCH-END 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.
; compiling (DEFUN REGEX-REPLACE-ALL ...)
; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...)
; compiling (DEFMACRO REGEX-APROPOS-AUX ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; 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)))
;       "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-insensitive scanner is used."
;       (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))))
; --> PROGN 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))
;       "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-insensitive scanner is used."
;       (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))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES
;                                                            &KEY
;                                                            (CASE-INSENSITIVE T))
; compiling (DEFUN REGEX-APROPOS-LIST ...)
; compiling (DEFUN PRINT-SYMBOL-INFO ...)

; file: /«PKGBUILDDIR»/cl-ppcre/api.lisp
; in: DEFUN REGEX-APROPOS
;     (DEFUN CL-PPCRE:REGEX-APROPOS
;            (CL-PPCRE::REGEX
;             &OPTIONAL CL-PPCRE::PACKAGES
;             &KEY (CL-PPCRE::CASE-INSENSITIVE T))
;       "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 scanner
;   is used."
;       (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))
; --> PROGN 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))
;       "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 scanner
; is used."
;       (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))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES
;                                                            &KEY
;                                                            (CASE-INSENSITIVE T))
; compiling (DEFUN REGEX-APROPOS ...)
; compiling (LET* (# #) ...)
; compiling (LET* (# # ...) ...)
; compiling (LET* (# # ...) ...)
; compiling (DEFUN PARSE-TREE-SYNONYM ...)
; compiling (DEFUN (SETF PARSE-TREE-SYNONYM) ...)
; compiling (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cl-ppcre/api-TMP.fasl written
; compilation finished in 0:00:00.526
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "cl-ppcre" "api">
; 
; compilation unit finished
;   caught 18 STYLE-WARNING conditions
;   printed 711 notes
; compiling file "/«PKGBUILDDIR»/chaos-package.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (PUSHNEW :BIGPINK ...)
; compiling (REQUIRE :ASDF)
; compiling (DEFPACKAGE :CL-PPCRE-ASD ...)
; compiling (DEFPACKAGE :CL-PPCRE ...)
; compiling (DEFPACKAGE "CHAOS" ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos-package-TMP.fasl written
; compilation finished in 0:00:00.002
; compiling file "/«PKGBUILDDIR»/version.lisp" (written 03 NOV 2015 05:17:34 PM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFVAR CAFEOBJ-VERSION)
; compiling (DEFVAR CAFEOBJ-VERSION-MAJOR)
; compiling (DEFVAR CAFEOBJ-VERSION-MINOR)
; compiling (DEFVAR CAFEOBJ-VERSION-MEMO)
; compiling (DEFVAR PATCH-LEVEL ...)
; compiling (SETQ CAFEOBJ-VERSION-MAJOR ...)
; compiling (SETQ CAFEOBJ-VERSION-MEMO ...)
; compiling (SETQ PATCH-LEVEL ...)
; compiling (IF (NOT #) ...)
; compiling (SETQ CAFEOBJ-VERSION ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/version-TMP.fasl written
; compilation finished in 0:00:00.003
; compiling file "/«PKGBUILDDIR»/comlib/globals.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL *CURRENT-MODULE* ...))
; compiling (DEFVAR *TOP-LEVEL-DEFINITION-IN-PROGRESS* ...)
; compiling (DECLAIM (SPECIAL *OPEN-MODULE* ...))
; compiling (DEFVAR *CURRENT-MODULE* ...)
; compiling (DEFVAR *CURRENT-SORT-ORDER* ...)
; compiling (DEFVAR *CURRENT-OPINFO-TABLE* ...)
; compiling (DEFVAR *CURRENT-EXT-RULE-TABLE* ...)
; compiling (DEFVAR *OPEN-MODULE* ...)
; compiling (DEFVAR *LAST-BEFORE-OPEN* ...)
; compiling (DEFVAR *CHAOS-FEATURES* ...)
; compiling (DECLAIM (SPECIAL *CHAOS-VERBOSE* ...))
; compiling (DEFVAR *CHAOS-VERBOSE* ...)
; compiling (DEFVAR *CHAOS-QUIET* ...)
; compiling (DEFVAR *CHAOS-INPUT-SOURCE* ...)
; compiling (DECLAIM (SPECIAL *CHAOS-INPUT-LEVEL*) ...)
; compiling (DEFVAR *CHAOS-INPUT-LEVEL* ...)
; compiling (DEFVAR *CHAOS-INPUT-NESTING-LIMIT* ...)
; compiling (DECLAIM (SPECIAL *AUTO-CONTEXT-CHANGE*))
; compiling (DEFVAR *AUTO-CONTEXT-CHANGE* ...)
; compiling (DEFVAR *SYSTEM-PRELUDE-DIR* ...)
; compiling (DEFVAR *SYSTEM-LIB-DIR* ...)
; compiling (DEFVAR *SYSTEM-EX-DIR* ...)
; compiling (DECLAIM (SPECIAL *TRACE-LEVEL*))
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TRACE-LEVEL* ...)
; compiling (DECLAIM (SPECIAL *SELF*))
; compiling (DEFVAR *SELF* ...)
; compiling (DEFVAR $$COND ...)
; compiling (DEFVAR $$TRACE-REWRITE ...)
; compiling (DEFVAR $$TRACE-REWRITE-WHOLE ...)
; compiling (DEFVAR $$TRACE-PROOF ...)
; compiling (DEFVAR *PROOF-TREE* ...)
; compiling (DEFVAR *NEXT-DEFAULT-PROOF-NODE* ...)
; compiling (DEFVAR *CITP-VERBOSE* ...)
; compiling (DEFVAR *CITP-NORMALIZE-INSTANCE* ...)
; compiling (DEFVAR *REWRITE-STEPPING* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REWRITE-COUNT-LIMIT* ...)
; compiling (DEFVAR *REWRITE-STOP-PATTERN* ...)
; compiling (DEFVAR *STEPS-TO-BE-DONE* ...)
; compiling (DEFVAR $$MOD ...)
; compiling (DEFVAR *OLD-CONTEXT* ...)
; compiling (DECLAIM (SPECIAL *OLD-CONTEXT*))
; compiling (DECLAIM (SPECIAL *ALLOW-$$TERM*))
; compiling (DEFVAR *ALLOW-$$TERM* ...)
; compiling (DEFVAR $$TERM ...)
; compiling (DEFVAR $$SUBTERM ...)
; compiling (DEFVAR $$TERM-CONTEXT ...)
; compiling (DEFVAR $$SELECTION-STACK ...)
; compiling (DEFVAR $$ACTION-STACK ...)
; compiling (DEFVAR $$NORM ...)
; compiling (DEFVAR $$SHOW-RED ...)
; compiling (DEFVAR *PERFORM-ON-DEMAND-REDUCTION* ...)
; compiling (DECLAIM (SPECIAL *REWRITE-EXEC-MODE*))
; compiling (DEFVAR *REWRITE-EXEC-MODE* ...)
; compiling (DECLAIM (SPECIAL *CEXEC-TARGET*))
; compiling (DEFVAR *CEXEC-TARGET* ...)
; compiling (DECLAIM (SPECIAL *REWRITE-EXEC-CONDITION*))
; compiling (DEFVAR *REWRITE-EXEC-CONDITION* ...)
; compiling (DECLAIM (SPECIAL *REWRITE-SEMANTIC-REDUCE*) ...)
; compiling (DEFVAR *REWRITE-SEMANTIC-REDUCE* ...)
; compiling (DECLAIM (SPECIAL *BEH-REWRITE*) ...)
; compiling (DEFVAR *BEH-REWRITE* ...)
; compiling (DECLAIM (TYPE FIXNUM ...) ...)
; compiling (DEFVAR *RULE-COUNT* ...)
; compiling (DEFVAR *SHOW-STATS* ...)
; compiling (DEFVAR *TRY-TRY* ...)
; compiling (DEFVAR *REDUCE-CONDITIONS* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR $$TRIALS ...)
; compiling (DECLAIM (TYPE FIXNUM ...) ...)
; compiling (DEFVAR $$MATCHES ...)
; compiling (DEFVAR *ON-REDUCTION* ...)
; compiling (DEFVAR *REDUCE-BUILTIN-EAGER* ...)
; compiling (DEFPARAMETER .CONDITION-TRIAL-LIMIT-DEFAULT. ...)
; compiling (DEFVAR *CONDITION-TRIAL-LIMIT* ...)
; compiling (DEFVAR *MEL-SORT* ...)
; compiling (DEFVAR *MEL-ALWAYS* ...)
; compiling (DEFVAR *M-PATTERN-SUBST* ...)
; compiling (DEFVAR *MEMO-REWRITE* ...)
; compiling (DEFVAR *CLEAN-MEMO-IN-NORMALIZE* ...)
; compiling (DEFVAR *ALWAYS-MEMO* ...)
; compiling (DECLAIM (SPECIAL *HASH-HIT*) ...)
; compiling (DEFVAR *TERM-MEMO-HASH-HIT* ...)
; compiling (DEFVAR *ALLOW-ILLEGAL-BEH-AXIOM* ...)
; compiling (DECLAIM (SPECIAL *REGULARIZE-SIGNATURE*))
; compiling (DEFVAR *REGULARIZE-SIGNATURE* ...)
; compiling (DEFVAR *CHECK-REGULARITY* ...)
; compiling (DECLAIM (SPECIAL *CHECK-COMPATIBILITY*))
; compiling (DEFVAR *CHECK-COMPATIBILITY* ...)
; compiling (DECLAIM (SPECIAL *CHECK-SENSIBLENESS*))
; compiling (DEFVAR *CHECK-SENSIBLENESS* ...)
; compiling (DECLAIM (SPECIAL *CHECK-RWL-COHERENCY*))
; compiling (DEFVAR *CHECK-RWL-COHERENCY* ...)
; compiling (DECLAIM (SPECIAL *BUILTIN-OVERLOADING-CHECK*))
; compiling (DEFVAR *BUILTIN-OVERLOADING-CHECK* ...)
; compiling (DECLAIM (SPECIAL *PRINT-INDENT*))
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *MODULE-ALL-RULES-EVERY* ...)
; compiling (DEFVAR *FANCY-PRINT* ...)
; compiling (DEFVAR *PRINT-TERM-STRUCT* ...)
; compiling (DEFVAR *PRINT-XMODE* ...)
; compiling (DEFVAR *SHOW-MODE* ...)
; compiling (DEFVAR *PRINT-INDENT* ...)
; compiling (DEFPARAMETER *PRINT-INDENT-INCREMENT* ...)
; compiling (DEFVAR *PRINT-EXPLICIT* ...)
; compiling (DEFVAR *PRINT-ABBREV-MOD* ...)
; compiling (DEFVAR *PRINT-ABBREV-NUM* ...)
; compiling (DEFVAR *PRINT-ABBREV-TABLE* ...)
; compiling (DEFVAR *PRINT-ABBREV-QUALS* ...)
; compiling (DEFVAR *PRINT-WITH-SORT* ...)
; compiling (DEFVAR *PRINT-OPERATOR-TABLE* ...)
; compiling (DEFVAR *PRINT-FLAG-MODULE-VALUES* ...)
; compiling (DEFVAR *PRINT-INDENT-CONTIN* ...)
; compiling (DEFVAR *PRINT-LINE-LIMIT* ...)
; compiling (DEFVAR *PRINT-MODE* ...)
; compiling (DEFVAR *PRINT-ALL-EQNS* ...)
; compiling (DEFVAR *PRINT-EXEC-RULE* ...)
; compiling (DEFVAR *PRINT-IGNORE-MODS* ...)
; compiling (DEFVAR *CHAOS-PRINT-LEVEL* ...)
; compiling (DEFVAR *CHAOS-PRINT-LENGTH* ...)
; compiling (DEFVAR *CHAOS-PRINT-ERRORS* ...)
; compiling (DEFVAR *CHAOS-INPUT-QUIET* ...)
; compiling (DEFVAR *PRINT-VARIABLES* ...)
; compiling (DECLAIM (SPECIAL .FILE-COL.) ...)
; compiling (DEFVAR .FILE-COL. ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TERM-PRINT-DEPTH* ...)
; compiling (DEFVAR *CAFEOBJ-INPUT-QUIET* ...)
; compiling (DEFVAR $)
; compiling (DEFVAR -CAFEOBJ-LOAD-TIME- ...)
; compiling (DEFVAR *CAFEOBJ-STANDARD-PRELUDE-PATH* ...)
; compiling (DEFCONSTANT $NAME-SORT ...)
; compiling (DEFCONSTANT $NAME-GEN-SORT ...)
; compiling (DEFCONSTANT $NAME-BI-SORT ...)
; compiling (DEFCONSTANT $NAME-IDENTIFIER ...)
; compiling (DEFCONSTANT $NAME-COSMOS ...)
; compiling (DEFCONSTANT $NAME-UNIVERSAL ...)
; compiling (DEFCONSTANT $NAME-HUNIVERSAL ...)
; compiling (DEFCONSTANT $NAME-TERM ...)
; compiling (DEFCONSTANT $NAME-BOTTOM ...)
; compiling (DEFCONSTANT $NAME-HBOTTOM ...)
; compiling (DEFCONSTANT $NAME-RECORD ...)
; compiling (DEFCONSTANT $NAME-CLASS ...)
; compiling (DEFCONSTANT $NAME-AND-SORT ...)
; compiling (DEFCONSTANT $NAME-OR-SORT ...)
; compiling (DEFCONSTANT $NAME-ERR-SORT ...)
; compiling (DEFCONSTANT $NAME-OPERATOR ...)
; compiling (DEFCONSTANT $NAME-OPTHEORY ...)
; compiling (DEFCONSTANT $NAME-MODULE ...)
; compiling (DEFCONSTANT $NAME-SIGNATURE ...)
; compiling (DEFCONSTANT $NAME-AXIOMSET ...)
; compiling (DEFCONSTANT $NAME-TRS ...)
; compiling (DEFCONSTANT $NAME-AXIOM ...)
; compiling (DEFCONSTANT $NAME-CHAOS-OBJECT ...)
; compiling (DEFCONSTANT $NAME-CHAOS-EXPR ...)
; compiling (DEFCONSTANT $NAME-TERM-TYPE ...)
; compiling (DEFCONSTANT $NAME-CHAOS-LIST ...)
; compiling (DEFCONSTANT $NAME-VOID ...)
; compiling (DEFCONSTANT $NAME-IMPORT ...)
; compiling (DEFCONSTANT $NAME-SUBST ...)
; compiling (DEFCONSTANT $NAME-PARAMETER ...)
; compiling (DEFVAR *COSMOS* ...)
; compiling (DEFVAR *CHAOS-OBJECT* ...)
; compiling (DEFVAR *CHAOS-EXPR-SORT* ...)
; compiling (DEFVAR *TERM-SORT* ...)
; compiling (DEFVAR *UNIVERSAL-SORT* ...)
; compiling (DEFVAR *HUNIVERSAL-SORT* ...)
; compiling (DEFVAR *BOTTOM-SORT* ...)
; compiling (DEFVAR *HBOTTOM-SORT* ...)
; compiling (DEFVAR *SORT-SORT* ...)
; compiling (DEFVAR *GENERAL-SORT* ...)
; compiling (DEFVAR *BUILTIN-SORT* ...)
; compiling (DEFVAR *IDENTIFIER-SORT* ...)
; compiling (DEFVAR *ID-SORT* ...)
; compiling (DEFVAR *QID-SORT* ...)
; compiling (DEFVAR *SYNTAX-ERR-SORT* ...)
; compiling (DEFVAR *TYPE-ERR-SORT* ...)
; compiling (DEFVAR *OP-ERR-SORT* ...)
; compiling (DEFVAR *AND-SORT* ...)
; compiling (DEFVAR *OR-SORT* ...)
; compiling (DEFVAR *ERR-SORT* ...)
; compiling (DEFVAR *SORT-ERROR* ...)
; compiling (DEFVAR *RECORD-SORT* ...)
; compiling (DEFVAR *CLASS-SORT* ...)
; compiling (DEFVAR *OPERATOR-SORT* ...)
; compiling (DEFVAR *OPTHEORY-SORT* ...)
; compiling (DEFVAR *MODULE-SORT* ...)
; compiling (DEFVAR *IMPORT-SORT* ...)
; compiling (DEFVAR *SIGNATURE-SORT* ...)
; compiling (DEFVAR *AXIOMSET-SORT* ...)
; compiling (DEFVAR *TRS-SORT* ...)
; compiling (DEFVAR *VARIABLE-SORT* ...)
; compiling (DEFVAR *APPL-FORM-SORT* ...)
; compiling (DEFVAR *PVARIABLE-SORT* ...)
; compiling (DEFVAR *LISP-TERM-SORT* ...)
; compiling (DEFVAR *SLISP-TERM-SORT* ...)
; compiling (DEFVAR *GLISP-TERM-SORT* ...)
; compiling (DEFVAR *BCONST-TERM-SORT* ...)
; compiling (DEFVAR *MODEXPR-SORT* ...)
; compiling (DEFVAR *CHAOS-LIST-SORT* ...)
; compiling (DEFVAR *CHAOS-VOID-SORT* ...)
; compiling (DEFVAR *BOOL-SORT* ...)
; compiling (DEFVAR *SORT-ID-SORT* ...)
; compiling (DEFVAR *STRING-SORT* ...)
; compiling (DEFVAR *CHAOS-VALUE-SORT* ...)
; compiling (DEFVAR *CHARACTER-SORT* ...)
; compiling (DEFVAR *AXIOM-SORT* ...)
; compiling (DEFVAR *OBJECT-IDENTIFIER-SORT* ...)
; compiling (DEFVAR *OBJECT-SORT* ...)
; compiling (DEFVAR *RECORD-INSTANCE-SORT* ...)
; compiling (DEFVAR *CLASS-ID-SORT* ...)
; compiling (DEFVAR *RECORD-ID-SORT* ...)
; compiling (DEFVAR *ATTRIBUTE-ID-SORT* ...)
; compiling (DEFVAR *ATTRIBUTE-SORT* ...)
; compiling (DEFVAR *ATTRIBUTE-LIST-SORT* ...)
; compiling (DEFVAR *ATTR-VALUE-SORT* ...)
; compiling (DEFVAR *MESSAGE-SORT* ...)
; compiling (DEFVAR *CONFIGURATION-SORT* ...)
; compiling (DEFVAR *ACZ-CONFIGURATION-SORT* ...)
; compiling (DEFVAR *SUBST-SORT* ...)
; compiling (DEFVAR *SORT_BUILTIN* ...)
; compiling (DEFVAR *PARAMETER-SORT* ...)
; compiling (DEFVAR *CONDITION-SORT* ...)
; compiling (DEFVAR SUP-UNIVERSAL-SORT-NAME ...)
; compiling (DEFVAR SUP-HUNIVERSAL-SORT-NAME ...)
; compiling (DEFVAR *SYSTEM-STANDARD-PRELUDE* ...)
; compiling (DEFVAR *SYSTEM-SOFT-WIRED* ...)
; compiling (DEFVAR *KERNEL-HARD-WIRED-BUILTIN-MODULES* ...)
; compiling (DEFVAR *SYSTEM-MODULE* ...)
; compiling (DEFVAR *CHAOS-META* ...)
; compiling (DEFVAR *CHAOS-MODULE* ...)
; compiling (DEFVAR *CHAOS-OBJECT-MODULE* ...)
; compiling (DEFVAR *BUILTIN-METALEVEL-SORT* ...)
; compiling (DEFVAR *STRING-NOT-FOUND* ...)
; compiling (DEFVAR *CHAOS-SORT-ORDER* ...)
; compiling (DEFVAR *PARSER-SORT-ORDER* ...)
; compiling (DEFVAR *SYSTEM-OBJECT-MODULE* ...)
; compiling (DEFVAR *IDENTIFIER-MODULE* ...)
; compiling (DEFVAR *UNIVERSAL-MODULE* ...)
; compiling (DEFVAR *PARSER-MODULE* ...)
; compiling (DEFVAR *QID-MODULE* ...)
; compiling (DEFVAR *ID-MODULE* ...)
; compiling (DEFVAR .INT-MODULE. ...)
; compiling (DEFVAR *BUILTIN-METHOD* ...)
; compiling (DEFVAR *BUILTIN-OP* ...)
; compiling (DEFVAR *PARTIAL-OP* ...)
; compiling (DEFVAR *VOID-OP* ...)
; compiling (DEFVAR *PARTIAL-METHOD* ...)
; compiling (DEFVAR *VOID-METHOD* ...)
; compiling (DEFVAR *TYPE-ERR-OP* ...)
; compiling (DEFVAR *TYPE-ERR-METHOD* ...)
; compiling (DEFVAR *OP-ERR-OP* ...)
; compiling (DEFVAR *OP-ERR-METHOD* ...)
; compiling (DEFVAR *OP-TERM* ...)
; compiling (DEFVAR *TRUTH-VALUE-MODULE* ...)
; compiling (DEFVAR *TRUTH-MODULE* ...)
; compiling (DEFVAR *BOOL-MODULE* ...)
; compiling (DEFVAR *IDENTICAL-MODULE* ...)
; compiling (DEFVAR *EQL-MODULE* ...)
; compiling (DEFVAR *BOOTSTRAPPING-BOOL* ...)
; compiling (DEFVAR *BOOL-TRUE* ...)
; compiling (DEFVAR *BOOL-TRUE-METH* ...)
; compiling (DEFVAR *BOOL-FALSE* ...)
; compiling (DEFVAR *BOOL-FALSE-METH* ...)
; compiling (DEFVAR *BOOL-AND* ...)
; compiling (DEFVAR *BOOL-OR* ...)
; compiling (DEFVAR *BOOL-NOT* ...)
; compiling (DEFVAR *SORT-MEMBERSHIP* ...)
; compiling (DEFVAR *BOOL-IF* ...)
; compiling (DEFVAR *BOOL-IMPLY* ...)
; compiling (DEFVAR *BOOL-XOR* ...)
; compiling (DEFVAR *BOOL-EQUAL* ...)
; compiling (DEFVAR *BOOL-MATCH* ...)
; compiling (DEFVAR *BEH-EQUAL* ...)
; compiling (DEFVAR *BOOL-NONEQUAL* ...)
; compiling (DEFVAR *BEH-EQ-PRED* ...)
; compiling (DEFVAR *BOOL-AND-ALSO* ...)
; compiling (DEFVAR *BOOL-OR-ELSE* ...)
; compiling (DEFVAR *BOOL-IFF* ...)
; compiling (DEFVAR *BOOL-COND-OP* ...)
; compiling (DEFVAR *EQL-OP* ...)
; compiling (DEFVAR *M-AND-OP* ...)
; compiling (DEFVAR *M-OR-OP* ...)
; compiling (DEFVAR *RWL-MODULE* ...)
; compiling (DEFVAR *RWL-NAT-STAR-SORT* ...)
; compiling (DEFVAR *RWL-PREDICATE* ...)
; compiling (DEFVAR *RWL-PREDICATE2* ...)
; compiling (DEFVAR .RWL-SCH-CONTEXT. ...)
; compiling (DEFVAR .RWL-CONTEXT-STACK. ...)
; compiling (DEFVAR .RWL-STATES-SO-FAR. ...)
; compiling (DEFVAR *RWL-SEARCH-NO-STATE-REPORT* ...)
; compiling (DEFVAR *IDENTICAL* ...)
; compiling (DEFVAR *NONIDENTICAL* ...)
; compiling (DEFVAR *ATTRIBUTE-CONSTRUCTOR* ...)
; compiling (DEFVAR *ATTRIBUTE-LIST-CONSTRUCTOR* ...)
; compiling (DEFVAR *ATTRIBUTE-LIST-AUX-VARIABLE* ...)
; compiling (DEFVAR *OBJECT-REFERENCE-METHOD* ...)
; compiling (DEFVAR *OBJECT-CONSTRUCTOR-METHOD* ...)
; compiling (DEFVAR *OBJECT-CONSTRUCTOR-OP* ...)
; compiling (DEFVAR *RECORD-CONSTRUCTOR-METHOD* ...)
; compiling (DEFVAR *RECORD-CONSTRUCTOR-OP* ...)
; compiling (DEFVAR *VOID-OBJECT* ...)
; compiling (DEFVAR *VOID-RECORD* ...)
; compiling (DECLAIM (SPECIAL *PARSE-VARIABLES* ...))
; compiling (DECLAIM (SPECIAL *READER-SCHEMA-ENV* ...))
; compiling (DECLAIM (SPECIAL *MACROEXPAND*))
; compiling (DEFVAR *FILL-RC-ATTRIBUTE* ...)
; compiling (DEFVAR *PARSING-AXIOM-LHS* ...)
; compiling (DEFVAR *PARSE-LHS-ATTR-VARS* ...)
; compiling (DEFVAR *LHS-ATTRID-VARS* ...)
; compiling (DEFPARAMETER .LISP-START-SYMBOL. ...)
; compiling (DEFVAR *PARSE-VARIABLES* ...)
; compiling (DEFCONSTANT PARSER-MIN-PRECEDENCE ...)
; compiling (DEFCONSTANT PARSER-MAX-PRECEDENCE ...)
; compiling (DEFVAR *READER-SCHEMA-ENV* ...)
; compiling (DEFVAR *READER-CURRENT-SCHEMA* ...)
; compiling (DEFVAR *READER-CURRENT-CONTEXT* ...)
; compiling (DEFVAR *READER-STARTING-POSITION* ...)
; compiling (DEFVAR *BUILTIN-AST-DICT* ...)
; compiling (DEFVAR *FAST-PARSE* ...)
; compiling (DEFVAR *PARSE-NORMALIZE* ...)
; compiling (DEFVAR *MACROEXPAND* ...)
; compiling (DEFVAR *INCLUDE-BOOL* ...)
; compiling (DEFVAR *INCLUDE-BOOL-SAVE*)
; compiling (DEFVAR *INCLUDE-RWL* ...)
; compiling (DEFVAR *INCLUDE-FOPL* ...)
; compiling (DEFVAR *COMPILE-LISP-RHS* ...)
; compiling (DEFVAR *RUNNING-WITH-TK* ...)
; compiling (DEFVAR *SUB-PROMPT* ...)
; compiling (DEFVAR *CONSIDER-OBJECT* ...)
; compiling (DEFVAR *AUTO-RECONSTRUCT* ...)
; compiling (DEFVAR *SAVE-DEFINITION* ...)
; compiling (DECLAIM (SPECIAL *MODMORPH-NEW-MODULE*))
; compiling (DEFVAR *MODMORPH-NEW-MODULE* ...)
; compiling (DEFVAR *TIME-ZONE* ...)
; compiling (DEFVAR *ALLOW-GENERAL-TERM-INPUT* ...)
; compiling (DEFVAR *CHAOS-LIBPATH* ...)
; compiling (DECLAIM (SPECIAL *BEH-PROOF-IN-PROGRESS*))
; compiling (DEFVAR *BEH-PROOF-IN-PROGRESS* ...)
; compiling (DEFVAR *USER-BOOL* ...)
; compiling (DEFVAR *TRAM-PATH* ...)
; compiling (DEFVAR *TRAM-OPTIONS* ...)
; compiling (DEFVAR *TRAM-BUILTIN-MODULES*)
; compiling (DEFVAR *TRAM-BOOL-MODULES*)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *CEXEC-LIMIT* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CEXEC-TRACE* ...)
; compiling (DEFVAR *CEXEC-NORMALIZE* ...)
; compiling (DEFVAR *CEXEC-FIND-ALL-SOLUTIONS* ...)
; compiling (DEFVAR *COMPILE-BUILTIN-AXIOM* ...)
; compiling (DEFVAR *BI-UNIVERSAL-OPERATORS* ...)
; compiling (DEFVAR *ALLOW-UNIVERSAL-SORT* ...)
; compiling (DEFVAR *AUTOLOAD-ALIST* ...)
; compiling (DEFVAR *SELECT-AMBIG-TERM* ...)
; compiling (DEFVAR *ACCEPT-SYSTEM-PROOF* ...)
; compiling (DEFVAR *FIND-ALL-RULES* ...)
; compiling (DEFVAR *NO-ID-COMPLETION* ...)
; compiling (DEFVAR *REWRITE-DEBUG* ...)
; compiling (DEFVAR *ON-TERM-HASH-DEBUG* ...)
; compiling (DEFVAR *ON-AXIOM-DEBUG* ...)
; compiling (DEFVAR *BEH-DEBUG* ...)
; compiling (DEFVAR *GEN-RULE-DEBUG* ...)
; compiling (DEFVAR *ON-CHANGE-DEBUG* ...)
; compiling (DEFVAR *ON-OPERATOR-DEBUG* ...)
; compiling (DEFVAR *ON-SORT-DEBUG* ...)
; compiling (DEFVAR *ON-TRS-DEBUG* ...)
; compiling (DEFVAR *ON-IMPORT-DEBUG* ...)
; compiling (DEFVAR *ON-MODEXP-DEBUG* ...)
; compiling (DEFVAR *ON-VIEW-DEBUG* ...)
; compiling (DEFVAR *MATCH-DEBUG* ...)
; compiling (DEFVAR *MODULE-DEP-DEBUG* ...)
; compiling (DEFVAR *TERM-DEBUG* ...)
; compiling (DEFVAR *ON-PARSE-DEBUG* ...)
; compiling (DEFVAR *REGULARIZE-DEBUG* ...)
; compiling (DEFVAR *ON-TRAM-DEBUG* ...)
; compiling (DEFVAR *MEL-DEBUG* ...)
; compiling (DEFVAR *CHECK-IMPORT-MODE* ...)
; compiling (DEFVAR *CEXEC-DEBUG* ...)
; compiling (DEFVAR *DEBUG-META* ...)
; compiling (DEFVAR *DEBUG-CITP* ...)
; compiling (DEFVAR *DEBUG-PRINT* ...)
; compiling (PROCLAIM (QUOTE #))
; compiling (DEFVAR *TOP-LEVEL-TAG* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/globals-TMP.fasl written
; compilation finished in 0:00:00.058
; compiling file "/«PKGBUILDDIR»/comlib/macros.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO ONCE-ONLY ...)
; compiling (DEFMACRO MEMQ ...)
; compiling (DEFMACRO ASSQ ...)
; compiling (DEFMACRO POSQ ...)
; compiling (DEFMACRO MEMEQ ...)
; compiling (DEFMACRO ASSEQ ...)
; compiling (DEFMACRO POSEQ ...)
; compiling (DEFMACRO CASE-EQUAL ...)
; compiling (DEFMACRO DOTIMES-FIXNUM ...)
; compiling (DEFMACRO MSETQ ...)
; compiling (DEFMACRO MLET ...)
; compiling (DEFMACRO LET-IF ...)
; compiling (DEFMACRO WHEN-BIND ...)
; compiling (DEFMACRO WHILE ...)
; compiling (DEFMACRO WHILE-NOT ...)
; compiling (DEFMACRO DEF-SYNONYM ...)
; compiling (DEFMACRO FIXNUMP ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/macros-TMP.fasl written
; compilation finished in 0:00:00.078
; compiling file "/«PKGBUILDDIR»/comlib/print-utils.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FILECOL ...)

; file: /«PKGBUILDDIR»/comlib/print-utils.lisp
; in: DEFUN FILE-COLUMN
;     (DEFUN CHAOS::FILE-COLUMN (CHAOS::STRM)
;       (DECLARE (INLINE CHAOS::FILECOL)
;                (VALUES FIXNUM))
;       (CHAOS::FILECOL CHAOS::STRM))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::FILE-COLUMN
;                    (SB-INT:NAMED-LAMBDA CHAOS::FILE-COLUMN
;                        (CHAOS::STRM)
;                      (DECLARE (INLINE CHAOS::FILECOL)
;                               (VALUES FIXNUM))
;                      (BLOCK CHAOS::FILE-COLUMN (CHAOS::FILECOL CHAOS::STRM)))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::FILECOL could not be inlined because its source code was not
;   saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to
;   save function definitions for inlining.
; compiling (DEFUN FILE-COLUMN ...)

; file: /«PKGBUILDDIR»/comlib/print-utils.lisp
; in: DEFUN PRINT-CHECK
;     (<= CHAOS::*PRINT-LINE-LIMIT* (+ (CHAOS::FILE-COLUMN STREAM) CHAOS::FWD))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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::INDENT) CHAOS::*PRINT-LINE-LIMIT*)
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (<= CHAOS::*PRINT-LINE-LIMIT* (+ (CHAOS::FILE-COLUMN STREAM) CHAOS::FWD))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 (INTEGER -9223372036854775808
;                                 9223372036854775806), not a FIXNUM.

;     (>= (1+ CHAOS::INDENT) CHAOS::*PRINT-LINE-LIMIT*)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -4611686018427387903 4611686018427387904), not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.

;     (+ (CHAOS::FILE-COLUMN STREAM) CHAOS::FWD)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 64) arithmetic

;     (1+ CHAOS::INDENT)
; ==>
;   (+ CHAOS::INDENT 1)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 64) arithmetic
; compiling (DEFUN PRINT-CHECK ...)
; compiling (DEFUN PRINT-INDENT ...)
; compiling (DEFPARAMETER .TERMINAL-WIDTH. ...)

; file: /«PKGBUILDDIR»/comlib/print-utils.lisp
; in: DEFUN PRINT-CENTERING
;     (/ (- CHAOS::.TERMINAL-WIDTH. (LENGTH STRING)) 2.0)
; 
; note: unable to
;   convert to multiplication by reciprocal
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.

;     (TRUNCATE (+ (/ (- CHAOS::.TERMINAL-WIDTH. (LENGTH STRING)) 2.0) 0.5))
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; 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.

;     (- CHAOS::.TERMINAL-WIDTH. (LENGTH STRING))
; 
; 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 5) 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::.TERMINAL-WIDTH. (LENGTH STRING)) 2.0)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).

;     (+ (/ (- CHAOS::.TERMINAL-WIDTH. (LENGTH STRING)) 2.0) 0.5)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
; compiling (DEFUN PRINT-CENTERING ...)

; file: /«PKGBUILDDIR»/comlib/print-utils.lisp
; in: DEFUN PRINT-TO-RIGHT
;     (- CHAOS::.TERMINAL-WIDTH. 1 (CHAOS::FILECOL STREAM) CHAOS::*PRINT-INDENT*
;        (LENGTH STRING))
; --> - - - 
; ==>
;   (- CHAOS::.TERMINAL-WIDTH. 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::.TERMINAL-WIDTH. 1) (CHAOS::FILECOL STREAM))
; 
; 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 5) 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::.TERMINAL-WIDTH. 1) (CHAOS::FILECOL STREAM))
;      CHAOS::*PRINT-INDENT*)
; 
; 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 5) 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::.TERMINAL-WIDTH. 1) (CHAOS::FILECOL STREAM))
;       CHAOS::*PRINT-INDENT*)
;    (LENGTH STRING))
; 
; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first 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.

;     (DOTIMES
;         (CHAOS::X
;          (- CHAOS::.TERMINAL-WIDTH. 1 (CHAOS::FILECOL STREAM)
;             CHAOS::*PRINT-INDENT* (LENGTH STRING)))
;       (DECLARE (TYPE FIXNUM CHAOS::X))
;       (PRINC CHAOS::FILL-CHAR STREAM))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN PRINT-TO-RIGHT ...)

; file: /«PKGBUILDDIR»/comlib/print-utils.lisp
; in: DEFUN PRINT-TO-LEFT
;     (- CHAOS::*PRINT-LINE-LIMIT* 1 CHAOS::*PRINT-INDENT* (CHAOS::FILECOL STREAM)
;        (LENGTH STRING))
; --> - - - 
; ==>
;   (- CHAOS::*PRINT-LINE-LIMIT* 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::*PRINT-LINE-LIMIT* 1) CHAOS::*PRINT-INDENT*)
; 
; 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 5) 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::*PRINT-LINE-LIMIT* 1) CHAOS::*PRINT-INDENT*)
;      (CHAOS::FILECOL STREAM))
; 
; 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 5) 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::*PRINT-LINE-LIMIT* 1) CHAOS::*PRINT-INDENT*)
;       (CHAOS::FILECOL STREAM))
;    (LENGTH STRING))
; 
; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first 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.

;     (DOTIMES
;         (CHAOS::X
;          (- CHAOS::*PRINT-LINE-LIMIT* 1 CHAOS::*PRINT-INDENT*
;             (CHAOS::FILECOL STREAM) (LENGTH STRING)))
;       (DECLARE (TYPE FIXNUM CHAOS::X))
;       (PRINC CHAOS::FILL-CHAR STREAM))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN PRINT-TO-LEFT ...)
; compiling (DEFUN PRINT-NEXT ...)
; compiling (DEFUN PRINT-NEXT-PREFIX ...)
; compiling (DEFUN PRINT-SIMPLE ...)
; compiling (DEFUN PRINT-SIMPLE-PRINC ...)
; compiling (DEFUN PRINT-SIMPLE-PRINC-OPEN ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/print-utils-TMP.fasl written
; compilation finished in 0:00:00.043
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "comlib" "print-utils">
; compiling file "/«PKGBUILDDIR»/comlib/message.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FLUSH-ALL ...)
; compiling (DEFUN FRESH-ALL ...)
; compiling (DEFVAR *MESSAGE-DB* ...)
; compiling (DEFUN GET-MSG-TYPE ...)
; compiling (DEFUN GET-MSG-LEVEL ...)
; compiling (DEFUN GET-MSG-FMT ...)
; compiling (DEFUN GET-MSG-DESCRIPTION ...)
; compiling (DEFUN REGISTER-MESSAGE ...)
; compiling (DEFVAR *MSG-LVL* ...)
; compiling (DEFVAR *OLD-MSG-LVL* ...)

; file: /«PKGBUILDDIR»/comlib/message.lisp
; in: DEFUN SET-VERBOSE-LVL
;     (<= CHAOS::LVL 3)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN SET-VERBOSE-LVL ...)
; compiling (DEFUN SET-VERBOSE-ON ...)

; file: /«PKGBUILDDIR»/comlib/message.lisp
; in: DEFUN SET-VERBOSE-OFF
;     (ZEROP CHAOS::*MSG-LVL*)
; ==>
;   (= CHAOS::*MSG-LVL* 0)
; 
; 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 because: The operands might not be the same type.
; compiling (DEFUN SET-VERBOSE-OFF ...)
; compiling (DEFUN SET-EXPERT-ON ...)

; file: /«PKGBUILDDIR»/comlib/message.lisp
; 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 because: The operands might not be the same type.
; compiling (DEFUN SET-EXPORT-OFF ...)
; compiling (DEFUN SET-QUIET-ON ...)

; file: /«PKGBUILDDIR»/comlib/message.lisp
; 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 because: The operands might not be the same type.
; compiling (DEFUN SET-QUIET-OFF ...)

; file: /«PKGBUILDDIR»/comlib/message.lisp
; in: DEFUN OUTPUT-MSG
;     (STRING CHAOS::ID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (>= (CHAOS::GET-MSG-LEVEL CHAOS::ID) CHAOS::*MSG-LVL*)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::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.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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 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.
; compiling (DEFUN OUTPUT-MSG ...)
; compiling (DEFMACRO WITH-OUTPUT-CHAOS-ERROR-N ...)
; compiling (DEFMACRO WITH-OUTPUT-CHAOS-WARNING-N ...)
; compiling (DEFMACRO WITH-OUTPUT-PANIC-MESSAGE-N ...)
; compiling (DEFMACRO WITH-OUTPUT-MSG-N ...)
; compiling (DEFMACRO WITH-OUTPUT-SIMPLE-MSG-N ...)
; compiling (DEFMACRO WITH-OUTPUT-CHAOS-ERROR ...)
; compiling (DEFMACRO WITH-OUTPUT-CHAOS-WARNING ...)
; compiling (DEFMACRO WITH-OUTPUT-PANIC-MESSAGE ...)
; compiling (DEFMACRO WITH-OUTPUT-MSG ...)
; compiling (DEFMACRO WITH-OUTPUT-SIMPLE-MSG ...)
; compiling (DEFUN PRINT-IN-PROGRESS ...)
; compiling (DEFMACRO I-MISS-CURRENT-MODULE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/message-TMP.fasl written
; compilation finished in 0:00:00.178
; compiling file "/«PKGBUILDDIR»/comlib/error.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL *SUPPRESS-ERR-HANDLER-MSG*))
; compiling (DEFVAR *SUPPRESS-ERR-HANDLER-MSG* ...)
; compiling (DEFUN CHAOS-ERROR ...)
; compiling (DEFUN GET-CHAOS-ERROR-PROC ...)
; compiling (DEFMACRO WITH-CHAOS-ERROR ...)
; compiling (DEFUN CHAOS-INDICATE-POSITION ...)
; compiling (DEFUN CHAOS-TO-TOP ...)
; compiling (DEFMACRO WITH-CHAOS-TOP-ERROR ...)
; compiling (DEFMACRO IGNORING-CHAOS-ERROR ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/error-TMP.fasl written
; compilation finished in 0:00:00.027
; compiling file "/«PKGBUILDDIR»/comlib/misc.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *KEYWORD-PACKAGE* ...)
; compiling (DEFUN MAKE-KEYWORD ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN EXTRACT-KEYWORD
;     (DEFUN CHAOS::EXTRACT-KEYWORD
;            (CHAOS::KEY CHAOS::ARGLIST
;             &OPTIONAL (CHAOS::DEFAULT NIL)
;             &KEY (CHAOS::NO-VALUE NIL))
;       (DECLARE (TYPE LIST CHAOS::ARGLIST)
;                (TYPE T CHAOS::DEFAULT)
;                (TYPE KEYWORD CHAOS::KEY)
;                (VALUES SYMBOL))
;       (LET ((CHAOS::BINDING (MEMBER CHAOS::KEY CHAOS::ARGLIST :TEST #'EQL)))
;         (COND ((AND # CHAOS::NO-VALUE) CHAOS::NO-VALUE)
;               ((CDR CHAOS::BINDING) (CADR CHAOS::BINDING)) (T CHAOS::DEFAULT))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CHAOS::EXTRACT-KEYWORD
;         (CHAOS::KEY CHAOS::ARGLIST &OPTIONAL (CHAOS::DEFAULT NIL) &KEY
;          (CHAOS::NO-VALUE NIL))
;       (DECLARE (TYPE LIST CHAOS::ARGLIST)
;                (TYPE T CHAOS::DEFAULT)
;                (TYPE KEYWORD CHAOS::KEY)
;                (VALUES SYMBOL))
;       (BLOCK CHAOS::EXTRACT-KEYWORD
;         (LET ((CHAOS::BINDING #))
;           (COND (# CHAOS::NO-VALUE) (# #) (T CHAOS::DEFAULT)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (KEY ARGLIST &OPTIONAL
;                                                      (DEFAULT NIL) &KEY
;                                                      (NO-VALUE NIL))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (KEY ARGLIST &OPTIONAL
;                                                      (DEFAULT NIL) &KEY
;                                                      (NO-VALUE NIL))
; compiling (DEFUN EXTRACT-KEYWORD ...)
; compiling (DEFMACRO ALLOC-SVEC ...)
; compiling (DEFMACRO ALLOC-SVEC-FIXNUM ...)
; compiling (DEFMACRO %SVREF ...)
; compiling (DECLAIM (INLINE SVREF ...))
; compiling (DEFUN AT-TOP-LEVEL ...)
; compiling (DEFUN GET-ENVIRONMENT-VARIABLE ...)
; compiling (DEFVAR *ON-DEBUG* ...)
; compiling (DEFVAR *DEBUG-LEVEL* ...)
; compiling (DEFMACRO DEBUG-MSG ...)
; compiling (DEFMACRO DEBUG-FORM ...)
; compiling (DEFUN ON-DEBUG ...)
; compiling (DEFUN OFF-DEBUG ...)
; compiling (DEFUN OB< ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN OB-COMPARE
;     (< (THE NUMBER CHAOS::X) (THE NUMBER CHAOS::Y))
; 
; 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.

;     (< (THE NUMBER CHAOS::Y) (THE NUMBER CHAOS::X))
; 
; 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.

;     (LENGTH (THE SEQUENCE CHAOS::X))
; 
; 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 VECTOR.

;     (LENGTH (THE SEQUENCE CHAOS::Y))
; 
; 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 VECTOR.

;     (ELT CHAOS::X 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.

;     (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.

;     (< (THE NUMBER CHAOS::X) (THE NUMBER 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.

;     (< (THE NUMBER CHAOS::Y) (THE NUMBER 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 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.

;     (< (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.
; compiling (DEFUN OB-COMPARE ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN TOPO-SORT
;     (FUNCALL CHAOS::PRED CHAOS::VALR CHAOS::VAL)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRED)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN TOPO-SORT ...)
; compiling (DEFVAR .32BIT. ...)
; compiling (DECLAIM (INLINE ADDR-OF))

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN ADDR-OF
;     (LOGAND CHAOS::.32BIT. (SB-KERNEL:GET-LISP-OBJ-ADDRESS CHAOS::X))
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (DEFUN CHAOS::ADDR-OF (CHAOS::X)
;       (LOGAND CHAOS::.32BIT. (SB-KERNEL:GET-LISP-OBJ-ADDRESS CHAOS::X)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CHAOS::ADDR-OF
;         (CHAOS::X)
;       (BLOCK CHAOS::ADDR-OF
;         (LOGAND CHAOS::.32BIT. (SB-KERNEL:GET-LISP-OBJ-ADDRESS CHAOS::X))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN ADDR-OF ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN PRINT-ADDR
;     (CHAOS::ADDR-OF CHAOS::X)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT T "0x~8,'0x" (CHAOS::ADDR-OF CHAOS::X))
; --> FORMAT LAMBDA FUNCTION BLOCK LET 
; ==>
;   (SB-FORMAT::FORMAT-PRINT-INTEGER STREAM #:FORMAT-ARG196 NIL NIL 16 #:FVAR624
;                                    #:FVAR625 #:FVAR626 #:FVAR627)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN PRINT-ADDR ...)
; compiling (DEFUN QUERY-INPUT ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN INTERNAL-REAL-TIME-IN-SECONDS
;     (FLOAT (/ (GET-INTERNAL-REAL-TIME) INTERNAL-TIME-UNITS-PER-SECOND))
; --> IF 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a (RATIONAL 0), not a (SIGNED-BYTE 64).
; compiling (DEFUN INTERNAL-REAL-TIME-IN-SECONDS ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN READ-CHAR-WAIT
;     (+ CHAOS::START CHAOS::TIMEOUT)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 3) because:
;       The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

;     (< (+ CHAOS::START CHAOS::TIMEOUT) (CHAOS::INTERNAL-REAL-TIME-IN-SECONDS))
; 
; 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.
; compiling (DEFUN READ-CHAR-WAIT ...)
; compiling (DEFVAR *USE-TIMEOUTS* ...)
; compiling (DEFVAR *CLEAR-INPUT-BEFORE-QUERY* ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN Y-OR-N-P-WAIT
;     (FIND CHAR '(#\Tab #\Newline #\Return))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> EQL IF 
; ==>
;   (EQL #:G359 #:G360)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN Y-OR-N-P-WAIT ...)
; compiling (DEFSTRUCT (MULTISET # ...) ...)
; compiling (DEFMACRO MULTISET-NEW ...)
; compiling (DEFMACRO MULTISET-IS-EMPTY ...)
; compiling (DEFMACRO MULTISET-INSERT ...)
; compiling (DEFMACRO LIST-TO-MULTISET ...)
; compiling (DEFMACRO MULTISET-TO-SET ...)
; compiling (DEFMACRO MULTISET-DELETE ...)
; compiling (DEFMACRO MULTISET-MERGE ...)
; compiling (DEFMACRO MULTISET-INTERSECTIN ...)
; compiling (DEFMACRO MULTISET-DIFF ...)
; compiling (DEFMACRO MULTISET-COUNT ...)
; compiling (DEFMACRO MULTISET-COPY ...)
; compiling (DEFMACRO XOR ...)
; compiling (DEFMACRO NAND ...)
; compiling (DEFMACRO NOR ...)
; compiling (DEFUN GET-TIME-STRING ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN ELAPSED-TIME-IN-SECONDS
;     (- 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 (signed-byte 64) arithmetic (cost 5) 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.

;     (COERCE (/ (- CHAOS::NOW CHAOS::BASE) INTERNAL-TIME-UNITS-PER-SECOND)
;             'SINGLE-FLOAT)
; --> THE 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::X)
; 
; 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).
; compiling (DEFUN ELAPSED-TIME-IN-SECONDS ...)

; file: /«PKGBUILDDIR»/comlib/misc.lisp
; in: DEFUN TIME-IN-SECONDS
;     (COERCE (/ CHAOS::SUM INTERNAL-TIME-UNITS-PER-SECOND) 'SINGLE-FLOAT)
; --> THE 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::X)
; 
; 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).
; compiling (DEFUN TIME-IN-SECONDS ...)
; compiling (DEFMACRO EVERY2LEN ...)
; compiling (DEFUN LIST2ARRAY ...)
; compiling (DEFUN MAKE-LIST-1-N ...)
; compiling (DEFUN MAKE-LIST-1-N-0 ...)
; compiling (DEFMACRO FIND-IN-ASSOC-TABLE ...)
; compiling (DEFMACRO GET-ENTRY-IN-ASSOC-TABLE ...)
; compiling (DEFMACRO DELETE-ENTRY-FROM-ASSOC-TABLE ...)
; compiling (DEFMACRO DELETE-OBJECT-FROM-ASSOC-TABLE ...)
; compiling (DEFMACRO ADD-TO-ASSOC-TABLE ...)
; compiling (DEFMACRO OBJECT-IS-IN-ASSOC-TABLE? ...)
; compiling (DEFMACRO TEST-AND ...)
; compiling (DEFMACRO MAKE-AND ...)
; compiling (DEFMACRO MAKE-OR ...)
; compiling (DEFMACRO MAKE-XOR ...)
; compiling (DEFMACRO EXPT-FIXNUM ...)
; compiling (DEFMACRO EXPT2 ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/misc-TMP.fasl written
; compilation finished in 0:00:00.264
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "comlib" "misc">
; compiling file "/«PKGBUILDDIR»/comlib/string.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN STRING-SEARCH-CAR
;     (POSITION-IF
;      #'(LAMBDA (CHARACTER)
;          (DECLARE (TYPE CHARACTER CHARACTER))
;          (WHEN (FIND CHARACTER CHAOS::CHARACTER-BAG)
;            (SETQ CHAOS::DELIMITER CHARACTER)))
;      STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time
; compiling (DEFUN STRING-SEARCH-CAR ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN STRING-SEARCH-CDR
;     (POSITION-IF
;      #'(LAMBDA (CHARACTER)
;          (WHEN (FIND CHARACTER CHAOS::CHARACTER-BAG)
;            (SETQ CHAOS::DELIMITER CHARACTER)))
;      STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (FIND CHARACTER CHAOS::CHARACTER-BAG)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> EQL IF 
; ==>
;   (EQL #:G112 #:G113)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN STRING-SEARCH-CDR ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN PARSE-WITH-DELIMITER
;     (POSITION CHAOS::DELIM CHAOS::LINE)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM SEQUENCE SB-C::FROM-END SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; compiling (DEFUN PARSE-WITH-DELIMITER ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN PARSE-WITH-DELIMITER2
;     (POSITION CHAOS::DELIM CHAOS::LINE)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM SEQUENCE SB-C::FROM-END SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.

;     (STRING CHAOS::DELIM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PARSE-WITH-DELIMITER2 ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN PARSE-WITH-DELIMITERS
;     (POSITION-IF #'(LAMBDA (CHARACTER) (FIND CHARACTER CHAOS::DELIMITERS))
;                  CHAOS::LINE)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (FIND CHARACTER CHAOS::DELIMITERS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> EQL IF 
; ==>
;   (EQL #:G229 #:G230)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN PARSE-WITH-DELIMITERS ...)
; compiling (DEFUN PARALLEL-SUBSTITUTE ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN PARSE-WITH-STRING-DELIMITER
;     (VALUES NIL (+ CHAOS::START CHAOS::DLENGTH) NIL)
; 
; note: doing signed word to integer coercion (cost 20)

;     (VALUES (SUBSEQ STRING CHAOS::START CHAOS::DELIM-POS)
;             (+ CHAOS::DELIM-POS CHAOS::DLENGTH) NIL)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN PARSE-WITH-STRING-DELIMITER ...)
; compiling (DEFUN PARSE-WITH-STRING-DELIMITER* ...)
; compiling (DEFUN SPLIT-STRING ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN EXTRACT-STRINGS
;     (POSITION-IF-NOT #'(LAMBDA (CHARACTER) (FIND CHARACTER CHAOS::DELIMITERS))
;                      STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF-NOT
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (POSITION-IF #'(LAMBDA (CHARACTER) (FIND CHARACTER CHAOS::DELIMITERS)) STRING
;                  :START CHAOS::BEGIN)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (FIND CHARACTER CHAOS::DELIMITERS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> EQL IF 
; ==>
;   (EQL #:G529 #:G530)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.

; ==>
;   (EQL #:G525 #:G526)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN EXTRACT-STRINGS ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN FORMAT-JUSTIFIED-STRING
;     (LENGTH CHAOS::CONTENT)
; 
; 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 VECTOR.

;     (< (+ CHAOS::CURSOR CHAOS::CONTENT-LENGTH) CHAOS::WIDTH)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (LENGTH CHAOS::CONTENT)
; 
; 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 VECTOR.

;     (+ CHAOS::CURSOR CHAOS::CONTENT-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.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) 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::CURSOR CHAOS::CONTENT-LENGTH) CHAOS::WIDTH)
; 
; 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.

;     (INCF CHAOS::CURSOR CHAOS::CONTENT-LENGTH)
; --> SETQ THE 
; ==>
;   (+ CHAOS::CONTENT-LENGTH CHAOS::CURSOR)
; 
; 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 (signed-byte 64) arithmetic (cost 5) 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.

;     (SETF CHAOS::CURSOR (+ CHAOS::PROMPT-LENGTH CHAOS::CONTENT-LENGTH))
; ==>
;   (SETQ CHAOS::CURSOR (+ CHAOS::PROMPT-LENGTH CHAOS::CONTENT-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20) to CURSOR
; compiling (DEFUN FORMAT-JUSTIFIED-STRING ...)

; file: /«PKGBUILDDIR»/comlib/string.lisp
; in: DEFUN NUMBER-TO-STRING
;     (TRUNCATE (LOG NUMBER CHAOS::BASE))
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FLOAT, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FLOAT, not a DOUBLE-FLOAT.

;     (1+ (TRUNCATE (LOG NUMBER CHAOS::BASE)))
; ==>
;   (+ (TRUNCATE (LOG NUMBER CHAOS::BASE)) 1)
; 
; 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.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; compiling (DEFUN NUMBER-TO-STRING ...)
; compiling (DEFUN NULL-STRING ...)
; compiling (DEFUN READ-DELIMITED-STRING ...)
; compiling (DEFMACRO NUMERIC-CHAR-P ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/string-TMP.fasl written
; compilation finished in 0:00:00.111
; compiling file "/«PKGBUILDDIR»/comlib/list.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FLATTEN-LIST ...)
; compiling (DEFUN FIRSTN ...)
; compiling (DEFUN IN-ORDER-UNION ...)
; compiling (DEFUN TRUE-LIST-P ...)

; file: /«PKGBUILDDIR»/comlib/list.lisp
; in: DEFUN ROTATE-LIST
;     (LENGTH LIST)
; 
; 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 VECTOR.
; compiling (DEFUN ROTATE-LIST ...)

; file: /«PKGBUILDDIR»/comlib/list.lisp
; in: DEFUN DELETE-NTH
;     (LENGTH CHAOS::LST)
; 
; 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 VECTOR.
; compiling (DEFUN DELETE-NTH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/list-TMP.fasl written
; compilation finished in 0:00:00.015
; compiling file "/«PKGBUILDDIR»/comlib/dag.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT DAG-NODE ...)
; compiling (DEFMACRO CREATE-DAG-NODE ...)
; compiling (DEFMACRO ADD-SUBNODES ...)
; compiling (DEFMACRO PUSH-SUB-NODE ...)
; compiling (DEFMACRO DAG-NODE-IS-MARKED? ...)
; compiling (DEFMACRO MARK-DAG-NODE ...)
; compiling (DEFMACRO UNMARK-DAG-NODE ...)
; compiling (DEFUN UNMARK-ALL-DAG-NODES ...)

; file: /«PKGBUILDDIR»/comlib/dag.lisp
; in: DEFUN DAG-DFS
;     (FUNCALL FUNCTION CHAOS::D)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN DAG-DFS ...)

; file: /«PKGBUILDDIR»/comlib/dag.lisp
; in: DEFUN DAG-WFS
;     (FUNCALL FUNCTION CHAOS::D)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN DAG-WFS ...)
; compiling (DEFSTRUCT (BDAG #) ...)
; compiling (DEFMACRO CREATE-BDAG-NODE ...)
; compiling (DEFMACRO ADD-BDAG-SUBNODES ...)
; compiling (DEFMACRO PUSH-BDAG-NODE ...)
; compiling (DEFUN GET-BDAG-PARENTS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/dag-TMP.fasl written
; compilation finished in 0:00:00.091
; compiling file "/«PKGBUILDDIR»/comlib/fsys.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (REQUIRE (QUOTE SB-POSIX))
; compiling (DEFUN LOAD-FILE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXPAND-FILE-NAME ...)
; compiling (DEFMACRO DOFILE ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN IS-DIRECTORY?
;     (LENGTH (NAMESTRING CHAOS::P))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               NULL), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               NULL), not a VECTOR.

;     (SUBSEQ (NAMESTRING CHAOS::P) (1- (LENGTH (NAMESTRING CHAOS::P))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               NULL), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               NULL), not a LIST.
; compiling (DEFUN IS-DIRECTORY? ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN IS-SIMPLE-FILE-NAME?
;     (ERROR "is-simple-file-name? : given non string arg ~a" CHAOS::PATH)
; ==>
;   "is-simple-file-name? : given non string arg ~a"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN IS-SIMPLE-FILE-NAME? ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN IS-RELATIVE-FILE-NAME?
;     (ERROR "is-relative-file-name? : given non string arg ~a" CHAOS::PATH)
; ==>
;   "is-relative-file-name? : given non string arg ~a"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN IS-RELATIVE-FILE-NAME? ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN SUPPLY-SUFFIXES
;     (POSITION #\.
;               (IF (PATHNAMEP CHAOS::PATH)
;                   (PATHNAME-NAME CHAOS::PATH)
;                   CHAOS::PATH)
;               :FROM-END T)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM SEQUENCE SB-C::FROM-END SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))
;                                (SIMPLE-ARRAY NIL (*))
;                                SIMPLE-BASE-STRING), not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))
;                                (SIMPLE-ARRAY NIL (*))
;                                SIMPLE-BASE-STRING), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))
;                                (SIMPLE-ARRAY NIL (*))
;                                SIMPLE-BASE-STRING), not a STRING.

;     (MAPCAR #'PATHNAME
;             (MAPCAR
;              #'(LAMBDA (CHAOS::X)
;                  (CONCATENATE 'STRING (NAMESTRING CHAOS::PATH)
;                               (NAMESTRING CHAOS::X)))
;              CHAOS::SUFFIXES))
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB-KERNEL:%RPLACD 
; --> SETQ THE LIST CONS FUNCALL SB-C::%FUNCALL 
; ==>
;   (PATHNAME (CAR #:G497))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; compiling (DEFUN SUPPLY-SUFFIXES ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN CHAOS-PROBE-FILE
;     (PATHNAME CHAOS::LIBDIR)
; ==>
;   CHAOS::LIBDIR
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN CHAOS-PROBE-FILE ...)
; compiling (DEFUN BARE-CHAOS-PWD ...)
; compiling (DEFUN CHAOS-PWD ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN CHAOS-RELATIVE-PATHNAME?
;     (PATHNAME CHAOS::F-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; compiling (DEFUN CHAOS-RELATIVE-PATHNAME? ...)
; compiling (DEFUN CHAOS-GET-RELATIVE-PATH ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN CHAOS-GET-DIRECTORY
;     (PATHNAME CHAOS::FILE-PATH)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; compiling (DEFUN CHAOS-GET-DIRECTORY ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN CHAOS-GET-RELATIVE-PATH*
;     (PATHNAME CHAOS::F-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               PATHNAME FILE-STREAM), not a STRING.
; compiling (DEFUN CHAOS-GET-RELATIVE-PATH* ...)
; compiling (DEFUN CHAOS-LS ...)
; compiling (DEFVAR *CHAOS-DIRECTORY-STACK* ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN CHAOS-PRINT-DIRECTORY-STACK
;     (FORMAT STREAM "~%~a" CHAOS::*CHAOS-DIRECTORY-STACK*)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG1116 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (TERPRI STREAM) (PRINC #:FORMAT-ARG1116 STREAM))
;             NIL)
;           #:G1115)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN CHAOS-PRINT-DIRECTORY-STACK ...)
; compiling (DEFUN FSYS-PARSE-NUMBER ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN CHAOS-PUSHD ...)
; compiling (DEFUN CHAOS-POPD ...)
; compiling (DEFUN CHAOS-CD ...)
; compiling (DEFPARAMETER *CHAOS-BINARY-MAGIC* ...)
; compiling (DEFUN CHAOS-BINARY-FILE? ...)
; compiling (DEFPARAMETER *CHAOS-BIN-SUFFIX* ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN CHAOS-INPUT-FILE
;     (APPLY CHAOS::PROC CHAOS::ARGS)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (>= (FILE-WRITE-DATE CHAOS::BIN-FNAME) (FILE-WRITE-DATE CHAOS::FNAME))
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN CHAOS-INPUT-FILE ...)
; compiling (DEFUN SET-SEARCH-PATH ...)
; compiling (DEFUN SET-SEARCH-PATH-PLUS ...)
; compiling (DEFUN SET-SEARCH-PATH-MINUS ...)

; file: /«PKGBUILDDIR»/comlib/fsys.lisp
; in: DEFUN PR-SEARCH-PATH
;     (FORMAT STREAM "libpath = ~{~a~^:~}" CHAOS::*CHAOS-LIBPATH*)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG1433 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "libpath = " STREAM)
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #
;                       #
;                       #)))
;             NIL)
;           #:G1432)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-SEARCH-PATH ...)
; compiling (DEFUN CHAOS-INITIALIZE-FSYS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/fsys-TMP.fasl written
; compilation finished in 0:00:00.438
; compiling file "/«PKGBUILDDIR»/comlib/tree-display.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFPARAMETER TREE-SPACING ...)
; compiling (DEFPARAMETER LEAVES-AT-BOTTOM? ...)
; compiling (DECLAIM (SPECIAL LEAF? ...))
; compiling (DEFVAR LEAF? ...)
; compiling (DEFVAR LEAF-NAME ...)
; compiling (DEFVAR LEAF-INFO ...)
; compiling (DEFVAR INT-NODE-NAME ...)
; compiling (DEFVAR INT-NODE-CHILDREN ...)
; compiling (DEFUN MAKE-AUGM-LEAF ...)
; compiling (DEFUN MAKE-AUGM-PAD ...)
; compiling (DEFUN MAKE-AUGM-INT-NODE ...)
; compiling (DEFUN AUGM-TREE-INT-NODE? ...)
; compiling (DEFUN AUGM-TREE-PAD? ...)
; compiling (DEFUN AUGM-TREE-WIDTH ...)
; compiling (DEFUN AUGM-TREE-ROOT ...)
; compiling (DEFUN AUGM-TREE-NAME ...)
; compiling (DEFUN AUGM-LEAF-INFO ...)
; compiling (DEFUN AUGM-INT-NODE-LPAD ...)
; compiling (DEFUN AUGM-INT-NODE-RPAD ...)
; compiling (DEFUN AUGM-INT-NODE-CHILDREN ...)
; compiling (DEFUN PAD ...)
; compiling (DEFUN FIELD-WIDTH ...)

; file: /«PKGBUILDDIR»/comlib/tree-display.lisp
; in: DEFUN AUGMENT-TREE
;     (FUNCALL CHAOS::LEAF? CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF?)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::LEAF-INFO CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-INFO)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::INT-NODE-CHILDREN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::INT-NODE-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::INT-NODE-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (* (- (THE FIXNUM (LENGTH (THE LIST CHAOS::CHILDREN))) 1) CHAOS::TREE-SPACING)
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) 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 5) 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 5) 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 GENERIC-+ (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -18446744073709551615 18446744073709551613)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of GENERIC-+

;     (CHAOS::MAKE-AUGM-INT-NODE (+ CHAOS::MAX-LEFT CHAOS::MAX-RIGHT)
;      CHAOS::MAX-LEFT CHAOS::NAME (- CHAOS::MAX-LEFT CHAOS::LEFT)
;      (- CHAOS::MAX-RIGHT CHAOS::RIGHT) CHAOS::CHILDREN)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN AUGMENT-TREE ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...) ...)
; compiling (DEFVAR _DUP-HASH_ ...)
; compiling (DEFVAR _REF-NUM-COUNTER_ ...)
; compiling (DEFVAR _DUP-INFOS_ ...)
; compiling (DEFUN AUGMENT-TREE-AS-GRAPH ...)
; compiling (DEFSTRUCT GRPH-INFO ...)
; compiling (DEFSTRUCT (GRPH-INT-NODE-INFO #))
; compiling (DEFSTRUCT (GRPH-LEAF-INFO #) ...)

; file: /«PKGBUILDDIR»/comlib/tree-display.lisp
; in: DEFUN TRAVERSE-TREE-CHECKING-DUPS
;     (FUNCALL CHAOS::LEAF? CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF?)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::LEAF-INFO CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-INFO)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::INT-NODE-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::INT-NODE-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::INT-NODE-CHILDREN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN TRAVERSE-TREE-CHECKING-DUPS ...)

; file: /«PKGBUILDDIR»/comlib/tree-display.lisp
; in: DEFUN AUGMENT-TREE-AS-GRAPH-AUX
;     (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::INT-NODE-CHILDREN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING)
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) 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 5) 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 5) 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 GENERIC-+ (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -18446744073709551615 18446744073709551613)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of GENERIC-+

;     (CHAOS::MAKE-AUGM-INT-NODE (+ CHAOS::MAX-LEFT CHAOS::MAX-RIGHT)
;      CHAOS::MAX-LEFT CHAOS::NAME (- CHAOS::MAX-LEFT CHAOS::LEFT)
;      (- CHAOS::MAX-RIGHT CHAOS::RIGHT) CHAOS::CHILDREN)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN AUGMENT-TREE-AS-GRAPH-AUX ...)
; compiling (DEFUN ANY-INT-NODES? ...)
; compiling (DEFUN ALL-DONE? ...)
; compiling (DEFUN PRINT-SEQ ...)

; file: /«PKGBUILDDIR»/comlib/tree-display.lisp
; in: DEFUN PRINT-LOOP1
;     (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::NAME-RIGHT)
; ==>
;   (- (- CHAOS::TREE-WIDTH CHAOS::ROOT) CHAOS::NAME-RIGHT)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (CHAOS::PRINT-SEQ #\  (- CHAOS::ROOT CHAOS::NAME-LEFT) STREAM)
; 
; note: doing signed word to integer coercion (cost 20)

;     (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::NAME-RIGHT)
; ==>
;   (- (- CHAOS::TREE-WIDTH CHAOS::ROOT) CHAOS::NAME-RIGHT)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

;     (CHAOS::PRINT-SEQ #\  (- CHAOS::TREE-WIDTH CHAOS::ROOT 1) STREAM)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN PRINT-LOOP1 ...)

; file: /«PKGBUILDDIR»/comlib/tree-display.lisp
; in: DEFUN PRINT-LOOP2
;     (+ CHAOS::ROOT 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::INFO-RIGHT)
; ==>
;   (- (- CHAOS::TREE-WIDTH CHAOS::ROOT) CHAOS::INFO-RIGHT)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -16140901064495857661 16140901064495857661)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::NAME-RIGHT)
; ==>
;   (- (- CHAOS::TREE-WIDTH CHAOS::ROOT) CHAOS::NAME-RIGHT)
; 
; note: forced to do GENERIC-- (cost 10)
;       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).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ 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 5) 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)
; --> + 
; ==>
;   (+ CHAOS::ROOT CHAOS::TREE-SPACING)
; 
; 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 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.

;     (+ 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 (signed-byte 64) arithmetic (cost 5) 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.

;     (+ 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::PRINT-SEQ #\  (- CHAOS::ROOT CHAOS::NAME-LEFT) STREAM)
; 
; note: doing signed word to integer coercion (cost 20)

;     (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::NAME-RIGHT)
; ==>
;   (- (- CHAOS::TREE-WIDTH CHAOS::ROOT) CHAOS::NAME-RIGHT)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

;     (CHAOS::PRINT-SEQ #\  (- CHAOS::ROOT CHAOS::INFO-LEFT) STREAM)
; 
; note: doing signed word to integer coercion (cost 20)

;     (- CHAOS::TREE-WIDTH CHAOS::ROOT CHAOS::INFO-RIGHT)
; ==>
;   (- (- CHAOS::TREE-WIDTH CHAOS::ROOT) CHAOS::INFO-RIGHT)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC--
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of GENERIC--

;     (CHAOS::PRINT-SEQ #\  (- CHAOS::TREE-WIDTH CHAOS::ROOT 1) STREAM)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN PRINT-LOOP2 ...)
; compiling (DEFUN PRINT-TREES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/tree-display-TMP.fasl written
; compilation finished in 0:00:00.132
; compiling file "/«PKGBUILDDIR»/comlib/lex.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *BUILTIN-CATS* ...)
; compiling (DEFMACRO DEFINE-BUILTIN-TOKEN ...)
; compiling (DEFMACRO DECLARE-BI-TOKEN ...)
; compiling (DEFPARAMETER *LISP-ESCAPE-CHAR* ...)
; compiling (DEFPARAMETER .LISP-SIMPLE-SEXPR. ...)
; compiling (DEFPARAMETER .LISP-GENERAL-SEXPR. ...)
; compiling (DEFPARAMETER *CHAOS-ESCAPE-CHAR* ...)
; compiling (DEFPARAMETER .CHAOS-VALUE-SEXPR. ...)
; compiling (DEFPARAMETER .STRING-TOKEN. ...)
; compiling (DECLARE-BI-TOKEN (QUOTE %SLISP))
; compiling (DECLARE-BI-TOKEN (QUOTE %GLISP))
; compiling (DECLARE-BI-TOKEN (QUOTE |String|))
; compiling (DECLARE-BI-TOKEN (QUOTE |%Chaos|))
; compiling (DECLARE-BI-TOKEN (QUOTE |#\||))
; compiling (DECLARE-BI-TOKEN (QUOTE |\|#|))
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFPARAMETER .READER-CHAR-CODE-LIMIT. ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *READER-READ-TABLE*)
; compiling (SETF *READER-READ-TABLE* ...)
; compiling (DEFMACRO !SET-SYNTAX ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN LEX-SHOW-DELIMITERS
;     (FORMAT STREAM "~%~S : ~S" (CODE-CHAR CHAOS::X) CHAOS::SYNTAX)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG54 #:FORMAT-ARG55 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (PRIN1 #:FORMAT-ARG54 STREAM)
;               (WRITE-STRING " : " STREAM)
;               (PRIN1 #:FORMAT-ARG55 STREAM))
;             NIL)
;           #:G52 #:G53)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN LEX-SHOW-DELIMITERS ...)
; compiling (DEFUN !INIT-READ-TABLE ...)
; compiling (DEFMACRO READER-GET-SYNTAX ...)
; compiling (DEFMACRO READER-VALID-CHAR-CODE ...)
; compiling (DEFUN !SET-SINGLE-READER ...)
; compiling (DEFUN !SET-READER ...)
; compiling (DEFVAR *READER-INPUT* ...)
; compiling (DEFPARAMETER *READER-VOID* ...)
; compiling (DEFVAR *TOKEN-BUF* ...)
; compiling (DEFVAR *LAST-TOKEN* ...)
; compiling (DEFPARAMETER *LEX-EOF* ...)
; compiling (DEFMACRO !READ-IN ...)
; compiling (DEFMACRO !READ-DISCARD ...)
; compiling (DEFUN !READ-SYM ...)
; compiling (DEFUN TEST-LEX ...)
; compiling (DEFPARAMETER NEWLINE-STRING ...)
; compiling (DEFPARAMETER LINE-CONTINUE-CHAR ...)
; compiling (DEFPARAMETER .READ-LINE-EOF. ...)
; compiling (DECLAIM (SPECIAL *LIVE-NEWLINE*))
; compiling (DEFVAR *LIVE-NEWLINE* ...)
; compiling (DEFMACRO ADD-NEW-LINE ...)
; compiling (DEFUN READ-LINES ...)
; compiling (DEFVAR .READER-CH. ...)
; compiling (DECLAIM (SPECIAL .ESCAPE-CHAR.))
; compiling (DEFVAR .DEFAULT-ESCAPE-CHAR. ...)
; compiling (DEFPARAMETER CONTROL-D ...)
; compiling (DEFPARAMETER CONTROL-D-STRING ...)
; compiling (DEFPARAMETER INPUT-ESCAPE ...)
; compiling (DEFPARAMETER INPUT-ESCAPE-STRING ...)
; compiling (DEFMACRO SEE-CTRL-D ...)
; compiling (DEFMACRO READER-IS-AT-EOF ...)
; compiling (DEFMACRO AT-EOF ...)
; compiling (DEFMACRO AT-EOF-OR-CONTROL-D ...)
; compiling (DEFMACRO SEE-INPUT-ESCAPE ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; 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)))))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN STR-MATCH? ...)
; compiling (DEFUN LEX-STRING-MATCH ...)
; compiling (DECLAIM (SPECIAL .READER-ESCAPE.))
; compiling (DEFVAR .READER-ESCAPE. ...)
; compiling (DEFVAR .NEWLINE-COUNT. ...)
; compiling (DEFVAR *LAST-NEWLINE* ...)
; compiling (DEFPARAMETER EOF-CHAR ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN READER-GET-CHAR
;     (INCF CHAOS::.NEWLINE-COUNT.)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::.NEWLINE-COUNT.)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.)
; --> SETQ 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.
; compiling (DEFUN READER-GET-CHAR ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFVAR .READER-BUF. ...)
; compiling (DEFPARAMETER .CHAOS-SIMPLE-LISP-KEYWORD. ...)
; compiling (DEFPARAMETER .CHAOS-GENERAL-LISP-KEYWORD. ...)
; compiling (DEFPARAMETER .CHAOS-VALUE-KEYWORD. ...)
; compiling (DEFPARAMETER .ML-BEGIN-CHAR. ...)
; compiling (DEFPARAMETER .ML-END-CHAR. ...)
; compiling (DEFVAR .LEX-INNER-MULTI-COMMENT. ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN READ-LEXICON
;     (STRING CHAOS::.READER-CH.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN READ-LEXICON ...)
; compiling (DEFUN LEX-CONSIDER-TOKEN ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN READER-SUPPRESS-CH
;     (STRING CHAOS::.READER-CH.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN READER-SUPPRESS-CH ...)
; compiling (DEFUN READER-UNREAD ...)
; compiling (DEFUN SKIP-MULTI-COMMENT ...)
; compiling (DEFUN UNREAD-TOKEN ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN READ-SYM
;     (STRING CHAOS::.READER-CH.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN READ-SYM ...)
; compiling (DEFUN LEX-READ-STRING ...)
; compiling (DEFUN LEX-READ-LISP-ESCAPE ...)
; compiling (DEFUN LEX-READ-CHAOS-VALUE ...)
; compiling (DEFUN LEX-READ-LIST ...)
; compiling (DEFUN LEX-READ-REST-OF-LIST ...)
; compiling (DEFUN BI-TOKEN? ...)
; compiling (DEFUN LEX-READ ...)
; compiling (DEFMACRO ALL-DIGIT? ...)
; compiling (DEFPARAMETER .DEFAULT-SPACE-CHARS. ...)
; compiling (DEFPARAMETER .DEFAULT-RETURN-CHARS. ...)
; compiling (DEFPARAMETER .DEFAULT-SINGLE-CHARS. ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN !FORCE-SINGLE-READER
;     (CHAR (THE STRING CHAOS::X) 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (STRING CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN !FORCE-SINGLE-READER ...)

; file: /«PKGBUILDDIR»/comlib/lex.lisp
; in: DEFUN !UNSET-SINGLE-READER
;     (CHAR (THE STRING CHAOS::X) 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (ASSOC CHAOS::CHR CHAOS::.DEFAULT-SINGLE-CHARS.)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN !UNSET-SINGLE-READER ...)
; compiling (DEFUN !LEX-READ-INIT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/lex-TMP.fasl written
; compilation finished in 0:00:00.289
; compiling file "/«PKGBUILDDIR»/comlib/reader.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *READER-SPECIAL-SCHEMA-PATTERNS* ...)
; compiling (DEFUN READER ...)
; compiling (DEFUN ABORT-GENERAL-READER ...)
; compiling (DEFUN GENERAL-READ-EOF-ERROR ...)
; compiling (DEFUN GENERAL-READ-ABORT ...)

; file: /«PKGBUILDDIR»/comlib/reader.lisp
; in: DEFUN STRING-MATCH
;     (STRING CHAOS::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               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)))))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN STRING-MATCH ...)

; file: /«PKGBUILDDIR»/comlib/reader.lisp
; in: DEFUN GENERAL-READ-STRING-MATCHES
;     (FUNCALL (CADR CHAOS::Y) CHAOS::X)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CADR CHAOS::Y))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN GENERAL-READ-STRING-MATCHES ...)
; compiling (DEFUN GENERAL-READ-NUMBERP ...)
; compiling (DEFUN GENERAL-READ ...)
; compiling (DEFUN READ-NAMED ...)
; compiling (DEFUN READ-OPTIONAL ...)
; compiling (DEFUN READ-IF-PRESENT ...)
; compiling (DEFUN READ-ONE-OF ...)
; compiling (DEFUN READ-ONE-OF-DEFAULT ...)
; compiling (DEFUN READ-MANY-OF ...)
; compiling (DEFUN READ-SEQ-OF ...)
; compiling (DEFUN READ-ANY-ONE ...)
; compiling (DEFUN READ-CONTINUE ...)
; compiling (DEFUN READ-CONTINUE-APPEND ...)

; file: /«PKGBUILDDIR»/comlib/reader.lisp
; in: DEFUN GENERAL-READ-SHOW-CONTEXT
;     (EQUAL CHAOS::*READER-STARTING-POSITION* (FILE-POSITION *STANDARD-INPUT*))
; --> EQL IF 
; ==>
;   (EQL SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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 (MEMBER T NIL)), not a FIXNUM.
; compiling (DEFUN GENERAL-READ-SHOW-CONTEXT ...)
; compiling (DEFUN GENERAL-READ-IS-SIMPLE-SCHEMA ...)
; compiling (DEFUN GENERAL-READ-DISPLAY-SCHEMA ...)
; compiling (DEFUN GENERAL-READ-PRINT-SCHEMA-1 ...)

; file: /«PKGBUILDDIR»/comlib/reader.lisp
; in: DEFUN GENERAL-READ-PRINT-SCHEMA
;     (< CHAOS::*PRINT-LINE-LIMIT* (CHAOS::FILECOL *STANDARD-OUTPUT*))
; 
; 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 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.
; 
; 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.

;     (EQL CHAOS::CONTROL-D CHAOS::I)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN GENERAL-READ-PRINT-SCHEMA ...)
; compiling (DEFUN READ-COMMENT-LINE ...)
; compiling (DEFUN GENERAL-READ-COMMENTLONG ...)
; compiling (DECLAIM (INLINE READ-TERM-FROM-STRING))
; compiling (DEFPARAMETER .TERM-DELIMITING-CHARS. ...)
; compiling (DEFUN !SET-TERM-DELIM-CHARS ...)
; compiling (DEFUN READ-TERM-FROM-STRING ...)
; compiling (DEFUN READ-SEQ-OF-TERM-FROM-STRING ...)
; compiling (DEFUN READ-TERM-AT-TOP ...)
; compiling (DEFUN READ-SEQ-OF-TERM-AT-TOP ...)
; compiling (DEFUN READ-TERM ...)
; compiling (DEFUN READ-SEQ-OF-TERM ...)
; compiling (DEFUN READ-ARGS ...)
; compiling (DEFPARAMETER .OP-NAME-DELIMITING-CHARS. ...)
; compiling (DEFUN READ-SEQ-OF-OPNAME ...)
; compiling (DEFUN READ-OPNAME ...)
; compiling (DEFUN READ-OPNAME-AT-TOP ...)
; compiling (DEFUN READ-SEQ-OF-OPNAME-AT-TOP ...)
; compiling (DEFUN READ-OPNAME-FROM-STRING ...)
; compiling (DEFUN READ-SEQ-OF-OPNAME-FROM-STRING ...)
; compiling (DEFUN READ-SORT ...)
; compiling (DEFUN READ-SORTS ...)
; compiling (DEFUN READ-CHARS ...)
; compiling (DEFUN READ-OPATTR ...)
; compiling (DEFUN READ-SUPER-EXP ...)
; compiling (DEFUN READ-SUPEREXP ...)
; compiling (DEFUN READ-SUPEREXPR-DELIMITED ...)
; compiling (DEFVAR *MODEXP-PARSE-INPUT* ...)
; compiling (DEFMACRO MODEXP-SKIP ...)
; compiling (DEFUN SCAN-PARENTHESIZED-UNIT ...)
; compiling (DEFUN GROUP-PAREN-UNITS ...)
; compiling (DEFUN CHECK-ENCLOSING-PARENS ...)
; compiling (DEFUN READ-MODULE-EXP ...)
; compiling (DEFUN READ-MODEXP ...)
; compiling (DEFUN READ-MODEXP-DELIMITED ...)
; compiling (DEFUN READ-MODEXP-FROM-STRING ...)
; compiling (DEFVAR *INTERACTIVE-SESSION* ...)
; compiling (DEFUN SET-INTERACTIVE ...)
; compiling (DEFUN OFF-INTERACTIVE ...)
; compiling (DEFUN WAIT-UNTIL-NON-WHITE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/reader-TMP.fasl written
; compilation finished in 0:00:00.224
; compiling file "/«PKGBUILDDIR»/comlib/let-over-lambda.lisp" (written 09 SEP 2015 05:53:34 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (IF (STRING-LESSP # ...) ...)
; compiling (DEFUN GROUP ...)
; compiling (DEFUN MKSTR ...)
; compiling (DEFUN SYMB ...)
; compiling (DEFUN FLATTEN ...)
; compiling (DEFUN G!-SYMBOL-P ...)
; compiling (DEFUN O!-SYMBOL-P ...)
; compiling (DEFUN O!-SYMBOL-TO-G!-SYMBOL ...)
; compiling (DEFMACRO DEFMACRO/G! ...)
; compiling (DEFMACRO DEFMACRO! ...)
; compiling (DEFUN |#"-reader| ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFUN |#>-reader| ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFUN SEGMENT-READER ...)
; compiling (DEFMACRO! MATCH-MODE-PPCRE-LAMBDA-FORM ...)
; compiling (DEFMACRO! SUBST-MODE-PPCRE-LAMBDA-FORM ...)
; compiling (DEFUN |#~-reader| ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFMACRO! DLAMBDA ...)
; compiling (DEFMACRO ALAMBDA ...)
; compiling (DEFMACRO AIF ...)
; compiling (DEFUN |#`-reader| ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFMACRO ALET% ...)
; compiling (DEFMACRO ALET ...)
; compiling (DEFUN LET-BINDING-TRANSFORM ...)
; compiling (DEFMACRO PANDORICLET ...)
; compiling (DEFUN PANDORICLET-GET ...)
; compiling (DEFUN PANDORICLET-SET ...)
; compiling (DECLAIM (INLINE GET-PANDORIC))
; compiling (DEFUN GET-PANDORIC ...)
; compiling (DEFSETF GET-PANDORIC ...)
; compiling (DEFMACRO WITH-PANDORIC ...)
; compiling (DEFUN PANDORIC-HOTPATCH ...)
; compiling (DEFMACRO PANDORIC-RECODE ...)
; compiling (DEFMACRO PLAMBDA ...)
; compiling (DEFVAR PANDORIC-EVAL-TUNNEL)
; compiling (DEFMACRO PANDORIC-EVAL ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFMACRO FAST-PROGN ...)
; compiling (DEFMACRO SAFE-PROGN ...)
; compiling (DEFUN FFORMAT ...)
; compiling (DEFINE-COMPILER-MACRO FFORMAT ...)
; compiling (DECLAIM (INLINE MAKE-TLIST ...))
; compiling (DEFUN MAKE-TLIST ...)
; compiling (DEFUN TLIST-LEFT ...)
; compiling (DEFUN TLIST-RIGHT ...)
; compiling (DEFUN TLIST-EMPTY-P ...)
; compiling (DECLAIM (INLINE TLIST-ADD-LEFT ...))
; compiling (DEFUN TLIST-ADD-LEFT ...)
; compiling (DEFUN TLIST-ADD-RIGHT ...)
; compiling (DECLAIM (INLINE TLIST-REM-LEFT))
; compiling (DEFUN TLIST-REM-LEFT ...)
; compiling (DECLAIM (INLINE TLIST-UPDATE))
; compiling (DEFUN TLIST-UPDATE ...)
; compiling (DEFUN BUILD-BATCHER-SN ...)
; compiling (DEFMACRO! SORTF ...)
; compiling (DEFUN DOLLAR-SYMBOL-P ...)
; compiling (DEFUN PRUNE-IF-MATCH-BODIES-FROM-SUB-LEXICAL-SCOPE ...)
; compiling (DEFMACRO! IF-MATCH ...)
; compiling (DEFMACRO WHEN-MATCH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/comlib/let-over-lambda-TMP.fasl written
; compilation finished in 0:00:00.212
; compiling file "/«PKGBUILDDIR»/chaos/primitives/term2.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTYPE TERM ...)
; compiling (DEFTYPE TERM-BODY ...)
; compiling (DEFMACRO TERMP ...)
; compiling (DEFUN IS-TERM? ...)
; compiling (DEFMACRO TERM-BODY ...)
; compiling (DEFMACRO CREATE-TERM ...)
; compiling (DEFMACRO NEW-TERM ...)
; compiling (DEFMACRO TERM-EQ ...)
; compiling (DEFMACRO TERM-EQUAL ...)
; compiling (DEFUN !TERM-EQ ...)
; compiling (DEFMACRO TERM-REPLACE ...)
; compiling (DEFCONSTANT VARIABLE-TYPE ...)
; compiling (DEFCONSTANT APPLICATION-FORM-TYPE ...)
; compiling (DEFCONSTANT SIMPLE-LISP-CODE-TYPE ...)
; compiling (DEFCONSTANT GENERAL-LISP-CODE-TYPE ...)
; compiling (DEFCONSTANT LISP-CODE-TYPE ...)
; compiling (DEFCONSTANT PSUEDO-CONSTANT-TYPE ...)
; compiling (DEFCONSTANT PURE-BUILTIN-CONSTANT-TYPE ...)
; compiling (DEFCONSTANT SYSTEM-OBJECT-TYPE ...)
; compiling (DEFCONSTANT BUILTIN-CONSTANT-TYPE ...)
; compiling (DEFCONSTANT PRE-ENCODE-BIT ...)
; compiling (DEFCONSTANT PRE-VARIABLE-TYPE ...)
; compiling (DEFCONSTANT PRE-APPLICATION-FORM-TYPE ...)
; compiling (DEFCONSTANT PRE-SIMPLE-LISP-CODE-TYPE ...)
; compiling (DEFCONSTANT PRE-GENERAL-LISP-CODE-TYPE ...)
; compiling (DEFCONSTANT PRE-LISP-CODE-TYPE ...)
; compiling (DEFCONSTANT PRE-PSUEDO-CONSTANT-TYPE ...)
; compiling (DEFCONSTANT PRE-BUILTIN-CONSTANT-TYPE ...)
; compiling (DEFCONSTANT PRE-PURE-BUILTIN-CONSTANT-TYPE ...)
; compiling (DEFCONSTANT PRE-SYSTEM-OBJECT-TYPE ...)
; compiling (DEFCONSTANT REDUCED-FLAG ...)
; compiling (DEFCONSTANT LOWEST-PARSED-FLAG ...)
; compiling (DEFCONSTANT ON-DEMAND-FLAG ...)
; compiling (DEFCONSTANT RED-FLAG ...)
; compiling (DEFMACRO BODY-1ST ...)
; compiling (DEFMACRO BODY-2ND ...)
; compiling (DEFMACRO BODY-3RD ...)
; compiling (DEFMACRO BODY-4TH ...)
; compiling (DEFMACRO TERM-1ST ...)
; compiling (DEFMACRO TERM-2ND ...)
; compiling (DEFMACRO TERM-3RD ...)
; compiling (DEFMACRO TERM-4TH ...)
; compiling (DEFMACRO TERM$CODE ...)
; compiling (DEFMACRO TERM-CODE ...)
; compiling (DEFCONSTANT TERM-TYPE-MASK ...)
; compiling (DEFMACRO TERM-TYPE-EQ ...)
; compiling (DEFUN TERM-TYPE ...)
; compiling (DEFMACRO TERM$SORT ...)
; compiling (DEFMACRO TERM$SORT-CODE ...)
; compiling (DEFMACRO TERM-SORT ...)
; compiling (DEFMACRO TERM-SORT-CODE ...)
; compiling (DEFMACRO VARIABLE$SORT ...)
; compiling (DEFMACRO VARIABLE-SORT ...)
; compiling (DEFMACRO TERM$OP-CODE ...)
; compiling (DEFMACRO TERM$METHOD ...)
; compiling (DEFMACRO TERM$HEAD ...)
; compiling (DEFMACRO TERM-OP-CODE ...)
; compiling (DEFMACRO TERM-METHOD ...)
; compiling (DEFMACRO TERM-HEAD ...)
; compiling (DEFMACRO CHANGE$HEAD-OPERATOR ...)
; compiling (DEFMACRO CHANGE-HEAD-OPERATOR ...)
; compiling (DEFMACRO TERM$VARIABLE-CODE ...)
; compiling (DEFMACRO VARIABLE$NAME ...)
; compiling (DEFMACRO VARIABLE$PRINT-NAME ...)
; compiling (DEFMACRO TERM-VARIABLE-CODE ...)
; compiling (DEFMACRO VARIABLE-NAME ...)
; compiling (DEFMACRO VARIABLE-PRINT-NAME ...)
; compiling (DEFMACRO TERM$BUILTIN-VALUE ...)
; compiling (DEFMACRO TERM-BUILTIN-VALUE ...)
; compiling (DEFMACRO CHAOS-FORM-EXPR ...)
; compiling (DEFMACRO CHAOS-ORIGINAL-EXPR ...)
; compiling (DEFMACRO TERM$PSUEDO-CONSTANT-CODE ...)
; compiling (DEFMACRO TERM$PSUEDO-CONSTANT-NAME ...)
; compiling (DEFMACRO PSUEDO-CONSTANT-CODE ...)
; compiling (DEFMACRO PSUEDO-CONSTANT-NAME ...)
; compiling (DEFMACRO TERM$LISP-FUNCTION ...)
; compiling (DEFMACRO TERM-LISP-FUNCTION ...)
; compiling (DEFMACRO LISP-FORM-FUNCTION ...)
; compiling (DEFMACRO TERM$SYSTEM-OBJECT ...)
; compiling (DEFMACRO TERM-SYSTEM-OBJECT ...)
; compiling (DEFMACRO TERM$LISP-CODE-ORIGINAL-FORM ...)
; compiling (DEFMACRO TERM$LISP-FORM-ORIGINAL-FORM ...)
; compiling (DEFMACRO LISP-CODE-ORIGINAL-FORM ...)
; compiling (DEFMACRO LISP-FORM-ORIGINAL-FORM ...)
; compiling (DEFMACRO TERM$SUBTERMS ...)
; compiling (DEFMACRO TERM-SUBTERMS ...)
; compiling (DEFMACRO TERM$ARG-1 ...)
; compiling (DEFMACRO TERM$ARG-2 ...)
; compiling (DEFMACRO TERM$ARG-3 ...)
; compiling (DEFMACRO TERM$ARG-4 ...)
; compiling (DEFMACRO TERM$ARG-N ...)
; compiling (DEFMACRO TERM-ARG-1 ...)
; compiling (DEFMACRO TERM-ARG-2 ...)
; compiling (DEFMACRO TERM-ARG-3 ...)
; compiling (DEFMACRO TERM-ARG-4 ...)
; compiling (DEFMACRO TERM-ARG-N ...)
; compiling (DEFMACRO TERM-CODE$IS-DECODED? ...)
; compiling (DEFMACRO TERM-CODE$IS-VARIABLE? ...)
; compiling (DEFMACRO TERM-CODE$IS-APPLICATION-FORM? ...)
; compiling (DEFMACRO TERM-CODE$IS-LISP-CODE? ...)
; compiling (DEFMACRO TERM-CODE$IS-SIMPLE-LISP-CODE? ...)
; compiling (DEFMACRO TERM-CODE$IS-GENERAL-LISP-CODE? ...)
; compiling (DEFMACRO TERM-CODE$IS-BUILTIN-CONSTANT? ...)
; compiling (DEFMACRO TERM-CODE$IS-PURE-BUILTIN-CONSTANT? ...)
; compiling (DEFMACRO TERM-CODE$IS-PSUEDO-CONSTANT? ...)
; compiling (DEFMACRO TERM-CODE$IS-SYSTEM-OBJECT? ...)
; compiling (DEFMACRO TERM$IS-VARIABLE? ...)
; compiling (DEFMACRO TERM$IS-APPLICATION-FORM? ...)
; compiling (DEFMACRO TERM$IS-APPLFORM? ...)
; compiling (DEFMACRO TERM$IS-LISP-CODE? ...)
; compiling (DEFMACRO TERM$IS-LISP-FORM? ...)
; compiling (DEFMACRO TERM$IS-SIMPLE-LISP-CODE? ...)
; compiling (DEFMACRO TERM$IS-SIMPLE-LISP-FORM? ...)
; compiling (DEFMACRO TERM$IS-GENERAL-LISP-CODE? ...)
; compiling (DEFMACRO TERM$IS-GENERAL-LISP-FORM? ...)
; compiling (DEFMACRO TERM$IS-PURE-BUILTIN-CONSTANT? ...)
; compiling (DEFMACRO TERM$IS-BUILTIN-CONSTANT? ...)
; compiling (DEFMACRO TERM$IS-PSUEDO-CONSTANT? ...)
; compiling (DEFMACRO TERM$IS-SYSTEM-OBJECT? ...)
; compiling (DEFMACRO TERM-IS-VARIABLE? ...)
; compiling (DEFMACRO TERM-IS-APPLICATION-FORM? ...)
; compiling (DEFMACRO TERM-IS-APPLFORM? ...)
; compiling (DEFMACRO TERM-IS-LISP-FORM? ...)
; compiling (DEFMACRO TERM-IS-SIMPLE-LISP-FORM? ...)
; compiling (DEFMACRO TERM-IS-GENERAL-LISP-FORM? ...)
; compiling (DEFMACRO TERM-IS-PURE-BUILTIN-CONSTANT? ...)
; compiling (DEFMACRO TERM-IS-BUILTIN-CONSTANT? ...)
; compiling (DEFMACRO TERM-IS-PSUEDO-CONSTANT? ...)
; compiling (DEFMACRO TERM-IS-SYSTEM-OBJECT? ...)
; compiling (DEFMACRO TERM-IS-CHAOS-EXPR? ...)
; compiling (DEFMACRO TERM$STATE-FLAG ...)
; compiling (DEFMACRO TERM-STATE-FLAG ...)
; compiling (DEFMACRO TERM$TEST-REDUCED-FLAG ...)
; compiling (DEFMACRO TERM-TEST-REDUCED-FLAG ...)
; compiling (DEFMACRO TERM-IS-REDUCED? ...)
; compiling (DEFMACRO TERM$TEST-RED-FLAG ...)
; compiling (DEFMACRO TERM-TEST-RED-FLAG ...)
; compiling (DEFMACRO TERM-IS-RED ...)
; compiling (DEFMACRO TERM$TEST-LOWEST-PARSED-FLAG ...)
; compiling (DEFMACRO TERM-TEST-LOWEST-PARSED-FLAG ...)
; compiling (DEFMACRO TERM-IS-LOWEST-PARSED? ...)
; compiling (DEFMACRO TERM$TEST-ON-DEMAND-FLAG ...)
; compiling (DEFMACRO TERM-TEST-ON-DEMAND-FLAG ...)
; compiling (DEFMACRO TERM-IS-ON-DEMAND? ...)
; compiling (DEFMACRO TERM$SET-REDUCED-FLAG ...)
; compiling (DEFMACRO TERM-SET-REDUCED-FLAG ...)
; compiling (DEFMACRO MARK-TERM-AS-REDUCED ...)
; compiling (DEFCONSTANT .NOT-REDUCED-BIT. ...)
; compiling (DEFMACRO TERM$UNSET-REDUCED-FLAG ...)
; compiling (DEFMACRO TERM-UNSET-REDUCED-FLAG ...)
; compiling (DEFMACRO MARK-TERM-AS-NOT-REDUCED ...)
; compiling (DEFMACRO TERM$SET-RED-FLAG ...)
; compiling (DEFMACRO TERM-SET-RED ...)
; compiling (DEFCONSTANT .GREEN-BIT. ...)
; compiling (DEFMACRO TERM$SET-GREEN ...)
; compiling (DEFMACRO TERM-SET-GREEN ...)
; compiling (DEFMACRO TERM$SET-LOWEST-PARSED-FLAG ...)
; compiling (DEFMACRO TERM-SET-LOWEST-PARSED-FLAG ...)
; compiling (DEFMACRO MARK-TERM-AS-LOWEST-PARSED ...)
; compiling (DEFCONSTANT .NOT-LOWEST-PARSED-BIT. ...)
; compiling (DEFMACRO TERM$UNSET-LOWEST-PARSED-FLAG ...)
; compiling (DEFMACRO TERM-UNSET-LOWEST-PARSED-FLAG ...)
; compiling (DEFMACRO MARK-TERM-AS-NOT-LOWEST-PARSED ...)
; compiling (DEFMACRO TERM$SET-ON-DEMAND-FLAG ...)
; compiling (DEFMACRO TERM-SET-ON-DEMAND-FLAG ...)
; compiling (DEFMACRO MARK-TERM-AS-ON-DEMAND ...)
; compiling (DEFCONSTANT .NOT-ON-DEMAND-BIT. ...)
; compiling (DEFMACRO TERM$UNSET-ON-DEMAND-FLAG ...)
; compiling (DEFMACRO TERM-UNSET-ON-DEMAND-FLAG ...)
; compiling (DEFMACRO MARK-TERM-AS-NOT-ON-DEMAND ...)
; compiling (DEFCONSTANT VAR-CONST-CODE ...)
; compiling (DEFCONSTANT PRE-VAR-CONST-CODE ...)
; compiling (DEFMACRO @CREATE-VARIABLE-TERM ...)
; compiling (DEFMACRO MAKE-VARIABLE-TERM ...)
; compiling (DEFMACRO VARIABLE-COPY ...)
; compiling (DEFMACRO VARIABLE-COPY-X ...)
; compiling (DEFMACRO CREATE-APPLICATION-FORM-TERM ...)
; compiling (DEFMACRO @CREATE-APPLICATION-FORM-TERM ...)
; compiling (DEFCONSTANT SIMPLE-LISP-CONST-CODE ...)
; compiling (DEFCONSTANT PRE-SIMPLE-LISP-CONST-CODE ...)
; compiling (DEFMACRO CREATE-SIMPLE-LISP-CODE-TERM ...)
; compiling (DEFMACRO MAKE-SIMPLE-LISP-FORM-TERM ...)
; compiling (DEFCONSTANT GENERAL-LISP-CONST-CODE ...)
; compiling (DEFCONSTANT PRE-GENERAL-LISP-CONST-CODE ...)
; compiling (DEFMACRO CREATE-GENERAL-LISP-CODE-TERM ...)
; compiling (DEFMACRO @CREATE-GENERAL-LISP-CODE-TERM ...)
; compiling (DEFMACRO MAKE-GENERAL-LISP-FORM-TERM ...)
; compiling (DEFCONSTANT BUILTIN-CONSTR-CODE ...)
; compiling (DEFCONSTANT PRE-BUILTIN-CONSTR-CODE ...)
; compiling (DEFMACRO MAKE-BCONST-TERM ...)
; compiling (DEFCONSTANT PSUEDO-CONSTANT-CONST-CODE ...)
; compiling (DEFCONSTANT PRE-PSUEDO-CONSTANT-CONST-CODE ...)
; compiling (DEFMACRO MAKE-PSUEDO-CONSTANT-TERM ...)
; compiling (DEFMACRO MAKE-PVARIABLE-TERM ...)
; compiling (DEFMACRO PVARIABLE-COPY ...)
; compiling (DEFCONSTANT SYSTEM-OBJECT-CONST-CODE ...)
; compiling (DEFCONSTANT PRE-SYSTEM-OBJECT-CONST-CODE ...)
; compiling (DEFMACRO MAKE-SYSTEM-OBJECT-TERM ...)
; compiling (DEFCONSTANT ALL-TERM-CODE ...)
; compiling (DEFMACRO TERM? ...)
; compiling (DEFMACRO TERM$BUILTIN-EQUAL ...)
; compiling (DEFMACRO TERM-BUILTIN-EQUAL ...)
; compiling (DEFCONSTANT PRIORI-CONSTANT-TYPE ...)
; compiling (DEFMACRO TERM$IS-CONSTANT? ...)
; compiling (DEFMACRO TERM-IS-CONSTANT? ...)
; compiling (DEFUN TERM-VARIABLES ...)
; compiling (DECLAIM (INLINE VARIABLES-OCCUR-AT-TOP?))
; compiling (DEFUN VARIABLES-OCCUR-AT-TOP? ...)
; compiling (DEFCONSTANT APRIORI-GROUND-TYPE ...)
; compiling (DEFMACRO TERM$IS-GROUND? ...)
; compiling (DEFUN TERM-IS-GROUND? ...)
; compiling (DECLAIM (INLINE SIMPLE-COPY-TERM))
; compiling (DEFUN SIMPLE-COPY-TERM ...)
; compiling (DEFMACRO !TERM-VARIABLE-MATCH ...)
; compiling (DEFMACRO TERM-VARIABLE-MATCH ...)
; compiling (DEFMACRO !TERM-OPERATOR-EQ ...)
; compiling (DEFMACRO TERM-OPERATOR-EQ ...)
; compiling (DEFMACRO !TERM-OPERATOR-EQUAL ...)
; compiling (DEFMACRO TERM-OPERATOR-EQUAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/term2-TMP.fasl written
; compilation finished in 0:00:00.622
; compiling file "/«PKGBUILDDIR»/chaos/primitives/defterm.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (%CHAOS-OBJECT #) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/defterm.lisp
; in: DEFUN CHAOS-PR-OBJECT
;     (FORMAT STREAM "#<~a : ~x>" (CHAOS::%CHAOS-OBJECT--TYPE CHAOS::OBJ)
;             (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG51 #:FORMAT-ARG52 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "#<" STREAM)
;               (PRINC #:FORMAT-ARG51 STREAM)
;               (WRITE-STRING " : " STREAM)
;               (LET (# #)
;                 (PRINC #:FORMAT-ARG52 STREAM))
;               (WRITE-STRING ">" STREAM))
;             NIL)
;           #:G49 #:G50)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (CHAOS::ADDR-OF CHAOS::OBJ)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT STREAM "#<~a : ~x>" (CHAOS::%CHAOS-OBJECT--TYPE CHAOS::OBJ)
;             (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG51 #:FORMAT-ARG52 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "#<" STREAM)
;               (PRINC #:FORMAT-ARG51 STREAM)
;               (WRITE-STRING " : " STREAM)
;               (LET (# #)
;                 (PRINC #:FORMAT-ARG52 STREAM))
;               (WRITE-STRING ">" STREAM))
;             NIL)
;           #:G49 #:G50)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN CHAOS-PR-OBJECT ...)
; compiling (DEFSTRUCT (%CHAOS-STATIC-OBJECT) ...)
; compiling (DEFMACRO OBJECT-TYPE ...)
; compiling (DEFMACRO CHAOS-OBJECT? ...)
; compiling (DEFMACRO TYPE-P-CHAOS ...)
; compiling (DEFMACRO OBJECT-CATEGORY ...)
; compiling (DEFMACRO OBJECT-EVALUATOR ...)
; compiling (DEFMACRO OBJECT-PRINTER ...)
; compiling (DEFMACRO OBJECT-VISIBLE-SLOTS ...)
; compiling (DEFMACRO OBJECT-CONSTRUCTOR ...)
; compiling (DEFSTRUCT (%CHAOS-AST #) ...)
; compiling (DEFMACRO CHAOS-AST? ...)
; compiling (DEFMACRO AST-TYPE ...)
; compiling (DEFMACRO AST-CATEGORY ...)
; compiling (DEFMACRO AST-PRINTER ...)
; compiling (DEFMACRO AST-EVALUATOR ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN %MAKE-KEYWORD ...)

; file: /«PKGBUILDDIR»/chaos/primitives/defterm.lisp
; in: DEFMACRO DEFTERM
;     (STRING CHAOS::CONC-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::CONC-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::CONC-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::CONC-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFMACRO DEFTERM ...)
; compiling (DEFMACRO DEFKEY ...)
; compiling (DEFUN %IS-CHAOS-TERM? ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/defterm-TMP.fasl written
; compilation finished in 0:00:00.602
; compiling file "/«PKGBUILDDIR»/chaos/primitives/bobject2.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (OBJECT # ...) ...)
; compiling (DEFMACRO OBJECT-INFO ...)
; compiling (DEFUN SET-OBJECT-CONTEXT-MODULE ...)
; compiling (DEFSTRUCT (EX-INTERFACE #) ...)
; compiling (DEFSTRUCT (SYMBOL-TABLE) ...)
; compiling (DEFSTRUCT (STABLE) ...)
; compiling (DEFUN CANONICALIZE-OBJECT-NAME ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bobject2.lisp
; in: DEFUN SYMBOL-TABLE-ADD
;     (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-SORTS CHAOS::TBL))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-OPERATORS CHAOS::TBL))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-PARAMETERS CHAOS::TBL))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-SUBMODULES CHAOS::TBL))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-AXIOMS CHAOS::TBL))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (PUSHNEW CHAOS::OBJ (CHAOS::STABLE-UNKNOWNS CHAOS::TBL))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN SYMBOL-TABLE-ADD ...)
; compiling (DEFUN SYMBOL-TABLE-GET ...)
; compiling (DEFSTRUCT (TOP-OBJECT # ...) ...)
; compiling (DEFMACRO OBJECT-DEPEND-DAG ...)
; compiling (DEFUN OBJECT-PARAMETERS ...)
; compiling (DEFSETF OBJECT-PARAMETERS ...)
; compiling (DEFUN OBJECT-EXPORTING-OBJECTS ...)
; compiling (DEFSETF OBJECT-EXPORTING-OBJECTS ...)
; compiling (DEFUN OBJECT-DIRECT-SUB-OBJECTS ...)
; compiling (DEFUN OBJECT-ALL-SUB-OBJECTS ...)
; compiling (DEFUN GATHER-SUB-OBJECTS ...)
; compiling (DEFUN OBJECT-ALL-EXPORTING-OBJECTS ...)
; compiling (DEFUN GATHER-EXPORTING-OBJECTS ...)
; compiling (DEFUN INITIALIZE-DEPEND-DAG ...)
; compiling (DEFUN INITIALIZE-OBJECT-INTERFACE ...)
; compiling (DEFUN CLEAN-UP-EX-INTERFACE ...)
; compiling (DEFUN ADD-DEPEND-RELATION ...)
; compiling (DEFMACRO OBJECT-STATUS ...)
; compiling (DEFMACRO OBJECT-IS-INCONSISTENT ...)
; compiling (DEFMACRO MARK-OBJECT-AS-INCONSISTENT ...)
; compiling (DEFUN PROPAGATE-OBJECT-CHANGE ...)
; compiling (DEFMACRO OBJECT-DECL-FORM ...)
; compiling (DEFTERM SCRIPT ...)
; compiling (DEFUN SCRIPT? ...)
; compiling (DEFTERM AST ...)
; compiling (DEFUN AST? ...)
; compiling (DEFSTRUCT (PARSE-DICTIONARY #) ...)
; compiling (DEFSTRUCT (SIGNATURE-STRUCT # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bobject2.lisp
; in: DEFUN PRINT-SIGNATURE
;     (FORMAT STREAM "'[:signature \"~a\"]" (CHAOS::MAKE-MODULE-PRINT-NAME2 MOD))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG884 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "'[:signature \"" STREAM)
;               (PRINC #:FORMAT-ARG884 STREAM)
;               (WRITE-STRING "\"]" STREAM))
;             NIL)
;           #:G883)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-SIGNATURE ...)
; compiling (DEFSTRUCT (AXIOM-SET # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bobject2.lisp
; in: DEFUN PRINT-AXIOM-SET
;     (FORMAT STREAM "':axset[\"~a\"]" (CHAOS::MODULE-PRINT-NAME MOD))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG965 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "':axset[\"" STREAM)
;               (PRINC #:FORMAT-ARG965 STREAM)
;               (WRITE-STRING "\"]" STREAM))
;             NIL)
;           #:G964)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-AXIOM-SET ...)
; compiling (LET (#) ...)
; compiling (DEFSTRUCT (TRS # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bobject2.lisp
; in: DEFUN PRINT-TRS
;     (FORMAT STREAM "'[:trs \"~a\"]" (CHAOS::MAKE-MODULE-PRINT-NAME2 MOD))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG1140 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "'[:trs \"" STREAM)
;               (PRINC #:FORMAT-ARG1140 STREAM)
;               (WRITE-STRING "\"]" STREAM))
;             NIL)
;           #:G1139)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-TRS ...)
; compiling (DEFSTRUCT (MODULE-DYN-CONTEXT #) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bobject2.lisp
; in: DEFSTRUCT MODULE
;     (DEFSTRUCT
;         (CHAOS::MODULE (:INCLUDE CHAOS::TOP-OBJECT (CHAOS::-TYPE 'CHAOS::MODULE))
;          (:CONC-NAME "MODULE-") (:CONSTRUCTOR CHAOS::MAKE-MODULE)
;          (:CONSTRUCTOR CHAOS::MODULE* (CHAOS::NAME))
;          (:PRINT-FUNCTION CHAOS::PRINT-MODULE-OBJECT))
;       (CHAOS::PRINT-NAME "" :TYPE STRING)
;       (CHAOS::SIGNATURE NIL :TYPE (OR NULL CHAOS::SIGNATURE-STRUCT))
;       (CHAOS::AXIOM-SET NIL :TYPE (OR NULL CHAOS::AXIOM-SET))
;       (CHAOS::THEOREMS NIL :TYPE LIST)
;       (CHAOS::PARSE-DICTIONARY NIL :TYPE (OR NULL CHAOS::PARSE-DICTIONARY))
;       (CHAOS::TRS NIL :TYPE (OR NULL CHAOS::TRS))
;       (CHAOS::CONTEXT NIL :TYPE (OR NULL CHAOS::MODULE-DYN-CONTEXT))
;       (CHAOS::ALIAS NIL :TYPE LIST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::MODULE {1008FCBEA3}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>
;       #<SB-KERNEL:LAYOUT for CHAOS::%CHAOS-OBJECT {100AEBB183}>
;       #<SB-KERNEL:LAYOUT for CHAOS::OBJECT {10062CE383}>
;       #<SB-KERNEL:LAYOUT for CHAOS::TOP-OBJECT {1006D80F63}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CHAOS::MODULE-P, CHAOS::MODULE-NAME,
;   CHAOS::MODULE-SYMBOL-TABLE and CHAOS::MODULE-PRINT-NAME could not be inlined
;   because the structure definition for CHAOS::MODULE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEFSTRUCT (MODULE # ...) ...)
; compiling (DEFMACRO MODULE-KIND ...)
; compiling (DEFMACRO MODULE-IS-THEORY ...)
; compiling (DEFMACRO MODULE-IS-OBJECT ...)
; compiling (DEFMACRO MODULE-IS-FINAL ...)
; compiling (DEFMACRO MODULE-IS-LOOSE ...)
; compiling (DEFMACRO MODULE-IS-INITIAL ...)
; compiling (DEFUN PRINT-MODULE-OBJECT ...)
; compiling (DEFSTRUCT (VIEW-STRUCT # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bobject2.lisp
; in: DEFUN PRINT-VIEW-STRUCT-OBJECT
;     (FORMAT STREAM ":view[~a: ~s => ~s | ~s]"
;             (CHAOS::VIEW-STRUCT-NAME CHAOS::OBJ)
;             (CHAOS::VIEW-STRUCT-SRC CHAOS::OBJ)
;             (CHAOS::VIEW-STRUCT-TARGET CHAOS::OBJ) (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG1621 #:FORMAT-ARG1622 #:FORMAT-ARG1623
;                #:FORMAT-ARG1624
;                &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":view[" STREAM)
;               (PRINC #:FORMAT-ARG1621 STREAM)
;               (WRITE-STRING ": " STREAM)
;               (PRIN1 #:FORMAT-ARG1622 STREAM)
;               (WRITE-STRING " => " STREAM)
;               (PRIN1 #:FORMAT-ARG1623 STREAM)
;               (WRITE-STRING " | " STREAM)
;               (PRIN1 #:FORMAT-ARG1624 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G1617 #:G1618 #:G1619 #:G1620)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (CHAOS::ADDR-OF CHAOS::OBJ)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT STREAM ":view[~a: ~s => ~s | ~s]"
;             (CHAOS::VIEW-STRUCT-NAME CHAOS::OBJ)
;             (CHAOS::VIEW-STRUCT-SRC CHAOS::OBJ)
;             (CHAOS::VIEW-STRUCT-TARGET CHAOS::OBJ) (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG1621 #:FORMAT-ARG1622 #:FORMAT-ARG1623
;                #:FORMAT-ARG1624
;                &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":view[" STREAM)
;               (PRINC #:FORMAT-ARG1621 STREAM)
;               (WRITE-STRING ": " STREAM)
;               (PRIN1 #:FORMAT-ARG1622 STREAM)
;               (WRITE-STRING " => " STREAM)
;               (PRIN1 #:FORMAT-ARG1623 STREAM)
;               (WRITE-STRING " | " STREAM)
;               (PRIN1 #:FORMAT-ARG1624 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G1617 #:G1618 #:G1619 #:G1620)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN PRINT-VIEW-STRUCT-OBJECT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/bobject2-TMP.fasl written
; compilation finished in 0:00:00.371
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "primitives" "bobject2">
; compiling file "/«PKGBUILDDIR»/chaos/primitives/absntax.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTERM SEQ ...)
; compiling (DEFTERM QUOTE ...)
; compiling (DEFTERM SORT-REF ...)
; compiling (DEFUN MAY-BE-ERROR-SORT-REF? ...)
; compiling (DEFTERM SORT-DECL ...)
; compiling (DEFTERM BSORT-DECL ...)
; compiling (DEFTERM SUBSORT-DECL ...)
; compiling (DEFTERM PSORT-DECL ...)
; compiling (DEFTERM ATTR-RENAME ...)
; compiling (DEFTERM SLOT ...)
; compiling (DEFTERM SUPER ...)
; compiling (DEFTERM RECORD-DECL ...)
; compiling (DEFTERM CLASS-DECL ...)
; compiling (DEFTERM OPREF ...)
; compiling (DEFTERM OPATTRS ...)
; compiling (DEFTERM OP-DECL ...)
; compiling (DEFTERM METH-REF ...)
; compiling (DEFTERM VAR-DECL ...)
; compiling (DEFTERM PVAR-DECL ...)
; compiling (DEFTERM LET ...)
; compiling (DEFTERM MACRO ...)
; compiling (DEFTERM AXIOM-DECL ...)
; compiling (DEFTERM AX-REF ...)
; compiling (DEFTERM EQ-REF ...)
; compiling (DEFTERM RL-REF ...)
; compiling (DEFTERM RRULE-REF ...)
; compiling (DEFTERM IMPORT ...)
; compiling (DEFTERM SIGNATURE ...)
; compiling (DEFTERM AXIOMS ...)
; compiling (DEFTERM MODULE-DECL ...)
; compiling (DEFTERM VIEW-DECL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/absntax-TMP.fasl written
; compilation finished in 0:00:00.963
; compiling file "/«PKGBUILDDIR»/chaos/primitives/script.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTERM EVAL ...)
; compiling (DEFTERM ERROR ...)
; compiling (DEFTERM LISP-EVAL ...)
; compiling (DEFTERM DYNA-COMMENT ...)
; compiling (DEFTERM REDUCE ...)
; compiling (DEFTERM TEST-REDUCE ...)
; compiling (DEFTERM PARSE ...)
; compiling (DEFTERM INPUT ...)
; compiling (DEFTERM TRACE ...)
; compiling (DEFTERM TRACE-WHOLE ...)
; compiling (DEFTERM STEP ...)
; compiling (DEFTERM DESCRIBE-MODULE ...)
; compiling (DEFTERM OPEN-MODULE ...)
; compiling (DEFTERM CLOSE-MODULE ...)
; compiling (DEFTERM SAVE ...)
; compiling (DEFTERM RESTORE ...)
; compiling (DEFTERM RESET ...)
; compiling (DEFTERM FULL-RESET ...)
; compiling (DEFTERM LOAD-PRELUDE ...)
; compiling (DEFTERM PROVIDE ...)
; compiling (DEFTERM REQUIRE ...)
; compiling (DEFTERM REWRITE-COUNT ...)
; compiling (DEFTERM STOP-AT ...)
; compiling (DEFTERM PROTECT ...)
; compiling (DEFTERM DRIBBLE ...)
; compiling (DEFTERM SAVE-CHAOS ...)
; compiling (DEFTERM LS ...)
; compiling (DEFTERM PWD ...)
; compiling (DEFTERM SHELL ...)
; compiling (DEFTERM CD ...)
; compiling (DEFTERM PUSHD ...)
; compiling (DEFTERM POPD ...)
; compiling (DEFTERM DIRS ...)
; compiling (DEFTERM SHOW ...)
; compiling (DEFTERM DESCRIBE ...)
; compiling (DEFTERM SELECT ...)
; compiling (DEFTERM SET ...)
; compiling (DEFTERM REGULARIZE ...)
; compiling (DEFTERM CHECK ...)
; compiling (DEFTERM TRAM ...)
; compiling (DEFTERM AUTOLOAD ...)
; compiling (DEFTERM NO-AUTOLOAD ...)
; compiling (DEFTERM CBRED ...)
; compiling (DEFTERM CHAOS ...)
; compiling (DEFTERM CONTINUE ...)
; compiling (DEFTERM WHAT-IS ...)
; compiling (DEFTERM INSPECT ...)
; compiling (DEFTERM LOOK-UP ...)
; compiling (DEFTERM DELIMITER ...)
; compiling (DEFTERM SCASE ...)
; compiling (DEFTERM GENDOC ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/script-TMP.fasl written
; compilation finished in 0:00:01.406
; compiling file "/«PKGBUILDDIR»/chaos/primitives/op-theory.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTYPE OP-THEORY ...)
; compiling (DEFUN THEORY-MAKE ...)
; compiling (DEFMACRO THEORY-INFO ...)
; compiling (DEFMACRO THEORY-ZERO ...)
; compiling (DEFUN ZERO-RULE-ONLY ...)
; compiling (DEFTYPE THEORY-INFO ...)
; compiling (DEFMACRO THEORY-INFO-NAME ...)
; compiling (DEFMACRO THEORY-INFO-CODE ...)
; compiling (DEFMACRO THEORY-INFO-EMPTY-FOR-UNIFY ...)
; compiling (DEFMACRO THEORY-INFO-EMPTY-FOR-MATCHING ...)
; compiling (DEFMACRO THEORY-INFO-MATCH-EQUAL-FUN ...)
; compiling (DEFMACRO THEORY-INFO-MATCH-INIT-FUN ...)
; compiling (DEFMACRO THEORY-INFO-MATCH-NEXT-FUN ...)
; compiling (DEFMACRO THEORY-INFO-UNIFY-EQUAL-FUN ...)
; compiling (DEFMACRO THEORY-INFO-UNIFY-INIT-FUN ...)
; compiling (DEFMACRO THEORY-INFO-UNIFY-NEXT-FUN ...)
; compiling (DEFUN NEW-THEORY-INFO ...)
; compiling (DEFUN PR-THEORY-INFO ...)

; file: /«PKGBUILDDIR»/chaos/primitives/op-theory.lisp
; in: DEFUN PR-OPTHEORY-INTERNAL
;     (FORMAT STREAM "#<Theory ~s : zero = ~s>"
;             (CHAOS::THEORY-INFO-NAME (CHAOS::THEORY-INFO CHAOS::OPTH))
;             (CHAOS::THEORY-ZERO CHAOS::OPTH))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG243 #:FORMAT-ARG244 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "#<Theory " STREAM)
;               (PRIN1 #:FORMAT-ARG243 STREAM)
;               (WRITE-STRING " : zero = " STREAM)
;               (PRIN1 #:FORMAT-ARG244 STREAM)
;               (WRITE-STRING ">" STREAM))
;             NIL)
;           #:G241 #:G242)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-OPTHEORY-INTERNAL ...)
; compiling (DEFUN IS-OPERATOR-THEORY? ...)
; compiling (DEFMACRO THEORY-NAME ...)
; compiling (DEFMACRO THEORY-CODE ...)
; compiling (DEFMACRO THEORY-EMPTY-FOR-UNIFY ...)
; compiling (DEFMACRO THEORY-MATCH-EQUAL-FUN ...)
; compiling (DEFMACRO THEORY-MATCH-INIT-FUN ...)
; compiling (DEFMACRO THEORY-MATCH-NEXT-FUN ...)
; compiling (DEFMACRO THEORY-UNIFY-EQUAL-FUN ...)
; compiling (DEFMACRO THEORY-UNIFY-INIT-FUN ...)
; compiling (DEFMACRO THEORY-UNIFY-NEXT-FUN ...)
; compiling (DEFCONSTANT .E. ...)
; compiling (DEFCONSTANT .Z. ...)
; compiling (DEFCONSTANT .I. ...)
; compiling (DEFCONSTANT .C. ...)
; compiling (DEFCONSTANT .A. ...)
; compiling (DEFCONSTANT .AC. ...)
; compiling (DEFCONSTANT .AI. ...)
; compiling (DEFCONSTANT .AZ. ...)
; compiling (DEFCONSTANT .CZ. ...)
; compiling (DEFCONSTANT .CI. ...)
; compiling (DEFCONSTANT .IZ. ...)
; compiling (DEFCONSTANT .ACI. ...)
; compiling (DEFCONSTANT .ACZ. ...)
; compiling (DEFCONSTANT .CIZ. ...)
; compiling (DEFCONSTANT .AIZ. ...)
; compiling (DEFCONSTANT .ACIZ. ...)
; compiling (DEFMACRO TEST-THEORY ...)
; compiling (DEFMACRO UNSET-THEORY ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *THEORY-INFO-ARRAY* ...)
; compiling (DEFMACRO THEORY-CODE-TO-INFO ...)
; compiling (DEFUN CREATE-THEORY ...)
; compiling (DECLAIM (SPECIAL THE-E-PROPERTY ...))
; compiling (DEFMACRO DEFINE-THEORY-INFO ...)
; compiling (DEFINE-THEORY-INFO THE-E-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-Z-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-I-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-IZ-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-C-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-CZ-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-CI-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-CIZ-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-A-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-AZ-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-AI-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-AIZ-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-AC-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-ACZ-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-ACI-PROPERTY ...)
; compiling (DEFINE-THEORY-INFO THE-ACIZ-PROPERTY ...)
; compiling (DEFVAR *THE-EMPTY-THEORY*)
; compiling (SETF *THE-EMPTY-THEORY* ...)
; compiling (DEFMACRO THEORY-INFO-IS-EMPTY-FOR-UNIFY ...)
; compiling (DEFMACRO THEORY-INFO-IS-EMPTY-FOR-MATCHING ...)
; compiling (DEFMACRO THEORY-IS-EMPTY-FOR-UNIFY ...)
; compiling (DEFMACRO THEORY-IS-EMPTY-FOR-MATCHING ...)
; compiling (DEFUN THEORY-INFO-IS-EMPTY-FOR-UNIFY-DIRECT ...)
; compiling (DEFMACRO THEORY-INFO-IS-EMPTY ...)
; compiling (DEFMACRO THEORY-INFO-IS-A ...)
; compiling (DEFMACRO THEORY-INFO-IS-C ...)
; compiling (DEFMACRO THEORY-INFO-IS-I ...)
; compiling (DEFMACRO THEORY-INFO-IS-Z ...)
; compiling (DEFMACRO THEORY-INFO-IS-AC ...)
; compiling (DEFMACRO THEORY-INFO-IS-AI ...)
; compiling (DEFMACRO THEORY-INFO-IS-AZ ...)
; compiling (DEFMACRO THEORY-INFO-IS-CI ...)
; compiling (DEFMACRO THEORY-INFO-IS-CZ ...)
; compiling (DEFMACRO THEORY-INFO-IS-IZ ...)
; compiling (DEFMACRO THEORY-INFO-IS-ACI ...)
; compiling (DEFMACRO THEORY-INFO-IS-ACZ ...)
; compiling (DEFMACRO THEORY-INFO-IS-AIZ ...)
; compiling (DEFMACRO THEORY-INFO-IS-CIZ ...)
; compiling (DEFMACRO THEORY-INFO-IS-ACIZ ...)
; compiling (DEFUN THEORY-INFO-IS-RESTRICTION-OF ...)
; compiling (DEFUN THEORY-INFO-IS-RESTRICTION-OF-IGNORING-ID ...)
; compiling (DEFMACRO E-EQUAL-IN-THEORY ...)
; compiling (DEFMACRO THEORY-CONTAINS-ASSOCIATIVITY ...)
; compiling (DEFUN THEORY-CONTAINS-ASSOCIATIVITY-DIRECT ...)
; compiling (DEFMACRO THEORY-CONTAINS-COMMUTATIVITY ...)
; compiling (DEFUN THEORY-CONTAINS-COMMUTATIVITY-DIRECT ...)
; compiling (DEFMACRO THEORY-CONTAINS-AC ...)
; compiling (DEFUN THEORY-CONTAINS-AC-DIRECT ...)
; compiling (DEFMACRO THEORY-CONTAINS-IDEMPOTENCY ...)
; compiling (DEFUN THEORY-CONTAINS-IDEMPOTENCY-DIRECT ...)
; compiling (DEFMACRO THEORY-CONTAINS-IDENTITY ...)
; compiling (DEFUN THEORY-CONTAINS-IDENTITY-DIRECT ...)
; compiling (DEFMACRO THEORY-CONTAINS-ACZ ...)
; compiling (DEFUN THEORY-CONTAINS-ACZ-DIRECT ...)
; compiling (DEFMACRO THEORY-CONTAINS-AZ ...)
; compiling (DEFUN THEORY-CONTAINS-AZ-DIRECT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/op-theory-TMP.fasl written
; compilation finished in 0:00:00.208
; compiling file "/«PKGBUILDDIR»/chaos/primitives/bmodexp.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTYPE MODEXP ...)
; compiling (DEFPARAMETER .MODEXP-KEYWORDS. ...)
; compiling (DEFUN IS-MODEXP? ...)
; compiling (DEFTERM MODEXP ...)
; compiling (DEFTERM RMAP ...)
; compiling (DEFTERM REN-SORT ...)
; compiling (DEFTERM REN-HSORT ...)
; compiling (DEFTERM REN-OP ...)
; compiling (DEFTERM REN-BOP ...)
; compiling (DEFTERM VARS ...)
; compiling (DEFTERM REN-PARAM ...)
; compiling (DEFTERM + ...)
; compiling (DEFTERM * ...)
; compiling (DEFTERM ! ...)
; compiling (DEFTERM !ARG ...)
; compiling (DEFMACRO MAKE-?-NAME ...)
; compiling (DEFUN MODEXP-IS-?NAME? ...)
; compiling (DEFUN ?NAME-NAME ...)
; compiling (DEFUN MODEXP-IS-PARAMETER-THEORY ...)
; compiling (DEFTERM VIEW ...)
; compiling (DEFUN MODEXP-IS-ERROR ...)
; compiling (DEFUN MODEXP-IS-SIMPLE-NAME ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *MODEXP-VIEW-TABLE* ...)
; compiling (DEFUN FIND-VIEW-IN-ENV ...)
; compiling (DEFUN ADD-VIEW-DEFN ...)
; compiling (DEFSTRUCT (MODMORPH #) ...)
; compiling (DEFUN MODMORPH-IS-RENAME ...)
; compiling (DEFMACRO MODMORPH-ASSOC-IMAGE ...)
; compiling (DEFMACRO MODMORPH-ASSOC-IMAGES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/bmodexp-TMP.fasl written
; compilation finished in 0:00:00.355
; compiling file "/«PKGBUILDDIR»/chaos/primitives/bmodule2.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MODULE-IS-PARAMETER-THEORY ...)
; compiling (DEFMACRO MODULE-DAG ...)
; compiling (DEFMACRO MODULE-PARAMETERS ...)
; compiling (DEFMACRO MODULE-EXPORTING-MODULES ...)
; compiling (DEFMACRO MODULE-DAG-SUBMODULES ...)
; compiling (DEFUN MODULE-DIRECT-SUBMODULES ...)
; compiling (DEFUN MODULE-SUBMODULES ...)
; compiling (DEFUN INITIALIZE-MODULE-DAG ...)
; compiling (DEFUN MODULE-ALL-SUBMODULES ...)
; compiling (DEFUN GATHER-SUBMODULES ...)
; compiling (DEFUN GET-MODULE-DEPENDENCY ...)
; compiling (DEFUN GATHER-MODULE-DEPENDENCY ...)
; compiling (DEFUN GET-IMPORTING-PATH ...)
; compiling (DEFUN GET-REAL-IMPORTING-MODE ...)
; compiling (DEFMACRO MODULE-EXTENDS ...)
; compiling (DEFMACRO MODULE-PROTECTS ...)
; compiling (DEFMACRO MODULE-USING ...)
; compiling (DEFMACRO MODULE-INCLUDING ...)
; compiling (DEFMACRO IMPORTED-MODULES ...)
; compiling (DEFMACRO PARAMETER-ARG-NAME ...)
; compiling (DEFMACRO PARAMETER-THEORY-MODULE ...)
; compiling (DEFMACRO PARAMETER-IMPORTED-MODE ...)
; compiling (DEFMACRO PARAMETER-CONTEXT ...)
; compiling (DEFUN PARAMETER-THEORY-ARG-NAME ...)
; compiling (DEFUN PARAMETER-MODULE-THEORY ...)
; compiling (DEFUN PARAMETER-MODULE-CONTEXT ...)
; compiling (DEFUN MODULE-DIRECT-EXPORTING-MODULES ...)
; compiling (DEFUN MODULE-ALL-EXPORTING-MODULES ...)
; compiling (DEFUN GATHER-EXPORTING-MODULES ...)
; compiling (DEFUN INITIALIZE-MODULE-INTERFACE ...)
; compiling (DEFMACRO MODULE-SORTS ...)
; compiling (DEFMACRO MODULE-OWN-SORTS ...)
; compiling (DEFMACRO MODULE-SORT-RELATIONS ...)
; compiling (DEFMACRO MODULE-OPERATORS ...)
; compiling (DEFMACRO MODULE-OPATTRS ...)
; compiling (DEFMACRO MODULE-PRINCIPAL-SORT ...)
; compiling (DEFUN INITIALIZE-SIGNATURE ...)
; compiling (DEFUN CLEAN-UP-SIGNATURE ...)
; compiling (DEFMACRO MODULE-VARIABLES ...)
; compiling (DEFMACRO MODULE-EQUATIONS ...)
; compiling (DEFMACRO MODULE-RULES ...)
; compiling (DEFUN INITIALIZE-AXIOM-SET ...)
; compiling (DEFUN CLEAN-UP-AXIOM-SET ...)
; compiling (DEFMACRO MODULE-DICTIONARY-TABLE ...)
; compiling (DEFMACRO MODULE-DICTIONARY-BUILTINS ...)
; compiling (DEFMACRO MODULE-JUXTAPOSITION ...)
; compiling (DEFUN CLEAR-PARSE-DICT ...)
; compiling (DEFUN INITIALIZE-PARSE-DICTIONARY ...)
; compiling (DEFUN CLEAN-UP-PARSE-DICTIONARY ...)
; compiling (DEFMACRO MODULE-REWRITE-RULES ...)
; compiling (DEFMACRO MODULE-ALL-RULES ...)
; compiling (DEFMACRO MODULE-ALL-SORTS ...)
; compiling (DEFMACRO MODULE-ALL-OPERATORS ...)
; compiling (DEFMACRO MODULE-SORT-ORDER ...)
; compiling (DEFMACRO MODULE-OPINFO-TABLE ...)
; compiling (DEFMACRO MODULE-EXT-RULE-TABLE ...)
; compiling (DEFMACRO MODULE-TRS-SORT-NAME-MAP ...)
; compiling (DEFMACRO MODULE-TRS-OP-INFO-MAP ...)
; compiling (DEFMACRO MODULE-TRS-OP-REV-TABLE ...)
; compiling (DEFMACRO MODULE-TRS-SORT-GRAPH ...)
; compiling (DEFMACRO MODULE-TRS-ERR-SORTS ...)
; compiling (DEFMACRO MODULE-TRS-DUMMY-METHODS ...)
; compiling (DEFMACRO MODULE-TRS-SEM-RELATIONS ...)
; compiling (DEFMACRO MODULE-TRS-SEM-AXIOMS ...)
; compiling (DEFMACRO MODULE-TRS-TRAM ...)
; compiling (DEFUN INITIALIZE-TRS-EXT-INTERFACE ...)
; compiling (DEFUN INITIALIZE-TRS ...)
; compiling (DEFUN CLEAN-UP-TRS ...)
; compiling (DEFMACRO MODULE-BINDINGS ...)
; compiling (DEFMACRO MODULE-SPECIAL-BINDINGS ...)
; compiling (DEFMACRO MODULE-$$TERM ...)
; compiling (DEFMACRO MODULE-$$SUBTERM ...)
; compiling (DEFMACRO MODULE-$$ACTION-STACK ...)
; compiling (DEFMACRO MODULE-$$SELECTION-STACK ...)
; compiling (DEFUN INITIALIZE-MODULE-CONTEXT ...)
; compiling (DEFUN CLEAN-UP-CONTEXT ...)
; compiling (DEFUN MODULE-INFOS ...)
; compiling (DEFSETF MODULE-INFOS ...)
; compiling (DEFMACRO MODULE-PROTECTED-MODULES ...)
; compiling (DEFMACRO MODULE-TYPE ...)
; compiling (DEFMACRO MODULE-IS-HARD-WIRED ...)
; compiling (DEFMACRO MODULE-IS-SYSTEM-MODULE ...)
; compiling (DEFMACRO MODULE-IS-USER-MODULE ...)
; compiling (DEFMACRO MODULE-HIDDEN ...)
; compiling (DEFMACRO MODULE-IS-REGULAR ...)
; compiling (DEFUN ADD-MODULE-ALIAS ...)
; compiling (DEFUN ADD-IMPORTED-MODULE ...)
; compiling (DEFUN MODULE-INCLUDES-RWL ...)
; compiling (DEFMACRO MODULE-VOID-SORTS ...)
; compiling (DEFMACRO MODULE-VOID-METHODS ...)
; compiling (DEFMACRO MODULE-SORTS-FOR-REGULARITY ...)
; compiling (DEFMACRO MODULE-METHODS-FOR-REGULARITY ...)
; compiling (DEFMACRO MODULE-HAS-BEHAVIOURAL-AXIOMS ...)
; compiling (DEFMACRO MODULE-MACROS ...)
; compiling (DEFMACRO MODULE-SKOLEM-FUNCTIONS ...)
; compiling (DEFMACRO MODULE-INSTANCE-DB ...)
; compiling (DEFUN INITIALIZE-MODULE-INSTANCE-DB ...)
; compiling (DEFUN CLEAR-MODULE-INSTANCE-DB ...)
; compiling (DEFMACRO MODULE-PROTECTED-MODE ...)
; compiling (DEFMACRO MODULE-IS-WRITE-PROTECTED ...)
; compiling (DEFMACRO MODULE-CREATION-DATE ...)
; compiling (DEFMACRO MODULE-AXIOMS-TO-BE-FIXED ...)
; compiling (DEFMACRO MODULE-TERMS-TO-BE-FIXED ...)
; compiling (DEFMACRO MODULE-METHODS-WITH-RWL-AXIOM ...)
; compiling (DEFMACRO MODULE-RULES-WITH-RWL-AXIOM ...)
; compiling (DEFMACRO MODULE-BEH-STUFF ...)
; compiling (DEFMACRO MODULE-BEH-ATTRIBUTES ...)
; compiling (DEFMACRO MODULE-BEH-METHODS ...)
; compiling (DEFMACRO MODULE-NON-BEH-METHODS ...)
; compiling (DEFMACRO MODULE-NON-BEH-ATTRIBUTES ...)
; compiling (DEFMACRO MODULE-COBASIS ...)
; compiling (DEFMACRO MODULE-METHODS-WITH-BEH-AXIOM ...)
; compiling (DEFMACRO SORT-IS-FOR-REGULARITY? ...)
; compiling (DEFMACRO METHOD-IS-FOR-REGULARITY? ...)
; compiling (DEFMACRO MODULE-PSORT-DECLARATION ...)
; compiling (DEFMACRO MODULE-ERROR-OP-DECL ...)
; compiling (DEFMACRO MODULE-ERROR-SORTS ...)
; compiling (DEFMACRO MODULE-ERROR-METHODS ...)
; compiling (DEFMACRO MODULE-ERROR-VAR-DECL ...)
; compiling (DEFUN NEEDS-UPDATE-SORT-ORDER ...)
; compiling (DEFUN SET-NEEDS-UPDATE-SORT-ORDER ...)
; compiling (DEFUN UNSET-NEEDS-UPDATE-SORT-ORDER ...)
; compiling (DEFMACRO MODULE-AMBIG-SORTS ...)
; compiling (DEFMACRO MODULE-AMBIG-OPS ...)
; compiling (DEFPARAMETER MODULE-INITIAL ...)
; compiling (DEFPARAMETER MODULE-INCONSISTENT ...)
; compiling (DEFPARAMETER MODULE-REGULARIZED ...)
; compiling (DEFPARAMETER MODULE-READY-PARSING ...)
; compiling (DEFPARAMETER MODULE-READY-REWRITING ...)
; compiling (DEFUN MODULE-IS-INCONSISTENT ...)
; compiling (DEFUN MARK-MODULE-AS-INCONSISTENT ...)
; compiling (DEFMACRO NEED-PARSING-PREPARATION ...)
; compiling (DEFMACRO MODULE-IS-READY-FOR-PARSING ...)
; compiling (DEFMACRO MARK-MODULE-READY-FOR-PARSING ...)
; compiling (DEFMACRO MARK-NEED-PARSING-PREPARATION ...)
; compiling (DEFMACRO NEED-REWRITING-PREPARATION ...)
; compiling (DEFMACRO MODULE-IS-READY-FOR-REWRITING ...)
; compiling (DEFMACRO MARK-MODULE-AS-CONSISTENT ...)
; compiling (DEFMACRO MARK-MODULE-READY-FOR-REWRITING ...)
; compiling (DEFMACRO MARK-MODULE-NEED-REWRITING-PREPARATION ...)
; compiling (DEFMACRO SET-NEEDS-PARSE ...)
; compiling (DEFMACRO NEEDS-PARSE ...)
; compiling (DEFMACRO SET-NEEDS-RULE ...)
; compiling (DEFMACRO NEEDS-RULE ...)
; compiling (DEFMACRO WITH-IN-MODULE ...)
; compiling (DEFUN CHANGE-CURRENT-MODULE ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *MODULES-SO-FAR-TABLE* ...)
; compiling (DEFUN ADD-MODEXP-DEFN ...)
; compiling (DEFUN FIND-GLOBAL-MODULE ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bmodule2.lisp
; in: DEFUN EQUAL-TOP-LEVEL
;     (EQL CHAOS::X CHAOS::Y)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN EQUAL-TOP-LEVEL ...)
; compiling (DEFUN FIND-EQUIVALENT-MODULE-IN-ENV ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bmodule2.lisp
; in: DEFUN MODEXP-UPDATE-NAME
;     (RASSOC CHAOS::MODVAL CHAOS::*MODULES-SO-FAR-TABLE*)
; ==>
;   (SB-KERNEL:%RASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN MODEXP-UPDATE-NAME ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *MODEXP-LOCAL-TABLE* ...)
; compiling (DEFUN ADD-MODEXP-LOCAL-DEFN ...)
; compiling (DEFUN GET-MODEXP-LOCAL ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *MODEXP-EVAL-TABLE* ...)
; compiling (DEFUN FIND-MODEXP-EVAL ...)
; compiling (DEFUN ADD-MODEXP-EVAL ...)
; compiling (DEFUN CLEAR-MODEXP-EVAL ...)
; compiling (DEFUN FIND-MODULE-IN-ENV ...)
; compiling (DEFUN FIND-MODULE-IN-ENV-EXT ...)
; compiling (DEFUN FIND-MODULE-IN-SUBLIST ...)
; compiling (DEFVAR .METHOD1. ...)
; compiling (DEFVAR .METHOD-TAB1. ...)
; compiling (DEFVAR .METHOD-VAL1. ...)
; compiling (DEFVAR .METHOD2. ...)
; compiling (DEFVAR .METHOD-TAB2. ...)
; compiling (DEFVAR .METHOD-VAL2. ...)
; compiling (DEFUN CLEAR-METHOD-INFO-HASH ...)
; compiling (DEFUN INITIALIZE-MODULE ...)
; compiling (DEFUN CLEAN-UP-MODULE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/bmodule2-TMP.fasl written
; compilation finished in 0:00:00.538
; compiling file "/«PKGBUILDDIR»/chaos/primitives/bview2.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO VIEW-NAME ...)
; compiling (DEFMACRO VIEW-SRC ...)
; compiling (DEFMACRO VIEW-SOURCE ...)
; compiling (DEFMACRO VIEW-TARGET ...)
; compiling (DEFMACRO VIEW-SORT-MAPS ...)
; compiling (DEFMACRO VIEW-OP-MAPS ...)
; compiling (DEFMACRO VIEW-DECL-FORM ...)
; compiling (DEFMACRO VIEW-INTERFACE ...)
; compiling (DEFMACRO VIEW-EXPORTING-OBJECTS ...)
; compiling (DEFMACRO VIEW-STATUS ...)
; compiling (DEFUN VIEW-P ...)
; compiling (DEFUN MODEXP-IS-VIEW ...)
; compiling (DEFUN VIEW-IS-INCONSISTENT ...)
; compiling (DEFUN MARK-VIEW-AS-CONSISTENT ...)
; compiling (DEFUN COPY-VIEW ...)
; compiling (DEFUN INITIALIZE-VIEW ...)
; compiling (DEFUN CLEAN-UP-VIEW ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bview2.lisp
; in: DEFSTRUCT INT-INSTANTIATION
;     (DEFSTRUCT CHAOS::INT-INSTANTIATION
;       (CHAOS::MODULE NIL :TYPE T)
;       (CHAOS::ARGS NIL :TYPE LIST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::INT-INSTANTIATION {100ABF18F3}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CHAOS::INT-INSTANTIATION-P and
;   CHAOS::INT-INSTANTIATION-MODULE could not be inlined because the structure
;   definition for CHAOS::INT-INSTANTIATION was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEFSTRUCT INT-INSTANTIATION ...)
; compiling (DEFSTRUCT INT-PLUS ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bview2.lisp
; in: DEFSTRUCT INT-RENAME
;     (DEFSTRUCT CHAOS::INT-RENAME
;       (CHAOS::MODULE NIL :TYPE T)
;       (CHAOS::SORT-MAPS NIL :TYPE LIST)
;       (CHAOS::OP-MAPS NIL :TYPE LIST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::INT-RENAME {100AEA5FD3}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CHAOS::INT-RENAME-P and CHAOS::INT-RENAME-MODULE
;   could not be inlined because the structure definition for CHAOS::INT-RENAME was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEFSTRUCT INT-RENAME ...)
; compiling (DEFUN MODULE-EQ ...)
; compiling (DEFMACRO SAME-RENAMED-MODULE ...)
; compiling (DEFMACRO SAME-VIEW-MAPPING ...)
; compiling (DEFUN OUTER-EQUAL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bview2.lisp
; in: DEFUN SAME-TOP-LEVEL
;     (EVERY #'EQL CHAOS::ME1 CHAOS::ME2)
; --> BLOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL SB-C::%FUNCALL EQL IF 
; ==>
;   (EQL #:G306 #:G307)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       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.
; compiling (DEFUN SAME-TOP-LEVEL ...)
; compiling (DEFMACRO GET-RENAME-INFO ...)
; compiling (DEFUN CREATE-DUMMY-MODULE ...)
; compiling (DEFUN CREATE-DUMMY-MODULE-THEN-MAP ...)
; compiling (DEFUN MODULE-IS-RENAME-DUMMY-FOR ...)
; compiling (DEFUN IS-DUMMY-MODULE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/bview2-TMP.fasl written
; compilation finished in 0:00:00.139
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "primitives" "bview2">
; compiling file "/«PKGBUILDDIR»/chaos/primitives/parse-modexp.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN PARSE-MODEXP ...)
; compiling (DEFUN DO-PARSE-MODEXP ...)
; compiling (DEFUN PARSE-RENAME-OR-INST ...)
; compiling (DEFUN PARSE-MAP-BODY ...)
; compiling (DEFUN PARSE-MAP-ELT ...)
; compiling (DEFUN PARSE-INSTANTIATION ...)
; compiling (DECLAIM (SPECIAL *POSITIONAL-ARG-POS* ...))
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *POSITIONAL-ARG-POS* ...)
; compiling (DEFVAR *ARG-TYPE* ...)
; compiling (DEFUN MODEXP-PARSE-ARGS ...)
; compiling (DEFUN PARSE-INSTANTIATE-ARG-NAME ...)
; compiling (DEFUN MODEXP-PARSE-ARG ...)
; compiling (DEFUN PARSE-VIEW ...)
; compiling (DEFUN DO-PARSE-VIEW ...)
; compiling (DEFUN PARSE-VIEW-BODY ...)
; compiling (DEFUN PARSE-VIEW-ELT ...)
; compiling (DEFUN PARSE-SORT-REFERENCE ...)
; compiling (DEFUN DO-PARSE-SORT-REF ...)

; file: /«PKGBUILDDIR»/chaos/primitives/parse-modexp.lisp
; in: DEFUN PARSE-OPERATOR-REFERENCE
;     (LENGTH (CAR CHAOS::*MODEXP-PARSE-INPUT*))
; 
; 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 VECTOR.

;     (POSITION #\. CHAOS::MOD-REF)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

;     (LENGTH CHAOS::MOD-REF)
; 
; 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 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.
; compiling (DEFUN PARSE-OPERATOR-REFERENCE ...)
; compiling (DEFUN PARSE-OP-SIMPLE-NAME ...)
; compiling (DEFUN MODEXP-PARSE-PARAM-SPECN ...)
; compiling (DEFUN PARSE-BALANCED-CONTEXT ...)
; compiling (DEFUN PARSE-BALANCED-CONTEXT-ONE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/parse-modexp-TMP.fasl written
; compilation finished in 0:00:00.355
; compiling file "/«PKGBUILDDIR»/chaos/primitives/normodexp.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *MODEXP-NORMALIZED-TABLE* ...)
; compiling (DEFUN FIND-NORMALIZED-MODEXP ...)
; compiling (DEFUN ADD-MODEXP-NORMALIZED ...)
; compiling (DEFUN NORMALIZE-MODEXP ...)
; compiling (DEFUN CANONICALIZE-SIMPLE-MODULE-NAME ...)
; compiling (DEFUN DO-NORMALIZE-MODEXP ...)
; compiling (DEFUN NORMALIZE-RENAME ...)
; compiling (DEFUN NORMALIZE-PLUS ...)
; compiling (DEFUN NORMALIZE-INSTANTIATION ...)
; compiling (DEFUN NORMALIZE-INSTANTIATION-ARGS ...)
; compiling (DEFUN REORDER-MAPS ...)
; compiling (DEFUN NORMALIZE-RENAME-MAP ...)
; compiling (DEFUN NORMALIZE-VIEW ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/normodexp-TMP.fasl written
; compilation finished in 0:00:00.058
; compiling file "/«PKGBUILDDIR»/chaos/primitives/bsort.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (SORT-STRUCT # ...) ...)
; compiling (DEFMACRO SORT-MODULE ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bsort.lisp
; in: DEFSTRUCT SORT*
;     (DEFSTRUCT
;         (CHAOS::SORT* (:INCLUDE CHAOS::SORT-STRUCT (CHAOS::-TYPE 'SORT))
;          (:CONC-NAME "SORT-") (:COPIER NIL) (:CONSTRUCTOR CHAOS::MAKE-SORT)
;          (:CONSTRUCTOR CHAOS::SORT* (CHAOS::ID &OPTIONAL CHAOS::HIDDEN))
;          (:PREDICATE CHAOS::SORT-P) (:PRINT-FUNCTION CHAOS::PRINT-SORT-OBJECT)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::SORT* {1007674733}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>
;       #<SB-KERNEL:LAYOUT for CHAOS::%CHAOS-OBJECT {1003BCF663}>
;       #<SB-KERNEL:LAYOUT for CHAOS::OBJECT {1003BCF803}>
;       #<SB-KERNEL:LAYOUT for CHAOS::SORT-STRUCT {100726B523}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::SORT-P could not be inlined because the
;   structure definition for CHAOS::SORT* was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEFSTRUCT (SORT* # ...))
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFMACRO SORT-TYPE ...)
; compiling (DEFMACRO SORT-NAME ...)
; compiling (DEFMACRO SORT-IS-INHABITED ...)
; compiling (DEFMACRO SORT-IS-HIDDEN ...)
; compiling (DEFMACRO SORT-IS-VISIBLE ...)
; compiling (DEFMACRO SORT-VISIBLE-TYPE ...)
; compiling (DEFMACRO SORT-CONSTRUCTORS ...)
; compiling (DEFUN SORT-IS-DERIVED-FROM ...)
; compiling (DEFUN GET-ORIGINAL-SORT ...)
; compiling (DEFMACRO SORT-IS-USER-DEFINED? ...)
; compiling (DEFUN SORT-VISIBLE-TYPE-PRINT ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bsort.lisp
; in: DEFUN PRINT-SORT-OBJECT
;     (FORMAT STREAM ":hsort[~s]" CHAOS::NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG311 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":hsort[" STREAM)
;               (PRIN1 #:FORMAT-ARG311 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G310)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM ":sort[~s]" CHAOS::NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG325 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":sort[" STREAM)
;               (PRIN1 #:FORMAT-ARG325 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G324)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-SORT-OBJECT ...)
; compiling (DEFUN NEW-GENERAL-SORT ...)
; compiling (DEFVAR *SORT-TABLE* ...)
; compiling (DEFUN GET-SORT-NAMED ...)
; compiling (DEFUN CLEAR-TMP-SORT-CACHE ...)
; compiling (DEFUN REGISTER-SORT-CACHE ...)
; compiling (DEFSTRUCT (CRSORT # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFUN PRINT-CR-SORT-OBJECT ...)
; compiling (DEFSTRUCT (CLASS-SORT # ...))
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFUN PRINT-CLASS-SORT-OBJECT ...)
; compiling (DEFSTRUCT (RECORD-SORT # ...))
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN PRINT-RECORD-SORT-OBJECT ...)
; compiling (DEFMACRO CRSORT-CONSTR-METHOD ...)
; compiling (DEFMACRO CRSORT-ID-METHOD ...)
; compiling (DEFMACRO CRSORT-ID-VARIABLE ...)
; compiling (DEFMACRO CRSORT-MAKE-1 ...)
; compiling (DEFMACRO CRSORT-MAKE-2 ...)
; compiling (DEFMACRO CRSORT-IS-A-COPY ...)
; compiling (DEFMACRO CRSORT-MAKE-3 ...)
; compiling (DEFMACRO CRSORT-MAKE-4 ...)
; compiling (DEFUN CREATE-CR-SORT ...)
; compiling (DEFUN NEW-RECORD-SORT ...)
; compiling (DEFUN NEW-CLASS-SORT ...)
; compiling (DEFMACRO FIND-SLOT-INFO ...)
; compiling (DEFMACRO CR-SLOT-NAME ...)
; compiling (DEFMACRO CR-SLOT-SORT ...)
; compiling (DEFMACRO CR-SLOT-DEFAULT ...)
; compiling (DEFMACRO CR-SLOT-ATTRIBUTE-ID ...)
; compiling (DEFMACRO CR-SLOT-ATTRIBUTE-ID-METHOD ...)
; compiling (DEFMACRO CR-SLOT-ATTRIBUTE-ID-VARIABLE ...)
; compiling (DEFMACRO CR-SLOT-READER ...)
; compiling (DEFMACRO CR-SLOT-WRITER ...)
; compiling (DEFMACRO GET-SLOT-SORT ...)
; compiling (DEFMACRO GET-SLOT-DEFAULT ...)
; compiling (DEFMACRO GET-ATTRIBUTE-ID ...)
; compiling (DEFMACRO GET-ATTRIBUTE-ID-METHOD ...)
; compiling (DEFMACRO GET-ATTRIBUTE-ID-VARIABLE ...)
; compiling (DEFMACRO GET-SLOT-READER ...)
; compiling (DEFMACRO GET-SLOT-WRITER ...)
; compiling (DEFSTRUCT (BSORT # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFUN PRINT-BSORT-OBJECT ...)
; compiling (DEFUN NEW-BI-SORT ...)
; compiling (DEFMACRO SORT-IS-BUILTIN ...)
; compiling (DEFMACRO BSORT-TOKEN-PREDICATE ...)
; compiling (DEFMACRO BSORT-TERM-CREATOR ...)
; compiling (DEFMACRO BSORT-TERM-PRINTER ...)
; compiling (DEFMACRO BSORT-TERM-PREDICATE ...)
; compiling (DEFVAR *BUILTIN-SORT-TABLE* ...)
; compiling (DEFUN GET-BUILTIN-SORT-NAMED ...)
; compiling (DEFUN REGISTER-BUILTIN-SORT ...)
; compiling (DEFUN CLEAR-BUILTIN-SORTS ...)
; compiling (DEFSTRUCT (AND-SORT # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFUN PRINT-AND-SORT-OBJECT ...)
; compiling (DEFUN NEW-AND-SORT ...)
; compiling (DEFSTRUCT (OR-SORT # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN PRINT-OR-SORT-OBJECT ...)
; compiling (DEFUN NEW-OR-SORT ...)
; compiling (DEFSTRUCT (ERR-SORT # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN PRINT-ERR-SORT-OBJECT ...)
; compiling (DEFUN NEW-ERR-SORT ...)
; compiling (DEFMACRO SORT= ...)
; compiling (DEFUN SORT=* ...)
; compiling (DEFMACRO SORT-SET-EQUAL ...)
; compiling (DEFMACRO SORT-LIST= ...)
; compiling (DEFMACRO MAKE-SORT-RELATION ...)
; compiling (DEFMACRO COPY-SORT-RELATION ...)
; compiling (DEFMACRO SORT-RELATION-SORT ...)
; compiling (DEFMACRO _SUBSORTS ...)
; compiling (DEFMACRO _SUPERSORTS ...)
; compiling (DEFMACRO _ERR-SORT ...)
; compiling (DEFUN ELIM-SYS-SORTS-FROM-RELATION ...)
; compiling (DEFTYPE SORT-ORDER ...)
; compiling (DEFUN ALLOCATE-SORT-ORDER ...)
; compiling (DEFUN CLEAR-SORT-ORDER ...)
; compiling (DEFMACRO GET-SORT-RELATION ...)
; compiling (DEFUN COPY-SORT-ORDER ...)
; compiling (DEFUN GET-ALL-SORTS ...)
; compiling (DEFMACRO SUBSORTS ...)
; compiling (DEFMACRO SUB-OR-EQUAL-SORTS ...)
; compiling (DEFMACRO SUPERSORTS ...)
; compiling (DEFMACRO SUPERSORTS-NO-ERR ...)
; compiling (DEFMACRO SUPER-OR-EQUAL-SORTS ...)
; compiling (DEFUN THE-ERR-SORT ...)
; compiling (DEFSETF THE-ERR-SORT ...)
; compiling (DECLAIM (INLINE SORT<))
; compiling (DEFUN SORT< ...)
; compiling (DEFUN SORT<* ...)
; compiling (DEFMACRO SORT<= ...)
; compiling (DEFUN SORT<=* ...)
; compiling (DEFMACRO SORT-IS-IN ...)
; compiling (DEFUN SORT-LIST<= ...)
; compiling (DEFUN SORT-LIST<=-ANY ...)
; compiling (DEFUN SORT-LIST< ...)
; compiling (DEFUN ADD-SORT-TO-ORDER ...)
; compiling (DEFUN GATHER-CONNECTED-RELATIONS-FROM-ORDER ...)
; compiling (DEFUN ADD-RELATION-TO-ORDER ...)
; compiling (DEFUN MAX-MINORANTS ...)
; compiling (DEFUN MAXIMAL-SORTS ...)
; compiling (DEFUN MAXIMAL-SORTS-NO-ERROR ...)
; compiling (DEFUN MINIMAL-SORTS ...)
; compiling (DEFUN MEET-OF-SORTS ...)
; compiling (DEFUN MERGE-SORT-RELATIONS ...)
; compiling (DEFUN MERGE-SORT-ORDER ...)
; compiling (DEFUN MERGE-SORT-ORDER-NO-EXTRA ...)
; compiling (DEFUN IS-IN-SAME-CONNECTED-COMPONENT ...)
; compiling (DEFUN COMPONENT-TOP ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bsort.lisp
; in: DEFUN IS-IN-SAME-CONNECTED-COMPONENT*
;     (CHAOS::SUB-OR-EQUAL-SORTS CHAOS::S1 CHAOS::SO)
; --> LET IF CONS CHAOS::ERR-SORT-LOWERS TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   CHAOS::S1
; 
; note: deleting unreachable code

;     (CHAOS::SUB-OR-EQUAL-SORTS CHAOS::S2 CHAOS::SO)
; --> LET IF CONS CHAOS::ERR-SORT-LOWERS TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   CHAOS::S2
; 
; note: deleting unreachable code
; compiling (DEFUN IS-IN-SAME-CONNECTED-COMPONENT* ...)
; compiling (DEFUN HAVE-COMMON-SUBSORT ...)
; compiling (DEFUN ALL-SORTS-IN-ORDER ...)
; compiling (DEFUN TOP-COMPONENTS ...)
; compiling (DEFUN BOTTOM-COMPONENTS ...)
; compiling (DEFUN DIRECT-SUBSORTS ...)
; compiling (DEFUN DIRECT-SUPERSORTS ...)
; compiling (DEFUN DIRECT-SUPERSORTS-NO-ERR ...)
; compiling (DEFUN SORT-RELATIONS-TRANSITIVE-CLOSURE ...)
; compiling (DEFUN SORT-RELATIONS-TRANSITIVE-CLOSURE1 ...)
; compiling (DEFUN CHECK-CYCLIC-SORT-ORDER ...)
; compiling (DEFUN CLEAR-ERR-SORTS ...)
; compiling (DEFUN GET-KINDS ...)
; compiling (DEFUN GET-ERR-SORTS ...)
; compiling (DEFUN GET-FAMILY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/bsort-TMP.fasl written
; compilation finished in 0:00:01.451
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "primitives" "bsort">
; compiling file "/«PKGBUILDDIR»/chaos/primitives/boperator.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT OPSYNTAX ...)

; file: /«PKGBUILDDIR»/chaos/primitives/boperator.lisp
; in: DEFSTRUCT OPERATOR
;     (DEFSTRUCT
;         (CHAOS::OPERATOR (:INCLUDE CHAOS::OBJECT (CHAOS::-TYPE 'CHAOS::OPERATOR))
;          (:CONSTRUCTOR CHAOS::MAKE-OPERATOR)
;          (:CONSTRUCTOR CHAOS::OPERATOR* (CHAOS::NAME)) (:COPIER NIL)
;          (:PRINT-FUNCTION CHAOS::PRINT-OPERATOR-OBJECT))
;       (CHAOS::NAME NIL :TYPE LIST)
;       (CHAOS::STRATEGY NIL :TYPE LIST)
;       (CHAOS::THEORY NIL :TYPE (OR NULL CHAOS::OP-THEORY))
;       (CHAOS::SYNTAX NIL :TYPE (OR NULL CHAOS::OPSYNTAX))
;       (CHAOS::PRINT-NAME NIL :TYPE T)
;       (CHAOS::HIDDEN NIL :TYPE (OR NULL T)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::OPERATOR {1009511033}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>
;       #<SB-KERNEL:LAYOUT for CHAOS::%CHAOS-OBJECT {1004617A53}>
;       #<SB-KERNEL:LAYOUT for CHAOS::OBJECT {1004617BF3}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::OPERATOR-P could not be inlined because the
;   structure definition for CHAOS::OPERATOR was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEFSTRUCT (OPERATOR # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/boperator.lisp
; in: DEFUN PRINT-OPERATOR-OBJECT
;     (FORMAT STREAM ":op[~s : ~x]" (CHAOS::OPERATOR-NAME CHAOS::OBJ)
;             (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG160 #:FORMAT-ARG161 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":op[" STREAM)
;               (PRIN1 #:FORMAT-ARG160 STREAM)
;               (WRITE-STRING " : " STREAM)
;               (LET (# #)
;                 (PRINC #:FORMAT-ARG161 STREAM))
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G158 #:G159)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (CHAOS::ADDR-OF CHAOS::OBJ)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT STREAM ":op[~s : ~x]" (CHAOS::OPERATOR-NAME CHAOS::OBJ)
;             (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG160 #:FORMAT-ARG161 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":op[" STREAM)
;               (PRIN1 #:FORMAT-ARG160 STREAM)
;               (WRITE-STRING " : " STREAM)
;               (LET (# #)
;                 (PRINC #:FORMAT-ARG161 STREAM))
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G158 #:G159)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN PRINT-OPERATOR-OBJECT ...)
; compiling (DEFMACRO OPERATOR-MODULE ...)
; compiling (DEFMACRO OPERATOR-SYMBOL ...)
; compiling (DEFMACRO OPERATOR-NUM-ARGS ...)
; compiling (DEFMACRO OPERATOR-ID ...)
; compiling (DEFMACRO OPERATOR-MODULE-ID ...)
; compiling (DEFMACRO OPERATOR-REWRITE-STRATEGY ...)
; compiling (DEFUN EXPLODE-OPERATOR-NAME ...)
; compiling (DEFUN MAKE-OPERATOR-TOKEN-SEQ ...)
; compiling (DEFUN OPERATOR-SYNTACTIC-TYPE-FROM-NAME ...)
; compiling (DEFMACRO OPERATOR= ...)
; compiling (DEFMACRO OPERATOR-EQL ...)
; compiling (DEFMACRO OPERATOR-EQUAL ...)
; compiling (DEFMACRO OPERATOR-IS-BEHAVIOURAL ...)
; compiling (DEFVAR *OPNAME-TABLE* ...)
; compiling (DEFUN CANONICALIZE-OP-NAME ...)
; compiling (DEFUN ALLOCATE-OPERATOR ...)
; compiling (DEFUN NEW-OPERATOR ...)
; compiling (DEFMACRO OPERATOR-TOKEN-SEQUENCE ...)
; compiling (DEFMACRO OPERATOR-IS-MIXFIX ...)
; compiling (DEFMACRO OPERATOR-SYNTACTIC-TYPE ...)
; compiling (DEFMACRO OPERATOR-PRECEDENCE ...)
; compiling (DEFMACRO OPERATOR-COMPUTED-PRECEDENCE ...)
; compiling (DEFMACRO OPERATOR-ASSOCIATIVITY ...)

; file: /«PKGBUILDDIR»/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-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               SYMBOL), not a SYMBOL.

;     (STRING CHAOS::B)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               SYMBOL), not a SYMBOL.
; compiling (DEFUN MAKE-PRINT-OPERATOR-ID ...)
; compiling (DEFUN CMAKE-OPERATOR-PRINT-NAME ...)
; compiling (DEFUN MAKE-OPINFO ...)
; compiling (DEFUN OPINFO-P ...)
; compiling (DEFMACRO OPINFO-OPERATOR ...)
; compiling (DEFMACRO OPINFO-METHODS ...)
; compiling (DEFMACRO OPINFO-METHOD-TABLE ...)
; compiling (DEFMACRO GET-OPERATOR-INFO ...)
; compiling (DEFMACRO OPERATOR-METHODS ...)
; compiling (DEFMACRO OPERATOR-METHOD-TABLE ...)
; compiling (DEFMACRO OPERATOR-THEORY-INFO ...)
; compiling (DEFMACRO OPERATOR-IS-ASSOCIATIVE ...)
; compiling (DEFMACRO OPERATOR-IS-IDENTITY ...)
; compiling (DEFMACRO OPERATOR-IS-COMMUTATIVE ...)
; compiling (DEFSTRUCT (METHOD # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/boperator.lisp
; in: DEFUN PRINT-METHOD-OBJECT
;     (FORMAT STREAM ":op[~a]" (CHAOS::METHOD-NAME CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG988 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":op[" STREAM)
;               (PRINC #:FORMAT-ARG988 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G987)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-METHOD-OBJECT ...)
; compiling (DEFMACRO CREATE-OPERATOR-METHOD ...)
; compiling (DEFMACRO OPERATOR-METHOD-P ...)
; compiling (DEFMACRO METHOD-MODULE ...)
; compiling (DEFMACRO METHOD-SYMBOL ...)
; compiling (DEFMACRO METHOD-IS-BEHAVIOURAL ...)
; compiling (DEFMACRO METHOD-IS-USER-DEFINED-ERROR-METHOD ...)
; compiling (DEFMACRO METHOD-IS-FOR-CR ...)
; compiling (DEFUN METHOD-IS-DERIVED-FROM ...)
; compiling (DEFMACRO METHOD-IS-CONSTRUCTOR? ...)
; compiling (DEFMACRO METHOD-IS-META-DEMOD ...)
; compiling (DEFUN ALLOCATE-OPERATOR-METHOD ...)

; file: /«PKGBUILDDIR»/chaos/primitives/boperator.lisp
; in: DEFUN MAKE-METHOD-ID-SYMBOL
;     (STRING= CHAOS::X "_")
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a STRING.

;     (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 CONS NULL VECTOR).
; compiling (DEFUN MAKE-METHOD-ID-SYMBOL ...)
; compiling (DEFUN MAKE-OPERATOR-METHOD ...)
; compiling (DEFMACRO METHOD-EQUAL ...)
; compiling (DEFMACRO METHOD= ...)
; compiling (DEFUN METHOD-W= ...)
; compiling (DEFMACRO METHOD-HAS-SAME-NAME ...)
; compiling (DEFUN METHOD-IS-OF-SAME-OPERATOR ...)
; compiling (DEFMACRO METHOD-IS-OF-SAME-OPERATOR+ ...)

; file: /«PKGBUILDDIR»/chaos/primitives/boperator.lisp
; in: DEFUN METHOD-IS-PREDICATE
;     (MEMBER CHAOS::*BOOL-SORT* (CHAOS::METHOD-ARITY CHAOS::METHOD))
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN METHOD-IS-PREDICATE ...)
; compiling (DEFUN FIND-METHOD-IN-METHOD-LIST ...)
; compiling (DEFSTRUCT (!METHOD-INFO # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DECLAIM (INLINE GET-METHOD-INFO))
; compiling (DEFUN GET-METHOD-INFO ...)
; compiling (DEFSETF GET-METHOD-INFO ...)
; compiling (DEFMACRO METHOD-OPERATOR ...)
; compiling (DEFMACRO METHOD-THEORY ...)
; compiling (DEFMACRO METHOD-THEORY-INFO-FOR-MATCHING ...)
; compiling (DEFMACRO METHOD-LOWER-METHODS ...)
; compiling (DEFMACRO METHOD-OVERLOADED-METHODS ...)
; compiling (DEFMACRO METHOD-RULES-WITH-SAME-TOP ...)
; compiling (DEFMACRO METHOD-RULES-WITH-DIFFERENT-TOP ...)
; compiling (DEFMACRO METHOD-MACROS ...)
; compiling (DEFMACRO METHOD-RULES ...)
; compiling (DEFMACRO METHOD-STRICTLY-OVERLOADED ...)
; compiling (DEFMACRO METHOD-REW-STRATEGY ...)
; compiling (DEFMACRO METHOD-REWRITE-STRATEGY ...)
; compiling (DEFMACRO METHOD-HAS-TRANS-RULE ...)
; compiling (DEFMACRO METHOD-IS-COHERENT ...)
; compiling (DEFMACRO METHOD-COHERENT ...)
; compiling (DEFUN ALLOCATE-METHOD-INFO ...)
; compiling (DEFUN MAKE-METHOD-INFO ...)
; compiling (DEFUN COMPUTE-METHOD-THEORY-INFO-FOR-MATCHING ...)
; compiling (DEFUN GET-METHOD-PRECEDENCE ...)
; compiling (DEFPARAMETER .DEFAULT-PREC. ...)
; compiling (DEFPARAMETER .DEFAULT-UNARY-PREC. ...)
; compiling (DEFUN COMPUTE-OPERATOR-PRECEDENCE ...)
; compiling (DEFSTRUCT (RULE-RING #) ...)
; compiling (DEFUN CREATE-RULE-RING ...)
; compiling (DEFUN ADD-RULE-TO-RING ...)
; compiling (DECLAIM (INLINE INITIALIZE-RULE-RING))
; compiling (DEFUN INITIALIZE-RULE-RING ...)
; compiling (DECLAIM (INLINE RULE-RING-SET-MARK))
; compiling (DEFUN RULE-RING-SET-MARK ...)
; compiling (DECLAIM (INLINE RULE-RING-NEXT))
; compiling (DEFUN RULE-RING-NEXT ...)
; compiling (DECLAIM (INLINE END-OF-RULE-RING))
; compiling (DEFUN END-OF-RULE-RING ...)
; compiling (DECLAIM (INLINE RULE-RING-IS-EMPTY))
; compiling (DEFUN RULE-RING-IS-EMPTY ...)
; compiling (DECLAIM (INLINE RULE-RING-TO-LIST))
; compiling (DEFUN RULE-RING-TO-LIST ...)
; compiling (DEFUN COPY-RULE-RING ...)
; compiling (DEFUN METHOD-IS-ERROR-METHOD ...)
; compiling (DEFUN METHOD-IS-UNIVERSAL ...)
; compiling (DEFUN METHOD-IS-UNIVERSAL* ...)
; compiling (DEFUN METHOD-IS-ASSOCIATIVE ...)
; compiling (DEFUN METHOD-IS-IDENTITY ...)
; compiling (DEFUN METHOD-IS-COMMUTATIVE ...)
; compiling (DEFUN METHOD-IS-IDEMPOTENT ...)
; compiling (DEFUN METHOD-IS-OVERLOADED-WITH ...)
; compiling (DEFUN METHOD-IS-IN-SAME-COMPONENT ...)
; compiling (DEFUN METHOD-IS-INSTANCE-OF ...)
; compiling (DEFUN METHOD-IS-SAME-QUAL-METHOD ...)
; compiling (DEFUN METHOD<= ...)
; compiling (DEFUN METHOD-IS-RESTRICTION-OF ...)
; compiling (DECLAIM (INLINE METHOD-IS-ASSOCIATIVE-RESTRICTION-OF))
; compiling (DEFUN METHOD-IS-ASSOCIATIVE-RESTRICTION-OF ...)
; compiling (DECLAIM (INLINE METHOD-IS-AC-RESTRICTION-OF))
; compiling (DEFUN METHOD-IS-AC-RESTRICTION-OF ...)
; compiling (DECLAIM (INLINE METHOD-IS-COMMUTATIVE-RESTRICTION-OF))
; compiling (DEFUN METHOD-IS-COMMUTATIVE-RESTRICTION-OF ...)
; compiling (DEFUN METHOD-IS-OVERLOADED-WITH-AC-ATTRIBUTE ...)
; compiling (DEFUN GREATEST-AC-METHOD-LESS-THAN ...)
; compiling (DEFUN LIST-ASSOCIATIVE-METHOD-ABOVE ...)
; compiling (DEFUN HIGHEST-METHODS-BELOW ...)
; compiling (DEFUN GET-DEFAULT-METHODS ...)
; compiling (DEFUN LOWEST-METHOD-DIRECT ...)
; compiling (DEFUN HIGHEST-METHOD-DIRECT ...)
; compiling (DEFUN STRICT-LOWER-COARITIES-DIRECT ...)
; compiling (DEFUN CHOOSE-MOST-GENERAL-OP ...)
; compiling (DEFUN CHOOSE-LOWEST-OP ...)
; compiling (DEFUN LOWEST-METHOD ...)
; compiling (DEFUN LOWEST-METHOD! ...)
; compiling (DEFUN LOWEST-METHOD* ...)
; compiling (DEFUN HIGHEST-METHOD ...)
; compiling (DEFUN GET-STRICT-LOWER-COARITIES ...)
; compiling (DEFUN METHOD-ALL-RULES ...)

; file: /«PKGBUILDDIR»/chaos/primitives/boperator.lisp
; in: DEFUN MAKE-OPERATOR-INTERNAL
;     (> CHAOS::T-CNT 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (INCF CHAOS::T-CNT)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::T-CNT)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.

;     (> CHAOS::T-CNT 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.
; compiling (DEFUN MAKE-OPERATOR-INTERNAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/boperator-TMP.fasl written
; compilation finished in 0:00:00.742
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "primitives" "boperator">
; compiling file "/«PKGBUILDDIR»/chaos/primitives/baxioms.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (REWRITE-RULE # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/baxioms.lisp
; in: DEFUN PRINT-RULE-OBJECT
;     (FORMAT STREAM ":rule[~S: " (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG150 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":rule[" STREAM)
;               (PRIN1 #:FORMAT-ARG150 STREAM)
;               (WRITE-STRING ": " STREAM))
;             NIL)
;           #:G149)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "]")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "]" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM ":rule[~a]" (CHAOS::REWRITE-RULE-TYPE CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG175 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":rule[" STREAM)
;               (PRINC #:FORMAT-ARG175 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G174)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (CHAOS::ADDR-OF CHAOS::OBJ)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT STREAM ":rule[~S: " (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG150 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":rule[" STREAM)
;               (PRIN1 #:FORMAT-ARG150 STREAM)
;               (WRITE-STRING ": " STREAM))
;             NIL)
;           #:G149)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN PRINT-RULE-OBJECT ...)
; compiling (DEFMACRO RULE-TYPE ...)
; compiling (DEFMACRO RULE-IS-RULE ...)
; compiling (DEFMACRO RULE-IS-EQUATION ...)
; compiling (DEFMACRO RULE-LHS ...)
; compiling (DEFMACRO RULE-RHS ...)
; compiling (DEFMACRO RULE-CONDITION ...)
; compiling (DEFMACRO RULE-ID-CONDITION ...)
; compiling (DEFMACRO RULE-FIRST-MATCH-METHOD ...)
; compiling (DEFMACRO RULE-NEXT-MATCH-METHOD ...)
; compiling (DEFMACRO RULE-LABELS ...)
; compiling (DEFMACRO RULE-IS-BEHAVIOURAL ...)
; compiling (DEFMACRO RULE-TRACE-FLAG ...)
; compiling (DEFMACRO RULE-NEED-COPY ...)
; compiling (DEFMACRO RULE-NON-EXEC ...)
; compiling (DEFMACRO RULE-META-AND-OR ...)
; compiling (DEFSTRUCT (EX-REWRITE-RULE # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFMACRO RULE-EXTENSIONS ...)
; compiling (DEFMACRO REWIRTE-RULE-P ...)
; compiling (DEFMACRO IS-REWRITE-RULE? ...)
; compiling (DEFMACRO CREATE-REWRITE-RULE ...)

; file: /«PKGBUILDDIR»/chaos/primitives/baxioms.lisp
; in: DEFSTRUCT AXIOM
;     (DEFSTRUCT
;         (CHAOS::AXIOM (:INCLUDE CHAOS::REWRITE-RULE (CHAOS::-TYPE 'CHAOS::AXIOM))
;          (:COPIER NIL) (:CONSTRUCTOR CHAOS::MAKE-AXIOM)
;          (:CONSTRUCTOR CHAOS::AXIOM*
;           (TYPE CHAOS::LHS CHAOS::RHS CONDITION CHAOS::BEHAVIOURAL))
;          (:PRINT-FUNCTION CHAOS::PRINT-AXIOM-OBJECT))
;       (CHAOS::KIND NIL :TYPE SYMBOL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::AXIOM {100AECA6D3}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>
;       #<SB-KERNEL:LAYOUT for CHAOS::%CHAOS-OBJECT {1004617A53}>
;       #<SB-KERNEL:LAYOUT for CHAOS::OBJECT {1004617BF3}>
;       #<SB-KERNEL:LAYOUT for CHAOS::REWRITE-RULE {1009863E03}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::AXIOM-P could not be inlined because the
;   structure definition for CHAOS::AXIOM was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEFSTRUCT (AXIOM # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/baxioms.lisp
; in: DEFUN PRINT-AXIOM-OBJECT
;     (FORMAT STREAM ":axiom[~S]" (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG684 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":axiom[" STREAM)
;               (PRIN1 #:FORMAT-ARG684 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G683)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (CHAOS::ADDR-OF CHAOS::OBJ)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT STREAM ":axiom[~S]" (CHAOS::ADDR-OF CHAOS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG684 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ":axiom[" STREAM)
;               (PRIN1 #:FORMAT-ARG684 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G683)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN PRINT-AXIOM-OBJECT ...)
; compiling (DEFMACRO IS-AXIOM? ...)
; compiling (DEFMACRO AXIOM-IS-BEHAVIOURAL ...)
; compiling (DEFMACRO AXIOM-IS-FOR-CR ...)
; compiling (DEFMACRO AXIOM-CONTAINS-MATCH-OP ...)
; compiling (DEFUN AXIOM-EXTENSIONS ...)
; compiling (DEFSETF AXIOM-EXTENSIONS ...)
; compiling (DEFMACRO AXIOM-AC-EXTENSION ...)
; compiling (DEFMACRO AXIOM-A-EXTENSIONS ...)
; compiling (DEFMACRO !AXIOM-AC-EXTENSION ...)
; compiling (DEFMACRO !AXIOM-A-EXTENSIONS ...)
; compiling (DEFUN CREATE-AXIOM ...)
; compiling (DEFMACRO RULE-IS-BUILTIN ...)
; compiling (DEFUN AXIOM-CONTAINS-ERROR-METHOD? ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/baxioms-TMP.fasl written
; compilation finished in 0:00:00.280
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "primitives" "baxioms">
; compiling file "/«PKGBUILDDIR»/chaos/primitives/bmacro.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (MACRO #) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/bmacro.lisp
; in: DEFUN PRINT-MACRO
;     (CHAOS::ADDR-OF CHAOS::MACRO)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT T "#<MacroDecl: ~D>" (CHAOS::ADDR-OF CHAOS::MACRO))
; --> FORMAT LAMBDA FUNCTION BLOCK LET 
; ==>
;   (PRINC #:FORMAT-ARG56 STREAM)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN PRINT-MACRO ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/bmacro-TMP.fasl written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/chaos/primitives/gen-eval.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL *DRIBBLE-AST* ...))
; compiling (DEFVAR *DRIBBLE-AST* ...)
; compiling (DEFVAR *DRIBBLE-STREAM* ...)
; compiling (DEFVAR *AST-LOG* ...)
; compiling (DEFVAR *NO-LOG-PARAMETER* ...)
; compiling (DECLAIM (SPECIAL *EVAL-AST*))
; compiling (DEFVAR *EVAL-AST* ...)
; compiling (DEFUN AST-TO-BE-DRIBBLED? ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (FUNCALL CHAOS::EVALUATOR CHAOS::AST)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::EVALUATOR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN EVAL-AST ...)
; compiling (DEFUN EVAL-SEQ ...)
; compiling (DEFUN EVAL-AST2 ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/gen-eval-TMP.fasl written
; compilation finished in 0:00:00.029
; compiling file "/«PKGBUILDDIR»/chaos/primitives/gen-print.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL *CURRENT-TERM-DEPTH*) ...)
; compiling (DEFVAR *CURRENT-TERM-DEPTH* ...)
; compiling (DECLAIM (SPECIAL .PRINTED-VARS-SO-FAR.))
; compiling (DEFVAR .PRINTED-VARS-SO-FAR. ...)
; compiling (DECLAIM (SPECIAL **PRINT-VAR-SORT**))
; compiling (DEFVAR **PRINT-VAR-SORT** ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PRINT-VARIABLE ...)
; compiling (DEFUN PRINT-AST-VD ...)
; compiling (DEFUN IS-AST ...)
; compiling (DEFVAR *PRINT-TERM-COLOR* ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN VARIABLE-PRINT-STRING ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; in: DEFUN BCONST-PRINT-STRING
;     (FUNCALL (CHAOS::BSORT-TERM-PRINTER (CHAOS::TERM-SORT CHAOS::TERM))
;              CHAOS::VAL)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::BSORT-TERM-PRINTER (CHAOS::TERM-SORT CHAOS::TERM)))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN BCONST-PRINT-STRING ...)
; compiling (DEFUN TERM-TO-SEXPR ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; in: DEFUN IS-SELF-TERMINATING
;     (CHAR CHAOS::TOK 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN IS-SELF-TERMINATING ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; in: DEFUN TERM-PRINT1
;     (STRING CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN TERM-PRINT1 ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; in: DEFUN TERM-PRINT2
;     (LENGTH CHAOS::SUBS)
; 
; 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 VECTOR.

;     (STRING CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (<= CHAOS::PREC (CHAOS::GET-METHOD-PRECEDENCE CHAOS::HD))
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 3) 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 (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a (INTEGER * 4611686018427387900), not a (SIGNED-BYTE
;                                                                       64).
;       The result is a (VALUES (INTEGER * 69175290276410818500) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    64)
;                                                                                   &REST
;                                                                                   T).
;       etc.

;     (1- CHAOS::X)
; ==>
;   (- CHAOS::X 1)
; 
; 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.
; compiling (DEFUN TERM-PRINT2 ...)
; compiling (DEFUN TERM-PRINT ...)
; compiling (DEFUN TERM-PRINT-WITH-SORT ...)
; compiling (DEFUN TERM-PRINT-WITH-SORT-STRING ...)
; compiling (DEFUN PRINT-TERM-SEQ ...)
; compiling (DEFVAR *SHOW-SORT* ...)
; compiling (DEFUN PRINT-TERM-TREE ...)
; compiling (DEFUN PRINT-TERM-GRAPH ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; in: DEFUN !PRINT-TERM-TREE
;     (IF SORT
;         (CHAOS::SORT-ID SORT)
;         "unknown")
; ==>
;   "unknown"
; 
; note: deleting unreachable code

;     (STRING (CHAOS::VARIABLE-PRINT-NAME CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN !PRINT-TERM-TREE ...)
; compiling (DEFUN PRINT-AST ...)

; file: /«PKGBUILDDIR»/chaos/primitives/gen-print.lisp
; in: DEFUN PRINT-CHAOS-OBJECT
;     (FUNCALL CHAOS::PRINTER CHAOS::OBJECT STREAM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FORMAT STREAM "~%-- delcrations -------------------")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "-- delcrations -------------------" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.
; compiling (DEFUN PRINT-CHAOS-OBJECT ...)
; compiling (DEFUN PRINT-OBJ-LIST ...)
; compiling (DEFUN PRINT-THEORY-BRIEF ...)
; compiling (DEFUN PRINT-THEORY ...)
; compiling (DEFUN PRINT-THEORY-INFO ...)
; compiling (DEFUN PRINT-SIMPLE-PRINC-FLAT ...)
; compiling (DEFUN DUMP-CHAOS-HASH ...)
; compiling (DEFUN DUMP-CHAOS-ASSOC-TABLE ...)
; compiling (DEFUN DUMP-MODEXP-LOCAL ...)
; compiling (DEFUN DUMP-MODULES-SO-FAR ...)
; compiling (DEFUN DUMP-MODEXP-EVAL ...)
; compiling (DEFUN DUMP-MODEXP-VIEW ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/gen-print-TMP.fasl written
; compilation finished in 0:00:00.252
; compiling file "/«PKGBUILDDIR»/chaos/primitives/context.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN GET-CONTEXT ...)
; compiling (DEFUN GET-CONTEXT-MODULE ...)
; compiling (DEFUN RESET-CONTEXT-MODULE ...)
; compiling (DEFUN GET-OBJECT-CONTEXT ...)
; compiling (DEFUN IS-SPECIAL-LET-VARIABLE? ...)
; compiling (DEFUN CHECK-$$TERM-CONTEXT ...)
; compiling (DEFUN GET-BOUND-VALUE ...)
; compiling (DEFUN SET-BOUND-VALUE ...)
; compiling (DEFUN SAVE-CONTEXT ...)
; compiling (DEFUN NEW-CONTEXT ...)
; compiling (DEFUN CHANGE-CONTEXT ...)
; compiling (DEFUN RESET-TARGET-TERM ...)
; compiling (DEFUN CONTEXT-PUSH ...)
; compiling (DEFUN CONTEXT-POP ...)
; compiling (DEFUN CONTEXT-PUSH-AND-MOVE ...)
; compiling (DEFUN CONTEXT-POP-AND-RECOVER ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/context-TMP.fasl written
; compilation finished in 0:00:00.041
; compiling file "/«PKGBUILDDIR»/chaos/primitives/term-utils.lisp" (written 13 OCT 2015 01:27:46 PM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO METHOD-IS-OBJECT-CONSTRUCTOR ...)
; compiling (DEFMACRO METHOD-IS-RECORD-CONSTRUCTOR ...)
; compiling (DEFMACRO MAKE-APPLFORM-SIMPLE ...)
; compiling (DEFUN MAKE-APPLFORM ...)
; compiling (DEFUN RESET-REDUCED-FLAG ...)
; compiling (DEFUN TERM-IS-AN-ERROR ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN TERM-HEAD-IS-ERROR ...)
; compiling (DEFUN TERM-HEAD-IS-USER-DEFINED-ERROR ...)
; compiling (DEFUN TERM-IS-REALLY-WELL-DEFINED ...)
; compiling (DEFUN MAKE-DIRECTLY-ILL-TERM ...)
; compiling (DEFUN MAKE-INHERITEDLY-ILL-TERM ...)
; compiling (DEFUN TERM-ERROR-OPERATORS&VARIABLES ...)
; compiling (DEFUN GATHER-ERROR-METHODS-AND-VARIABLES ...)
; compiling (DEFUN TERM-CONTAINS-ERROR-METHOD ...)
; compiling (DEFUN TERM-CONTAINS-USER-DEFINED-ERROR-METHOD ...)
; compiling (DEFUN TERM-CONTAINS-MATCH-OP ...)
; compiling (DEFUN SET-IF-THEN-ELSE-SORT ...)
; compiling (DEFUN SELECT-IF-THEN-LEAST ...)
; compiling (DECLAIM (SPECIAL *UPDATE-LOWEST-PARSE-IN-PROGRESS*))
; compiling (DEFVAR *UPDATE-LOWEST-PARSE-IN-PROGRESS* ...)
; compiling (DEFVAR *DO-ASSOC-ARRANGEMENT* ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; in: DEFUN UPDATE-LOWEST-PARSE
;     (FUNCALL (CHAOS::BSORT-TERM-PREDICATE CHAOS::S) CHAOS::VAL)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::BSORT-TERM-PREDICATE CHAOS::S))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN UPDATE-LOWEST-PARSE ...)
; compiling (DEFMACRO IS-TRUE? ...)
; compiling (DEFMACRO IS-FALSE? ...)
; compiling (DEFUN VARIABLE-EQUAL ...)
; compiling (DEFUN VARIABLE= ...)
; compiling (DEFUN VARIABLE-EQ ...)
; compiling (DEFUN TERM-IS-ZERO-FOR-METHOD ...)
; compiling (DEFUN TERM-OP-CONTAINS-THEORY ...)
; compiling (DEFUN TERM-IS-CONGRUENT? ...)
; compiling (DEFVAR *USED==* ...)
; compiling (DEFUN MATCH-WITH-EMPTY-THEORY ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; in: DEFUN TERM-EQUATIONAL-EQUAL
;     (CHAOS::E-EQUAL-IN-THEORY (CHAOS::METHOD-THEORY CHAOS::F1) CHAOS::T1
;                               CHAOS::T2)
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::THEORY-INFO-MATCH-EQUAL-FUN
;     (CHAOS::THEORY-INFO (CHAOS::METHOD-THEORY CHAOS::F1))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN TERM-EQUATIONAL-EQUAL ...)
; compiling (DEFUN TERM-IS-SIMILAR? ...)
; compiling (DEFUN MAKE-TERM-CHECK-OP ...)
; compiling (DEFUN MAKE-TERM-CHECK-OP-WITH-SORT-CHECK ...)
; compiling (DEFVAR **SA-DEBUG** ...)
; compiling (DEFUN MAKE-TERM-WITH-SORT-CHECK ...)
; compiling (DEFUN MAKE-TERM-WITH-SORT-CHECK-BIN ...)
; compiling (DEFUN LIST-ASSOC-SUBTERMS-AUX ...)
; compiling (DEFUN LIST-ASSOC-SUBTERMS ...)
; compiling (DEFUN LIST-ASSOC-ID-SUBTERMS ...)
; compiling (DEFUN LIST-ASSOC-ID-SUBTERMS-AUX ...)
; compiling (DEFUN LIST-AC-SUBTERMS-AUX ...)
; compiling (DEFUN LIST-AC-SUBTERMS ...)
; compiling (DEFUN GATHER-TERM-AC-LEAF-ORDERED ...)
; compiling (DEFUN LIST-ACZ-SUBTERMS-AUX ...)
; compiling (DEFUN LIST-ACZ-SUBTERMS ...)
; compiling (DEFUN MAKE-RIGHT-ASSOC-NORMAL-FORM ...)
; compiling (DEFUN MAKE-RIGHT-ASSOC-NORMAL-FORM-WITH-SORT-CHECK ...)
; compiling (DEFUN RIGHT-ASSOCIATIVE-NORMAL-FORM ...)
; compiling (DEFUN RIGHT-ASSOCIATIVE-ID-NORMAL-FORM ...)
; compiling (DEFUN ID-NORMAL-FORM ...)
; compiling (DEFUN MAKE-RIGHT-ASSOC-ID-NORMAL-FORM ...)
; compiling (DEFUN FILTER-ZERO ...)
; compiling (DEFUN TERM-COPY-AND-RETURNS-LIST-VARIABLES ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; in: DEFUN COPY-LIST-TERM-USING-LIST-VAR
;     (ASSOC CHAOS::TERM CHAOS::LIST-NEW-VAR :TEST CHAOS::TEST)
; --> SB-KERNEL:%ASSOC-TEST 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::TEST)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN COPY-LIST-TERM-USING-LIST-VAR ...)
; compiling (DEFUN COPY-TERM-USING-VARIABLE ...)
; compiling (DEFUN THEORY-STANDARD-FORM ...)
; compiling (DEFUN A-IDEMPOTENT-NORMAL-FORM ...)
; compiling (DEFUN AC-IDEMPOTENT-NORMAL-FORM ...)
; compiling (DEFUN GET-TERM-ALL-METHODS ...)
; compiling (DEFUN TERM-METHODS ...)
; compiling (DEFMACRO TERM-OPERATORS ...)
; compiling (DEFUN CLEAN-TERM ...)
; compiling (DEFUN TERM-MAKE-ZERO ...)
; compiling (DEFUN SUPPLY-PSUEDO-VARIABLES ...)
; compiling (DEFUN TERM-IS-OF-FUNCTIONAL? ...)
; compiling (DEFUN TERM-IS-OF-BEHAVIOURAL? ...)
; compiling (DEFUN TERM-IS-OF-BEHAVIOURAL*? ...)
; compiling (DEFUN TERM-IS-BEHAVIOURAL? ...)
; compiling (DEFUN TERM-CAN-BE-IN-BEH-AXIOM? ...)
; compiling (DEFUN TERM-IS-NON-BEHAVIOURAL? ...)
; compiling (DEFUN TERM-IS-CONSTRUCTOR? ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; in: LET ((*VAR-NUM* 0))
;     (LET ((CHAOS::*VAR-NUM* 0))
;       (DECLARE (TYPE FIXNUM CHAOS::*VAR-NUM*))
;       (DEFUN CHAOS::GENERATE-VARIABLE (SORT)
;         (CHAOS::@CREATE-VARIABLE-TERM (INTERN (FORMAT NIL "#Genvar-~d" #)) SORT))
;       (DEFUN CHAOS::MAKE-NEW-VARIABLE
;              (CHAOS::NAME SORT &OPTIONAL (CHAOS::PNAME CHAOS::NAME))
;         (CHAOS::@CREATE-VARIABLE-TERM (INTERN (FORMAT NIL "~a-~d" CHAOS::NAME #))
;                                       SORT CHAOS::PNAME))
;       (DEFUN CHAOS::RENAME-VARIABLE (CHAOS::VAR)
;         (CHAOS::@CREATE-VARIABLE-TERM (INTERN (FORMAT NIL "~a-~d" # #))
;                                       (CHAOS::VARIABLE-SORT CHAOS::VAR))))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (CHAOS::*VAR-NUM*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables
; compiling (LET (#) ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; in: DEFUN INSPECT-TERM
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.
; compiling (DEFUN INSPECT-TERM ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; 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)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (STRING (CHAOS::VARIABLE-NAME CHAOS::VAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN REPLACE-VARIABLES-WITH-TOC ...)
; compiling (DEFUN CANONICALIZE-VARIABLES ...)

; file: /«PKGBUILDDIR»/chaos/primitives/term-utils.lisp
; in: DEFUN PRINT-TERM-STRUCT
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.
; compiling (DEFUN PRINT-TERM-STRUCT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/term-utils-TMP.fasl written
; compilation finished in 0:00:00.510
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "primitives" "term-utils">
; compiling file "/«PKGBUILDDIR»/chaos/primitives/substitution.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO SUBSTITUTION-CREATE ...)
; compiling (DEFMACRO SUBSTITUTION-BINDINGS ...)
; compiling (DEFMACRO ASSOC-IN-SUBSTITUTION ...)
; compiling (DEFMACRO CREATE-EMPTY-SUBSTITUTION ...)
; compiling (DEFUN NEW-SUBSTITUTION ...)
; compiling (DEFMACRO SUBSTITUTION-COPY ...)
; compiling (DEFMACRO SUBSTITUTION-IS-EMPTY ...)
; compiling (DEFMACRO SUBSTITUTION-DOMAIN ...)
; compiling (DEFMACRO VARIABLE-IMAGE ...)
; compiling (DEFMACRO VARIABLE-IMAGE-FAST ...)
; compiling (DEFMACRO VARIABLE-IMAGE-SLOW ...)
; compiling (DEFMACRO SUBSTITUTION-LIST-OF-PAIRS ...)
; compiling (DEFMACRO SUBSTITUTION-ADD ...)
; compiling (DEFMACRO SUBSTITUTION-DELETE ...)
; compiling (DEFMACRO SUBSTITUTION-CHANGE ...)
; compiling (DEFMACRO SUBSTITUTION-SET ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.lisp
; in: DEFUN CANONICALIZE-SUBSTITUTION
;     (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::X)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::Y)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING< (THE SIMPLE-STRING (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::X))))
;              (THE SIMPLE-STRING (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::Y)))))
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN CANONICALIZE-SUBSTITUTION ...)
; compiling (DEFUN SUBSTITUTION-EQUAL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.lisp
; in: DEFUN SUBSTITUTION-RESTRICT
;     (MEMBER (CAR CHAOS::S) CHAOS::VARS)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN SUBSTITUTION-RESTRICT ...)
; compiling (DEFUN SUBSTITUTION-SUBSET ...)
; compiling (DEFUN SUBSTITUTION-SUBSET-LIST ...)
; compiling (DEFUN SUBSTITUTION-DOMAIN-RESTRICTION ...)
; compiling (DEFUN SUBSTITUTION-UNION ...)
; compiling (DEFUN SUBSTITUTION-COMPOSIT ...)
; compiling (DEFMACRO SUBSTITUTION-FOREACH ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.lisp
; in: DEFUN SUBSTITUTION-IMAGE
;     (FUNCALL (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SUBSTITUTION-IMAGE ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.lisp
; in: DEFUN SUBSTITUTION-IMAGE!
;     (FUNCALL (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SUBSTITUTION-IMAGE! ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.lisp
; in: DEFUN SUBSTITUTION-IMAGE-CP
;     (FUNCALL (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SUBSTITUTION-IMAGE-CP ...)
; compiling (DEFUN SUBSTITUTION-CHECK-BUILT-IN ...)
; compiling (DEFUN SUBSTITUTION-COMPOSE ...)
; compiling (DEFUN SUBSTITUTION-COMPOSE-CHAOS ...)
; compiling (DEFUN SUBSTITUTION-IMAGE-NO-COPY ...)
; compiling (DEFUN SUBSTITUTION-PARTIAL-IMAGE ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.lisp
; in: DEFUN SUBSTITUTION-IMAGE-SIMPLIFYING
;     (FUNCALL (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::CHAOS-FORM-EXPR CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SUBSTITUTION-IMAGE-SIMPLIFYING ...)

; file: /«PKGBUILDDIR»/chaos/primitives/substitution.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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::Y)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING< (THE SIMPLE-STRING (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::X))))
;              (THE SIMPLE-STRING (STRING (CHAOS::VARIABLE-NAME (CAR CHAOS::Y)))))
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN SUBSTITUTION-CAN ...)
; compiling (DEFUN SUBSTITUTION-SIMPLE-IMAGE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/substitution-TMP.fasl written
; compilation finished in 0:00:00.178
; compiling file "/«PKGBUILDDIR»/chaos/primitives/find.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FIND-MODULE-OR-ERROR ...)
; compiling (DEFUN SORT-NAME-IS-AMBIGUOUS ...)
; compiling (DEFUN SORT-IS-AMBIGUOUS ...)
; compiling (DEFUN FIND-SORTS-IN-MODULE ...)
; compiling (DEFUN CHECK-QUALIFIED-SORT-NAME ...)
; compiling (DEFUN FIND-QUAL-SORT ...)
; compiling (DEFPARAMETER *UNIVERSAL-SORT-NAMES* ...)

; file: /«PKGBUILDDIR»/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-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               SYMBOL), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               SYMBOL), not a SYMBOL.
; compiling (DEFUN FIND-SORT-IN ...)

; file: /«PKGBUILDDIR»/chaos/primitives/find.lisp
; 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-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               SYMBOL), not a SYMBOL.
; compiling (DEFUN FIND-ERROR-SORT-IN ...)
; compiling (DEFUN FIND-ALL-SORTS-IN ...)
; compiling (DEFUN FIND-SORT-IN-KEEP ...)
; compiling (DEFUN FIND-SORTS-IN-KEEP ...)
; compiling (DEFUN SIMPLE-FIND-SORT-IN-LOCAL ...)
; compiling (DEFUN FIND-MODULE-ERROR-SORTS ...)
; compiling (DEFUN GET-MODULE-TOP-SORTS ...)
; compiling (DEFUN OPERATOR-NAME-IS-AMBIGUOUS ...)
; compiling (DEFUN FILTER-OPS-WITH-TYPE ...)
; compiling (DEFUN MATCH-OP-SYMBOL ...)
; compiling (DEFUN FIND-OPERATORS-IN-MODULE ...)
; compiling (DEFUN FIND-OPERATORS-IN-MODULE-NO-NUMBER ...)
; compiling (DEFUN FIND-OPERATOR ...)
; compiling (DEFUN IMPLODE-OP-REF ...)
; compiling (DEFUN FIND-QUAL-OPERATOR-IN ...)
; compiling (DEFUN FIND-ALL-QUAL-OPERATORS-IN ...)
; compiling (DEFUN FIND-OPERATORS-NUM-ARGS ...)
; compiling (DEFUN FIND-METHOD-IN ...)

; file: /«PKGBUILDDIR»/chaos/primitives/find.lisp
; in: DEFUN FIND-BUILTIN-METHOD-IN
;     (CHAOS::SUBSORTS SORT)
; --> LET IF CHAOS::ERR-SORT-LOWERS TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SORT
; 
; note: deleting unreachable code

;     (FUNCALL (CAR CHAOS::SORT-INFO) CHAOS::OPNM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CAR CHAOS::SORT-INFO))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CAR CHAOS::SI) CHAOS::OPNM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CAR CHAOS::SI))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN FIND-BUILTIN-METHOD-IN ...)
; compiling (DEFUN FIND-METHOD-NAMED-IN ...)
; compiling (DEFUN FIND-ALL-METHODS-NAMED-IN ...)
; compiling (DEFUN FIND-ALL-METHODS-NAMED-IN-SORT ...)
; compiling (DEFUN FIND-ERROR-METHOD-IN ...)
; compiling (DEFUN FIND-SORT-CONSTRUCTORS-IN ...)
; compiling (DEFUN FIND-VARIABLE-IN ...)
; compiling (DEFUN GET-MODULE-IMPORTED-PARAMETERS ...)
; compiling (DEFUN GET-MODULE-IMPORTED-PARAMETERS* ...)
; compiling (DEFUN GET-MODULE-PARAMETERS ...)

; file: /«PKGBUILDDIR»/chaos/primitives/find.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN FIND-PARAMETERIZED-SUBMODULE ...)
; compiling (DEFUN GET-MODULE-NTH-ARG-NAME ...)

; file: /«PKGBUILDDIR»/chaos/primitives/find.lisp
; in: DEFUN NTH-SUB
;     (RASSOC (CAR CHAOS::I) CHAOS::PARAMS)
; ==>
;   (SB-KERNEL:%RASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN NTH-SUB ...)
; compiling (DEFVAR *APPLY-IGNORE-MODULES* ...)
; compiling (DEFUN MODULE-OWN-AXIOMS ...)
; compiling (DEFUN MODULE-OWN-AXIOMS-ORDERED ...)
; compiling (DEFVAR *GET-AXIOMS-SEEN-MOD* ...)
; compiling (DEFUN MODULE-IMPORTED-AXIOMS ...)
; compiling (DEFUN MODULE-IMPORTED-AXIOMS* ...)
; compiling (DEFUN GET-MODULE-AXIOMS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/find-TMP.fasl written
; compilation finished in 0:00:00.306
; compiling file "/«PKGBUILDDIR»/chaos/primitives/print-object.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN PRINT-SORT-AST ...)
; compiling (DEFUN PRINT-SORT-REF ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-SORT-DECL
;     (FORMAT STREAM "(%sort-decl ~s ~s)" (CHAOS::%SORT-DECL-NAME CHAOS::AST)
;             (CHAOS::%SORT-DECL-HIDDEN CHAOS::AST))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG70 #:FORMAT-ARG71 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "(%sort-decl " STREAM)
;               (PRIN1 #:FORMAT-ARG70 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG71 STREAM)
;               (WRITE-STRING ")" STREAM))
;             NIL)
;           #:G68 #:G69)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-SORT-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-SUBSORT-DECL
;     (FORMAT STREAM "~%Subsort declaration : ~{~a~^ ~a ~}" CHAOS::S-SEQ)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG100 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "Subsort declaration : " STREAM)
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #
;                       #
;                       #
;                       #
;                       #)))
;             NIL)
;           #:G99)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-SUBSORT-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-BSORT-DECL
;     (FORMAT STREAM "(%bsort-decl ~s ~s ~s ~s ~s ~s)"
;             (CHAOS::%BSORT-DECL-NAME CHAOS::AST) CHAOS::TP CHAOS::TC CHAOS::TPR
;             CHAOS::TD (CHAOS::%BSORT-DECL-HIDDEN CHAOS::AST))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG129 #:FORMAT-ARG130 #:FORMAT-ARG131
;                #:FORMAT-ARG132 #:FORMAT-ARG133 #:FORMAT-ARG134
;                &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "(%bsort-decl " STREAM)
;               (PRIN1 #:FORMAT-ARG129 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG130 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG131 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG132 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG133 STREAM)
;               ...)
;             NIL)
;           #:G123 #:G124 #:G125 #:G126 #:G127 #:G128)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-BSORT-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-PSORT-DECL
;     (FORMAT STREAM "~&(%psort-decl ~s)" (CHAOS::%PSORT-DECL-SORT CHAOS::AST))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG157 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(%psort-decl " STREAM)
;               (PRIN1 #:FORMAT-ARG157 STREAM)
;               (WRITE-STRING ")" STREAM))
;             NIL)
;           #:G156)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-PSORT-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-OPREF
;     (FORMAT STREAM "~s ~s ~s" (CHAOS::%OPREF-NAME CHAOS::AST)
;             (CHAOS::%OPREF-MODULE CHAOS::AST) (CHAOS::%OPREF-NUM-ARGS CHAOS::AST))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG177 #:FORMAT-ARG178 #:FORMAT-ARG179
;                &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (PRIN1 #:FORMAT-ARG177 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG178 STREAM)
;               (WRITE-STRING " " STREAM)
;               (PRIN1 #:FORMAT-ARG179 STREAM))
;             NIL)
;           #:G174 #:G175 #:G176)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-OPREF ...)
; compiling (DEFUN PRINT-OPREF-SIMPLE ...)
; compiling (DEFUN PRINT-OP-DECL-AST ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-OPATTRS-AST
;     (FORMAT STREAM "~%attributes : ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (TERPRI STREAM) (WRITE-STRING "attributes : " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - theory ~a" CHAOS::THEORY)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG268 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - theory " STREAM)
;               (PRINC #:FORMAT-ARG268 STREAM))
;             NIL)
;           #:G267)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - associativity ~a" ASSOC)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG282 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - associativity " STREAM)
;               (PRINC #:FORMAT-ARG282 STREAM))
;             NIL)
;           #:G281)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - precedence ~a" CHAOS::PREC)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG296 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - precedence " STREAM)
;               (PRINC #:FORMAT-ARG296 STREAM))
;             NIL)
;           #:G295)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - strategy ~a" CHAOS::STRAT)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG310 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - strategy " STREAM)
;               (PRINC #:FORMAT-ARG310 STREAM))
;             NIL)
;           #:G309)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - memo is specified")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - memo is specified" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - constr is specified")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - constr is specified" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& - coherent is specified")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " - coherent is specified" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-OPATTRS-AST ...)
; compiling (DEFUN PRINT-VAR-DECL ...)
; compiling (DEFUN PRINT-PVAR-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-LET-DECL
;     (FORMAT STREAM "~%let declaration: ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "let declaration: " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&  symbol = ~a" CHAOS::SYM)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG444 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "  symbol = " STREAM)
;               (PRINC #:FORMAT-ARG444 STREAM))
;             NIL)
;           #:G443)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&  value  = ~a" CHAOS::VALUE)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG458 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "  value  = " STREAM)
;               (PRINC #:FORMAT-ARG458 STREAM))
;             NIL)
;           #:G457)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-LET-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-MACRO-DECL
;     (FORMAT STREAM "~%macro declaration:")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "macro declaration:" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~% LHS = ~a" CHAOS::LHS)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG487 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING " LHS = " STREAM)
;               (PRINC #:FORMAT-ARG487 STREAM))
;             NIL)
;           #:G486)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~% RHS = ~a" CHAOS::RHS)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG501 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING " RHS = " STREAM)
;               (PRINC #:FORMAT-ARG501 STREAM))
;             NIL)
;           #:G500)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-MACRO-DECL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-AXIOM-DECL-FORM
;     (FORMAT STREAM "~%axiom declaration(~a): " TYPE)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG519 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "axiom declaration(" STREAM)
;               (PRINC #:FORMAT-ARG519 STREAM)
;               (WRITE-STRING "): " STREAM))
;             NIL)
;           #:G518)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM " labels =~{~a ~}" LABELS)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG533 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING " labels =" STREAM)
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #
;                       #)))
;             NIL)
;           #:G532)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& lhs = ~a" CHAOS::LHS)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG549 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " lhs = " STREAM)
;               (PRINC #:FORMAT-ARG549 STREAM))
;             NIL)
;           #:G548)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& rhs = ~a" CHAOS::RHS)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG563 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " rhs = " STREAM)
;               (PRINC #:FORMAT-ARG563 STREAM))
;             NIL)
;           #:G562)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~& condition = ~a" COND)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG577 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING " condition = " STREAM)
;               (PRINC #:FORMAT-ARG577 STREAM))
;             NIL)
;           #:G576)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-AXIOM-DECL-FORM ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-IMPORT-DECL
;     (FORMAT STREAM "import declaration : ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "import declaration : " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "mode = ~a, " CHAOS::MODE)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG606 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "mode = " STREAM)
;               (PRINC #:FORMAT-ARG606 STREAM)
;               (WRITE-STRING ", " STREAM))
;             NIL)
;           #:G605)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "as ~a, " CHAOS::AS)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG620 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "as " STREAM)
;               (PRINC #:FORMAT-ARG620 STREAM)
;               (WRITE-STRING ", " STREAM))
;             NIL)
;           #:G619)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "module = ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "module = " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-IMPORT-DECL ...)
; compiling (DEFUN PRINT-MODEXP-SIMPLE ...)
; compiling (DEFUN GET-CONTEXT-NAME ...)
; compiling (DEFUN GET-CONTEXT-NAME-EXTENDED ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-MODEXP
;     (FUNCALL CHAOS::PRINTER CHAOS::ME STREAM CHAOS::SIMPLE CHAOS::NO-PARAM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::PRINTER CHAOS::ME STREAM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PRINT-MODEXP ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-PLUS-MODEXP
;     (1- (CHAOS::FILE-COLUMN STREAM))
; ==>
;   (- (CHAOS::FILE-COLUMN STREAM) 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.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.
; compiling (DEFUN PRINT-PLUS-MODEXP ...)
; compiling (DEFUN PRINT-RENAME-MODEXP ...)
; compiling (DEFUN PRINT-INSTANTIATION-MODEXP ...)
; compiling (DEFUN PRINT-REN-SORT ...)
; compiling (DEFUN PRINT-REN-OP ...)
; compiling (DEFUN PRINT-REN-PARAM ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-VARS-AST
;     (FORMAT STREAM "~{~^ ~a~} : " CHAOS::VAR-NAMES)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG810 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #
;                       #
;                       #))
;               (WRITE-STRING " : " STREAM))
;             NIL)
;           #:G809)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.
; compiling (DEFUN PRINT-VARS-AST ...)
; compiling (DEFUN PRINT-RENAME-MAP ...)
; compiling (DEFUN PR-INT-RENAME ...)
; compiling (DEFUN PR-INT-PLUS ...)
; compiling (DEFUN PR-INT-INSTANTIATION ...)
; compiling (DEFUN PRINT-VIEW-INTERNAL ...)
; compiling (DEFUN PRINT-VIEW ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-VIEW-IN-CAFEOBJ-MODE
;     (FUNCALL CHAOS::PRINTER CHAOS::VW STREAM CHAOS::SIMPLE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PRINT-VIEW-IN-CAFEOBJ-MODE ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-VIEW-IN-CHAOS-MODE
;     (FORMAT STREAM "~%~s" (CHAOS::OBJECT-DECL-FORM CHAOS::VW))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG947 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (TERPRI STREAM) (PRIN1 #:FORMAT-ARG947 STREAM))
;             NIL)
;           #:G946)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-VIEW-IN-CHAOS-MODE ...)
; compiling (DEFUN PRINT-VIEW-STRUCT-MAPS ...)
; compiling (DEFUN PRINT-ABS-VIEW-MAPPING ...)
; compiling (DEFUN PRINT-VIEW-MODEXP ...)
; compiling (DEFUN PRINT-VIEW-MODEXP-ABBREV ...)
; compiling (DEFUN PRINT-VIEW-MAPPING ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-OPERATOR-INTERNAL
;     (FORMAT STREAM "~a/~a." (CHAOS::OPERATOR-SYMBOL CHAOS::OP)
;             (CHAOS::OPERATOR-NUM-ARGS CHAOS::OP))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG1074 #:FORMAT-ARG1075 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (PRINC #:FORMAT-ARG1074 STREAM)
;               (WRITE-STRING "/" STREAM)
;               (PRINC #:FORMAT-ARG1075 STREAM)
;               (WRITE-STRING "." STREAM))
;             NIL)
;           #:G1072 #:G1073)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-OPERATOR-INTERNAL ...)
; compiling (DEFUN PRINT-OP-NAME ...)
; compiling (DEFUN PRINT-SORT-INTERNAL ...)
; compiling (DEFUN PRINT-RECORD-INTERNAL ...)
; compiling (DEFUN PRINT-CLASS-INTERNAL ...)
; compiling (DEFUN PRINT-BSORT-INTERNAL ...)
; compiling (DEFUN PRINT-AND-SORT-INTERNAL ...)
; compiling (DEFUN PRINT-OR-SORT-INTERNAL ...)
; compiling (DEFUN PRINT-ERR-SORT-INTERNAL ...)
; compiling (DEFUN PRINT-MODULE-INTERNAL ...)
; compiling (DEFUN PRINT-AXIOM-INTERNAL ...)
; compiling (DEFUN PRINT-RULE-INTERNAL ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-METHOD-INTERNAL
;     (FORMAT STREAM "~{~A~} :" (CHAOS::METHOD-SYMBOL CHAOS::METH))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG1175 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #))
;               (WRITE-STRING " :" STREAM))
;             NIL)
;           #:G1174)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-METHOD-INTERNAL ...)
; compiling (DEFUN PRINT-MODMORPH ...)
; compiling (DEFUN GET-MODULE-PRINT-NAME ...)
; compiling (DEFUN MAKE-MODULE-PRINT-NAME ...)
; compiling (DEFUN PRINT-MOD-NAME ...)
; compiling (DEFUN PRINT-MOD-NAME-INTERNAL ...)
; compiling (DEFUN PRINT-SIMPLE-MOD-NAME ...)
; compiling (DEFUN MAKE-MODULE-PRINT-NAME2 ...)
; compiling (DEFUN PRINT-MOD-NAME2 ...)
; compiling (DEFUN PRINT-MOD-NAME-INTERNAL2 ...)
; compiling (DEFUN GET-PARAMETER-THEORY ...)
; compiling (DEFUN PRINT-PARAMETER-THEORY-NAME ...)
; compiling (DEFUN PRINT-SORT-NAME ...)
; compiling (DEFUN SORT-PRINT-NAME ...)
; compiling (DEFUN PRINT-SORT-LIST ...)
; compiling (DEFUN PRINT-SORT-NAME2 ...)
; compiling (DEFUN PRINT-QUAL-SORT-NAME ...)
; compiling (DEFUN PRINT-QUAL-OP-NAME ...)
; compiling (DEFUN PRINT-CHECK-BU ...)
; compiling (DEFUN PRINT-CHECK-BU-METH ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-METHOD-BRIEF
;     (1- (CHAOS::FILE-COLUMN *STANDARD-OUTPUT*))
; ==>
;   (- (CHAOS::FILE-COLUMN *STANDARD-OUTPUT*) 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.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.
; compiling (DEFUN PRINT-METHOD-BRIEF ...)
; compiling (DEFUN PRINT-OP-BRIEF ...)
; compiling (DEFUN PRINT-OP-METH ...)
; compiling (DEFUN PRINT-OP-METH2 ...)
; compiling (DEFUN PRINT-TERM-METHOD ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-METHOD
;     (FORMAT STREAM "~{~a~} : " (CHAOS::METHOD-SYMBOL CHAOS::METHOD))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG1644 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #))
;               (WRITE-STRING " : " STREAM))
;             NIL)
;           #:G1643)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-METHOD ...)
; compiling (DEFUN METHOD-PRINT-STRING ...)
; compiling (DEFUN PRINT-BI-CONSTANT-METHOD ...)
; compiling (DEFUN BI-METHOD-PRINT-STRING ...)
; compiling (DEFUN PRINT-OP-ATTRS ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-METHOD-ATTRS
;     (1- (CHAOS::FILE-COLUMN *STANDARD-OUTPUT*))
; ==>
;   (- (CHAOS::FILE-COLUMN *STANDARD-OUTPUT*) 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.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.
; compiling (DEFUN PRINT-METHOD-ATTRS ...)
; compiling (DEFUN PRINT-ID-CONDITION ...)
; compiling (DEFUN PRINT-ID-COND ...)
; compiling (DEFUN PRINT-ID-COND-LIST ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-RULE-LABELS
;     (MAPCAR #'STRING LABELS)
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB-KERNEL:%RPLACD 
; --> SETQ THE LIST CONS FUNCALL SB-C::%FUNCALL 
; ==>
;   (STRING (CAR #:G1817))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PRINT-RULE-LABELS ...)
; compiling (DEFUN PRINT-AXIOM-BRIEF ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN PRINT-RULE-ID-INF ...)

; file: /«PKGBUILDDIR»/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-RULE
;     (LENGTH CHAOS::EXTS)
; 
; 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 VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; compiling (DEFUN PRINT-RULE ...)
; compiling (DEFUN PRINT-AXIOM ...)
; compiling (DEFUN PRINT-RULES-DETAIL ...)
; compiling (DEFUN PRINT-MAPPING ...)
; compiling (DEFUN PRINT-RULE-RING ...)
; compiling (DEFUN PRINT-SUBSTITUTION ...)
; compiling (DEFUN SHOW-PARSE-DICT ...)
; compiling (DEFUN PRINT-MODULE-PARSE-DICTIONARY ...)
; compiling (DEFUN PP-SORT-ORDER ...)
; compiling (DEFUN PP-SORT-ORDER-RAW ...)
; compiling (DEFUN PRINT-INSTANCE-DB ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/primitives/print-object-TMP.fasl written
; compilation finished in 0:00:00.690
; compiling file "/«PKGBUILDDIR»/chaos/term-parser/parse-macro.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *DEBUG-MACRO* ...)
; compiling (DECLAIM (SPECIAL *DEBUG-MACRO-NEST*))
; compiling (DEFVAR *DEBUG-MARCO-NEST* ...)
; compiling (DEFUN ADD-MACRO-TO-MODULE ...)
; compiling (DEFUN SETUP-MACRO-RULE ...)
; compiling (DEFUN ADD-MACRO-TO-METHOD ...)
; compiling (DEFUN ADJOIN-MACRO ...)
; compiling (DEFUN MACRO-IS-SIMILAR? ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-macro.lisp
; in: DEFUN EXPAND-MACRO
;     (1+ CHAOS::*DEBUG-MARCO-NEST*)
; ==>
;   (+ CHAOS::*DEBUG-MARCO-NEST* 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (LABELS ((CHAOS::APPLY-MACRO-RULE (CHAOS::MACRO CHAOS::TERM)
;                (BLOCK CHAOS::THE-END (MULTIPLE-VALUE-BIND # # # # # NIL)))
;              (CHAOS::SUBSTITUTE-IMAGE (CHAOS::SIGMA CHAOS::TERM)
;                (DECLARE (TYPE LIST CHAOS::SIGMA)
;                         (TYPE CHAOS::TERM))
;                (COND (# #) (# CHAOS::TERM) (# #) (# #))))
;       (UNLESS (CHAOS::TERM-IS-APPLICATION-FORM? CHAOS::TERM)
;         (RETURN-FROM CHAOS::EXPAND-MACRO CHAOS::TERM))
;       (CHAOS::WITH-IN-MODULE (CHAOS::MODULE)
;         (LET ((CHAOS::*DEBUG-MACRO-NEST* #))
;           (WHEN CHAOS::*DEBUG-MACRO*
;             (FORMAT T "~%~D>[expand-macro]: " CHAOS::*DEBUG-MACRO-NEST*)
;             (CHAOS::TERM-PRINT CHAOS::TERM))
;           (DOLIST (CHAOS::SUB #) (CHAOS::EXPAND-MACRO CHAOS::SUB CHAOS::MODULE))
;           (CHAOS::UPDATE-LOWEST-PARSE CHAOS::TERM)
;           (LET (#)
;             (IF #
;                 #)
;             (CHAOS::UPDATE-LOWEST-PARSE CHAOS::TERM)
;             (WHEN CHAOS::*DEBUG-MACRO* # #)
;             CHAOS::TERM))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

;     (1+ CHAOS::*DEBUG-MARCO-NEST*)
; ==>
;   (+ CHAOS::*DEBUG-MARCO-NEST* 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.
; compiling (DEFUN EXPAND-MACRO ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/term-parser/parse-macro-TMP.fasl written
; compilation finished in 0:00:00.046
; compiling file "/«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN DICTIONARY-ADD-INFO-ON-TOKEN ...)
; compiling (DEFUN DICTIONARY-ADD-BUILTIN-SORT ...)
; compiling (DEFUN DICTIONARY-DELETE-INFO-ON-TOKEN ...)
; compiling (DECLAIM (INLINE DICTIONARY-GET-TOKEN-INFO))
; compiling (DEFUN DICTIONARY-GET-TOKEN-INFO ...)
; compiling (DECLAIM (INLINE DICTIONARY-REPLACE-TOKEN-INFO))
; compiling (DEFUN DICTIONARY-REPLACE-TOKEN-INFO ...)
; compiling (DEFUN DICTIONARY-DELETE-TOKEN-INFO ...)
; compiling (DEFUN DICTIONARY-ADD-TOKEN-INFO ...)
; compiling (DEFUN INFO-FOR-SPECIAL-BUILTINS ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN VARIABLE-COPY-MODIFYING ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (ASSOC (CHAOS::VARIABLE-NAME CHAOS::TERM) CHAOS::*PARSE-VARIABLES* :TEST
;            #'EQL)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN SIMPLE-COPY-TERM-SHARING-VARIABLES ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; in: DEFUN GET-QUALIFIED-OP-PATTERN
;     (POSITION #\_ CHAOS::EXPR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                                SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                                (VECTOR NIL) BASE-STRING), not a (OR CONS NULL
;                                                                     VECTOR).

;     (SUBSEQ CHAOS::EXPR 0 CHAOS::POS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                               (VECTOR NIL)
;                               BASE-STRING), 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 (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
;                               SB-KERNEL:EXTENDED-SEQUENCE (VECTOR CHARACTER)
;                               (VECTOR NIL)
;                               BASE-STRING), not a SB-KERNEL:EXTENDED-SEQUENCE.
; compiling (DEFUN GET-QUALIFIED-OP-PATTERN ...)
; compiling (DEFUN PARSER-IS-MORE-GENERAL-ONE ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; in: DEFUN GET-INFO-ON-TOKEN
;     (FUNCALL CHAOS::TOKEN-PRED CHAOS::TOKEN)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::TOKEN-PRED)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN GET-INFO-ON-TOKEN ...)
; compiling (DEFUN DICTIONARY-DELETE-VARS ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; in: DEFUN DICTIONARY-MAKE-BUILTIN-CONSTANT
;     (FUNCALL (CHAOS::BSORT-TERM-CREATOR CHAOS::BSORT) CHAOS::TOKEN)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::BSORT-TERM-CREATOR CHAOS::BSORT))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN DICTIONARY-MAKE-BUILTIN-CONSTANT ...)
; compiling (DEFUN OBJECT-SYNTACTIC-TYPE ...)
; compiling (DEFUN OPERATOR-PARSE-CATEGORY ...)
; compiling (DEFUN PARSE-TERM ...)
; compiling (DEFUN PARSER-CONTINUING ...)
; compiling (DEFUN PARSER-CONTINUE-CHECK ...)
; compiling (DEFUN PARSER-CONTINUE ...)
; compiling (DEFUN PARSER-CONTINUE-FOR-OPERATORS ...)
; compiling (DEFUN PARSER-CONTINUE-FOR-OPERATOR ...)
; compiling (DEFUN PARSER-FINISH-TERM-FOR-OPERATOR ...)
; compiling (DEFUN PARSER-GET-TERM ...)
; compiling (DEFUN PARSER-GET-REST-OF-PARENTHESIZED-EXPR ...)
; compiling (DEFUN PARSER-SCAN-QUALIFICATION ...)
; compiling (DEFUN PARSER-SCAN-PARENTHESIZED-UNIT ...)
; compiling (DEFUN GET-TERM-FOR-REGULAR-TOKEN ...)
; compiling (DEFUN GET-TERM-FOR-OP-VAR ...)
; compiling (DEFUN GET-TERM-FROM-ANTEFIX-OPERATOR ...)
; compiling (DEFUN GET-TERM-FROM-AST-OPERATOR ...)
; compiling (DEFUN CHOOSE-OPERATORS-FROM-TOKEN ...)
; compiling (DEFUN PARSER-CHOOSING-OPERATORS ...)
; compiling (DEFUN CHOOSE-OPERATORS ...)
; compiling (DEFUN CHOOSE-JUXTAPOSITION-OPERATORS ...)
; compiling (DEFUN CHOOSE-LATEFIX-OPERATORS ...)
; compiling (DEFUN PARSER-CHECK-OPERATOR ...)
; compiling (DEFUN PARSER-COLLECT-ARGUMENTS ...)
; compiling (DEFUN PARSER-COLLECT-ONE-ARGUMENT ...)
; compiling (DEFUN PARSER-SCAN-TOKEN ...)
; compiling (DEFUN PARSER-IN-SAME-CONNECTED-COMPONENT ...)
; compiling (DEFUN PARSER-MAKE-TERMS ...)
; compiling (DEFUN TEST-SORT-MEMB-PREDICATE ...)
; compiling (DEFUN PRINT-TERLETOX ...)
; compiling (DEFUN PRINT-TERLETOX-LIST ...)
; compiling (DEFVAR *RC-DEBUG* ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; in: DEFUN PARSER-MAKE-APPLFORM
;     (FLET ((CHAOS::MAKE-FORM (SORT CHAOS::METHOD CHAOS::ARG-LIST)
;              (CHAOS::MAKE-APPLFORM SORT CHAOS::METHOD CHAOS::ARG-LIST)))
;       (LET ((CHAOS::RESULT NIL))
;         (IF CHAOS::*FILL-RC-ATTRIBUTE*
;             (LET (# #)
;               (IF #
;                   #
;                   #)
;               (IF CHAOS::ATTRPOS
;                   #
;                   #))
;             (SETQ CHAOS::RESULT #))
;         (WHEN (EQ (CHAOS::TERM-HEAD CHAOS::RESULT) CHAOS::*BOOL-IF*)
;           (CHAOS::SET-IF-THEN-ELSE-SORT CHAOS::RESULT))
;         CHAOS::RESULT))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; compiling (DEFUN PARSER-MAKE-APPLFORM ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; in: DEFUN REPLACE-CLASS-ID-WITH-VAR
;     (PUSHNEW CHAOS::ID-VAR CHAOS::*LHS-ATTRID-VARS*)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN REPLACE-CLASS-ID-WITH-VAR ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-engine.lisp
; in: DEFUN REPLACE-ATTR-ID-WITH-VAR
;     (PUSHNEW CHAOS::ID-VAR CHAOS::*LHS-ATTRID-VARS*)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN REPLACE-ATTR-ID-WITH-VAR ...)
; compiling (DEFUN ARE-ARGUMENTSORTS-CORRECT ...)
; compiling (DEFUN ARITY-CONTAINS-UNIVERSAL-SORT ...)
; compiling (DEFUN CHECK-UNIVERSALLY-DEFINED-BUILTINS ...)
; compiling (DEFUN ARE-WELL-DEFINED-TERMS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/term-parser/parse-engine-TMP.fasl written
; compilation finished in 0:00:00.463
; compiling file "/«PKGBUILDDIR»/chaos/term-parser/parse-top.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN SIMPLE-PARSE-FROM-STRING ...)
; compiling (DEFUN SIMPLE-PARSE-FROM-STRING* ...)
; compiling (DEFVAR *PARSE-RAW-PARSE* ...)
; compiling (DEFVAR .SAVED-AMBIGUOUS. ...)
; compiling (DEFUN SIMPLE-PARSE ...)
; compiling (DEFUN SELECT-PARSE ...)
; compiling (DEFUN PRE-CHOOSE-FINAL-SUB ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-top.lisp
; in: DEFUN PRE-CHOOSE-FINAL
;     (ASSOC CHAOS::*ID-MODULE* (CHAOS::MODULE-ALL-SUBMODULES CHAOS::MODULE))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN PRE-CHOOSE-FINAL ...)
; compiling (DEFUN CHOOSE-MOST-APROPREATE-TERM ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-top.lisp
; in: DEFUN PARSER-DIAGNOSE
;     (LENGTH (CDR CHAOS::E))
; 
; 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 VECTOR.

;     (SETF (NTH (+ CHAOS::LENP CHAOS::I) CHAOS::FLAGS) T)
; --> LET* 
; ==>
;   (NTHCDR (+ CHAOS::LENP CHAOS::I) CHAOS::FLAGS)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN PARSER-DIAGNOSE ...)
; compiling (DEFUN SIMPLE-PARSE-GROUND ...)
; compiling (DEFUN PARSE-CONVERT ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-top.lisp
; in: DEFUN PARSE-SHOW-DIFF
;     (1+ CHAOS::NUM)
; ==>
;   (+ CHAOS::NUM 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 (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.
; compiling (DEFUN PARSE-SHOW-DIFF ...)
; compiling (DEFUN PARSER-COMPLETE-PARSES ...)
; compiling (DEFUN PARSER-PARSES ...)
; compiling (DEFUN PARSER-FIND-PARSE ...)
; compiling (DEFUN PARSER-FIND-PARSE-STRICT ...)
; compiling (DEFUN PARSER-FIND-PARSE-STRICT-SORTS ...)
; compiling (DEFUN PARSER-FIND-RULE-PAIR ...)
; compiling (DEFUN PARSE-QUIET-PARSE ...)
; compiling (DEFUN TOKEN-SEQ-TO-STR ...)

; file: /«PKGBUILDDIR»/chaos/term-parser/parse-top.lisp
; in: DEFUN UPDATE-PARSE-INFORMATION
;     (STRING (CAR CHAOS::VAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN UPDATE-PARSE-INFORMATION ...)
; compiling (DEFUN COMPRESS-OVERLOADED-METHODS ...)
; compiling (DEFUN METHOD-COMPRESS-OVERLOADED-SET ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/term-parser/parse-top-TMP.fasl written
; compilation finished in 0:00:00.229
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-utils.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO WITH-MATCH-DEBUG ...)
; compiling (DEFUN POSSIBLY-MATCHES-NONVAR ...)
; compiling (DEFUN POSSIBLY-MATCHES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-utils-TMP.fasl written
; compilation finished in 0:00:00.018
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-system.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO MAKE-EQUATION ...)
; compiling (DEFMACRO EQUATION-T1 ...)
; compiling (DEFMACRO EQUATION-T2 ...)
; compiling (DECLAIM (SPECIAL *DO-UNIFY*))
; compiling (DEFVAR *DO-UNIFY* ...)
; compiling (DECLAIM (SPECIAL *ONE-WAY-MATCH*))
; compiling (DEFVAR *ONE-WAY-MATCH* ...)
; compiling (DECLAIM (SPECIAL *DO-EMPTY-MATCH*))
; compiling (DEFVAR *DO-EMPTY-MATCH* ...)
; compiling (DEFUN !MATCH-DECOMPOSE-ON-DEMAND ...)
; compiling (DEFUN OCCURS-IN ...)
; compiling (DEFUN !MATCH-DECOMPOSE ...)
; compiling (DEFUN METHOD-THEORY-INFO-FOR-MATCHING! ...)
; compiling (DEFUN !MATCH-DECOMPOSE-UNIFY ...)
; compiling (DEFUN !MATCH-DECOMPOSE-MATCH ...)
; compiling (DEFUN MATCH-DECOMPOSE-EQUATION ...)
; compiling (DEFUN NORMAL-FORM-SUB ...)
; compiling (DEFUN APPLY-SUBST ...)
; compiling (DEFTYPE MSYSTEM ...)
; compiling (DEFMACRO CREATE-M-SYSTEM ...)
; compiling (DEFUN PRINT-M-SYSTEM ...)
; compiling (DEFMACRO NEW-M-SYSTEM ...)
; compiling (DEFMACRO ADD-M-SYSTEM ...)
; compiling (DEFMACRO M-SYSTEM-IS-EMPTY? ...)
; compiling (DEFMACRO M-SYSTEM-TO-LIST ...)
; compiling (DEFMACRO SIZE-OF-M-SYSTEM ...)
; compiling (DEFUN ADD-EQUATION-TO-M-SYSTEM ...)
; compiling (DECLAIM (INLINE MAKE-M-SYSTEM))
; compiling (DEFUN MAKE-M-SYSTEM ...)
; compiling (DEFUN M-SYSTEM-EXTRACT-ONE-SYSTEM ...)
; compiling (DEFMACRO CREATE-ENVIRONMENT ...)
; compiling (DEFMACRO NEW-ENVIRONMENT ...)
; compiling (DEFMACRO ENVIRONMENT-TO-LIST ...)
; compiling (DEFUN ADD-EQUATION-TO-ENVIRONMENT ...)
; compiling (DEFMACRO ENVIRONMENT-COPY1 ...)
; compiling (DEFMACRO ENVIRONMENT-TO-SUBSTITUTION ...)
; compiling (DEFMACRO ENVIRONMENT-IMAGE ...)
; compiling (DEFUN MATCH-INSERT-IF-COHERENT-WITH ...)
; compiling (DEFSTRUCT (MATCH-SYSTEM #) ...)
; compiling (DEFMACRO MATCH-SYSTEM-SYS ...)
; compiling (DEFMACRO MATCH-SYSTEM-ENV ...)
; compiling (DEFMACRO MATCH-SYSTEM-TO-SUBSTITUTION ...)
; compiling (DEFUN PRINT-MATCH-SYSTEM ...)
; compiling (DEFUN PRINT-MATCH-SYSTEM-SYS ...)
; compiling (DEFUN PRINT-MATCH-SYSTEM-ENV ...)
; compiling (DEFUN PRINT-MATCH-EQUATIONS ...)
; compiling (DEFUN PRINT-MATCH-EQUATION ...)
; compiling (DECLAIM (INLINE NEW-MATCH-SYSTEM))
; compiling (DEFUN NEW-MATCH-SYSTEM ...)
; compiling (DEFMACRO MATCH-SYSTEM-TO-M-SYSTEM ...)
; compiling (DEFUN MATCH-SYSTEM-E-EQUAL ...)
; compiling (DEFUN MATCH-ADD-M-SYSTEM ...)
; compiling (DEFUN MATCH-DECOMPOSE&MERGE ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-system.lisp
; in: DEFUN MATCH-SYSTEM-EXTRACT-ONE
;     (DEFUN CHAOS::MATCH-SYSTEM-EXTRACT-ONE (CHAOS::M-S)
;       (DECLARE (INLINE CHAOS::M-SYSTEM-EXTRACT-ONE-SYSTEM))
;       (LET ((CHAOS::SYS (CHAOS::MATCH-SYSTEM-SYS CHAOS::M-S)))
;         (IF (CHAOS::M-SYSTEM-IS-EMPTY? CHAOS::SYS)
;             (VALUES NIL (CHAOS::THEORY-INFO CHAOS::*THE-EMPTY-THEORY*))
;             (CHAOS::M-SYSTEM-EXTRACT-ONE-SYSTEM CHAOS::SYS))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::MATCH-SYSTEM-EXTRACT-ONE
;                    (SB-INT:NAMED-LAMBDA CHAOS::MATCH-SYSTEM-EXTRACT-ONE
;                        (CHAOS::M-S)
;                      (DECLARE (INLINE CHAOS::M-SYSTEM-EXTRACT-ONE-SYSTEM))
;                      (BLOCK CHAOS::MATCH-SYSTEM-EXTRACT-ONE
;                        (LET (#)
;                          (IF #
;                              #
;                              #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::M-SYSTEM-EXTRACT-ONE-SYSTEM could not be inlined because its
;   source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
;   must be in effect to save function definitions for inlining.
; compiling (DEFUN MATCH-SYSTEM-EXTRACT-ONE ...)
; compiling (DEFUN MATCH-SYSTEM-MODIF-M-SYS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-system-TMP.fasl written
; compilation finished in 0:00:00.319
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "e-match" "match-system">
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-state.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTYPE GLOBAL-STATE ...)
; compiling (DEFMACRO NEW-GLOBAL-STATE ...)
; compiling (DEFMACRO GLOBAL-STATE-IS-EMPTY? ...)
; compiling (DEFMACRO GLOBAL-STATE-IS-NOT-EMPTY ...)
; compiling (DEFMACRO GLOBAL-STATE-POP ...)
; compiling (DEFMACRO GLOBAL-STATE-TOP ...)
; compiling (DEFMACRO GLOBAL-STATE-PUSH ...)
; compiling (DEFUN PRINT-GLOBAL-STATE ...)
; compiling (DEFMACRO THEORY-STATE-MATCH-INITIALIZE ...)
; compiling (DEFMACRO THEORY-STATE-MATCH-NEXT-STATE ...)
; compiling (DEFSTRUCT (MATCH-STATE #) ...)
; compiling (DEFUN PRINT-MATCH-STATE ...)
; compiling (DEFMACRO MATCH-STATE-CREATE ...)
; compiling (DEFMACRO MATCH-EMPTY-STATE-FLAG ...)
; compiling (DEFMACRO MATCH-EMPTY-STATE-SYS ...)
; compiling (DEFMACRO CREATE-MATCH-EMPTY-STATE ...)
; compiling (DEFVAR .MATCH-EMPTY-STATE. ...)
; compiling (SETQ .MATCH-EMPTY-STATE. ...)
; compiling (DEFUN THE-MATCH-EMPTY-STATE ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-state.lisp
; in: DEFUN NEXT-MATCH-STATE
;     (CHAOS::THEORY-STATE-MATCH-INITIALIZE CHAOS::THEORY-INFO CHAOS::SYS-TO-SOLVE
;                                           (CHAOS::MATCH-SYSTEM-ENV
;                                            CHAOS::NEW-M-SYS))
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::THEORY-INFO-MATCH-INIT-FUN CHAOS::THEORY-INFO))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAOS::THEORY-STATE-MATCH-NEXT-STATE CHAOS::THEORY-INFO
;                                           CHAOS::TH-MATCH-STATE)
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::THEORY-INFO-MATCH-NEXT-FUN CHAOS::THEORY-INFO))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN NEXT-MATCH-STATE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-state-TMP.fasl written
; compilation finished in 0:00:00.068
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-e.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MATCH-EMPTY-STATE-INITIALIZE ...)
; compiling (DEFUN MATCH-EMPTY-NEXT-STATE ...)
; compiling (DEFUN MATCH-EMPTY-EQUAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-e-TMP.fasl written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-idem.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN IDEM-MATCH ...)
; compiling (DEFUN IDEM-EXT-MATCH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-idem-TMP.fasl written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-z.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (MATCH-Z-STATE #) ...)
; compiling (DEFUN MATCH-Z-STATE-INITIALIZE ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-z.lisp
; in: DEFUN MATCH-Z-NEXT-STATE
;     (TRUNCATE CHAOS::Q 5)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
; compiling (DEFUN MATCH-Z-NEXT-STATE ...)
; compiling (DEFUN MATCH-Z-EQUAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-z-TMP.fasl written
; compilation finished in 0:00:00.045
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-a.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTYPE MATCH-A-STATE ...)
; compiling (DEFMACRO MAKE-MATCH-A-STATE ...)
; compiling (DEFMACRO MATCH-A-STATE-SIZE ...)
; compiling (DEFMACRO MATCH-A-STATE-METHOD ...)
; compiling (DEFMACRO MATCH-A-STATE-SYS ...)
; compiling (DEFMACRO MATCH-A-STATE-NO-MORE ...)
; compiling (DEFTYPE MATCH-EQUATION-COMP ...)
; compiling (DEFMACRO MAKE-MATCH-EQUATION-COMP ...)
; compiling (DEFMACRO MATCH-EQUATION-COMP-SZ-LEFT ...)
; compiling (DEFMACRO MATCH-EQUATION-COMP-LEFT ...)
; compiling (DEFMACRO MATCH-EQUATION-COMP-RIGHT ...)
; compiling (DEFMACRO MATCH-EQUATION-COMP-COMP ...)
; compiling (DEFUN PRINT-EQUATION-COMP ...)
; compiling (DECLAIM (INLINE MATCH-ASSOCIATIVE-SIMPLIFY))
; compiling (DEFUN MATCH-ASSOCIATIVE-SIMPLIFY ...)
; compiling (DECLAIM (INLINE MATCH-ASSOCIATIVITY-SET-EQ-STATE))
; compiling (DEFUN MATCH-ASSOCIATIVITY-SET-EQ-STATE ...)
; compiling (DECLAIM (INLINE MATCH-A-MAKE-TERM))
; compiling (DEFUN MATCH-A-MAKE-TERM ...)
; compiling (DECLAIM (INLINE MATCH-A-EXTRACT-IN-FROM-TO))
; compiling (DEFUN MATCH-A-EXTRACT-IN-FROM-TO ...)
; compiling (DECLAIM (INLINE INCREMENT-THE-MATCH-A-STATE))
; compiling (DEFUN INCREMENT-THE-MATCH-A-STATE ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-a.lisp
; in: DECLAIM (INLINE MATCH-A-TRY-INCREASE-LEXICO)
;     (DECLAIM (INLINE CHAOS::MATCH-A-TRY-INCREASE-LEXICO))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CHAOS::MATCH-A-TRY-INCREASE-LEXICO)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CHAOS::MATCH-A-TRY-INCREASE-LEXICO 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.
; compiling (DECLAIM (INLINE MATCH-A-TRY-INCREASE-LEXICO))
; compiling (DEFUN MATCH-A-TRY-INCREASE-LEXICO ...)
; compiling (DECLAIM (INLINE MATCH-A-RESET-COMP))
; compiling (DEFUN MATCH-A-RESET-COMP ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-a.lisp
; in: DECLAIM (INLINE MATCH-A-RESET-MATCH-EQUATION-COMP)
;     (DECLAIM (INLINE CHAOS::MATCH-A-RESET-MATCH-EQUATION-COMP))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CHAOS::MATCH-A-RESET-MATCH-EQUATION-COMP)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CHAOS::MATCH-A-RESET-MATCH-EQUATION-COMP 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.
; compiling (DECLAIM (INLINE MATCH-A-RESET-MATCH-EQUATION-COMP))
; compiling (DEFUN MATCH-A-RESET-MATCH-EQUATION-COMP ...)
; compiling (DEFUN MATCH-A-STATE-INITIALIZE ...)
; compiling (DEFUN MATCH-A-NEXT-STATE ...)
; compiling (DEFUN MATCH-A-EQUAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-a-TMP.fasl written
; compilation finished in 0:00:00.136
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "e-match" "match-a">
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-c.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (MATCH-C-STATE #) ...)
; compiling (DEFUN MATCH-C-STATE-INITIALIZE ...)
; compiling (DEFUN MATCH-C-NEXT-STATE ...)
; compiling (DEFUN MATCH-C-EQUAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-c-TMP.fasl written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-az.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (MATCH-AZ-STATE #) ...)
; compiling (DECLAIM (INLINE MATCH-ASSOCIATIVE-ID-SIMPLIFY))
; compiling (DEFUN MATCH-ASSOCIATIVE-ID-SIMPLIFY ...)
; compiling (DECLAIM (INLINE MATCH-ASSOCIATIVITY-ID-SET-EQ-STATE))
; compiling (DEFUN MATCH-ASSOCIATIVITY-ID-SET-EQ-STATE ...)
; compiling (DECLAIM (INLINE MATCH-AZ-MAKE-TERM))
; compiling (DEFUN MATCH-AZ-MAKE-TERM ...)
; compiling (DECLAIM (INLINE MATCH-AZ-TRY-INCREASE-LEXICO))
; compiling (DEFUN MATCH-AZ-TRY-INCREASE-LEXICO ...)
; compiling (DECLAIM (INLINE INCREMENT-THE-MATCH-AZ-STATE))
; compiling (DEFUN INCREMENT-THE-MATCH-AZ-STATE ...)
; compiling (DECLAIM (INLINE MATCH-AZ-RESET-COMP))
; compiling (DEFUN MATCH-AZ-RESET-COMP ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-az.lisp
; in: DECLAIM (INLINE MATCH-AZ-RESET-EQUATION-COMP)
;     (DECLAIM (INLINE CHAOS::MATCH-AZ-RESET-EQUATION-COMP))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CHAOS::MATCH-AZ-RESET-EQUATION-COMP)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CHAOS::MATCH-AZ-RESET-EQUATION-COMP 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.
; compiling (DECLAIM (INLINE MATCH-AZ-RESET-EQUATION-COMP))
; compiling (DEFUN MATCH-AZ-RESET-EQUATION-COMP ...)
; compiling (DEFUN MATCH-AZ-STATE-INITIALIZE ...)
; compiling (DEFUN MATCH-AZ-NEXT-STATE ...)
; compiling (DEFUN MATCH-AZ-NEXT-STATE-AUX ...)
; compiling (DEFUN MATCH-AZ-EQUAL ...)
; compiling (DEFUN MATCH-AZ-STATE-UNPARSE ...)
; compiling (DEFUN MATCH-EQUATION-COMP-UNPARSE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-az-TMP.fasl written
; compilation finished in 0:00:00.105
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "e-match" "match-az">
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-cz.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (MATCH-CZ-STATE #) ...)
; compiling (DEFUN MATCH-CZ-STATE-INITIALIZE ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-cz.lisp
; in: DEFUN MATCH-CZ-NEXT-STATE
;     (TRUNCATE CHAOS::Q 6)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
; compiling (DEFUN MATCH-CZ-NEXT-STATE ...)
; compiling (DEFUN MATCH-CZ-EQUAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-cz-TMP.fasl written
; compilation finished in 0:00:00.032
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-ac.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO MAKE-AC-STATE ...)
; compiling (DEFMACRO AC-STATE-OPERATORS ...)
; compiling (DEFMACRO AC-STATE-LHS-F ...)
; compiling (DEFMACRO AC-STATE-LHS-V ...)
; compiling (DEFMACRO AC-STATE-RHS-C ...)
; compiling (DEFMACRO AC-STATE-RHS-F ...)
; compiling (DEFMACRO AC-STATE-LHS-F-R ...)
; compiling (DEFMACRO AC-STATE-LHS-V-R ...)
; compiling (DEFMACRO AC-STATE-RHS-C-R ...)
; compiling (DEFMACRO AC-STATE-RHS-F-R ...)
; compiling (DEFMACRO AC-STATE-LHS-MASK ...)
; compiling (DEFMACRO AC-STATE-LHS-F-MASK ...)
; compiling (DEFMACRO AC-STATE-LHS-R-MASK ...)
; compiling (DEFMACRO AC-STATE-RHS-C-SOL ...)
; compiling (DEFMACRO AC-STATE-RHS-C-MAX ...)
; compiling (DEFMACRO AC-STATE-RHS-F-SOL ...)
; compiling (DEFMACRO AC-STATE-RHS-F-MAX ...)
; compiling (DEFMACRO AC-STATE-RHS-FULL-BITS ...)
; compiling (DEFMACRO AC-STATE-RHS-C-COMPAT ...)
; compiling (DEFMACRO AC-STATE-RHS-F-COMPAT ...)
; compiling (DEFMACRO AC-STATE-LHS-C-COUNT ...)
; compiling (DEFMACRO AC-STATE-LHS-F-COUNT ...)
; compiling (DEFMACRO AC-STATE-LHS-V-COUNT ...)
; compiling (DEFMACRO AC-STATE-RHS-C-COUNT ...)
; compiling (DEFMACRO AC-STATE-RHS-F-COUNT ...)
; compiling (DEFMACRO AC-STATE-NO-MORE ...)
; compiling (DEFMACRO AC-STATE-AC-STATE-P ...)
; compiling (DECLAIM (INLINE AC-STATE-P))
; compiling (DEFUN AC-STATE-P ...)
; compiling (DEFVAR *HALF* ...)
; compiling (DEFMACRO AC-ROTATE-LEFT ...)
; compiling (DEFMACRO AC-NOTE-REPEATS ...)
; compiling (DEFUN DELETE-ONE-TERM ...)
; compiling (DEFVAR *AC-FAILURE-EQ* ...)
; compiling (DEFUN AC-SOLUTION-FROM-STATE ...)
; compiling (DEFUN TEST_SAME_TERM_LIST ...)
; compiling (DEFUN LIST2MULTI-SET-LIST-DIRECT ...)
; compiling (DEFVAR L2MSLA1 ...)
; compiling (DEFVAR L2MSLV1 ...)
; compiling (DEFVAR L2MSLA2 ...)
; compiling (DEFVAR L2MSLV2 ...)
; compiling (DEFUN LIST2MULTI-SET-LIST ...)
; compiling (DEFUN AC-LIST2MULTI-SET ...)
; compiling (DEFUN MATCH-AC-MS-EQUAL ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-ac.lisp
; in: DEFUN AC-NEXT-STATE-SUB
;     (CHAOS::AC-ROTATE-LEFT CHAOS::RHS-C-SOL CHAOS::M)
; --> SETF SB-KERNEL:%SVSET LET TRULY-THE SB-KERNEL:DATA-VECTOR-SET 
; --> SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE 
; ==>
;   (* 2 (SVREF CHAOS::RHS-C-SOL CHAOS::M))
; 
; 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: 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 3) 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.
; compiling (DEFUN AC-NEXT-STATE-SUB ...)
; compiling (DEFUN MATCH-AC-EQUAL ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-ac.lisp
; in: DEFUN MATCH-AC-STATE-INITIALIZE
;     (CHAOS::EXPT2 (1- CHAOS::LHS-V-COUNT))
; --> EXPT 
; ==>
;   (ASH 1 SB-C::POWER)
; 
; 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 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.

;     (CHAOS::EXPT2 (+ -1 CHAOS::LHS-V-COUNT CHAOS::LHS-F-COUNT))
; --> EXPT 
; ==>
;   (ASH 1 SB-C::POWER)
; 
; 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 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.
; compiling (DEFUN MATCH-AC-STATE-INITIALIZE ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match-ac.lisp
; in: DEFUN MATCH-AC-NEXT-STATE
;     (CHAOS::AC-ROTATE-LEFT CHAOS::RHS-F-SOL CHAOS::N)
; --> SETF SB-KERNEL:%SVSET LET TRULY-THE SB-KERNEL:DATA-VECTOR-SET 
; --> SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE 
; ==>
;   (* 2 (SVREF CHAOS::RHS-F-SOL CHAOS::N))
; 
; 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: 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 3) 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.
; compiling (DEFUN MATCH-AC-NEXT-STATE ...)
; compiling (DEFUN AC-UNPARSE-AC-STATE ...)
; compiling (DEFUN AC-ARGS-NSS ...)
; compiling (SETF (GET # ...) ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-ac-TMP.fasl written
; compilation finished in 0:00:00.385
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match-acz.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *USE-ONE-VAR-OPT* ...)
; compiling (DEFMACRO MAKE-MATCH-ACZ-STATE ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-METHODS ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-F ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-V ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-C ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-F ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-F-R ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-V-R ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-C-R ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-F-R ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-MASK ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-F-MASK ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-R-MASK ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-C-SOL ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-C-MAX ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-F-SOL ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-F-MAX ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-FULL-BITS ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-C-COMPAT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-F-COMPAT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-C-COUNT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-F-COUNT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-LHS-V-COUNT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-C-COUNT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-RHS-F-COUNT ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-NO-MORE ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-ACZ-STATE-P ...)
; compiling (DEFMACRO MATCH-ACZ-STATE-ZERO-MATCHES ...)
; compiling (DECLAIM (INLINE MATCH-ACZ-STATE-P))
; compiling (DEFUN MATCH-ACZ-STATE-P ...)
; compiling (DEFSTRUCT TRIVIAL-MATCH-ACZ-STATE ...)
; compiling (DEFMACRO MATCH-ACZ-ROTATE-LEFT ...)
; compiling (DEFMACRO MATCH-ACZ-NOTE-REPEATS ...)
; compiling (DEFMACRO MATCH-ACZ-EQ-MEMBER ...)
; compiling (DEFMACRO ALLOCATE-ACZ-STATE ...)
; compiling (DEFUN MATCH-ACZ-LIST2MULTI-SET ...)
; compiling (DEFUN MATCH-ACZ-MS-EQUAL ...)
; compiling (DEFUN MATCH-ACZ-EQUAL ...)
; compiling (DEFUN MATCH-ACZ-MAKE-TERM ...)
; compiling (DEFVAR *ACZ-FAILURE-PAT* ...)
; compiling (DEFUN MATCH-ACZ-SOLUTION-FROM-STATE ...)
; compiling (DEFUN MATCH-ACZ-STATE-INITIALIZE ...)
; compiling (DEFUN MATCH-ACZ-NEXT-STATE-SUB ...)
; compiling (DEFUN MATCH-ACZ-NEXT-STATE ...)
; compiling (DEFUN MATCH-ACZ-NEXT-STATE-AUX ...)
; compiling (DEFUN MATCH-ACZ-UNPARSE-MATCH-ACZ-STATE ...)
; compiling (DEFUN MATCH-ACZ-TRIVIAL-UNPARSE ...)
; compiling (DEFUN MATCH-ACZ-ARGS-NSS ...)
; compiling (SETF (GET # ...) ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-acz-TMP.fasl written
; compilation finished in 0:00:00.486
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/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))
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::THEORY-INFO-MATCH-INIT-FUN CHAOS::THEORY-INFO))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN FIRST-MATCH ...)
; compiling (DEFUN NEXT-MATCH ...)
; compiling (DEFUN EMPTY-MATCH ...)
; compiling (DEFUN MATCHES? ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match.lisp
; in: DEFUN FIRST-MATCH-WITH-THEORY
;     (CHAOS::THEORY-STATE-MATCH-INITIALIZE CHAOS::THEORY-INFO CHAOS::SYS
;                                           (CHAOS::MATCH-SYSTEM-ENV CHAOS::M-SYS))
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::THEORY-INFO-MATCH-INIT-FUN CHAOS::THEORY-INFO))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN FIRST-MATCH-WITH-THEORY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match-TMP.fasl written
; compilation finished in 0:00:00.049
; compiling file "/«PKGBUILDDIR»/chaos/e-match/match2.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN SIMPLE-MATCH-E-OK? ...)
; compiling (DEFUN IS-EMPTY-THEORY-TERM? ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match2.lisp
; in: DEFUN IS-LINEAR-GENERAL-PATTERN?
;     (MEMBER ELT (CDR CHAOS::LST))
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (EVERY
;      #'(LAMBDA (CHAOS::X CHAOS::Y)
;          (DECLARE (TYPE CHAOS::TERM CHAOS::X)
;                   (TYPE CHAOS::SORT* CHAOS::Y)
;                   (VALUES (OR NULL T)))
;          (AND (CHAOS::TERM-IS-VARIABLE? CHAOS::X)
;               (CHAOS::SORT= (CHAOS::VARIABLE-SORT CHAOS::X) CHAOS::Y)))
;      (CHAOS::TERM-SUBTERMS CHAOS::PATTERN)
;      (CHAOS::METHOD-ARITY (CHAOS::TERM-METHOD CHAOS::PATTERN)))
; --> LET BLOCK SB-INT:DX-FLET FLET MAP TRULY-THE 
; ==>
;   (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G65 #:G66)
; 
; note: unable to open code because: can't determine sequence argument type
; compiling (DEFUN IS-LINEAR-GENERAL-PATTERN? ...)
; compiling (DECLAIM (SPECIAL .EMPTY-DIRECT-SUBST.))
; compiling (DEFVAR .EMPTY-DIRECT-SUBST. ...)
; compiling (DEFUN SIMP-MATCH* ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match2.lisp
; in: DEFUN SIMP-MATCH-E
;     (DEFUN CHAOS::SIMP-MATCH-E (CHAOS::PATTERN CHAOS::TERM)
;       (DECLARE (TYPE CHAOS::TERM CHAOS::PATTERN CHAOS::TERM)
;                (INLINE CHAOS::SIMP-MATCH*)
;                (VALUES LIST LIST (OR NULL T) (OR NULL T)))
;       (LET ((CHAOS::.EMPTY-DIRECT-SUBST. NIL))
;         (LET ((CHAOS::MATCH? #))
;           (WHEN CHAOS::*MATCH-DEBUG*
;             (CHAOS::WITH-OUTPUT-SIMPLE-MSG NIL
;               #))
;           (VALUES NIL CHAOS::.EMPTY-DIRECT-SUBST. (NULL CHAOS::MATCH?) NIL))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::SIMP-MATCH-E
;                    (SB-INT:NAMED-LAMBDA CHAOS::SIMP-MATCH-E
;                        (CHAOS::PATTERN CHAOS::TERM)
;                      (DECLARE (TYPE CHAOS::TERM CHAOS::PATTERN CHAOS::TERM)
;                               (INLINE CHAOS::SIMP-MATCH*)
;                               (VALUES LIST LIST (OR NULL T) (OR NULL T)))
;                      (BLOCK CHAOS::SIMP-MATCH-E
;                        (LET (#)
;                          (LET #
;                            #
;                            #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::SIMP-MATCH* could not be inlined because its source code was not
;   saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to
;   save function definitions for inlining.
; compiling (DEFUN SIMP-MATCH-E ...)

; file: /«PKGBUILDDIR»/chaos/e-match/match2.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN IS-SIMPLE-AC-MATCH-OK? ...)
; compiling (DEFVAR *MATCH-DEP-VAR*)
; compiling (DEFUN DEP-MATCH ...)
; compiling (DEFUN MATCH-DEP-WITH-THEORY ...)
; compiling (DEFUN MATCH-IS-IDEM-OK? ...)
; compiling (DEFUN MATCH-IS-IDEM-OK2? ...)
; compiling (DEFUN MATCH-IS-IDEM-EXT-OK? ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/e-match/match2-TMP.fasl written
; compilation finished in 0:00:00.272
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "e-match" "match2">
; compiling file "/«PKGBUILDDIR»/chaos/construct/sort.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO MAKE-SORT-ID ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN ADD-SORT-TO-MODULE
;     (CHAOS::MARK-NEED-PARSING-PREPARATION MOD)
; --> SETF LET* MIN LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> SETF LET* MIN LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN ADD-SORT-TO-MODULE ...)
; compiling (DEFUN DEFINE-SORT ...)
; compiling (DEFUN DEFINE-BUILTIN-SORT ...)
; compiling (DEFUN ADD-BUILTIN-SORT ...)
; compiling (DEFUN DEFINE-AND-SORT ...)
; compiling (DEFUN DEFINE-OR-SORT ...)
; compiling (DEFUN DEFINE-ERR-SORT ...)
; compiling (DEFUN %COPY-SORT ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN GLB-SORT
;     (LENGTH CHAOS::MEET)
; 
; 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 VECTOR.
; compiling (DEFUN GLB-SORT ...)
; compiling (DEFUN GATHER-AND-COMPONENTS ...)
; compiling (DEFUN CANONICALIZE-AND-COMPONENTS ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN GLB-SORT-NAME
;     (STRING<= (THE SIMPLE-STRING CHAOS::ID1) (THE SIMPLE-STRING CHAOS::ID2))
; ==>
;   (SB-KERNEL:STRING<=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                        SB-C::START2 SB-C::END2)
; 
; 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.

;     (STRING CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING CHAOS::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING< (THE SIMPLE-STRING (STRING CHAOS::X))
;              (THE SIMPLE-STRING (STRING CHAOS::Y)))
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.

;     (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))
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB-KERNEL:%RPLACD 
; --> SETQ THE LIST CONS FUNCALL SB-C::%FUNCALL 
; ==>
;   (STRING (CAR #:G398))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN GLB-SORT-NAME ...)
; compiling (DEFUN MAKE-GLB-SORT ...)
; compiling (DEFUN JOIN-OF-SORTS ...)
; compiling (DEFMACRO LUB-SORT-NAME ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN LUB-SORT
;     (LENGTH CHAOS::JOIN)
; 
; 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 VECTOR.
; compiling (DEFUN LUB-SORT ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN MAKE-LUB-SORT
;     (CHAOS::LUB-SORT-NAME CHAOS::COMPONENTS)
; --> INTERN FORMAT SORT FUNCTION STRING< 
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN MAKE-LUB-SORT ...)
; compiling (DEFMACRO MAKE-ERR-SORT-NAME ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN GENERATE-ERR-SORTS
;     (CHAOS::MAKE-ERR-SORT-NAME CHAOS::SAME-COMPO)
; --> INTERN FORMAT SORT FUNCTION STRING< 
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.
;   The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                                SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.
; compiling (DEFUN GENERATE-ERR-SORTS ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN DECLARE-SORT-IN-MODULE
;     (CHAOS::SET-NEEDS-PARSE CHAOS::MODULE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN DECLARE-SORT-IN-MODULE ...)
; compiling (DEFUN RECREATE-SORT ...)
; compiling (DEFUN RECREATE-SORTS ...)
; compiling (DEFUN !RECREATE-SORT ...)
; compiling (DEFUN !RECREATE-SORTS ...)

; file: /«PKGBUILDDIR»/chaos/construct/sort.lisp
; in: DEFUN DECLARE-SUBSORT-IN-MODULE
;     (CHAOS::SET-NEEDS-PARSE MOD)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN DECLARE-SUBSORT-IN-MODULE ...)
; compiling (DEFUN ADJOIN-SORT-RELATION ...)
; compiling (DEFUN DECLARE-SUBSORT-RELATION ...)
; compiling (DEFUN CONSTRUCT-SORT-RELATIONS ...)
; compiling (DEFUN UPDATE-SORT-ORDER ...)
; compiling (DEFUN FIND-COMPATIBLE-ERR-SORT ...)
; compiling (DEFUN METHOD->SORT-NAME ...)
; compiling (DEFUN GET-SORT-ID-VALUE ...)
; compiling (DEFUN GATHER-SORTS-WITH-ID ...)
; compiling (DECLAIM (SPECIAL .TEST-TERM-SORT-MEMBERSHIP-IN-PROGRESS.))
; compiling (DEFVAR .TEST-TERM-SORT-MEMBERSHIP-IN-PROGRESS. ...)
; compiling (DEFUN TEST-TERM-SORT-MEMBERSHIP ...)
; compiling (DEFUN SORT-IS-PARAMETERIZED ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/sort-TMP.fasl written
; compilation finished in 0:00:00.301
; compiling file "/«PKGBUILDDIR»/chaos/construct/operator.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN ON-DEBUG-OPERATOR ...)
; compiling (DEFUN OFF-DEBUG-OPERATOR ...)
; compiling (DECLAIM (INLINE STRATEGY-IS-LI?))
; compiling (DEFUN STRATEGY-IS-LI? ...)
; compiling (DEFUN DECLARE-OPERATOR-STRATEGY ...)
; compiling (DEFUN COMPLETE-STRATEGY ...)
; compiling (DEFVAR .THEORY-CODE-TABLE.)
; compiling (SETF .THEORY-CODE-TABLE. ...)
; compiling (DEFUN COMPUTE-THEORY-FROM-ATTR-DECL ...)
; compiling (DEFUN DECLARE-OPERATOR-ASSOCIATIVITY ...)
; compiling (DEFUN DECLARE-OPERATOR-PRECEDENCE ...)

; file: /«PKGBUILDDIR»/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 CONS NULL VECTOR).
; compiling (DEFUN COMPUTE-MEMO ...)
; compiling (DEFUN DECLARE-METHOD-THEORY ...)
; compiling (DEFUN SET-METHOD-THEORY ...)
; compiling (DEFUN CHECK-METHOD-THEORY-CONSISTENCY ...)
; compiling (DEFUN MERGE-OPERATOR-THEORY-IN ...)
; compiling (DEFUN DECLARE-METHOD-STRATEGY ...)
; compiling (DEFUN DECLARE-METHOD-ASSOCIATIVITY ...)
; compiling (DEFUN DECLARE-METHOD-PRECEDENCE ...)
; compiling (DEFUN DECLARE-METHOD-MEMO-ATTR ...)
; compiling (DEFUN DECLARE-METHOD-META-DEMOD-ATTR ...)
; compiling (DEFUN DECLARE-METHOD-CONSTR ...)
; compiling (DEFUN DECLARE-METHOD-COHERENT ...)
; compiling (DEFUN DECLARE-OPERATOR-IN-MODULE ...)
; compiling (DEFUN MAKE-OPERATOR-IN-MODULE ...)

; file: /«PKGBUILDDIR»/chaos/construct/operator.lisp
; in: DEFUN CHECK-OVERLOADING-WITH-BUILTIN
;     (FUNCALL CHAOS::TOKEN-PRED CHAOS::OPSTR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::TOKEN-PRED)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CHECK-OVERLOADING-WITH-BUILTIN ...)

; file: /«PKGBUILDDIR»/chaos/construct/operator.lisp
; in: DEFUN ADD-OPERATOR-DECLARATION-TO-MODULE
;     (CHAOS::MARK-NEED-PARSING-PREPARATION MOD)
; --> SETF LET* MIN LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> SETF LET* MIN LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN ADD-OPERATOR-DECLARATION-TO-MODULE ...)
; compiling (DEFMACRO FIND-OPERATOR-OR-WARN ...)
; compiling (DEFUN DECLARE-OPERATOR-STRATEGY-IN-MODULE ...)
; compiling (DEFUN DECLARE-OPERATOR-PRECEDENCE-IN-MODULE ...)
; compiling (DEFUN DECLARE-OPERATOR-ASSOCIATIVITY-IN-MODULE ...)
; compiling (DEFUN MAKE-METHOD-TABLE ...)
; compiling (DEFUN MAKE-METHOD-TABLE-INTERNAL ...)
; compiling (DEFMACRO FIND-OPERATOR-METHOD ...)
; compiling (DEFUN FIND-METHOD-IN-TABLE ...)
; compiling (DEFUN ADD-OPERATOR-DECLARATION-TO-TABLE ...)
; compiling (DEFUN ADD-METHOD-TO-TABLE ...)
; compiling (DEFUN ADD-METHOD-TO-TABLE-FAST ...)
; compiling (DEFUN ADD-METHOD-TO-TABLE-VERY-FAST ...)
; compiling (DEFUN RECREATE-METHOD ...)
; compiling (DEFUN METHOD< ...)
; compiling (DEFUN DELETE-ERROR-OPERATORS-IN ...)
; compiling (DEFUN MAKE-OPERATOR-CLUSTERS-IN ...)
; compiling (DEFUN METHOD-SELECT-MOST-GENERAL-VERSION-OF ...)
; compiling (DEFUN METHOD-MOST-GENERAL-NO-ERROR ...)
; compiling (DEFUN GET-NEW-ERROR-SORT-NAME-IN ...)
; compiling (DEFUN SETUP-USER-DEFINED-ERROR-OPERATORS-IN ...)
; compiling (DEFUN SETUP-ERROR-OPERATORS-IN ...)

; file: /«PKGBUILDDIR»/chaos/construct/operator.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN SETUP-ERROR-OPERATOR ...)
; compiling (DEFUN MAKE-SEM-RELATION-OP ...)
; compiling (DEFUN MAKE-IF-THEN-ELSE-OP ...)
; compiling (DEFUN SETUP-IF-THEN-ELSE-IN ...)
; compiling (DEFUN SETUP-SEM-RELATIONS-IN ...)
; compiling (DEFPARAMETER MEMB-PREDICATE-NAME-TEMPLATE ...)
; compiling (DEFPARAMETER MEMB-PREDICATE-DECL-TEMPLATE ...)
; compiling (DEFUN MAKE-SORT-MEMB-DECL-FORM ...)
; compiling (DEFUN DECLARE-SORT-MEMB-PREDICATES ...)
; compiling (DEFUN DECLARE-SORT-ID-CONSTANTS ...)
; compiling (DEFUN SETUP-OPERATORS-IN ...)
; compiling (DEFUN SET-OPERATOR-SYNTACTIC-PROPERTIES ...)
; compiling (DEFUN MAKE-STANDARD-TOKEN-SEQ ...)
; compiling (DEFUN COMPUTE-METHOD-SYNTACTIC-PROPERTIES ...)
; compiling (DEFUN COMPUTE-ERROR-METHOD-SYNTACTIC-PROPERTIES ...)

; file: /«PKGBUILDDIR»/chaos/construct/operator.lisp
; in: DEFUN COMPUTE-ERROR-METHOD-FORM
;     (INCF CHAOS::ARG-NUM)
; --> SETQ 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.
; compiling (DEFUN COMPUTE-ERROR-METHOD-FORM ...)
; compiling (DEFUN COMPUTE-GATHERING ...)
; compiling (DEFUN CHECK-POLIMORPHIC-OVERLOADING-IN ...)
; compiling (DEFUN METHODS-STRICTLY-OVERLOADING ...)
; compiling (DEFUN THE-DEFAULT-STRATEGY ...)
; compiling (DEFUN COMPLETE-METHOD-STRATEGY ...)
; compiling (DEFUN COMPUTE-REW-STRATEGY ...)
; compiling (DEFUN FIX-STRATEGY-AND-RULES ...)
; compiling (DEFUN PROPAGATE-ATTRIBUTES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/operator-TMP.fasl written
; compilation finished in 0:00:00.682
; compiling file "/«PKGBUILDDIR»/chaos/construct/variable.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/chaos/construct/variable.lisp
; in: DEFUN CHECK-VAR-NAME-OVERLOADING-WITH-BUILTIN
;     (FUNCALL CHAOS::TOKEN-PRED CHAOS::VAR-NAME)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::TOKEN-PRED)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CHECK-VAR-NAME-OVERLOADING-WITH-BUILTIN ...)

; file: /«PKGBUILDDIR»/chaos/construct/variable.lisp
; in: DEFUN DECLARE-VARIABLE-IN-MODULE
;     (CHAR CHAOS::VAR-NAME 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (ASSOC CHAOS::VAR-NAME (CHAOS::MODULE-VARIABLES MOD))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (STRING CHAOS::VAR-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN DECLARE-VARIABLE-IN-MODULE ...)

; file: /«PKGBUILDDIR»/chaos/construct/variable.lisp
; in: DEFUN DECLARE-PVARIABLE-IN-MODULE
;     (ASSOC CHAOS::VAR-NAME (CHAOS::MODULE-VARIABLES MOD))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (STRING CHAOS::VAR-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN DECLARE-PVARIABLE-IN-MODULE ...)
; compiling (DEFUN DECLARE-ERROR-VARIABLES-IN ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/variable-TMP.fasl written
; compilation finished in 0:00:00.050
; compiling file "/«PKGBUILDDIR»/chaos/construct/match-method.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MATCH-NEXT-FAIL ...)
; compiling (DEFVAR *MATCH-EMPTY-METHOD* ...)
; compiling (DEFVAR *MATCH-IDEM-METHOD* ...)
; compiling (DEFVAR *MATCH-IDEM-EXT-METHOD* ...)
; compiling (DEFVAR *MATCH-DEP-METHOD* ...)
; compiling (DEFVAR *MATCH-ID-A-METHOD* ...)
; compiling (DEFVAR *MATCH-ID-AC-METHOD* ...)
; compiling (DEFVAR *MATCH-ID-A-DEP-METHOD* ...)
; compiling (DEFVAR *MATCH-ID-AC-DEP-METHOD* ...)
; compiling (DEFVAR *MATCH-ID-GEN-METHOD* ...)
; compiling (DEFVAR *MATCH-DEFAULT-METHOD* ...)
; compiling (DEFUN CHOOSE-MATCH-METHOD ...)
; compiling (DEFUN ID-A-MATCH ...)
; compiling (DEFUN ID-AC-MATCH ...)
; compiling (DEFUN ID-A-DEP-MATCH ...)
; compiling (DEFUN ID-AC-DEP-MATCH ...)
; compiling (DEFUN ID-GEN-MATCH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/match-method-TMP.fasl written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/chaos/construct/axiom.lisp" (written 10 OCT 2015 01:54:16 PM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MAKE-RULE ...)
; compiling (DEFUN MAKE-SIMPLE-AXIOM ...)
; compiling (DEFUN MAKE-FUN ...)
; compiling (DEFUN MAKE-FUN* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR XSIM-COUNTER ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN CONVERT-LISP-FORM-TERM ...)

; file: /«PKGBUILDDIR»/chaos/construct/axiom.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN CONVERT-CHAOS-EXPR ...)

; file: /«PKGBUILDDIR»/chaos/construct/axiom.lisp
; in: DEFUN INVOKE-GENERAL-LISP-FUN
;     (APPLY CHAOS::FUN CHAOS::BINDINGS)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::FUN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN INVOKE-GENERAL-LISP-FUN ...)
; compiling (DEFUN IS-METALEVEL-SPECIAL-SORT ...)
; compiling (DEFUN INVOKE-SIMPLE-LISP-FUN ...)
; compiling (DEFUN EVAL-CHAOS-EXPR ...)
; compiling (DEFUN MAKE-EXT-RULE-LABEL ...)
; compiling (DEFUN COMPUTE-A-EXTENSIONS ...)
; compiling (DEFUN COMPUTE-AC-EXTENSION ...)
; compiling (DEFUN GIVE-AC-EXTENSION ...)
; compiling (DEFUN GIVE-A-EXTENSIONS ...)

; file: /«PKGBUILDDIR»/chaos/construct/axiom.lisp
; in: DEFUN COMPUTE-RULE-METHOD
;     (CHAOS::ADDR-OF CHAOS::RULE)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT T "~% (~x) " (CHAOS::ADDR-OF CHAOS::RULE))
; --> FORMAT LAMBDA FUNCTION BLOCK LET 
; ==>
;   (PRINC #:FORMAT-ARG395 STREAM)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN COMPUTE-RULE-METHOD ...)
; compiling (DEFVAR COPY-CONDITIONS ...)
; compiling (DEFUN RULE-COPY ...)
; compiling (DEFUN TERM-COPY-ID-COND ...)
; compiling (DEFUN TERM-IS-CONGRUENT-2? ...)
; compiling (DEFUN RULE-IS-SIMILAR? ...)
; compiling (DEFUN RULE-MEMBER ...)
; compiling (DEFPARAMETER .EXT-RULE-KINDS. ...)

; file: /«PKGBUILDDIR»/chaos/construct/axiom.lisp
; in: DEFUN ADJOIN-RULE
;     (CHAOS::ADDR-OF CHAOS::RULE)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::ADDR-OF CHAOS::R)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (FORMAT T "(1:~x)" (CHAOS::ADDR-OF CHAOS::RULE))
; --> FORMAT LAMBDA FUNCTION BLOCK LET 
; ==>
;   (PRINC #:FORMAT-ARG494 STREAM)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (FORMAT T "(2:~x)" (CHAOS::ADDR-OF CHAOS::R))
; --> FORMAT LAMBDA FUNCTION BLOCK LET 
; ==>
;   (PRINC #:FORMAT-ARG508 STREAM)
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN ADJOIN-RULE ...)
; compiling (DEFUN RULE-OCCURS ...)
; compiling (DEFUN RULE-RING-MEMBER ...)
; compiling (DEFUN RULE-RING-ADJOIN-RULE ...)
; compiling (DEFUN ADD-AXIOM-TO-MODULE ...)
; compiling (DEFUN ADJOIN-AXIOM-TO-MODULE ...)
; compiling (DEFUN ADD-RULE-TO-MODULE ...)

; file: /«PKGBUILDDIR»/chaos/construct/axiom.lisp
; in: DEFUN ADD-RULE-TO-METHOD
;     (CHAOS::METHOD-RULES-WITH-SAME-TOP CHAOS::METHOD CHAOS::OPINFO-TABLE)
; --> CHAOS::!METHOD-INFO-RULES-WITH-SAME-TOP SB-KERNEL:%INSTANCE-REF THE 
; --> CHAOS::GET-METHOD-INFO 
; ==>
;   CHAOS::METHOD
; 
; note: deleting unreachable code

; --> CHAOS::!METHOD-INFO-RULES-WITH-SAME-TOP SB-KERNEL:%INSTANCE-REF THE 
; --> CHAOS::GET-METHOD-INFO THE PROGN BLOCK UNLESS IF 
; ==>
;   CHAOS::OPINFO-TABLE
; 
; note: deleting unreachable code

; --> CHAOS::!METHOD-INFO-RULES-WITH-SAME-TOP SB-KERNEL:%INSTANCE-REF THE 
; --> CHAOS::GET-METHOD-INFO THE PROGN BLOCK GETHASH SB-IMPL::GETHASH3 
; ==>
;   CHAOS::METHOD
; 
; note: deleting unreachable code

;     (CHAOS::RULE-RING-ADJOIN-RULE
;      (CHAOS::METHOD-RULES-WITH-SAME-TOP CHAOS::METHOD CHAOS::OPINFO-TABLE)
;      CHAOS::RULE)
; ==>
;   CHAOS::RULE
; 
; note: deleting unreachable code
; compiling (DEFUN ADD-RULE-TO-METHOD ...)
; compiling (DEFUN RULE-SUBSUMES ...)
; compiling (DEFUN RULE-STRICTLY-SUBSUMES ...)
; compiling (DEFUN GET-RULE-NUMBERED ...)
; compiling (DEFUN GET-ALL-RULES-LABELLED ...)
; compiling (DEFUN GET-RULE-LABELLED ...)
; compiling (DEFUN MAKE-RULE-REVERSE ...)
; compiling (DEFUN MAKE-RULE-INSTANCE ...)
; compiling (DEFUN COMPUTE-ACTION-RULE ...)
; compiling (DEFVAR *OPTIMIZE-ERROR-OPERATORS* ...)
; compiling (DEFUN CHECK-AXIOM-ERROR-METHOD ...)
; compiling (DEFUN RECREATE-ERROR-AXIOM ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/axiom-TMP.fasl written
; compilation finished in 0:00:00.286
; compiling file "/«PKGBUILDDIR»/chaos/construct/gen-rule.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN GENERATE-REWRITE-RULES ...)
; compiling (DEFUN VARIABLE-OCCURS-IN ...)
; compiling (DEFPARAMETER NON-EXEC-LABELS ...)
; compiling (DEFUN AXIOM-IS-NON-EXEC? ...)

; file: /«PKGBUILDDIR»/chaos/construct/gen-rule.lisp
; in: DEFUN CONDITION-HAS-MATCH-CONDITION
;     (MEMBER CHAOS::*BOOL-MATCH* (CHAOS::TERM-METHODS CONDITION))
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN CONDITION-HAS-MATCH-CONDITION ...)
; compiling (DEFUN GEN-RULE-INTERNAL ...)

; file: /«PKGBUILDDIR»/chaos/construct/gen-rule.lisp
; in: DEFUN GATHER-SUBMODULE-RULES
;     (CHAOS::MODULE-IS-READY-FOR-REWRITING (CAR CHAOS::SUBMODULE))
; --> >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN GATHER-SUBMODULE-RULES ...)

; file: /«PKGBUILDDIR»/chaos/construct/gen-rule.lisp
; in: DEFUN GET-DIS-SUBMODULE-AXIOMS
;     (CHAOS::MODULE-IS-READY-FOR-REWRITING (CAR CHAOS::SUBMODULE))
; --> >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN GET-DIS-SUBMODULE-AXIOMS ...)
; compiling (DEFVAR *IGNORE-PROTECTED-MODULES* ...)
; compiling (DEFUN SPECIALIZE-RULE ...)
; compiling (DEFUN SPECIALIZE-FOR-METHODS ...)
; compiling (DEFUN ADD-ASSOCIATIVE-EXTENSIONS ...)
; compiling (DEFUN RULE-CHECK-DOWN ...)
; compiling (DEFUN SORT-IS-GENERAL ...)
; compiling (DEFUN COMPUTE-VAR-INFO ...)
; compiling (DEFUN NORMALIZE-RULES-IN ...)
; compiling (LET (#) ...)
; compiling (DEFUN ADD-OPERATOR-THEORY-AXIOMS ...)
; compiling (DEFUN ADD-IDENTITY-COMPLETIONS ...)
; compiling (DEFUN ADD-IDENTITY-COMPLETIONS-INTERNAL ...)
; compiling (DEFUN TEST-BAD-AXIOM ...)
; compiling (DEFUN RULE-INF-MEMBER ...)
; compiling (DEFUN RULE-INF-SUBST-MEMBER ...)
; compiling (DEFUN TERM-OCCURS-AS-SUBTERM ...)
; compiling (DEFUN COMPUTE-VAR-FOR-IDENTITY-COMPLETIONS ...)
; compiling (DEFUN SELECT-VAR-FOR-IDENTITY-COMPLETIONS ...)
; compiling (DEFUN SELECT-VAR-FOR-IDENTITY-COMPLETIONS-ALT2 ...)
; compiling (DEFUN SELECT-VAR-FOR-IDENTITY-COMPLETIONS-ALT ...)
; compiling (DEFUN OCCURS-VAR-VAL ...)
; compiling (DEFUN INSERT-VAL ...)
; compiling (DEFUN RULE-MAKE-OR-LIST ...)
; compiling (DEFUN RULE-MAKE-AND-LIST ...)
; compiling (DEFUN RULE-MAKE-EQEQEQ ...)
; compiling (DEFUN RULE-MAKE-OR-COND ...)
; compiling (DEFUN RULE-MAKE-AND-COND ...)
; compiling (DEFVAR *ENABLE-ID-CONDITION* ...)
; compiling (DEFUN MAKE-ID-CONDITION ...)
; compiling (DEFUN MAKE-IMPROVED-ID-COND ...)
; compiling (DEFUN IMPROVE-ID-CND ...)
; compiling (DEFUN COMPUTE-ATOMIC ...)
; compiling (DEFUN CANONICALIZE-ATOMIC ...)
; compiling (DEFUN COMPUTE-ATOMIC-FREQ ...)
; compiling (DEFUN MEMBER-ATOMIC ...)
; compiling (DEFUN REMOVE-ATOMIC ...)
; compiling (DEFUN ASSOC-ATOMIC ...)
; compiling (DEFUN SAME-ATOMIC ...)
; compiling (DEFUN ELIM-SUPERSETS ...)
; compiling (DEFUN MAKE-ID-CONDITION-DIRECT ...)
; compiling (DEFUN NORMALIZE-FOR-IDENTITY-TOTAL ...)
; compiling (DEFUN TERM-SIMPLIFY ...)
; compiling (DEFUN NORMALIZE-FOR-IDENTITY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/gen-rule-TMP.fasl written
; compilation finished in 0:00:00.303
; compiling file "/«PKGBUILDDIR»/chaos/construct/rwl.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MAKE-CONGRUENCE-AXIOM ...)
; compiling (DEFUN MAKE-TRANS-RELATIONS ...)
; compiling (DEFUN ADD-RWL-AXIOMS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/rwl-TMP.fasl written
; compilation finished in 0:00:00.033
; compiling file "/«PKGBUILDDIR»/chaos/construct/beh.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (BEH-STUFF #) ...)
; compiling (DEFUN PRINT-BEH-STUFF ...)
; compiling (DEFUN CONSTRUCT-BEH-STUFF ...)
; compiling (DEFUN ADD-BEH-EQUIVALENCE ...)
; compiling (DEFUN MAKE-BEH-PROOF-MOD-NAME ...)
; compiling (DEFMACRO DONT-BELIEVE-=*=-PROOF ...)

; file: /«PKGBUILDDIR»/chaos/construct/beh.lisp
; in: DEFUN TRY-BEH-PROOF-IN
;     (CHAOS::SET-NEEDS-RULE CHAOS::MODULE)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN TRY-BEH-PROOF-IN ...)
; compiling (DEFUN BEH-REWRITE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/beh-TMP.fasl written
; compilation finished in 0:00:00.128
; compiling file "/«PKGBUILDDIR»/chaos/construct/module.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CREATE-MODULE ...)
; compiling (DEFUN !CREATE-MODULE ...)
; compiling (DEFUN MODULE-ALL-METHODS ...)
; compiling (DEFUN SIGNATURE-METHODS ...)
; compiling (DEFUN COMPUTE-PROTECTED-MODULES ...)
; compiling (DEFUN DO-COMPUTE-PROTECTED-MODULES ...)
; compiling (DEFUN RECONSTRUCT-MODULE-IF-NEED ...)
; compiling (DEFUN RECONSTRUCT-MODULE ...)
; compiling (DEFVAR *PREPARE-FOR-PARSE-HOOK* ...)
; compiling (DEFUN MODULE-INDIRECT-SUBMODULES ...)

; file: /«PKGBUILDDIR»/chaos/construct/module.lisp
; in: DEFUN PREPARE-FOR-PARSING
;     (CHAOS::MARK-MODULE-READY-FOR-PARSING CHAOS::MODULE)
; --> SETF LET* MAX LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (FUNCALL CHAOS::HOOK-FUN CHAOS::MODULE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::HOOK-FUN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (ASSOC CHAOS::SUB CHAOS::ALS)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (CHAOS::MARK-MODULE-READY-FOR-PARSING CHAOS::MODULE)
; --> SETF LET* MAX LET LET IF >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (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)
; --> SETF LET* MAX LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN PREPARE-FOR-PARSING ...)
; compiling (DEFVAR *DO-=*=-PROOF* ...)

; file: /«PKGBUILDDIR»/chaos/construct/module.lisp
; 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.
; compiling (DEFUN COMPILE-MODULE ...)
; compiling (DEFUN !SETUP-REDUCTION ...)
; compiling (DEFUN FINAL-SETUP ...)
; compiling (DEFUN COMPILE-MODULE-INTERNAL ...)
; compiling (DEFUN CHECK-BEHAVIOURAL-RULES ...)
; compiling (DEFUN FIX-ERROR-METHOD-TERMS ...)
; compiling (DEFUN FIX-REWRITE-RULES ...)
; compiling (DEFUN CHECK-MODULE-RULES ...)
; compiling (DEFUN MODULE-ERROR-CHECK ...)
; compiling (DEFUN CHECK-SUBMODULES ...)
; compiling (DEFUN ADD-PARAMETER-THEOREM ...)
; compiling (DEFUN MODEXP-IS-SUBMODULE-OF ...)
; compiling (DEFUN PROPAGATE-MODULE-CHANGE ...)
; compiling (DEFUN DELETE-PARAMETERS ...)
; compiling (DEFUN PROPAGATE-VIEW-CHANGE ...)
; compiling (DEFUN CLEAN-UP-SUB-OBJECTS ...)
; compiling (DEFUN DELETE-MODULE ...)
; compiling (DEFUN DELETE-VIEW ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/module-TMP.fasl written
; compilation finished in 0:00:00.135
; compiling file "/«PKGBUILDDIR»/chaos/construct/trs.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN TRS-GET-MOD-OR-ERROR ...)
; compiling (DEFUN GET-MODULE-TRS-OR-ERROR ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; in: DEFUN GET-MODULE-TRS
;     (CHAOS::NEED-REWRITING-PREPARATION CHAOS::MODULE)
; ==>
;   (< (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.
; compiling (DEFUN GET-MODULE-TRS ...)
; compiling (DEFUN CHAOS->TRS ...)
; compiling (DEFUN PRINT-CHAOS-TRS ...)
; compiling (DEFUN MAKE-TRS-PRINT-FORM ...)
; compiling (DEFUN STRING-REPLACE-SPACE-WITH ...)
; compiling (DEFUN TRS-PROPER-SORT-P ...)
; compiling (DEFUN TRS-PROPER-SORT-P* ...)
; compiling (DEFVAR _TRS_MOD_NAME_HASH_ ...)
; compiling (DEFUN CLEAR-TRS-MOD-NAME-HASH ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR _TRS_MODULE_NAMES_ ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; in: DEFUN MAKE-TRS-MODULE-NAME-INTERNAL
;     (INCF CHAOS::_TRS_MODULE_NAMES_)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::_TRS_MODULE_NAMES_)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN MAKE-TRS-MODULE-NAME-INTERNAL ...)
; compiling (DEFUN MAKE-TRS-MODULE-NAME ...)
; compiling (DEFUN MAKE-TRS-SORT-NAME ...)
; compiling (DEFUN MAKE-SORT-NAME-MAP ...)
; compiling (DEFUN MAP-CHAOS-SORT-TO-TRS ...)
; compiling (DEFUN MAP-CHAOS-SORT-TO-TRS-OR-PANIC ...)
; compiling (DEFUN MAP-TRS-SORT-TO-CHAOS ...)
; compiling (DEFUN MAKE-TRS-SORT-GRAPH ...)
; compiling (DEFPARAMETER TRS-OPERATOR-SPECIAL-TOKEN-MAP ...)
; compiling (DEFVAR *TRS-OPNAME-HASH* ...)
; compiling (DEFUN CLEAR-TRS-OPNAME-HASH ...)
; compiling (DEFUN CLEAR-TRS-DB ...)
; compiling (DEFUN TRS-PROPER-METHOD-P ...)
; compiling (DEFVAR *TRS-MODIFY-OPERATOR-NAME* ...)
; compiling (DEFUN TRS-CHECK-IF-BUILTIN-OP-FAMILY ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; in: DEFUN TRS-GET-REAL-METHOD-IF-DUMMY
;     (RASSOC CHAOS::METHOD (CHAOS::TRS$DUMMY-METHODS CHAOS::TRS))
; ==>
;   (SB-KERNEL:%RASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN TRS-GET-REAL-METHOD-IF-DUMMY ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               CHARACTER SYMBOL), not a SYMBOL.

;     (LENGTH CHAOS::NAME)
; 
; 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 VECTOR.

;     (CHAR CHAOS::NAME CHAOS::POS)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN MAKE-TRS-OP-NAME ...)
; compiling (DEFUN MAKE-TRS-OP-INFO ...)
; compiling (DEFUN MAKE-TRS-OP-MAPS ...)
; compiling (DEFUN MAKE-TRS-METHOD-ATTR ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN FIX-TRS-IDS ...)
; compiling (DEFUN MAP-CHAOS-OP-TO-TRS ...)
; compiling (DEFUN MAP-CHAOS-OP-TO-TRS-INFO ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; in: DEFUN TRS-REV-OP-NAME
;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN TRS-REV-OP-NAME ...)
; compiling (DEFUN FIND-TRS-DUMMY-METHOD ...)
; compiling (DEFUN MAKE-TRS-DUMMY-METHOD ...)
; compiling (DEFUN MAKE-TRS-BUILTIN-BIN-OP-INFO ...)
; compiling (DEFUN MAKE-TRS-IF-THEN-ELSE-INFO ...)
; compiling (DEFUN MAKE-TRS-IF-THEN-ELSE-AXIOMS ...)
; compiling (DEFUN GET-TRS-TOP-SORTS ...)
; compiling (DEFUN GET-TRS-ERROR-SORTS ...)
; compiling (DEFUN MAKE-TRS-BIOPINFOS ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; in: DEFUN MAKE-TRS-BUILTIN-OP-MAPS
;     (DOLIST (SORT CHAOS::TOP-SORTS)
;       (UNLESS (CHAOS::SORT-IS-HIDDEN SORT)
;         (PUSH
;          (CHAOS::MAKE-TRS-BUILTIN-BIN-OP-INFO CHAOS::TRS CHAOS::*RWL-PREDICATE*
;           (LIST SORT SORT) CHAOS::*BOOL-SORT*)
;          CHAOS::REL-INFOS)
;         (PUSH
;          (CHAOS::MAKE-TRS-BUILTIN-BIN-OP-INFO CHAOS::TRS CHAOS::*RWL-PREDICATE2*
;           (LIST SORT CHAOS::*RWL-NAT-STAR-SORT* SORT) CHAOS::*BOOL-SORT*)
;          CHAOS::REL-INFOS)))
; --> BLOCK LET 
; ==>
;   CHAOS::TOP-SORTS
; 
; note: deleting unreachable code

;     (CHAOS::SORT-IS-HIDDEN SORT)
; --> CHAOS::SORT-HIDDEN TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SORT
; 
; note: deleting unreachable code

;     (CHAOS::MAKE-TRS-BUILTIN-BIN-OP-INFO CHAOS::TRS CHAOS::*RWL-PREDICATE*
;      (LIST SORT SORT) CHAOS::*BOOL-SORT*)
; ==>
;   CHAOS::TRS
; 
; note: deleting unreachable code

;     (PUSH
;      (CHAOS::MAKE-TRS-BUILTIN-BIN-OP-INFO CHAOS::TRS CHAOS::*RWL-PREDICATE*
;       (LIST SORT SORT) CHAOS::*BOOL-SORT*)
;      CHAOS::REL-INFOS)
; --> LET* SETQ THE CONS 
; ==>
;   CHAOS::REL-INFOS
; 
; note: deleting unreachable code

;     (CHAOS::MAKE-TRS-BUILTIN-BIN-OP-INFO CHAOS::TRS CHAOS::*RWL-PREDICATE2*
;      (LIST SORT CHAOS::*RWL-NAT-STAR-SORT* SORT) CHAOS::*BOOL-SORT*)
; ==>
;   CHAOS::TRS
; 
; note: deleting unreachable code

;     (PUSH
;      (CHAOS::MAKE-TRS-BUILTIN-BIN-OP-INFO CHAOS::TRS CHAOS::*RWL-PREDICATE2*
;       (LIST SORT CHAOS::*RWL-NAT-STAR-SORT* SORT) CHAOS::*BOOL-SORT*)
;      CHAOS::REL-INFOS)
; --> LET* SETQ THE CONS 
; ==>
;   CHAOS::REL-INFOS
; 
; note: deleting unreachable code
; compiling (DEFUN MAKE-TRS-BUILTIN-OP-MAPS ...)
; compiling (DEFMACRO TRS-TERM-TYPE ...)
; compiling (DEFMACRO TRS-TERM-HEAD ...)
; compiling (DEFMACRO TRS-TERM-BUILTIN-VALUE ...)
; compiling (DEFMACRO TRS-TERM-SORT ...)
; compiling (DEFMACRO TRS-TERM-SUBTERMS ...)
; compiling (DEFUN TRS$MAKE-TERM-FORM ...)
; compiling (DEFUN TRS-SET-IF-THEN-SORT ...)
; compiling (DEFUN TRS-GET-IF-THEN-SORT ...)
; compiling (DEFUN TRS$MAKE-TERM-FORM* ...)
; compiling (DEFUN TRS-TERM-VARIABLES ...)
; compiling (DEFUN TRS-RE-MAKE-TERM-FORM ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (<= CHAOS::PREC (CHAOS::GET-METHOD-PRECEDENCE CHAOS::HD))
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN RE-PRINT-TRS-TERM ...)
; compiling (DEFUN TRS$GET-AXIOMS ...)

; file: /«PKGBUILDDIR»/chaos/construct/trs.lisp
; in: DEFUN GET-TRS-AXIOM
;     (STRING (CAR CHAOS::LABEL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN GET-TRS-AXIOM ...)
; compiling (DEFMACRO TRS-AXIOM-TYPE ...)
; compiling (DEFMACRO TRS-AXIOM-LABEL ...)
; compiling (DEFMACRO TRS-AXIOM-LHS ...)
; compiling (DEFMACRO TRS-AXIOM-RHS ...)
; compiling (DEFMACRO TRS-AXIOM-CONDITION ...)
; compiling (DEFUN TRS-AXIOM-IS-BUILT-IN ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/construct/trs-TMP.fasl written
; compilation finished in 0:00:00.457
; compiling file "/«PKGBUILDDIR»/chaos/decafe/mutils.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MAKE-PSUEDO-VARS ...)
; compiling (DEFUN MAKE-PSUEDO-VARS-FROM-SORTS ...)
; compiling (DEFUN APPROPRIATE-METHOD ...)
; compiling (DEFUN MODEXP-EVAL-PRINCIPAL-OP ...)
; compiling (DEFUN MODMORPH-CHECK-RANK ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/decafe/mutils-TMP.fasl written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/chaos/decafe/modmorph.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN APPLY-MODMORPH ...)
; compiling (DEFUN APPLY-MODMORPH* ...)
; compiling (DECLAIM (SPECIAL *MODMORPH-LOCAL-VARS*))
; compiling (DEFVAR *MODMORPH-LOCAL-VARS* ...)
; compiling (DEFUN APPLY-MODMORPH-INTERNAL ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; in: DEFUN MODMORPH-PREPARE-FOR-PARSING
;     (CHAOS::MARK-MODULE-READY-FOR-PARSING MOD)
; --> SETF LET* MAX LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> SETF LET* MAX LET LET IF >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> SETF LET* MAX LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN MODMORPH-PREPARE-FOR-PARSING ...)
; compiling (DEFUN FIX-OPERATOR-MAPPING ...)
; compiling (DEFUN MODMORPH-FIND-MAPPED-SORTS ...)
; compiling (DEFUN MODMORPH-COPY-METHOD-ATTRIBUTES ...)
; compiling (DEFUN MODMORPH-FIND-USER-DEFINED-ERROR-METHOD ...)
; compiling (DEFUN MODMORPH-FIND-PROPER-ERROR-METHOD ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN MODMORPH-FIND-ERROR-METHOD ...)
; compiling (DEFUN REPLACE-ERROR-METHOD ...)
; compiling (DEFUN MODMORPH-MODULE-IS-MAPPED ...)
; compiling (DEFUN MODMORPH-SUBMODULE-IS-MAPPED ...)
; compiling (DEFUN MODMORPH-IMPORT-SUBMODULES ...)
; compiling (DEFUN MODMORPH-IMPORT-SUBMODULE ...)
; compiling (DEFUN MODMORPH-MAP-SUBMODULE ...)
; compiling (DEFVAR *MODMORPH-EXPANDED* ...)
; compiling (DEFUN MODMORPH-CONSTRUCT-NAME ...)
; compiling (DEFUN MODMORPH-RECONSTRUCT-NAME ...)
; compiling (DEFUN TARGET-OF-VIEW-ARG ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *X-ANON-VIEW-NAME* ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; in: DEFUN MAKE-ANON-VIEW-NAME
;     (INCF CHAOS::*X-ANON-VIEW-NAME*)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::*X-ANON-VIEW-NAME*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN MAKE-ANON-VIEW-NAME ...)
; compiling (DEFUN MODMORPH-RECONSTRUCT-VIEW-ARG ...)
; compiling (DEFUN MODMORPH-RECONSTRUCT-VIEW-SORT-MAPPING ...)
; compiling (DEFUN MODMORPH-RECONSTRUCT-VIEW-OP-MAPPING ...)
; compiling (DEFUN APPLY-OP-MAPPING-2 ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; in: DEFUN MODMORPH-APPLY-OP-MAP-2
;     (ASSOC (CHAOS::TERM-HEAD CHAOS::TERM) CHAOS::OP_MAP)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (ASSOC CHAOS::OM (CHAOS::MODMORPH-MODULE MAP))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN MODMORPH-APPLY-OP-MAP-2 ...)
; compiling (DEFUN MODMORPH-COMPUTE-SUBMODULE-MAPPINGS ...)
; compiling (DEFUN MODMORPH-RECREATE-SORT ...)
; compiling (DEFUN MODMORPH-RECREATE-SORT-RELATIONS ...)
; compiling (DEFUN MODMORPH-MERGE-SORT-RELATIONS ...)
; compiling (DEFUN MODMORPH-SORT-IMAGE-CREATE ...)
; compiling (DEFUN MODMORPH-SORTS-IMAGE-CREATE ...)
; compiling (DEFUN MODMORPH-SORT-IMAGE ...)
; compiling (DEFUN MODMORPH-SORTS-IMAGE ...)
; compiling (DEFUN MODMORPH-RECREATE-METHOD ...)
; compiling (DEFUN MODMORPH-RECREATE-METHOD-AUX-1 ...)
; compiling (DEFUN MODMORPH-RECREATE-METHOD-AUX-2 ...)
; compiling (DEFUN MODMORPH-UPDATE-THEORY ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; 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 CONS NULL VECTOR).

;     (ASSOC CHAOS::HEAD CHAOS::OPMAP)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (ASSOC (CHAOS::METHOD-MODULE CHAOS::HEAD) CHAOS::MODMAP)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN MODMORPH-RECREATE-TERM ...)
; compiling (DEFUN MODMORPH-RECREATE-AXIOM ...)
; compiling (DEFUN MODMORPH-MERGE ...)
; compiling (DEFUN MODMORPH-MERGE-ASSOC ...)
; compiling (DEFUN MODMORPH-OP-MAP-IS-IDENT ...)
; compiling (DEFUN MODMORPH-MERGE-OP-ASSOC ...)
; compiling (DEFUN MODMORPH-SAME-OP-IMAGE ...)
; compiling (DEFUN MODMORPH-FIND-SORT-IN ...)
; compiling (DEFUN MODMORPH-FIND-OPERATOR-NAMED-IN ...)
; compiling (DEFUN APPLY-OP-MAPPING ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; in: DEFUN APPLY-OP-MAP
;     (ASSOC (CHAOS::TERM-HEAD CHAOS::TERM) CHAOS::OP-MAP)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN APPLY-OP-MAP ...)
; compiling (DEFVAR .MAPPING-DEBUG. ...)
; compiling (DEFUN MAPPING-IMAGE ...)

; file: /«PKGBUILDDIR»/chaos/decafe/modmorph.lisp
; in: DEFUN MAPPING-IMAGE-2
;     (ASSOC CHAOS::OM (CHAOS::MODMORPH-MODULE MAP))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN MAPPING-IMAGE-2 ...)
; compiling (DEFUN VIEW-GET-IMAGE-OF-AXIOMS ...)
; compiling (DEFUN MODMORPH-GET-IMAGE-OF-AXIOMS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/decafe/modmorph-TMP.fasl written
; compilation finished in 0:00:00.368
; compiling file "/«PKGBUILDDIR»/chaos/decafe/mrmap.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN COMPOSE-RENAMES ...)
; compiling (DEFUN RMAP-SORT-MATCH ...)

; file: /«PKGBUILDDIR»/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 CONS NULL VECTOR).
; compiling (DEFUN IMAGE-RENAME-SORT ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mrmap.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN IMAGE-RENAME-OP ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mrmap.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN IMAGE-RENAME-PARAM ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mrmap.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN INVERSE-IMAGE-RENAME-SORT ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mrmap.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN *IMAGE-RENAME-SORT ...)
; compiling (DEFUN *IMAGE-RENAME-SORTS ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mrmap.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN *IMAGE-RENAME-METHOD ...)
; compiling (DEFUN REDUCE-RENAME ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mrmap.lisp
; 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 CONS NULL 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 CONS NULL VECTOR).
; compiling (DEFUN IS-RENAME-INJECTIVE ...)
; compiling (DEFUN RENAME-SORT ...)
; compiling (DEFUN RENAME-SORTS ...)
; compiling (DEFUN RENAME-RECORD ...)
; compiling (DEFUN RENAME-OP ...)
; compiling (DEFUN TRANSFER-METHOD ...)
; compiling (DEFUN TRANSFER-METHOD-AXIOMS ...)
; compiling (DEFUN REDUCE-RENAME-DUMMY ...)
; compiling (DEFUN FIX-SORT-RENAMING ...)
; compiling (DEFUN FIX-METHOD-RENAMING ...)
; compiling (DEFUN RENAME-RECREATE-THEORY ...)
; compiling (DEFUN FIND-SOME-METHOD-IN ...)
; compiling (DEFUN RECREATE-RENAMED-SORT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/decafe/mrmap-TMP.fasl written
; compilation finished in 0:00:00.205
; compiling file "/«PKGBUILDDIR»/chaos/decafe/meval.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN EVAL-MODEXP-TOP ...)
; compiling (DECLAIM (SPECIAL *ON-AUTOLOAD*))
; compiling (DEFVAR *ON-AUTOLOAD* ...)
; compiling (DEFUN EVAL-MODEXP+ ...)
; compiling (DEFUN EVAL-MODEXP ...)
; compiling (DEFUN EVAL-MODEXP* ...)
; compiling (DECLAIM (SPECIAL *COPY-VARIABLES*))
; compiling (DEFVAR *COPY-VARIABLES* ...)
; compiling (DEFUN CREATE-RENAMED-MODULE ...)
; compiling (DEFUN CREATE-RENAMED-MODULE-2 ...)
; compiling (DEFUN CREATE-PLUS ...)
; compiling (DEFUN CREATE-INSTANTIATION ...)
; compiling (DEFUN EVAL-VIEW-ARG ...)
; compiling (DEFUN FIND-RENAMING-SORT-IN ...)
; compiling (DEFUN CREATE-RENAME ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/decafe/meval-TMP.fasl written
; compilation finished in 0:00:00.129
; compiling file "/«PKGBUILDDIR»/chaos/decafe/view.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL *MODEXP-ABSTRACT-MODULE*))
; compiling (DEFVAR *MODEXP-ABSTRACT-MODULE* ...)
; compiling (DEFUN VIEWS-TO-MODMORPH ...)
; compiling (DEFUN VIEW->MODMORPH ...)
; compiling (DEFUN CONVERT-VIEW-TO-MODMORPH ...)
; compiling (DEFUN MAKE-REAL-VIEW ...)

; file: /«PKGBUILDDIR»/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 CONS NULL VECTOR).
; compiling (DEFUN VIEW-MAP-IMAGE-SORT ...)
; compiling (DEFUN VIEW-MAP-IMAGE-SORTS ...)
; compiling (DEFUN COMPLETE-VIEW ...)
; compiling (DEFUN PRINCIPAL-SORT ...)
; compiling (DEFUN CREATE-VIEW ...)

; file: /«PKGBUILDDIR»/chaos/decafe/view.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN *FIND-SORT-IN-MAP ...)

; file: /«PKGBUILDDIR»/chaos/decafe/view.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN *FIND-METHOD-IN-MAP ...)
; compiling (DEFUN COMPUTE-SORT-MAPPINGS ...)
; compiling (DEFUN COMPUTE-SORT-MAPPING ...)
; compiling (DEFUN COMPUTE-OP-MAPPINGS ...)
; compiling (DEFUN RESOLVE-OP-PATTERN-AS-TERM ...)

; file: /«PKGBUILDDIR»/chaos/decafe/view.lisp
; in: DEFUN SPLIT-STR
;     (LENGTH CHAOS::STR)
; 
; 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 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)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN SPLIT-STR ...)
; compiling (DEFUN DELIMIT-OP-PAT ...)
; compiling (DEFUN RESOLVE-OP-PATTERN-AS-REFERENCE ...)
; compiling (DEFUN COMPUTE-OP-MAPPING ...)
; compiling (DEFVAR *VIEW-MAP-OPERATOR-STRICTLY* ...)

; file: /«PKGBUILDDIR»/chaos/decafe/view.lisp
; in: DEFUN FIND-METHOD-MAPPED
;     (LENGTH CHAOS::ARITY)
; 
; 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 VECTOR.
; compiling (DEFUN FIND-METHOD-MAPPED ...)
; compiling (DEFUN FIND-SORTS-IMAGE* ...)

; file: /«PKGBUILDDIR»/chaos/decafe/view.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN FIND-SORT-IMAGE* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/decafe/view-TMP.fasl written
; compilation finished in 0:00:00.270
; compiling file "/«PKGBUILDDIR»/chaos/decafe/mimport.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *IMPORT-SORT-MAP* ...)
; compiling (DEFUN IMPORT-MODULE ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mimport.lisp
; in: DEFUN IMPORT-MODULE-INTERNAL
;     `(:NAME ,CHAOS::MODNAME ,(1+ (THE FIXNUM CHAOS::NUM)))
; --> SB-IMPL::|List| 
; ==>
;   (LIST #:G343 #:G344 #:G345)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN IMPORT-MODULE-INTERNAL ...)
; compiling (DECLAIM (SPECIAL *IMPORT-LOCAL-VARS*))
; compiling (DEFVAR *IMPORT-LOCAL-VARS* ...)
; compiling (DECLAIM (SPECIAL *IMPORT-USE-DECL-FORM*))
; compiling (DEFVAR *IMPORT-USE-DECL-FORM* ...)
; compiling (DEFUN INCORPORATE-MODULE ...)
; compiling (DEFUN INCORPORATE-MODULE-SHARING ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mimport.lisp
; in: DEFUN INCORPORATE-MODULE-COPYING
;     (LABELS ((CHAOS::IMPORT-RECREATE-SORT (CHAOS::S)
;                (CHAOS::%COPY-SORT CHAOS::S CHAOS::MODULE NIL T))
;              (CHAOS::USING-RECREATE-SORT-IF-NEED (CHAOS::SORT_)
;                (IF (AND # #)
;                    (OR # #)
;                    CHAOS::SORT_))
;              (CHAOS::USING-FIND-SORT (CHAOS::_SORT)
;                (OR (CDR #) CHAOS::_SORT))
;              (CHAOS::USING-IMPORT-VAR (CHAOS::VAR)
;                (LET (# #)
;                  (LET #
;                    #)))
;              (CHAOS::USING-FIND-SORT-ERR (CHAOS::S)
;                (LET (#)
;                  (COND # # #)))
;              (CHAOS::USING-RECREATE-TERM (CHAOS::TERM)
;                (COND (# #) (# #) (# CHAOS::TERM) (T #)))
;              (CHAOS::USING-RECREATE-AXIOM (CHAOS::AXIOM)
;                (CHAOS::MAKE-RULE :LHS (CHAOS::USING-RECREATE-TERM #) :RHS
;                                  (CHAOS::USING-RECREATE-TERM #) :CONDITION
;                                  (IF #
;                                      CHAOS::*BOOL-TRUE*
;                                      #)
;                                  :LABELS (CHAOS::AXIOM-LABELS CHAOS::AXIOM) :TYPE
;                                  (CHAOS::AXIOM-TYPE CHAOS::AXIOM) :BEHAVIOURAL
;                                  ...))
;              (CHAOS::USING-IMPORT-SUB (CHAOS::S CHAOS::MODE)
;                (LET (#)
;                  (UNLESS # #)))
;              (CHAOS::USING-IMPORT-SUBS (CHAOS::SMOD)
;                (DOLIST (CHAOS::S #) (CHAOS::USING-IMPORT-SUB # #))))
;       (CHAOS::WITH-IN-MODULE (CHAOS::MODULE)
;         (CHAOS::USING-IMPORT-SUBS CHAOS::SUBMODULE)
;         (DOLIST (CHAOS::S (REVERSE #))
;           (LET (#)
;             (WHEN CHAOS::NEW-SORT #)))
;         (LET ((CHAOS::SO #))
;           (DOLIST (CHAOS::REL #)
;             (LET* #
;               #
;               #))
;           (CHAOS::GENERATE-ERR-SORTS CHAOS::SO))
;         (LET ((CHAOS::M-SO-FAR NIL))
;           (DOLIST (CHAOS::OPINFO #)
;             (LET #
;               #))
;           (DOLIST (CHAOS::OM-NM CHAOS::M-SO-FAR)
;             (LET #
;               #)))
;         (DOLIST (CHAOS::E (REVERSE #)) (CHAOS::EVAL-AST CHAOS::E))
;         (DOLIST (CHAOS::V (NREVERSE #)) (CHAOS::USING-IMPORT-VAR CHAOS::V))
;         (WHEN (AND (CHAOS::MODULE-PSORT-DECLARATION CHAOS::SUBMODULE) (NULL #))
;           (SETF # #))
;         (DOLIST (CHAOS::EOP (CHAOS::MODULE-ERROR-OP-DECL CHAOS::SUBMODULE))
;           (WHEN CHAOS::*ON-IMPORT-DEBUG*
;             (CHAOS::WITH-OUTPUT-MSG NIL
;               #
;               #
;               #
;               #))
;           (CHAOS::EVAL-AST CHAOS::EOP))
;         (DOLIST (CHAOS::MACRO (CHAOS::MODULE-MACROS CHAOS::SUBMODULE))
;           (LET (#)
;             (CHAOS::ADD-MACRO-TO-MODULE CHAOS::MODULE CHAOS::NEW-MACRO)))
;         (CHAOS::PREPARE-FOR-PARSING CHAOS::MODULE NIL T)
;         ...))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; 
; note: Return value count mismatch prevents known return from these functions:
;   USING-IMPORT-SUBS
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; compiling (DEFUN INCORPORATE-MODULE-COPYING ...)
; compiling (DEFUN TRANSFER-OPERATOR ...)

; file: /«PKGBUILDDIR»/chaos/decafe/mimport.lisp
; in: DEFUN MODEXP-ADD-METHOD-TO-TABLE
;     (PUSHNEW CHAOS::METHOD (CHAOS::OPINFO-METHODS CHAOS::OPINFO))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN MODEXP-ADD-METHOD-TO-TABLE ...)
; compiling (DEFUN TRANSFER-OPERATOR-ATTRIBUTES ...)
; compiling (DEFUN TRANSFER-OPERATOR-THEORY ...)
; compiling (DEFUN MODEXP-MERGE-OPERATOR-THEORY ...)
; compiling (DEFUN TRANSFER-OPERATOR-ATTRS ...)
; compiling (DEFPARAMETER *IMPORT-BOOL-AST* ...)
; compiling (DEFPARAMETER *IMPORT-HARD-WIRED-AST* ...)
; compiling (DEFUN INCLUDE-CHAOS-MODULE ...)
; compiling (DEFUN INCLUDE-BOOL ...)
; compiling (DEFPARAMETER *IMPORT-OBJECT-AST* ...)
; compiling (DEFUN INCLUDE-OBJECT ...)
; compiling (DEFPARAMETER *IMPORT-RECORD-AST* ...)
; compiling (DEFUN INCLUDE-RECORD ...)
; compiling (DEFPARAMETER *IMPORT-RWL-AST* ...)
; compiling (DEFUN INCLUDE-RWL ...)
; compiling (DEFUN IMPORT-VARIABLES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/decafe/mimport-TMP.fasl written
; compilation finished in 0:00:00.272
; compiling file "/«PKGBUILDDIR»/chaos/cafein/rengine.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR .TRACE-OR-STEP. ...)
; compiling (DEFTYPE TERM-HASH-KEY ...)
; compiling (DEFCONSTANT TERM-HASH-MASK ...)
; compiling (DEFCONSTANT TERM-HASH-SIZE ...)
; compiling (DEFMACRO METHOD-HAS-MEMO-SAFE ...)
; compiling (DECLAIM (INLINE TERM-HASH-EQUAL))

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN TERM-HASH-EQUAL
;     (SXHASH CHAOS::X)
; 
; 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 DOUBLE-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 SIMPLE-BIT-VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SYMBOL.
; compiling (DEFUN TERM-HASH-EQUAL ...)
; compiling (DECLAIM (INLINE TERM-HASH-EQ))

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN TERM-HASH-EQ
;     (CHAOS::ADDR-OF CHAOS::OBJECT)
; --> BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.
; compiling (DEFUN TERM-HASH-EQ ...)
; compiling (DECLAIM (INLINE TERM-HASH-COMB))

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN TERM-HASH-COMB
;     (+ CHAOS::X CHAOS::Y)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, 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 T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.
; compiling (DEFUN TERM-HASH-COMB ...)
; compiling (DEFSTRUCT TERM-HASH ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN 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 SINGLE-FLOAT.
; 
; 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 FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-BIT-VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SYMBOL.

;     (CHAOS::TERM-HASH-EQ CHAOS::TERM)
; --> BLOCK ASH + THE LOGAND THE CHAOS::ADDR-OF BLOCK LOGAND 
; ==>
;   (LOGAND 'SB-C::DUMMY 18446744073709551615)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 2) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.
; compiling (DEFUN HASH-TERM ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN DUMP-TERM-HASH
;     (LENGTH CHAOS::ENT)
; 
; 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 VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DOTIMES (CHAOS::X CHAOS::SIZE)
;       (LET ((CHAOS::ENT (SVREF CHAOS::TERM-HASH CHAOS::X)))
;         (WHEN CHAOS::ENT
;           (FORMAT T "~%[~3d]: ~d entrie(s)" CHAOS::X (LENGTH CHAOS::ENT))
;           (DOTIMES (CHAOS::Y #)
;             (LET #
;               #
;               #)))))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (MOD 4611686018427387905), not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.

; --> DO BLOCK LET TAGBODY PSETQ PROGN 
; ==>
;   (SETQ CHAOS::X (1+ CHAOS::X))
; 
; note: doing signed word to integer coercion (cost 20) to X
; compiling (DEFUN DUMP-TERM-HASH ...)
; compiling (DECLAIM (INLINE GET-HASHED-TERM))

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN GET-HASHED-TERM
;     (INCF CHAOS::*TERM-MEMO-HASH-HIT*)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::*TERM-MEMO-HASH-HIT*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN GET-HASHED-TERM ...)
; compiling (DECLAIM (INLINE SET-HASHED-TERM))
; compiling (DEFUN SET-HASHED-TERM ...)
; compiling (DEFVAR *TERM-MEMO-TABLE* ...)
; compiling (DEFVAR *MEMOIZED-MODULE* ...)
; compiling (DEFUN CREATE-TERM-MEMO-TABLE ...)
; compiling (DEFUN CLEAR-TERM-MEMO-TABLE ...)
; compiling (DEFVAR *CAFEIN-CURRENT-RULE* ...)
; compiling (DEFVAR *CAFEIN-CURRENT-SUBST* ...)
; compiling (DEFVAR *MATCHED-TO-STOP-PATTERN* ...)
; compiling (DEFUN SET-TERM-COLOR-TOP ...)
; compiling (DEFUN SET-TERM-COLOR ...)
; compiling (DEFMACRO BEH-CONTEXT-OK? ...)
; compiling (DECLAIM (INLINE APPLY-RULES-WITH-SAME-TOP ...))
; compiling (DEFVAR *MEMO-DEBUG* ...)
; compiling (DECLAIM (INLINE TERM-REPLACE-DD-SIMPLE))

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN TERM-REPLACE-DD-SIMPLE
;     (INCF CHAOS::*RULE-COUNT*)
; --> SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::*RULE-COUNT*))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN TERM-REPLACE-DD-SIMPLE ...)
; compiling (DECLAIM (SPECIAL *M-PATTERN-SUBST* ...))
; compiling (DEFVAR *M-PAT-DEBUG* ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN !APPLY-ONE-RULE
;     (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GLOBAL-STATE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::NEXT-MATCH-METHOD)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (>= CHAOS::$$TRIALS CHAOS::*CONDITION-TRIAL-LIMIT*)
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (FUNCALL
;      (OR (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::RULE)
;          (PROGN
;           (WHEN CHAOS::*CHAOS-VERBOSE*
;             (CHAOS::WITH-OUTPUT-CHAOS-WARNING NIL
;               #
;               #
;               #))
;           (CHAOS::COMPUTE-RULE-METHOD CHAOS::RULE)
;           (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::RULE)))
;      (CHAOS::RULE-LHS CHAOS::RULE) CHAOS::TERM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (OR (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::RULE)
;        (PROGN
;         (WHEN CHAOS::*CHAOS-VERBOSE*
;           (CHAOS::WITH-OUTPUT-CHAOS-WARNING NIL
;             #
;             #
;             #))
;         (CHAOS::COMPUTE-RULE-METHOD CHAOS::RULE)
;         (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::RULE))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (>= CHAOS::$$TRIALS CHAOS::*CONDITION-TRIAL-LIMIT*)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

;     (INCF CHAOS::$$MATCHES)
; --> SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::$$MATCHES))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (CHAOS::TERM-REPLACE-DD-SIMPLE CHAOS::TERM CHAOS::RHS-INSTANCE)
; --> THE PROGN BLOCK INCF SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::*RULE-COUNT*))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (LET ((CHAOS::$$COND
;            (CHAOS::SET-TERM-COLOR
;             (CHAOS::SUBSTITUTION-IMAGE-CP SUBST CONDITION)))
;           (CHAOS::*REWRITE-EXEC-MODE*
;            (IF CHAOS::*REWRITE-EXEC-CONDITION*
;                CHAOS::*REWRITE-EXEC-MODE*
;                NIL))
;           (CHAOS::$$TRIALS (1+ CHAOS::$$TRIALS)))
;       (CHAOS::NORMALIZE-TERM CHAOS::$$COND)
;       (WHEN CHAOS::*M-PATTERN-SUBST*
;         (DOLIST (CHAOS::SUB CHAOS::*M-PATTERN-SUBST*) (PUSH CHAOS::SUB SUBST))
;         (WHEN CHAOS::*M-PAT-DEBUG*
;           (FORMAT T "~%[subst-+] ")
;           (CHAOS::PRINT-SUBSTITUTION CHAOS::*M-PATTERN-SUBST*)
;           (FORMAT T "~&[subst-updated] ")
;           (CHAOS::PRINT-SUBSTITUTION SUBST)))
;       CHAOS::$$COND)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (INCF CHAOS::$$MATCHES)
; --> SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::$$MATCHES))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (CHAOS::TERM-REPLACE-DD-SIMPLE CHAOS::TERM CHAOS::RHS-INSTANCE)
; --> THE PROGN BLOCK INCF SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::*RULE-COUNT*))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (INCF CHAOS::$$MATCHES)
; --> SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::$$MATCHES))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (CHAOS::TERM-REPLACE-DD-SIMPLE CHAOS::TERM CHAOS::RHS-INSTANCE)
; --> THE PROGN BLOCK INCF SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::*RULE-COUNT*))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN !APPLY-ONE-RULE ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN TERM-REPLACE-DD-DBG
;     (INCF CHAOS::*RULE-COUNT*)
; --> SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::*RULE-COUNT*))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN TERM-REPLACE-DD-DBG ...)
; compiling (DEFUN APPLY-RULES-WITH-SAME-TOP ...)
; compiling (DEFUN APPLY-RULES-WITH-DIFFERENT-TOP ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN APPLY-RULES
;     (CHAOS::GET-HASHED-TERM CHAOS::TERM CHAOS::*TERM-MEMO-TABLE*)
; --> BLOCK LET LET* WHEN IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CHAOS::*TERM-MEMO-HASH-HIT*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN APPLY-RULES ...)
; compiling (DEFUN APPLY-A-EXTENSIONS ...)
; compiling (DEFUN APPLY-AC-EXTENSION ...)
; compiling (DEFUN RULE-EVAL-TERM ...)
; compiling (DEFUN RULE-EVAL-ID-CONDITION ...)
; compiling (DEFUN APPLY-RULE ...)
; compiling (DEFUN REDUCE-TERM ...)
; compiling (DEFUN REWRITE ...)
; compiling (DEFUN REWRITE* ...)
; compiling (DEFUN REWRITE-EXEC ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN TERM-MEMO-GET-NORMAL-FORM
;     (CHAOS::GET-HASHED-TERM CHAOS::TERM CHAOS::*TERM-MEMO-TABLE*)
; --> BLOCK LET LET* WHEN IF PROGN INCF SETQ THE 
; ==>
;   (+ 1 CHAOS::*TERM-MEMO-HASH-HIT*)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN TERM-MEMO-GET-NORMAL-FORM ...)
; compiling (DEFMACRO CHECK-CLOSED-WORLD-ASSUMPTION ...)
; compiling (DEFUN NORMALIZE-TERM ...)
; compiling (DEFUN !NORMALIZE-TERM ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN PRINT-TRACE-IN
;     (FORMAT *TRACE-OUTPUT* "~%~d>[~a] " CHAOS::*TRACE-LEVEL*
;             (1+ CHAOS::*RULE-COUNT*))
; --> FORMAT LAMBDA FUNCTION BLOCK 
; ==>
;   (PRINC #:FORMAT-ARG1266 STREAM)
; 
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN PRINT-TRACE-IN ...)
; compiling (DEFUN PRINT-TRACE-OUT ...)
; compiling (DEFUN CAFEIN-PATTERN-MATCH ...)
; compiling (DEFUN CHECK-STOP-PATTERN ...)
; compiling (DEFPARAMETER CAFEIN-STEPPER-PROCS ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; 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 CONS NULL VECTOR).

;     (FUNCALL (CDR CHAOS::PROC) CHAOS::INP)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CDR CHAOS::PROC))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (DECF (THE FIXNUM CHAOS::*STEPS-TO-BE-DONE*))
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (THE FIXNUM (VALUES #:NEW1441))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN CAFEIN-STEPPER ...)
; compiling (DEFVAR *STEP-COMMANDS* ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; 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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN GET-STEP-COMMAND ...)
; compiling (SETQ *STEP-COMMANDS* ...)
; compiling (DEFUN CAFEIN-REWRITE-COUNT-LIMIT-PROC ...)
; compiling (DEFUN PARSE-STOP-AT ...)
; compiling (DEFUN CAFEIN-STOP-AT-PROC ...)
; compiling (DEFUN CAFEIN-GO-STEP-PROC ...)
; compiling (DEFUN CAFEIN-NEXT-STEP-PROC ...)
; compiling (DEFUN CAFEIN-CONTINUE-STEP-PROC ...)
; compiling (DEFUN CAFEIN-ABORT-STEP-PROC ...)
; compiling (DEFUN CAFEIN-STEP-SHOW-RULE-PROC ...)
; compiling (DEFUN CAFEIN-STEP-SHOW-SUBST-PROC ...)
; compiling (DEFUN CAFEIN-STEPPER-HELP-PROC ...)
; compiling (DEFUN CAFEIN-SHOW-REWRITE-LIMIT ...)
; compiling (DEFUN CAFEIN-SHOW-STOP-PATTERN ...)
; compiling (DEFUN CAFEIN-SHOW-CONTEXT-TERM ...)
; compiling (DEFUN REW-MATCHER ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN APPLY-ONE-RULE
;     ('CHAOS::|:m-and-also| CHAOS::*BOOL-AND-ALSO*)
; 
; caught STYLE-WARNING:
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('|:m-and| *BOOL-AND*), and the second clause:
;     ('|:m-and-also| *BOOL-AND-ALSO*).

;     ('CHAOS::|:m-or| CHAOS::*BOOL-OR*)
; 
; caught STYLE-WARNING:
;   Duplicate key QUOTE in CASE form, occurring in the second clause:
;     ('|:m-and-also| *BOOL-AND-ALSO*), and the third clause:
;     ('|:m-or| *BOOL-OR*).

;     ('CHAOS::|:m-or-else| CHAOS::*BOOL-OR-ELSE*)
; 
; caught STYLE-WARNING:
;   Duplicate key QUOTE in CASE form, occurring in the third clause:
;     ('|:m-or| *BOOL-OR*), and the fourth clause:
;     ('|:m-or-else| *BOOL-OR-ELSE*).

;     (CHAOS::TERM-REPLACE-DD-SIMPLE CHAOS::TERM CHAOS::NEW-RHS)
; --> THE PROGN BLOCK INCF SETQ 
; ==>
;   (THE FIXNUM (+ 1 CHAOS::*RULE-COUNT*))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN APPLY-ONE-RULE ...)
; compiling (DEFVAR .MEMB-TERM-HASH. ...)
; compiling (DEFVAR .MEMB-LAST-MODULE. ...)
; compiling (DEFUN CLEAR-MEMB-HASH ...)
; compiling (DEFUN GET-MEMB-HASH ...)
; compiling (DEFUN SET-MEMB-HASH ...)
; compiling (DEFUN APPLY-SORT-MEMB ...)
; compiling (DEFUN SORT-TO-SORT-ID-TERM ...)
; compiling (DECLAIM (SPECIAL .SORT-MEMB-NESTING.))
; compiling (DEFVAR .SORT-MEMB-NESTING. ...)
; compiling (DEFPARAMETER .SORT-MEMB-NESTING-LIMIT. ...)

; file: /«PKGBUILDDIR»/chaos/cafein/rengine.lisp
; in: DEFUN APPLY-SORT-MEMB-INTERNAL
;     (CHAOS::SUB-OR-EQUAL-SORTS SORT CHAOS::*CURRENT-SORT-ORDER*)
; --> LET IF CONS CHAOS::ERR-SORT-LOWERS TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SORT
; 
; note: deleting unreachable code

;     (1+ CHAOS::.SORT-MEMB-NESTING.)
; ==>
;   (+ CHAOS::.SORT-MEMB-NESTING. 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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 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.)
; ==>
;   (+ CHAOS::.SORT-MEMB-NESTING. 1)
; 
; 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.
; compiling (DEFUN APPLY-SORT-MEMB-INTERNAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/cafein/rengine-TMP.fasl written
; compilation finished in 0:00:00.525
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "cafein" "rengine">
; compiling file "/«PKGBUILDDIR»/chaos/cafein/cbred.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL *CBRED-TRACE-FLAG*))
; compiling (DEFVAR *CBRED-TRACE-FLAG* ...)
; compiling (DECLAIM (SPECIAL *COBASIS* ...))
; compiling (DEFVAR *COBASIS* ...)
; compiling (DEFVAR *COBASIS-OPS* ...)
; compiling (DEFVAR *CO-RULES* ...)
; compiling (DEFUN MAKE-COBASIS-PATTERN ...)
; compiling (DEFVAR .CBRED-NEW-VARIABLE-NAME. ...)

; file: /«PKGBUILDDIR»/chaos/cafein/cbred.lisp
; in: DEFUN CBRED-MAKE-NEW-VARIABLE
;     (INCF CHAOS::VARNUM)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::VARNUM)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (LET (#) ...)

; file: /«PKGBUILDDIR»/chaos/cafein/cbred.lisp
; in: DEFUN EXPAND-GOAL-BY-COB
;     (FLET ((CHAOS::EXPAND (CHAOS::TERM CHAOS::COB)
;              (LET (# # #)
;                (DOLIST # #)
;                (CHAOS::APPLY-SUBST SUBST CHAOS::SUBST-PAT))))
;       (LET ((CHAOS::LHS (CHAOS::EXPAND # CHAOS::COB))
;             (CHAOS::RHS (CHAOS::EXPAND # CHAOS::COB)))
;         (LET ((CHAOS::VARS #) (SUBST NIL))
;           (SETQ CHAOS::VARS #)
;           (DOLIST (CHAOS::V CHAOS::VARS) (PUSH # SUBST))
;           (SETQ CHAOS::LHS #)
;           (SETQ CHAOS::RHS #)
;           (CONS CHAOS::LHS CHAOS::RHS))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; compiling (DEFUN EXPAND-GOAL-BY-COB ...)

; file: /«PKGBUILDDIR»/chaos/cafein/cbred.lisp
; in: DEFUN APPLY-CO-RULES
;     (PUSHNEW (CAR (CHAOS::RULE-LABELS CHAOS::RULE)) CHAOS::APPLIED)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN APPLY-CO-RULES ...)
; compiling (DEFUN CBRED-PRINT-TERM-PAIR ...)

; file: /«PKGBUILDDIR»/chaos/cafein/cbred.lisp
; in: DEFUN NEXT-CRULE-LABEL
;     (INCF CHAOS::.CRULE-LABEL-NUM.)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::.CRULE-LABEL-NUM.)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (LET (#) ...)
; compiling (DEFUN CBRED-GOAL ...)

; file: /«PKGBUILDDIR»/chaos/cafein/cbred.lisp
; in: DEFUN FIND-OCC
;     (FUNCALL CHAOS::PREDICATE CHAOS::TERM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PREDICATE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (1+ CHAOS::NUM-IF)
; ==>
;   (+ CHAOS::NUM-IF 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.

;     (1+ CHAOS::NUM-IF)
; ==>
;   (+ CHAOS::NUM-IF 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN FIND-OCC ...)
; compiling (DEFUN CBRED-ORIENT-RULE ...)
; compiling (DEFUN ADD-NEW-CRULE ...)
; compiling (DEFUN TERM-CONTAINS-BEH-CONTEXT ...)
; compiling (DEFUN CBRED-DEDUCE ...)
; compiling (DEFUN DO-CBRED ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/cafein/cbred-TMP.fasl written
; compilation finished in 0:00:00.113
; compiling file "/«PKGBUILDDIR»/chaos/cafein/reducer.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/chaos/cafein/reducer.lisp
; in:
;      DECLAIM (INLINE BEGIN-PARSE END-PARSE TIME-FOR-PARSING-IN-SECONDS
;           BEGIN-REWRITE END-REWRITE TIME-FOR-REWRITING-IN-SECONDS
;           NUMBER-METCHES NUMBER-REWRITINGS NUMBER-MEMO-HITS CLEAR-REWRITING-FC
;           PREPARE-TERM ...)
;     (DECLAIM
;      (INLINE CHAOS::BEGIN-PARSE CHAOS::END-PARSE
;       CHAOS::TIME-FOR-PARSING-IN-SECONDS CHAOS::BEGIN-REWRITE CHAOS::END-REWRITE
;       CHAOS::TIME-FOR-REWRITING-IN-SECONDS CHAOS::NUMBER-METCHES
;       CHAOS::NUMBER-REWRITINGS CHAOS::NUMBER-MEMO-HITS CHAOS::CLEAR-REWRITING-FC
;       CHAOS::PREPARE-TERM ...))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(INLINE CHAOS::BEGIN-PARSE CHAOS::END-PARSE
;      CHAOS::TIME-FOR-PARSING-IN-SECONDS CHAOS::BEGIN-REWRITE CHAOS::END-REWRITE
;      CHAOS::TIME-FOR-REWRITING-IN-SECONDS CHAOS::NUMBER-METCHES
;      CHAOS::NUMBER-REWRITINGS CHAOS::NUMBER-MEMO-HITS CHAOS::CLEAR-REWRITING-FC
;      CHAOS::PREPARE-TERM ...)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CHAOS::REDUCER-NO-STAT 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.
; compiling (DECLAIM (INLINE BEGIN-PARSE ...))

; file: /«PKGBUILDDIR»/chaos/cafein/reducer.lisp
; in: DEFUN BEGIN-PARSE
;     (DEFUN CHAOS::BEGIN-PARSE ()
;       (SETF CHAOS::PARSE-BEGIN-TIME (GET-INTERNAL-RUN-TIME)))
; 
; note: lexical environment too hairy, can't inline DEFUN BEGIN-PARSE

; in: DEFUN END-PARSE
;     (DEFUN CHAOS::END-PARSE ()
;       (SETF CHAOS::TIME-FOR-PARSING
;               (CHAOS::ELAPSED-TIME-IN-SECONDS CHAOS::PARSE-BEGIN-TIME
;                                               (GET-INTERNAL-RUN-TIME))))
; 
; note: lexical environment too hairy, can't inline DEFUN END-PARSE

; in: DEFUN TIME-FOR-PARSING-IN-SECONDS
;     (DEFUN CHAOS::TIME-FOR-PARSING-IN-SECONDS () CHAOS::TIME-FOR-PARSING)
; 
; note: lexical environment too hairy, can't inline DEFUN TIME-FOR-PARSING-IN-SECONDS

; in: DEFUN BEGIN-REWRITE
;     (DEFUN CHAOS::BEGIN-REWRITE ()
;       (SETF CHAOS::REWRITE-BEGIN-TIME (GET-INTERNAL-RUN-TIME)))
; 
; note: lexical environment too hairy, can't inline DEFUN BEGIN-REWRITE

; in: DEFUN END-REWRITE
;     (DEFUN CHAOS::END-REWRITE ()
;       (SETF CHAOS::TIME-FOR-REWRITING
;               (CHAOS::ELAPSED-TIME-IN-SECONDS CHAOS::REWRITE-BEGIN-TIME
;                                               (GET-INTERNAL-RUN-TIME))))
; 
; note: lexical environment too hairy, can't inline DEFUN END-REWRITE

; in: DEFUN TIME-FOR-REWRITING-IN-SECONDS
;     (DEFUN CHAOS::TIME-FOR-REWRITING-IN-SECONDS () CHAOS::TIME-FOR-REWRITING)
; 
; note: lexical environment too hairy, can't inline DEFUN TIME-FOR-REWRITING-IN-SECONDS

; in: DEFUN NUMBER-REWRITINGS
;     (DEFUN CHAOS::NUMBER-REWRITINGS () CHAOS::*RULE-COUNT*)
; 
; note: lexical environment too hairy, can't inline DEFUN NUMBER-REWRITINGS

; in: DEFUN NUMBER-MEMO-HITS
;     (DEFUN CHAOS::NUMBER-MEMO-HITS () CHAOS::*TERM-MEMO-HASH-HIT*)
; 
; note: lexical environment too hairy, can't inline DEFUN NUMBER-MEMO-HITS

; in: DEFUN CLEAR-REWRITING-FC
;     (DEFUN CHAOS::CLEAR-REWRITING-FC (CHAOS::MODULE CHAOS::MODE)
;       (SETF CHAOS::*M-PATTERN-SUBST* NIL
;             CHAOS::.RWL-CONTEXT-STACK. NIL
;             CHAOS::.RWL-SCH-CONTEXT. NIL
;             CHAOS::.RWL-STATES-SO-FAR. 0
;             CHAOS::*STEPS-TO-BE-DONE* 1
;             CHAOS::*DO-EMPTY-MATCH* NIL
;             ...))
; 
; note: lexical environment too hairy, can't inline DEFUN CLEAR-REWRITING-FC

; in: DEFUN PREPARE-TERM
;     (DEFUN CHAOS::PREPARE-TERM (CHAOS::PRE-TERM CHAOS::MODULE)
;       (DECLARE (TYPE CHAOS::MODULE CHAOS::MODULE))
;       (CHAOS::PREPARE-FOR-PARSING CHAOS::MODULE)
;       (CHAOS::RESET-PARSE-TIME)
;       (IF (CHAOS::TERMP CHAOS::PRE-TERM)
;           (SETQ CHAOS::$$TARGET-TERM CHAOS::PRE-TERM)
;           (PROGN
;            (CHAOS::BEGIN-PARSE)
;            (LET* (# #)
;              (CHAOS::END-PARSE)
;              (WHEN # #)
;              (SETQ #))))
;       (CHAOS::RESET-TARGET-TERM CHAOS::$$TARGET-TERM CHAOS::MODULE CHAOS::MODULE)
;       CHAOS::$$TARGET-TERM)
; 
; note: lexical environment too hairy, can't inline DEFUN PREPARE-TERM

; in: DEFUN RESET-REWRITE-COUNTERS
;     (DEFUN CHAOS::RESET-REWRITE-COUNTERS ()
;       (SETF CHAOS::$$MATCHES 0
;             CHAOS::*RULE-COUNT* 0
;             CHAOS::*TERM-MEMO-HASH-HIT* 0))
; 
; note: lexical environment too hairy, can't inline DEFUN RESET-REWRITE-COUNTERS

; in: DEFUN PREPARE-REDUCTION-ENV
;     (DEFUN CHAOS::PREPARE-REDUCTION-ENV
;            (CHAOS::TERM CHAOS::CONTEXT-MODULE CHAOS::MODE CHAOS::STAT-RESET)
;       (LET ((CHAOS::MODULE
;              (IF #
;                  CHAOS::CONTEXT-MODULE
;                  #)))
;         (UNLESS (CHAOS::MODULE-P CHAOS::MODULE)
;           (CHAOS::WITH-OUTPUT-CHAOS-ERROR ('CHAOS::INVALID-CONTEXT)
;             (FORMAT T "Invalid context module ~s" CHAOS::CONTEXT-MODULE)))
;         (CHAOS::RESET-TERM-MEMO-TABLE CHAOS::MODULE)
;         (CHAOS::PREPARE-TERM CHAOS::TERM CHAOS::MODULE)
;         (WHEN CHAOS::STAT-RESET (CHAOS::RESET-REWRITE-COUNTERS))
;         (CHAOS::CLEAR-REWRITING-FC CHAOS::MODULE CHAOS::MODE)
;         CHAOS::MODULE))
; 
; note: lexical environment too hairy, can't inline DEFUN PREPARE-REDUCTION-ENV

; in: DEFUN REDUCER
;     (DEFUN CHAOS::REDUCER (CHAOS::TERM CHAOS::CONTEXT-MODULE CHAOS::REWRITE-MODE)
;       (CHAOS::WITH-IN-MODULE ((CHAOS::PREPARE-REDUCTION-ENV CHAOS::TERM
;                                CHAOS::CONTEXT-MODULE CHAOS::REWRITE-MODE T))
;         (CHAOS::!SETUP-REDUCTION CHAOS::*CURRENT-MODULE*)
;         (CHAOS::BEGIN-REWRITE)
;         (CATCH 'CHAOS::REWRITE-ABORT
;           (IF CHAOS::*REWRITE-EXEC-MODE*
;               (CHAOS::REWRITE-EXEC CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                                    CHAOS::REWRITE-MODE)
;               (CHAOS::REWRITE CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                               CHAOS::REWRITE-MODE)))
;         (CHAOS::END-REWRITE)
;         CHAOS::$$TERM))
; 
; note: lexical environment too hairy, can't inline DEFUN REDUCER

; in: DEFUN REDUCER-NO-STAT
;     (DEFUN CHAOS::REDUCER-NO-STAT
;            (CHAOS::TERM CHAOS::CONTEXT-MODULE CHAOS::REWRITE-MODE)
;       (CHAOS::WITH-IN-MODULE ((CHAOS::PREPARE-REDUCTION-ENV CHAOS::TERM
;                                CHAOS::CONTEXT-MODULE CHAOS::REWRITE-MODE NIL))
;         (CHAOS::!SETUP-REDUCTION CHAOS::*CURRENT-MODULE*)
;         (CATCH 'CHAOS::REWRITE-ABORT
;           (IF CHAOS::*REWRITE-EXEC-MODE*
;               (CHAOS::REWRITE-EXEC CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                                    CHAOS::REWRITE-MODE)
;               (CHAOS::REWRITE CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                               CHAOS::REWRITE-MODE))))
;       CHAOS::$$TERM)
; 
; note: lexical environment too hairy, can't inline DEFUN REDUCER-NO-STAT

; in: DEFUN GENERATE-STATISTICS-FORM-REWRITING-ONLY
;     (ZEROP (CHAOS::NUMBER-MEMO-HITS))
; ==>
;   (= (CHAOS::NUMBER-MEMO-HITS) 0)
; 
; 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 because: The operands might not be the same type.

; in: DEFUN GENERATE-STATISTICS-FORM
;     (ZEROP (CHAOS::NUMBER-MEMO-HITS))
; ==>
;   (= (CHAOS::NUMBER-MEMO-HITS) 0)
; 
; 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 because: The operands might not be the same type.

; in: DEFUN SIMPLIFY-ON-TOP
;     (CATCH 'CHAOS::REWRITE-ABORT
;       (IF (CHAOS::TERM-IS-APPLICATION-FORM? CHAOS::TERM)
;           (CHAOS::APPLY-RULES-WITH-DIFFERENT-TOP CHAOS::TERM
;                                                  (CHAOS::METHOD-RULES-WITH-DIFFERENT-TOP
;                                                   (CHAOS::TERM-METHOD
;                                                    CHAOS::TERM)))
;           CHAOS::TERM))
; ==>
;   (BLOCK #:EXIT-BLOCK-13
;     (SB-C::%WITHIN-CLEANUP :CATCH
;                            (SB-C::%CATCH (SB-C::%ESCAPE-FUN #:EXIT-BLOCK-13)
;                             'CHAOS::REWRITE-ABORT)
;                            (IF (CHAOS::TERM-IS-APPLICATION-FORM? CHAOS::TERM)
;                                (CHAOS::APPLY-RULES-WITH-DIFFERENT-TOP
;                                 CHAOS::TERM
;                                 (CHAOS::METHOD-RULES-WITH-DIFFERENT-TOP #))
;                                CHAOS::TERM)))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM #:EXIT-BLOCK-13 (SB-C::%UNKNOWN-VALUES)). Use GO/RETURN-FROM with
; SAFETY 0, or declare the exit function DYNAMIC-EXTENT to avoid.

; in: DEFUN REDUCER-NO-STAT
;     (CATCH 'CHAOS::REWRITE-ABORT
;       (IF CHAOS::*REWRITE-EXEC-MODE*
;           (CHAOS::REWRITE-EXEC CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                                CHAOS::REWRITE-MODE)
;           (CHAOS::REWRITE CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                           CHAOS::REWRITE-MODE)))
; ==>
;   (BLOCK #:EXIT-BLOCK-11
;     (SB-C::%WITHIN-CLEANUP :CATCH
;                            (SB-C::%CATCH (SB-C::%ESCAPE-FUN #:EXIT-BLOCK-11)
;                             'CHAOS::REWRITE-ABORT)
;                            (IF CHAOS::*REWRITE-EXEC-MODE*
;                                (CHAOS::REWRITE-EXEC CHAOS::$$TARGET-TERM
;                                                     CHAOS::*CURRENT-MODULE*
;                                                     CHAOS::REWRITE-MODE)
;                                (CHAOS::REWRITE CHAOS::$$TARGET-TERM
;                                                CHAOS::*CURRENT-MODULE*
;                                                CHAOS::REWRITE-MODE))))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM #:EXIT-BLOCK-11 (SB-C::%UNKNOWN-VALUES)). Use GO/RETURN-FROM with
; SAFETY 0, or declare the exit function DYNAMIC-EXTENT to avoid.

; in: DEFUN REDUCER
;     (CATCH 'CHAOS::REWRITE-ABORT
;       (IF CHAOS::*REWRITE-EXEC-MODE*
;           (CHAOS::REWRITE-EXEC CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                                CHAOS::REWRITE-MODE)
;           (CHAOS::REWRITE CHAOS::$$TARGET-TERM CHAOS::*CURRENT-MODULE*
;                           CHAOS::REWRITE-MODE)))
; ==>
;   (BLOCK #:EXIT-BLOCK-9
;     (SB-C::%WITHIN-CLEANUP :CATCH
;                            (SB-C::%CATCH (SB-C::%ESCAPE-FUN #:EXIT-BLOCK-9)
;                             'CHAOS::REWRITE-ABORT)
;                            (IF CHAOS::*REWRITE-EXEC-MODE*
;                                (CHAOS::REWRITE-EXEC CHAOS::$$TARGET-TERM
;                                                     CHAOS::*CURRENT-MODULE*
;                                                     CHAOS::REWRITE-MODE)
;                                (CHAOS::REWRITE CHAOS::$$TARGET-TERM
;                                                CHAOS::*CURRENT-MODULE*
;                                                CHAOS::REWRITE-MODE))))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM #:EXIT-BLOCK-9 (SB-C::%UNKNOWN-VALUES)). Use GO/RETURN-FROM with
; SAFETY 0, or declare the exit function DYNAMIC-EXTENT to avoid.
; compiling (LET (# # ...) ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/cafein/reducer-TMP.fasl written
; compilation finished in 0:00:00.156
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "cafein" "reducer">
; compiling file "/«PKGBUILDDIR»/chaos/tools/regcheck.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (SOP # ...) ...)
; compiling (DEFUN PRINT-SOP ...)
; compiling (DEFUN IS-SORT-MARKED? ...)
; compiling (DEFUN MARK-SORT ...)
; compiling (DEFUN UNMARK-SORTS ...)
; compiling (DEFMACRO GET-UNMARKED-SORTS ...)
; compiling (DEFUN CHECK-SIGNATURE-EMPTIES ...)
; compiling (DEFVAR *REGULARIZE-GLB-SORTS-SO-FAR* ...)
; compiling (DEFVAR *REGULARIZE-SORTS-TO-BE-ADDED* ...)
; compiling (DEFVAR *REGULARIZE-METHODS-SO-FAR* ...)
; compiling (DEFVAR *REGULARIZE-METHODS-TO-BE-ADDED* ...)
; compiling (DEFVAR *REGULARIZE-OPTIMIZE* ...)

; file: /«PKGBUILDDIR»/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 CONS NULL VECTOR).
; compiling (DEFUN REGULARIZE-MAKE-GLB ...)
; compiling (DEFUN REG-DIRECT-SUBSORTS ...)
; compiling (DEFUN REG-SUB-OR-EQUAL-SORTS ...)
; compiling (DEFUN REG-DIRECT-SUB-OR-EQUAL-SORTS ...)
; compiling (DEFUN REG-SORT<= ...)
; compiling (DEFUN REG-SORT-INCLUDED ...)
; compiling (DEFUN REG-SORT-LIST<= ...)
; compiling (DEFUN REG-SORT< ...)
; compiling (DEFUN REG-SORT-LIST= ...)
; compiling (DEFUN EXAMINE-REGULARITY ...)
; compiling (DEFUN REG-REPORT-METHOD ...)
; compiling (DEFUN REG-METHOD-ARITY ...)
; compiling (DEFUN REG-METHOD-COARITY ...)
; compiling (DEFUN CHECK-METHOD-REDUNDANCY ...)
; compiling (DEFUN CHECK-REGULARITY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/regcheck-TMP.fasl written
; compilation finished in 0:00:00.246
; compiling file "/«PKGBUILDDIR»/chaos/tools/regularize.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/chaos/tools/regularize.lisp
; in: DEFUN REGULARIZE-SIGNATURE-INTERNAL
;     (PUSHNEW CHAOS::METH (CHAOS::MODULE-METHODS-FOR-REGULARITY CHAOS::MODULE))
; --> LET* ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN REGULARIZE-SIGNATURE-INTERNAL ...)

; file: /«PKGBUILDDIR»/chaos/tools/regularize.lisp
; in: DEFUN REGULARIZE-SIGNATURE
;     (CHAOS::MARK-NEED-PARSING-PREPARATION CHAOS::MODULE)
; --> SETF LET* MIN LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> SETF LET* MIN LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> SETF LET* MIN LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN REGULARIZE-SIGNATURE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/regularize-TMP.fasl written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/chaos/tools/describe.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FILTER-HARD-SORTS ...)
; compiling (DEFUN FILTER-HARD-OPINFOS ...)
; compiling (DEFPARAMETER .SEPARATOR-BOLD. ...)
; compiling (DEFPARAMETER .SEPARATOR-THIN. ...)
; compiling (DEFPARAMETER .UNDER-LINE. ...)
; compiling (DEFUN DESCRIBE-MODULE ...)
; compiling (DEFUN DESCRIBE-OPERATOR-BRIEF ...)
; compiling (DEFUN DESCRIBE-SORT ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (DOTIMES (CHAOS::X CHAOS::.TERMINAL-WIDTH.) (PRINC "="))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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, not a FIXNUM.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::X 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::X CHAOS::.TERMINAL-WIDTH.) (PRINC "-"))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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, not a FIXNUM.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::X 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.
; compiling (DEFUN DESCRIBE-OPERATOR ...)
; compiling (DEFUN PRINT-MERGED ...)
; compiling (DEFUN SHOW-MODULE ...)
; compiling (DEFUN IGNORE-FROM-IMPORT-LIST ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (ASSOC (CAR CHAOS::SB) (CHAOS::MODULE-ALIAS MOD))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::VARIABLE-NAME (CDR CHAOS::V)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (CHAOS::MODULE-IS-READY-FOR-REWRITING MOD)
; --> >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN SHOW-MODULE-IN-CAFEOBJ-SYNTAX ...)
; compiling (DEFUN SHOW-MODULE-IN-CHAOS-SYNTAX ...)
; compiling (DEFUN SORTS-TO-BE-SHOWN ...)
; compiling (DEFUN PRINT-MODULE-SORTS ...)
; compiling (DEFUN PRINT-OUT-SORTS ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; in: DEFUN PRINT-OUT-SORT
;     (FUNCALL CHAOS::PRINTER CHAOS::S MOD)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::PRINTER CHAOS::SUPER MOD)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::PRINTER CHAOS::SUB MOD)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRINTER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PRINT-OUT-SORT ...)
; compiling (DEFUN MODULE-OWN-OP-METHODS ...)
; compiling (DEFUN OPS-TO-BE-SHOWN ...)
; compiling (DEFUN PRINT-MODULE-OPS ...)
; compiling (DEFUN PRINT-MODULE-EQS ...)
; compiling (DEFUN PRINT-MODULE-RLS ...)
; compiling (DEFUN PRINT-MODULE-AXS ...)
; compiling (DEFUN PRINT-MODULE-RULES ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; in: DEFUN GET-NON-PARAMETER-SUBMODULES
;     (MEMBER (CAR CHAOS::SB) CHAOS::SKIP)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN GET-NON-PARAMETER-SUBMODULES ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; in: DEFUN PRINT-SUBMODULE-LIST
;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PRINT-SUBMODULE-LIST ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; in: DEFUN PRINT-MODULE-SUBMODULES
;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PRINT-MODULE-SUBMODULES ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PRINT-MODULE-PARAMETERS ...)
; compiling (DEFUN PRINT-MODULE-SORT ...)

; file: /«PKGBUILDDIR»/chaos/tools/describe.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PRINT-MODULE-VARIABLES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/describe-TMP.fasl written
; compilation finished in 0:00:00.307
; compiling file "/«PKGBUILDDIR»/chaos/tools/sort-tree.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MAKE-MODULE-SORT-TREE ...)
; compiling (DEFUN MAKE-SORT-TREE ...)
; compiling (DEFUN PRINT-SORT-TREE ...)
; compiling (DEFUN PRINT-SORT-GRAPH ...)

; file: /«PKGBUILDDIR»/chaos/tools/sort-tree.lisp
; in: DEFUN !PRINT-SORT-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN !PRINT-SORT-TREE ...)
; compiling (DEFUN PRINT-MODULE-SORT-TREE ...)
; compiling (DEFUN PRINT-MODULE-SORT-GRAPH ...)

; file: /«PKGBUILDDIR»/chaos/tools/sort-tree.lisp
; in: DEFUN !PRINT-MODULE-SORT-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN !PRINT-MODULE-SORT-TREE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/sort-tree-TMP.fasl written
; compilation finished in 0:00:00.031
; compiling file "/«PKGBUILDDIR»/chaos/tools/module-tree.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MAKE-SUBMODULE-TREE ...)
; compiling (DEFUN MAKE-MODULE-TREE ...)
; compiling (DEFUN PRINT-MODULE-TREE ...)
; compiling (DEFUN PRINT-MODULE-GRAPH ...)

; file: /«PKGBUILDDIR»/chaos/tools/module-tree.lisp
; in: DEFUN !PRINT-MODULE-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN !PRINT-MODULE-TREE ...)
; compiling (DEFUN GET-MODEXP-CHILDREN ...)

; file: /«PKGBUILDDIR»/chaos/tools/module-tree.lisp
; in: DEFUN PRINT-MODEXP-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PRINT-MODEXP-TREE ...)
; compiling (DEFUN PRINT-SUBS-LIST ...)
; compiling (DEFUN PRINT-MOD-NAME-X ...)
; compiling (DEFUN PRINT-MOD-NAME-INTERNAL-X ...)
; compiling (DEFVAR .MOD-DUP-HASH. ...)
; compiling (DEFUN DESCRIBE-MODULE-TREE ...)
; compiling (DEFUN DESCRIBE-MODULE-GRAPH ...)
; compiling (DEFUN PR-IMP-MODE ...)
; compiling (DEFUN MOD-NAME-IS-PARAMETER ...)

; file: /«PKGBUILDDIR»/chaos/tools/module-tree.lisp
; in: DEFUN D-MODULE-TREE*
;     (FORMAT STREAM "~a: " CHAOS::NUM)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG289 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (PRINC #:FORMAT-ARG289 STREAM)
;               (WRITE-STRING ": " STREAM))
;             NIL)
;           #:G288)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (INCF CHAOS::Y-NUM)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::Y-NUM)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN D-MODULE-TREE* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/module-tree-TMP.fasl written
; compilation finished in 0:00:00.071
; compiling file "/«PKGBUILDDIR»/chaos/tools/show.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN SHOW-CONTEXT ...)
; compiling (DEFUN SHOW-BINDINGS ...)
; compiling (DEFUN SHOW-STOP-PATTERN ...)
; compiling (DEFUN SHOW-APPLY-SELECTION ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; in: DEFUN SHOW-SELECTION-STACK
;     (INCF CHAOS::DEPTH)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::DEPTH)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (1- CHAOS::DEPTH)
; ==>
;   (- CHAOS::DEPTH 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 INTEGER &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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (DOTIMES (CHAOS::I (1- CHAOS::DEPTH)) (PRINC "    "))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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, not a FIXNUM.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::I 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)
; --> SETQ 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.
; compiling (DEFUN SHOW-SELECTION-STACK ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; 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 "   "))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::I 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 "   "))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::I 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.

; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::I 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)
; --> SETQ 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.
; compiling (DEFUN PRINT-PENDING ...)
; compiling (DEFUN SHOW-TERM ...)
; compiling (DEFUN PRINT-MOD ...)
; compiling (DEFUN SHOW-VIEW ...)
; compiling (DEFUN SHOW-SORTS ...)
; compiling (DEFUN SHOW-OPS ...)
; compiling (DEFUN SHOW-SIGN ...)
; compiling (DEFUN PRINT-VARS ...)
; compiling (DEFUN PRINT-EQS ...)
; compiling (DEFUN PRINT-AXS ...)
; compiling (DEFUN PRINT-RLS ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; in: DEFUN PRINT-RULES
;     (INCF CHAOS::I)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::I)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN PRINT-RULES ...)
; compiling (DEFUN PRINT-SUBS ...)
; compiling (DEFUN PRINT-PARAMS ...)
; compiling (DEFUN TOP-PRINT-NAME ...)
; compiling (DEFUN PRINT-PRINCIPAL-SORT ...)
; compiling (DEFUN SHOW-SORT ...)
; compiling (DEFUN PARSE-OP-NAME ...)
; compiling (DEFUN GET-MODULE-FROM-OPREF ...)
; compiling (DEFUN RESOLVE-OPERATOR-REFERENCE ...)
; compiling (DEFUN SHOW-OP ...)
; compiling (DEFUN SHOW-SUB ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; in: DEFUN SHOW-PARAM
;     (1+ CHAOS::NO)
; ==>
;   (+ CHAOS::NO 1)
; 
; 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.
; compiling (DEFUN SHOW-PARAM ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; in: DEFUN PRINT-MODULES
;     (< 0 (CHAOS::FILECOL *STANDARD-OUTPUT*))
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; 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.
; compiling (DEFUN PRINT-MODULES ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; in: DEFUN PRINT-VIEWS
;     (< 0 (CHAOS::FILECOL *STANDARD-OUTPUT*))
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; 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.
; compiling (DEFUN PRINT-VIEWS ...)
; compiling (DEFUN SHOW-TERM-MEMO-TABLE ...)

; file: /«PKGBUILDDIR»/chaos/tools/show.lisp
; in: DEFUN PRINT-TERM-HORIZONTAL
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.
; compiling (DEFUN PRINT-TERM-HORIZONTAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/show-TMP.fasl written
; compilation finished in 0:00:00.145
; compiling file "/«PKGBUILDDIR»/chaos/tools/set.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO CHAOS-SWITCH-KEY ...)
; compiling (DEFMACRO CHAOS-SWITCH-SUBKEY ...)
; compiling (DEFMACRO CHAOS-SWITCH-TYPE ...)
; compiling (DEFMACRO CHAOS-SWITCH-VAR ...)
; compiling (DEFMACRO CHAOS-SWITCH-DOC ...)
; compiling (DEFMACRO CHAOS-SWITCH-ON-PROC ...)
; compiling (DEFMACRO CHAOS-SWITCH-OFF-PROC ...)
; compiling (DEFMACRO CHAOS-SWITCH-SET-PROC ...)
; compiling (DEFMACRO CHAOS-SWITCH-HIDDEN ...)
; compiling (DEFPARAMETER *CHAOS-SWITCHES* ...)

; file: /«PKGBUILDDIR»/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 (SIMPLE-ARRAY * (*)).
; 
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL CHAOS::ON-PROC)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::ON-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::OFF-PROC)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::OFF-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::CHAOS-SWITCH-SET-PROC CHAOS::SW) CHAOS::DAT)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::CHAOS-SWITCH-SET-PROC CHAOS::SW))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SET-CHAOS-SWITCH ...)
; compiling (DEFUN CHECK-PARITY ...)

; file: /«PKGBUILDDIR»/chaos/tools/set.lisp
; in: DEFUN SHOW-MODES
;     (LENGTH CHAOS::OPT)
; 
; 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 VECTOR.
; compiling (DEFUN SHOW-MODES ...)
; compiling (DEFUN SHOW-MODE ...)
; compiling (DEFUN PRINT-SET-HELP ...)
; compiling (DEFUN SAVE-SWITCHES ...)
; compiling (DEFUN RESTORE-SWITCHES ...)
; compiling (DEFUN SAVE-SWITCH ...)
; compiling (DEFUN RESTORE-SWITCH ...)
; compiling (DEFUN CHAOS-SET-SEARCH-PATH ...)
; compiling (DEFUN CHAOS-SET-TRAM-PATH ...)
; compiling (DEFUN CHAOS-SET-TRAM-OPTIONS ...)
; compiling (DEFUN CHAOS-SET-SHOW-MODE ...)

; file: /«PKGBUILDDIR»/chaos/tools/set.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN CHAOS-SET-CEXEC-LIMIT ...)

; file: /«PKGBUILDDIR»/chaos/tools/set.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN CHAOS-SET-PRINT-DEPTH ...)
; compiling (DEFUN CHAOS-SET-PRINT-MODE ...)
; compiling (DEFUN CHAOS-OBSOLETE-PRINT-FANCY ...)
; compiling (DEFUN CHAOS-OBSOLETE-PRINT-TREE ...)
; compiling (DEFUN CHAOS-SET-BOOL-PATH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/set-TMP.fasl written
; compilation finished in 0:00:00.174
; compiling file "/«PKGBUILDDIR»/chaos/tools/op-check.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CHECK-METHOD-STRICTNESS ...)
; compiling (DEFUN CHECK-OPERATOR-STRICTNESS ...)
; compiling (DEFUN CHECK-OPERATOR-STRICTNESS-WHOLE ...)
; compiling (DEFUN SHOW-METHOD-STRICTNESS-REPORT ...)

; file: /«PKGBUILDDIR»/chaos/tools/op-check.lisp
; in: DEFUN METHOD-CONTAINED-IN
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.
; compiling (DEFUN METHOD-CONTAINED-IN ...)

; file: /«PKGBUILDDIR»/chaos/tools/op-check.lisp
; in: DEFUN CHECK-METHOD-COHERENCY
;     (INCF CHAOS::CON-COUNT)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::CON-COUNT)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN CHECK-METHOD-COHERENCY ...)
; compiling (DEFUN PERFORM-CONTEXT-MATCH ...)
; compiling (DEFVAR .OP-FOUND. ...)

; file: /«PKGBUILDDIR»/chaos/tools/op-check.lisp
; in: DEFUN CHECK-DEF-RHS
;     (< 1 CHAOS::.OP-FOUND.)
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; 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.
; compiling (DEFUN CHECK-DEF-RHS ...)

; file: /«PKGBUILDDIR»/chaos/tools/op-check.lisp
; in: DEFUN CHECK-DEF-RHS*
;     (1+ CHAOS::X)
; ==>
;   (+ CHAOS::X 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.

;     (INCF CHAOS::.OP-FOUND.)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::.OP-FOUND.)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (>= CHAOS::CONTEXT-DEPTH (LENGTH CHAOS::OCCURRENCE))
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::RHS))
; 
; 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 VECTOR.

;     (INCF CHAOS::.OP-FOUND.)
; --> SETQ 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))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN CHECK-DEF-RHS* ...)
; compiling (DEFUN CHECK-OPERATOR-COHERENCY ...)
; compiling (DEFUN CHECK-OPERATOR-COHERENCY-WHOLE ...)
; compiling (DEFUN CHECK-OPERATOR-CONGRUENCY ...)

; file: /«PKGBUILDDIR»/chaos/tools/op-check.lisp
; in: DEFUN CHECK-METHOD-CONGRUENCY
;     (<= (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) (LENGTH CHAOS::OCC-L))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (- (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 NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) 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.

;     (<= (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) (LENGTH CHAOS::OCC-L))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN CHECK-METHOD-CONGRUENCY ...)

; file: /«PKGBUILDDIR»/chaos/tools/op-check.lisp
; in: DEFUN SUBSTITUTION-IMAGE2
;     (FUNCALL (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM) CHAOS::SIGMA)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::LISP-FORM-FUNCTION CHAOS::TERM))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SUBSTITUTION-IMAGE2 ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/op-check-TMP.fasl written
; compilation finished in 0:00:00.241
; compiling file "/«PKGBUILDDIR»/chaos/tools/compat.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CHECK-COMPATIBILITY ...)

; file: /«PKGBUILDDIR»/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 (SIMPLE-ARRAY * (*)).
; 
; 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))
; --> LET BLOCK SB-INT:DX-FLET FLET MAP TRULY-THE 
; ==>
;   (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G190 #:G191)
; 
; note: unable to open code because: can't determine sequence argument type
; compiling (DEFUN FIND-COMPAT-METHOD ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/compat-TMP.fasl written
; compilation finished in 0:00:00.038
; compiling file "/«PKGBUILDDIR»/chaos/tools/help.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *HELP-DB* ...)
; compiling (DEFUN GET-DESCRIPTION ...)
; compiling (DEFUN READ-HELP-DB ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/help-TMP.fasl written
; compilation finished in 0:00:00.065
; compiling file "/«PKGBUILDDIR»/chaos/tools/inspect.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN SHOW-MODULE-SYMBOL-TABLE ...)
; compiling (DEFVAR .CURRENT-CHAR-INDEX. ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN DESCRIBE-NAME
;     (CHAR CHAOS::PRINT-NAME 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; 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.))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG26 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "** [" STREAM)
;               (PRINC #:FORMAT-ARG26 STREAM)
;               (WRITE-STRING "] -----------------------------------------"
;                             STREAM))
;             NIL)
;           #:G25)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~%~A~10T"
;             (IF (SYMBOLP CHAOS::NAME)
;                 (STRING CHAOS::NAME)
;                 CHAOS::NAME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG40 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (PRINC #:FORMAT-ARG40 STREAM)
;               (LET (# #)
;                 (SB-FORMAT::FORMAT-ABSOLUTE-TAB STREAM #:FVAR1052 #:FVAR1053)))
;             NIL)
;           #:G39)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~%No object with name ~A found." CHAOS::NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG54 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "No object with name " STREAM)
;               (PRINC #:FORMAT-ARG54 STREAM)
;               (WRITE-STRING " found." STREAM))
;             NIL)
;           #:G53)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN DESCRIBE-NAME ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN INSPECT-SHOW-PARAMETERS
;     (FORMAT STREAM "- parameter theory ~A(type ~S)" CHAOS::NAME
;             (TYPE-OF CHAOS::NAME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG76 #:FORMAT-ARG77 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "- parameter theory " STREAM)
;               (PRINC #:FORMAT-ARG76 STREAM)
;               (WRITE-STRING "(type " STREAM)
;               (PRIN1 #:FORMAT-ARG77 STREAM)
;               (WRITE-STRING ")" STREAM))
;             NIL)
;           #:G74 #:G75)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM ", declared in ~A" CHAOS::CONTEXT-NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG92 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ", declared in " STREAM)
;               (PRINC #:FORMAT-ARG92 STREAM))
;             NIL)
;           #:G91)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-PARAMETERS ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN INSPECT-SHOW-SUBMODULES
;     (ASSOC CHAOS::OBJ (CHAOS::MODULE-SUBMODULES MOD))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (FORMAT STREAM "- direct sub-module")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "- direct sub-module" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM ", alias of module ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING ", alias of module " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "- parameter theory")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "- parameter theory" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "- indirect sub-module")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "- indirect sub-module" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM ", alias of module ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING ", alias of module " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM ", declared in ~A" CHAOS::CONTEXT-NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG211 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ", declared in " STREAM)
;               (PRINC #:FORMAT-ARG211 STREAM))
;             NIL)
;           #:G210)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (ASSOC CHAOS::NAME (CHAOS::MODULE-ALIAS MOD))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (FORMAT STREAM ", renamed (original name = ~a)."
;             (WITH-OUTPUT-TO-STRING (CHAOS::STR)
;               (CHAOS::PRINT-MOD-NAME CHAOS::OBJ CHAOS::STR T)))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG240 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING ", renamed (original name = " STREAM)
;               (PRINC #:FORMAT-ARG240 STREAM)
;               (WRITE-STRING ")." STREAM))
;             NIL)
;           #:G239)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-SUBMODULES ...)
; compiling (DEFUN GET-CONTEXT-NAME-FOR-QUALIFY ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN INSPECT-SHOW-SORTS
;     (FORMAT STREAM "- hidden sort declared in ~a" CHAOS::CONTEXT-NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG289 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "- hidden sort declared in " STREAM)
;               (PRINC #:FORMAT-ARG289 STREAM))
;             NIL)
;           #:G288)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "- sort declared in ~a" CHAOS::CONTEXT-NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG303 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "- sort declared in " STREAM)
;               (PRINC #:FORMAT-ARG303 STREAM))
;             NIL)
;           #:G302)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (FORMAT STREAM "  the name must be qualified for disambiguation: ~A.~A"
;             (STRING CHAOS::NAME) CHAOS::QNAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG318 #:FORMAT-ARG319 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "  the name must be qualified for disambiguation: "
;                             STREAM)
;               (PRINC #:FORMAT-ARG318 STREAM)
;               (WRITE-STRING "." STREAM)
;               (PRINC #:FORMAT-ARG319 STREAM))
;             NIL)
;           #:G316 #:G317)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (RASSOC (CHAOS::OBJECT-CONTEXT-MOD CHAOS::OBJ) (CHAOS::MODULE-ALIAS MOD))
; ==>
;   (SB-KERNEL:%RASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (FORMAT STREAM "  the name must be qualified for disambiguation: ~A.~A"
;             (STRING CHAOS::NAME) (CAR CHAOS::A-NAME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA
;               (STREAM #:FORMAT-ARG350 #:FORMAT-ARG351 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "  the name must be qualified for disambiguation: "
;                             STREAM)
;               (PRINC #:FORMAT-ARG350 STREAM)
;               (WRITE-STRING "." STREAM)
;               (PRINC #:FORMAT-ARG351 STREAM))
;             NIL)
;           #:G348 #:G349)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "  the name must be qualified for disambiguation,")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "  the name must be qualified for disambiguation,"
;                             STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "  but the module name is not simple one:")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "  but the module name is not simple one:" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-SORTS ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN INSPECT-SHOW-OPERATORS
;     (FORMAT STREAM "- operator:")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING "- operator:" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-OPERATORS ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN INSPECT-SHOW-AXIOMS
;     (FORMAT STREAM "- axiom declared in ~a" CHAOS::CONTEXT-NAME)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG413 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "- axiom declared in " STREAM)
;               (PRINC #:FORMAT-ARG413 STREAM))
;             NIL)
;           #:G412)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-AXIOMS ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; 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)))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG443 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "- variable of sort " STREAM)
;               (PRINC #:FORMAT-ARG443 STREAM))
;             NIL)
;           #:G442)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-VARIABLES ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN INSPECT-SHOW-UNKNOWNS
;     (FORMAT STREAM "- unknown object ~s" CHAOS::OBJ)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG464 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "- unknown object " STREAM)
;               (PRIN1 #:FORMAT-ARG464 STREAM))
;             NIL)
;           #:G463)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN INSPECT-SHOW-UNKNOWNS ...)
; compiling (DEFUN INSPECT-INTERNAL-ERROR ...)
; compiling (DEFUN !INSPECT-MODULE ...)
; compiling (DEFUN INSPECT-CANON-NAME ...)

; file: /«PKGBUILDDIR»/chaos/tools/inspect.lisp
; in: DEFUN !LOOK-UP
;     (IGNORE IGNORE)
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: IGNORE
; compiling (DEFUN !LOOK-UP ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/inspect-TMP.fasl written
; compilation finished in 0:00:00.098
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "tools" "inspect">
; compiling file "/«PKGBUILDDIR»/chaos/tools/sensible.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CHECK-SENSIBLE ...)

; file: /«PKGBUILDDIR»/chaos/tools/sensible.lisp
; in: DEFUN CHECK-OP-SENSIBLENESS
;     (PUSHNEW CHAOS::METHOD CHAOS::VIO-PAIR)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (PUSHNEW CHAOS::M2 CHAOS::VIO-PAIR)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN CHECK-OP-SENSIBLENESS ...)
; compiling (DEFUN IS-SENSIBLE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tools/sensible-TMP.fasl written
; compilation finished in 0:00:00.018
; compiling file "/«PKGBUILDDIR»/chaos/eval/eval-mod.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MODEXP-TOP-LEVEL-EVAL ...)

; file: /«PKGBUILDDIR»/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 (SIMPLE-ARRAY * (*)).
; 
; 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.
; compiling (DEFUN EVAL-MOD ...)
; compiling (DEFUN PRINT-NTH-MOD ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-mod.lisp
; in: DEFUN EVAL-MOD-EXT
;     (1- CHAOS::NO)
; ==>
;   (- CHAOS::NO 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.
; 
; 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.
; compiling (DEFUN EVAL-MOD-EXT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/eval/eval-mod-TMP.fasl written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/chaos/eval/eval-ast.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN RESOLVE-SORT-REF ...)
; compiling (DEFUN RESOLVE-OR-DEFINE-SORT ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-SORT
;     (CHAOS::SET-NEEDS-PARSE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN DECLARE-SORT ...)
; compiling (DEFUN DECLARE-PSORT ...)
; compiling (DEFUN EVAL-PSORT-DECLARATION ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-BSORT
;     (CHAOS::SET-NEEDS-PARSE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN DECLARE-BSORT ...)
; compiling (DEFUN DECLARE-SUBSORT ...)
; compiling (DEFUN FIND-QUAL-OPERATORS ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-OPERATOR
;     (CHAOS::MARK-NEED-PARSING-PREPARATION CHAOS::*CURRENT-MODULE*)
; --> SETF LET* MIN LET LET IF <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> SETF LET* MIN LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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-PARSE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.

;     (CHAOS::SET-NEEDS-RULE)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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*)
; --> SETF LET* MIN LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN DECLARE-OPERATOR ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-VARIABLE
;     (CHAOS::SET-NEEDS-PARSE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN DECLARE-VARIABLE ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-PVARIABLE
;     (CHAOS::SET-NEEDS-PARSE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN DECLARE-PVARIABLE ...)
; compiling (DEFUN IS-LISP-FORM-TOKEN-SEQUENCE ...)
; compiling (DEFUN IS-CHAOS-VALUE-TOKEN-SEQUENCE ...)
; compiling (DEFVAR .SPECIAL-META-RULE-LABELS. ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN PARSE-AXIOM-DECLARATION
;     (MEMBER CHAOS::ML LABELS)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN PARSE-AXIOM-DECLARATION ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-AXIOM
;     (CHAOS::SET-NEEDS-RULE)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN DECLARE-AXIOM ...)
; compiling (DEFUN EVAL-LET ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; in: DEFUN EVAL-MACRO
;     (CHAOS::SET-NEEDS-PARSE)
; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET 
; --> IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-NEED-PARSING-PREPARATION SETF LET* MIN LET LET IF <= OR LET < 
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN EVAL-MACRO ...)
; compiling (DEFUN DECLARE-MODULE ...)
; compiling (DEFUN DECLARE-VIEW ...)
; compiling (DEFUN EVAL-IMPORT-MODEXP ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast.lisp
; 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 CONS NULL VECTOR).

;     (CHAR CHAOS::L 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PROCESS-LABELS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/eval/eval-ast-TMP.fasl written
; compilation finished in 0:00:00.447
; compiling file "/«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFPARAMETER *CHAOS-VERSION* ...)
; compiling (DECLAIM (SPECIAL *INTERACTIVE*))
; compiling (DEFUN TOP-NOSHOW ...)
; compiling (DEFUN EVAL-FORM ...)
; compiling (DEFUN EVAL-$$TERM ...)
; compiling (DEFUN EVAL-LISP-FORM ...)
; compiling (DEFUN PRINT-DYNA-COMMENT ...)
; compiling (DEFUN PERFORM-REDUCTION ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN PERFORM-REDUCTION*
;     (DEFUN CHAOS::PERFORM-REDUCTION*
;            (CHAOS::PRETERM
;             &OPTIONAL CHAOS::MODEXP CHAOS::MODE (CHAOS::RESULT-AS-TEXT NIL))
;       (LET ((CHAOS::RESULT NIL)
;             (MOD
;              (IF CHAOS::MODEXP
;                  #
;                  #))
;             CHAOS::TERM
;             CHAOS::STAT-FORM
;             CHAOS::TERM-FORM)
;         (WHEN (CHAOS::MODEXP-IS-ERROR MOD)
;           (CHAOS::WITH-OUTPUT-CHAOS-ERROR ('CHAOS::NO-SUCH-MODULE)
;             (PRINC "Incorrect module expression, no such module ")
;             (CHAOS::PRINT-CHAOS-OBJECT CHAOS::MODEXP)))
;         (CHAOS::CONTEXT-PUSH-AND-MOVE (CHAOS::GET-CONTEXT-MODULE T) MOD)
;         (WHEN CHAOS::*AUTO-CONTEXT-CHANGE*
;           (CHAOS::CHANGE-CONTEXT (CHAOS::GET-CONTEXT-MODULE T) MOD))
;         (SETQ CHAOS::TERM (CHAOS::PREPARE-TERM CHAOS::PRETERM MOD))
;         (UNLESS CHAOS::*CHAOS-QUIET*
;           (CHAOS::WITH-IN-MODULE (MOD)
;             (FORMAT T "~&-- ~a in " #)
;             (CHAOS::PRINT-SIMPLE-MOD-NAME MOD)
;             (PRINC " : ")
;             (LET #
;               #
;               #)
;             (CHAOS::FLUSH-ALL)))
;         (LET ((CHAOS::*CHAOS-QUIET* T))
;           (CHAOS::COMPILE-MODULE MOD))
;         (SETQ CHAOS::RESULT (CHAOS::REDUCER CHAOS::TERM MOD CHAOS::MODE))
;         (CHAOS::WITH-IN-MODULE (MOD)
;           (IF CHAOS::RESULT-AS-TEXT
;               (SETQ #)
;               (PROGN # #)))
;         (WHEN CHAOS::*SHOW-STATS*
;           (SETF CHAOS::STAT-FORM #)
;           (FORMAT T "~%~a" CHAOS::STAT-FORM)
;           (CHAOS::FLUSH-ALL))
;         (CHAOS::CONTEXT-POP-AND-RECOVER)
;         ...))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::PERFORM-REDUCTION*
;                    (SB-INT:NAMED-LAMBDA CHAOS::PERFORM-REDUCTION*
;                        (CHAOS::PRETERM &OPTIONAL CHAOS::MODEXP CHAOS::MODE
;                         (CHAOS::RESULT-AS-TEXT NIL))
;                      (BLOCK CHAOS::PERFORM-REDUCTION*
;                        (LET (# # CHAOS::TERM CHAOS::STAT-FORM CHAOS::TERM-FORM)
;                          (WHEN # #)
;                          (CHAOS::CONTEXT-PUSH-AND-MOVE # MOD)
;                          (WHEN CHAOS::*AUTO-CONTEXT-CHANGE* #)
;                          (SETQ #)
;                          (UNLESS CHAOS::*CHAOS-QUIET* #)
;                          (LET #
;                            #)
;                          (SETQ #)
;                          (CHAOS::WITH-IN-MODULE #
;                            #)
;                          (WHEN CHAOS::*SHOW-STATS* # # #)
;                          (CHAOS::CONTEXT-POP-AND-RECOVER)
;                          ...)))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::PREPARE-TERM could not be inlined because its source code was
;   not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to CHAOS::REDUCER could not be inlined because its source code was not
;   saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to
;   save function definitions for inlining.
; compiling (DEFUN PERFORM-REDUCTION* ...)
; compiling (DEFUN PERFORM-META-REDUCTION ...)
; compiling (DEFUN PERFORM-TEST-REDUCTION ...)
; compiling (DEFUN DO-PARSE-TERM ...)
; compiling (DEFUN DO-PARSE-TERM* ...)
; compiling (DEFUN RED-LOOP ...)
; compiling (DEFUN CHECK-BAD-RULES ...)
; compiling (DEFUN EVAL-TRACE ...)
; compiling (DEFUN EVAL-TRACE-WHOLE ...)
; compiling (DEFUN UNDER-DEBUG-REWRITE ...)
; compiling (DEFUN REWRITE-DEBUG-ON ...)
; compiling (DEFUN REWRITE-DEBUG-OFF ...)
; compiling (DEFUN TRACE-ON ...)
; compiling (DEFUN TRACE-OFF ...)
; compiling (DEFUN TRACE-WHOLE-ON ...)
; compiling (DEFUN TRACE-WHOLE-OFF ...)
; compiling (DEFUN EVAL-REWRITE-COUNT-LIMIT ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN SET-REWRITE-COUNT-LIMIT
;     (> CHAOS::NUM 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       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.
;       etc.
; compiling (DEFUN SET-REWRITE-COUNT-LIMIT ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN SET-REWRITE-COUNT-LIMIT2
;     (LENGTH (CAR CHAOS::VALUE))
; 
; 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 VECTOR.
; compiling (DEFUN SET-REWRITE-COUNT-LIMIT2 ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN SET-COND-TRIAL-LIMIT
;     (LENGTH (CAR CHAOS::VALUE))
; 
; 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 VECTOR.

;     (> CHAOS::NUM 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       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.
;       etc.
; compiling (DEFUN SET-COND-TRIAL-LIMIT ...)
; compiling (DEFUN EVAL-STOP-AT ...)
; compiling (DEFUN SET-REWRITE-STOP-PATTERN ...)
; compiling (DEFUN SET-REWRITE-STOP-PATTERN2 ...)
; compiling (DEFUN EVAL-STEP ...)
; compiling (DEFUN STEP-ON ...)
; compiling (DEFUN STEP-OFF ...)
; compiling (DEFUN EVAL-INPUT-FILE ...)
; compiling (DEFUN EVAL-DESCRIBE-MODULE ...)
; compiling (DEFUN EVAL-OPEN-MODULE ...)
; compiling (DEFPARAMETER *MODULE-OPEN-FORM* ...)
; compiling (DEFUN !OPEN-MODULE ...)
; compiling (DEFUN EVAL-CLOSE-MODULE ...)
; compiling (DEFUN EVAL-SAVE ...)
; compiling (DEFVAR *SEEN-SAVED* ...)
; compiling (DEFPARAMETER .FILL-SPACE. ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN SAVE-SYSTEM
;     (FORMAT STREAM "~&(in-package \"CHAOS\")")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(in-package \"CHAOS\")" STREAM))
;             NIL))
; 
; 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)")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(eval-when (:execute :load-toplevel)" STREAM))
;             NIL))
; 
; 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.")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING ";;; system standard prelude." STREAM))
;             NIL))
; 
; 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.")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING ";;; user defined modules." STREAM))
;             NIL))
; 
; 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.")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (FRESH-LINE STREAM) (WRITE-STRING ";;; views." STREAM))
;             NIL))
; 
; 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 "~%)")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (TERPRI STREAM) (WRITE-STRING ")" STREAM))
;             NIL))
; 
; 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)))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG830 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(eval-ast-if-need-no-error '" STREAM)
;               (PRIN1 #:FORMAT-ARG830 STREAM)
;               (WRITE-STRING ")" STREAM))
;             NIL)
;           #:G829)
; 
; 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)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG844 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(eval-ast-if-need-no-error '" STREAM)
;               (PRIN1 #:FORMAT-ARG844 STREAM)
;               (WRITE-STRING ")" STREAM))
;             NIL)
;           #:G843)
; 
; 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.
; compiling (DEFUN SAVE-SYSTEM ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN DUMP-USER-MODULE
;     (FORMAT STREAM "~&(eval-ast-if-need-no-error '~s)" CHAOS::DECL)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG892 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(eval-ast-if-need-no-error '" STREAM)
;               (PRIN1 #:FORMAT-ARG892 STREAM)
;               (WRITE-STRING ")" STREAM))
;             NIL)
;           #:G891)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN DUMP-USER-MODULE ...)
; compiling (DEFUN EVAL-AST-IF-NEED ...)
; compiling (DEFUN EVAL-AST-IF-NEED-NO-ERROR ...)
; compiling (DEFUN EVAL-RESTORE ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN RESTORE-SYSTEM
;     (CHAOS::WITH-CHAOS-ERROR NIL
;       (LET ((CHAOS::*CHAOS-QUIET* (NOT CHAOS::*CHAOS-VERBOSE*)))
;         (LOAD CHAOS::FILE)))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR NIL
;       (CHAOS::WITH-CHAOS-ERROR NIL
;         (LET ((CHAOS::*CHAOS-QUIET* #))
;           (LOAD CHAOS::FILE))))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN RESTORE-SYSTEM ...)
; compiling (DEFUN EVAL-RESET-SYSTEM ...)
; compiling (DEFUN EVAL-FULL-RESET ...)
; compiling (DEFUN EVAL-LOAD-PRELUDE ...)
; compiling (DEFUN LOAD-PRELUDE ...)
; compiling (DEFUN LOAD-PRELUDE+ ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; 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 CHAOS::*SYSTEM-PRELUDE-DIR*
;                                          :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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN LOAD-PRELUDE* ...)
; compiling (DEFUN EVAL-PROVIDE-COMMAND ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN EVAL-REQUIRE-COMMAND
;     (FUNCALL CHAOS::PROC CHAOS::FILE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::PROC
;              (FORMAT NIL "~{~A~^/~}" (CL-PPCRE:SPLIT "::" CHAOS::FEATURE)))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN EVAL-REQUIRE-COMMAND ...)
; compiling (DEFUN EVAL-PROTECT ...)
; compiling (DEFUN EVAL-DRIBBLE ...)
; compiling (DEFUN EVAL-SAVE-CHAOS ...)
; compiling (DEFUN EVAL-LS ...)
; compiling (DEFUN EVAL-PWD ...)
; compiling (DEFUN EVAL-SHELL ...)
; compiling (DEFUN RUN-SHELL ...)
; compiling (DEFUN EVAL-CD ...)
; compiling (DEFUN EVAL-PUSHD ...)
; compiling (DEFUN EVAL-POPD ...)
; compiling (DEFUN EVAL-DIRS ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN SHOW-DESCRIBE
;     (LENGTH (CADR CHAOS::DAT))
; 
; 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 VECTOR.
; 
; 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 VECTOR.

;     (1- CHAOS::NO)
; ==>
;   (- CHAOS::NO 1)
; 
; 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.
; compiling (DEFUN SHOW-DESCRIBE ...)
; compiling (DEFUN EVAL-SHOW ...)
; compiling (DEFUN EVAL-DESCRIBE ...)
; compiling (DEFUN EVAL-SELECT ...)
; compiling (DEFUN EVAL-SET ...)
; compiling (DEFUN EVAL-REGULARIZE ...)
; compiling (DEFUN EVAL-CHECK ...)
; compiling (DEFUN EVAL-TRAM ...)
; compiling (DEFUN EVAL-AUTOLOAD ...)
; compiling (DEFUN EVAL-NO-AUTOLOAD ...)
; compiling (DEFVAR *REAL-TIME* ...)
; compiling (DEFVAR *RUN-TIME* ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN TIMER
;     (/ (- CHAOS::*RUN-TIME* CHAOS::SYS) INTERNAL-TIME-UNITS-PER-SECOND)
; 
; note: unable to
;   convert x/2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.

;     (/ (- CHAOS::*REAL-TIME* REAL) INTERNAL-TIME-UNITS-PER-SECOND)
; 
; note: unable to
;   convert x/2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.

;     (- CHAOS::*RUN-TIME* CHAOS::SYS)
; 
; 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.

;     (FLOAT (/ (- CHAOS::*RUN-TIME* CHAOS::SYS) INTERNAL-TIME-UNITS-PER-SECOND))
; --> IF 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::N)
; 
; 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 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.

;     (FLOAT (/ (- CHAOS::*REAL-TIME* REAL) INTERNAL-TIME-UNITS-PER-SECOND))
; --> IF 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::N)
; 
; 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).
; compiling (DEFUN TIMER ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN EVAL-CBRED
;     (ZEROP CHAOS::*TERM-MEMO-HASH-HIT*)
; ==>
;   (= CHAOS::*TERM-MEMO-HASH-HIT* 0)
; 
; 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 because: The operands might not be the same type.
; compiling (DEFUN EVAL-CBRED ...)
; compiling (DEFUN EVAL-INSPECT ...)
; compiling (DEFUN EVAL-WHAT-IS ...)
; compiling (DEFUN EVAL-LOOK-UP ...)
; compiling (DEFUN EVAL-DELIMITER ...)
; compiling (DEFUN EVAL-CHAOS-TOP ...)
; compiling (DEFMACRO WITH-NO-CHAOS-COUNTER-PARTS ...)
; compiling (DEFUN CAFEOBJ-EVAL-CONTROL-D ...)
; compiling (DEFUN CAFEOBJ-EVAL-LISP-PROC ...)
; compiling (DEFUN CAFEOBJ-EVAL-LISP-Q-PROC ...)
; compiling (DEFVAR .IN-IN. ...)
; compiling (DECLAIM (SPECIAL .IN-IN.))
; compiling (DEFUN CAFEOBJ-EVAL-INPUT-PROC ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; 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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN !INPUT-FILE ...)
; compiling (DEFUN SAVE-CAFEOBJ ...)
; compiling (DEFUN SAVE-CAFEOBJ-NO-TOP ...)
; compiling (DEFUN CAFEOBJ-EVAL-SAVE-SYSTEM ...)
; compiling (DEFUN CAFEOBJ-EVAL-CLEAR-MEMO-PROC ...)

; file: /«PKGBUILDDIR»/chaos/eval/eval-ast2.lisp
; in: DEFUN CAFEOBJ-EVAL-PRELUDE-PROC
;     (CHAOS::WITH-CHAOS-ERROR NIL
;       (CHAOS::EVAL-AST CHAOS::AST))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CAFEOBJ-EVAL-PRELUDE-PROC ...)
; compiling (DEFUN CAFEOBJ-EVAL-PRELUDE-PROC+ ...)
; compiling (DEFUN CAFEOBJ-EVAL-COMMENT-PROC ...)
; compiling (DEFUN CAFEOBJ-EVAL-WHAT-PROC ...)
; compiling (DEFUN EVAL-DELIMITER-PROC ...)
; compiling (DEFUN EVAL-SHOW-DELIMITER ...)
; compiling (DEFUN EVAL-GENDOC ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/eval/eval-ast2-TMP.fasl written
; compilation finished in 0:00:00.576
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "eval" "eval-ast2">
; compiling file "/«PKGBUILDDIR»/chaos/eval/chaos-top.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFUN DEFINE-BUILTIN-MODULE ...)
; compiling (DEFUN CLEAR-GLOBAL-DB ...)
; compiling (DEFVAR *CHAOS-NEW* ...)
; compiling (DEFUN SAVE-CHAOS ...)
; compiling (DEFUN CHAOS-PROMPT ...)
; compiling (DEFUN HANDLE-CHAOS-ERROR ...)
; compiling (DEFUN HANDLE-CHAOS-TOP-ERROR ...)
; compiling (DEFUN CHAOS-READ ...)
; compiling (DEFUN CHAOS-EVAL-READER ...)
; compiling (DEFUN PROCESS-CHAOS-INPUT ...)
; compiling (DEFUN CHAOS-TOP ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/eval/chaos-top-TMP.fasl written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/chaos/boot/preproc.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFUN TOKEN-IS-SORT-ID ...)
; compiling (DEFUN CREATE-SORT-ID ...)
; compiling (DEFUN PRINT-SORT-ID ...)
; compiling (DEFUN IS-SORT-ID ...)
; compiling (DEFUN IS-NZNAT-TOKEN ...)
; compiling (DEFUN CREATE-NZNAT ...)
; compiling (DEFUN IS-NZNAT ...)
; compiling (DEFUN IS-ZERO-TOKEN ...)
; compiling (DEFUN CREATE-ZERO ...)
; compiling (DEFUN IS-ZERO ...)
; compiling (DEFUN IS-NAT-TOKEN ...)
; compiling (DEFUN CREATE-NAT ...)
; compiling (DEFUN IS-NAT ...)
; compiling (DEFUN IS-NZINT-TOKEN ...)
; compiling (DEFUN CREATE-NZINT ...)
; compiling (DEFUN IS-NZINT ...)
; compiling (DEFUN CREATE-INT ...)
; compiling (DEFUN IS-INT-TOKEN ...)
; compiling (DEFUN PRINT-INT ...)
; compiling (DEFUN IS-INT ...)
; compiling (DEFUN IS-NZRAT-TOKEN ...)
; compiling (DEFUN CREATE-NZRAT ...)
; compiling (DEFUN IS-NZRAT ...)
; compiling (DEFUN IS-RAT-TOKEN ...)
; compiling (DEFUN CREATE-RAT ...)
; compiling (DEFUN RAT-PRINT ...)
; compiling (DEFUN IS-ID-TOKEN ...)
; compiling (DEFUN CREATE-ID ...)
; compiling (DEFUN PRINT-ID ...)
; compiling (DEFUN IS-ID ...)
; compiling (DEFUN IS-QID-TOKEN ...)
; compiling (DEFUN CREATE-QID ...)
; compiling (DEFUN PRINT-QID ...)
; compiling (DEFUN IS-QID ...)
; compiling (DEFUN QID->STRING ...)
; compiling (DEFUN STRING->QID ...)
; compiling (DEFUN IS-SORT-TOKEN ...)
; compiling (DEFUN CREATE-SORT-OBJECT ...)
; compiling (DEFUN PRINT-META-SORT-OBJECT ...)
; compiling (DEFUN IS-SORT-OBJECT ...)
; compiling (DEFUN IS-CONSTANT-TOKEN ...)
; compiling (DEFUN CREATE-CONSTANT-OBJECT ...)
; compiling (DEFUN PRINT-CONSTANT-OBJECT ...)
; compiling (DEFUN IS-CONSTANT-OBJECT ...)
; compiling (DEFUN IS-VARIABLE-TOKEN ...)
; compiling (DEFUN CREATE-VARIABLE-OBJECT ...)
; compiling (DEFUN PRINT-VARIABLE-OBJECT ...)
; compiling (DEFUN IS-VARIABLE-OBJECT ...)
; compiling (DEFUN IS-FLOAT-TOKEN ...)
; compiling (DEFUN CREATE-FLOAT ...)
; compiling (DEFUN PRINT-FLOAT ...)
; compiling (DEFUN IS-FLOAT ...)
; compiling (DEFMACRO IS-COMPILED-CHAOS-VALUE ...)
; compiling (DEFUN PRINT-CHAOS-VALUE ...)
; compiling (DEFUN IS-VARIABLE? ...)
; compiling (DEFUN IS-APPLFORM? ...)
; compiling (DEFUN IS-PVARIABLE? ...)
; compiling (DEFUN IS-LISP-FORM? ...)
; compiling (DEFUN IS-SLISP-FORM? ...)
; compiling (DEFUN IS-GLISP-FORM? ...)
; compiling (DEFUN IS-BCONST-TERM? ...)
; compiling (DEFUN SETUP-TRUTH-VALUE ...)
; compiling (DEFUN BOOL-MAKE-CONJUNCTION ...)
; compiling (DEFUN COERCE-TO-BOOL ...)
; compiling (DEFUN SETUP-ID ...)
; compiling (DEFUN INSTALL-CHARACTER ...)
; compiling (DEFUN IS-CHARACTER-TOKEN ...)
; compiling (DEFUN CREATE-CHARACTER ...)
; compiling (DEFUN IS-CHARACTER ...)
; compiling (DEFUN PRINT-CHARACTER ...)
; compiling (DEFUN INSTALL-STRING ...)
; compiling (DEFUN S-FIND ...)
; compiling (DEFUN S-RFIND ...)
; compiling (DEFUN INSTALL-OBJECT-ID ...)
; compiling (DEFUN INSTALL-RECORD-OBJECT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/boot/preproc-TMP.fasl written
; compilation finished in 0:00:00.229
; compiling file "/«PKGBUILDDIR»/chaos/boot/prelude.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFVAR *LAST-TERM-OP-TERM* ...)
; compiling (DEFVAR *LAST-TERM-EQN-RHS* ...)
; compiling (DEFUN INSTALL-LAST-TERM ...)
; compiling (DEFUN SET-LAST-TERM ...)
; compiling (DEFUN IS_ERR_TOKEN ...)
; compiling (DEFUN CREATE_ERR ...)
; compiling (DEFUN PRINT_ERR ...)
; compiling (DEFUN IS_ERR ...)
; compiling (DEFUN INSTALL-ERR ...)
; compiling (DEFVAR OBJ-BUILTIN-KEYWORD ...)
; compiling (DEFSTRUCT (BI-TERM #) ...)
; compiling (DEFUN PRINT$BUILTIN ...)
; compiling (DEFUN IS_BUILTIN_TOKEN ...)
; compiling (DEFUN CREATE_BUILTIN ...)
; compiling (DEFUN PRINT_BUILTIN ...)
; compiling (DEFUN IS_BUILTIN ...)
; compiling (DEFUN INSTALL_BUILTIN ...)
; compiling (DEFVAR OBJ-LISP-KEYWORD ...)
; compiling (DEFSTRUCT (LISP #) ...)
; compiling (DEFUN PRINT$LISP ...)
; compiling (DEFVAR *OBJ-LISP-EVAL-INPUT* ...)
; compiling (DEFUN IS_LISP_TOKEN ...)
; compiling (DEFUN CREATE_LISP ...)
; compiling (DEFUN USE ...)
; compiling (DEFUN PRINT_LISP ...)
; compiling (DEFUN IS_LISP ...)
; compiling (DEFVAR .RE-INSTALL-PROC. ...)
; compiling (DEFUN RE-INSTALL-CAFEOBJ-PRELUDE ...)
; compiling (DEFUN INSTALL-PRELUDE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/boot/prelude-TMP.fasl written
; compilation finished in 0:00:00.081
; compiling file "/«PKGBUILDDIR»/chaos/boot/builtins.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (CLEAR-GLOBAL-DB)
; compiling (CLEAR-TRS-DB)
; compiling (UNLESS *TERM-MEMO-TABLE* ...)
; compiling (DEFPARAMETER COSMOS-SORT-REF ...)
; compiling (DEFPARAMETER UNIVERSAL-SORT-REF ...)
; compiling (DEFPARAMETER HUNIVERSAL-SORT-REF ...)
; compiling (DEFUN BOOT-UNIVERSAL-MODULE ...)
; compiling (DEFUN BOOT-PARSER-MODULE ...)
; compiling (DEFUN BOOT-CHAOS ...)
; compiling (DEFUN BOOT-META-MODULE ...)
; compiling (DEFUN PRINT-AST-DICT ...)
; compiling (DEFUN INSTALL-CHAOS-HARD-WIRED-MODULES ...)
; compiling (DEFUN INSTALL-CHAOS-SOFT-WIRED-MODULES ...)
; compiling (DEFUN CHAOS-MISC-INIT ...)
; compiling (DEFUN INIT-BUILTIN-UNIVERSAL ...)
; compiling (DEFVAR *Z-NZNAT-VALUE* ...)
; compiling (DEFVAR *Z-NAT-VALUE* ...)
; compiling (DEFVAR *Z-INT-VALUE* ...)
; compiling (DEFVAR *Z-RAT-VALUE* ...)
; compiling (DEFVAR *Z-NZNAT* ...)
; compiling (DEFVAR *Z-NAT* ...)
; compiling (DEFVAR *Z-INT* ...)
; compiling (DEFVAR *Z-RAT* ...)
; compiling (DEFVAR *Z-FLOAT-VALUE* ...)
; compiling (DEFVAR *Z-FLOAT* ...)
; compiling (DEFVAR *Z-QID* ...)
; compiling (DEFVAR *Z-CHAR-VALUE* ...)
; compiling (DEFVAR *Z-CHAR* ...)
; compiling (DEFVAR *Z-STRING-VALUE* ...)
; compiling (DEFVAR *Z-STRING* ...)
; compiling (DEFUN GET-Z-MODULE-OR-PANIC ...)
; compiling (DEFUN SETUP-TRAM-BOOL-MODULES ...)
; compiling (DEFUN INIT-TRAM-BI-MODULES ...)
; compiling (INSTALL-CHAOS-HARD-WIRED-MODULES)
; compiling (INSTALL-CHAOS-SOFT-WIRED-MODULES)
; compiling (INIT-TRAM-BI-MODULES)
; compiling (INIT-BUILTIN-UNIVERSAL)
; compiling (CHAOS-MISC-INIT)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/boot/builtins-TMP.fasl written
; compilation finished in 0:00:00.056
_*_*_*.
._* done.-- 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
; compiling file "/«PKGBUILDDIR»/chaos/boot/meta.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFUN CLEAR-METALEVEL-SORT ...)
; compiling (DEFUN REGISTER-METALEVEL-SORT ...)
; compiling (CLEAR-METALEVEL-SORT)


; file: /«PKGBUILDDIR»/chaos/boot/meta.lisp
; in: DEFSTRUCT CHAOS-LIST
;     (DEFSTRUCT (CHAOS::CHAOS-LIST (:PRINT-FUNCTION CHAOS::PR-CHAOS-LIST))
;       (LIST NIL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::CHAOS-LIST {100A345403}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CHAOS::CHAOS-LIST-P and CHAOS::CHAOS-LIST-LIST
;   could not be inlined because the structure definition for CHAOS::CHAOS-LIST was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEFSTRUCT (CHAOS-LIST #) ...)
; compiling (DEFPARAMETER *CHAOS-NULL* ...)
; compiling (DEFUN MNTH ...)
; compiling (DEFUN MNTHCDR ...)
; compiling (DEFUN MLENGTH ...)
; compiling (DEFUN PR-CHAOS-LIST ...)
; compiling (DEFUN MAKE-META-TERM ...)
; compiling (DEFUN META-TERM-TERM ...)
; compiling (DEFUN CREATE-SYSTEM-OBJECT-TERM ...)
; compiling (DEFUN MSUBTERMS ...)
; compiling (DEFUN MTERM-SORT ...)
; compiling (DEFUN CREATE-LIST-OF-OBJECTS ...)

; file: /«PKGBUILDDIR»/chaos/boot/meta.lisp
; in: DEFUN DO-APPLY!!
;     (CHAOS::CREATE-SYSTEM-OBJECT-TERM NIL)
; 
; note: deleting unreachable code
; compiling (DEFUN DO-APPLY!! ...)
; compiling (DEFUN DO-APPLY! ...)
; compiling (DEFUN CREATE-CHAOS-LIST ...)
; compiling (DEFUN BVALUE ...)
; compiling (DEFUN SORT-COMPARE ...)
; compiling (DEFUN IN-SAME-CC ...)

; file: /«PKGBUILDDIR»/chaos/boot/meta.lisp
; in: DEFSTRUCT SUBST*
;     (DEFSTRUCT (CHAOS::SUBST* (:PRINT-FUNCTION CHAOS::PR-SUBST))
;       (CHAOS::BINDINGS NIL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::SUBST* {100B284893}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::SUBST*-P could not be inlined because the
;   structure definition for CHAOS::SUBST* was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEFSTRUCT (SUBST* #) ...)
; compiling (DEFUN CREATE-NEW-SUBST ...)
; compiling (DEFUN PR-SUBST ...)
; compiling (DEFUN META-GET-CONTEXT-MODULE ...)
; compiling (DEFUN META-GET-TERM ...)
; compiling (DEFUN META-GET-INTEGER ...)
; compiling (DEFUN META-GET-LIST-INTEGERS ...)
; compiling (DEFVAR *META-MATCH-DEPTH* ...)
; compiling (DEFVAR *USE-CHOOSE-MATCH* ...)
; compiling (DEFUN DO-META-MATCH ...)
; compiling (DEFUN META-SUBST-IMAGE ...)
; compiling (DEFUN META-GET-OCCUR ...)
; compiling (DEFUN META-OCCUR-AT ...)
; compiling (DEFUN SUBTERM-OP ...)
; compiling (DEFUN PERFORM-META-MATCH* ...)
; compiling (DEFUN CHECK-RWL-COHERENCY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/boot/meta-TMP.fasl written
; compilation finished in 0:00:00.186
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "chaos" "boot" "meta">
; compiling file "/«PKGBUILDDIR»/chaos/tram/tram.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *TRAM-LAST-MODULE* ...)
; compiling (DECLAIM (SPECIAL *TRAM-PROCESS*))
; compiling (DEFVAR *TRAM-PROCESS* ...)
; compiling (DEFUN ON-TRAM-DEBUG ...)
; compiling (DEFUN OFF-TRAM-DEBUG ...)
; compiling (DEFVAR *TRAM_IN_FILE* ...)
; compiling (DEFVAR *TRAM_OUT_FILE* ...)
; compiling (DEFUN RUN-TRAM-PROCESS-IF-NEED ...)
; compiling (DEFUN GET-PROCESS-ID ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN TRAM-GET-ID ...)
; compiling (DEFUN RUN-TRAM-PROCESS ...)
; compiling (DEFUN KILL-TRAM-PROCESS ...)
; compiling (DEFMACRO WITH-OUTPUT-TO-TRAM ...)
; compiling (DEFPARAMETER TRAM-EOF-VALUE ...)
; compiling (DEFMACRO TRAM-SEND-AND-WAIT ...)
; compiling (DEFUN WAIT-TRAM-ANSWER ...)
; compiling (DEFUN TRS-TERM-TO-TRAM-TERM ...)
; compiling (DEFUN TRAM-TERM-TO-CHAOS ...)
; compiling (DEFUN TRAM-MAKE-TERM-TOK-SEQ ...)

; file: /«PKGBUILDDIR»/chaos/tram/tram.lisp
; in: DEFUN RE-MAKE-TRAM-TOK-SEQ
;     (STRING CHAOS::SYM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN RE-MAKE-TRAM-TOK-SEQ ...)
; compiling (DEFUN TRAM-RE-MAKE-TERM-FORM ...)
; compiling (DEFUN RE-PRINT-TRAM-TERM ...)
; compiling (DEFUN MAKE-TRAM-RULES ...)
; compiling (DEFVAR *TRAM-INHIBIT-RWL-PREDICATES* ...)
; compiling (DEFUN MAKE-TRAM-RULE ...)
; compiling (DEFUN TRS-RULE-TO-TRAM-RULE ...)
; compiling (DEFUN TRAM-MAKE-SEM-AXIOMS ...)
; compiling (DEFUN MAKE-TRAM-TERM ...)
; compiling (DEFPARAMETER TRAM-BOOL-SORT-NAME ...)
; compiling (DEFUN TRAM-?BOOL-SORT-NAME ...)
; compiling (DEFPARAMETER TRAM-SORT-ID-SORT-NAME ...)
; compiling (DEFUN TRAM-?SORT-ID-SORT-NAME ...)
; compiling (DEFPARAMETER TRAM-IF-THEN-ELSE-OP-TEMPLATE ...)
; compiling (DEFPARAMETER TRAM-SORT-MEMB-OP-TEMPLATE ...)
; compiling (DEFPARAMETER TRAM-EQUAL-OP-TEMPLATE ...)
; compiling (DEFPARAMETER TRAM-NEQUAL-OP-TEMPLATE ...)
; compiling (DEFPARAMETER TRAM-BEQUAL-OP-TEMPLATE ...)
; compiling (DEFPARAMETER TRAM-RWL-TRANS-OP-TEMPLATE ...)
; compiling (DEFPARAMETER TRAM-RWL-AUX-TRANS-OP-TEMPLATE ...)
; compiling (DEFPARAMETER XIF-OP-TEMPLATE ...)
; compiling (DEFPARAMETER EQ-OP-TEMPLATE ...)
; compiling (DEFPARAMETER NEQ-OP-TEMPLATE ...)
; compiling (DEFUN TRAM-MAKE-BUILT-IN-OPERATORS ...)
; compiling (DEFUN TRAM-MAKE-BUILT-IN-AXIOMS ...)
; compiling (DEFUN MAKE-SORT-ID-TERM ...)
; compiling (DEFUN TRAM-COMPILE-CHAOS-MODULE ...)
; compiling (DEFVAR *TRAM-RAW-RES* ...)
; compiling (DEFUN TRAM-REDUCE ...)
; compiling (DEFPARAMETER _TRAM_INIT_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_USE_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_SORT_DECL_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_SORT_ORDER_DECL_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_OP_DECL_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_RULE_DECL_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_COMPILE_COMMAND_ ...)
; compiling (DEFPARAMETER _TRAM_REDUCE_COMMAND_ ...)
; compiling (DEFUN TRAM-SEND-INITIALIZE ...)
; compiling (DEFUN TRAM-SEND-USE ...)
; compiling (DEFUN TRAM-SEND-SORT-DECLS ...)
; compiling (DEFUN TRAM-SEND-SORT-RELATIONS ...)
; compiling (DEFUN TRAM-SEND-OP-DECLS ...)
; compiling (DEFUN TRAM-SEND-RULE-DECLS ...)
; compiling (DEFUN TRAM-SEND-BUILT-IN-OPS ...)
; compiling (DEFUN TRAM-SEND-BUILT-IN-AXIOMS ...)
; compiling (DEFUN TRAM-SEND-SEM-AXIOMS ...)
; compiling (DEFUN TRAM-SEND-STAT-SWITCH ...)
; compiling (DEFUN CHECK-TRAM-ERROR ...)
; compiling (DEFUN TRAM-SEND-COMPILE ...)
; compiling (DEFUN TRAM-SEND-REDUCE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/tram/tram-TMP.fasl written
; compilation finished in 0:00:00.437
; compiling file "/«PKGBUILDDIR»/chaos/psup/psup.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO WITH-LOGGING-ERROR ...)
; compiling (DEFUN PSUP-GET-IMPORT-GRAPH ...)
; compiling (DEFUN PSUP-GET-IMPORT-GRAPH* ...)
; compiling (DEFUN PSUP-GET-SORT-GRAPH ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-MAKE-SORT-INFO ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; in: DEFUN PSUP-GET-MODULE-SORTS
;     (STRING (CDR CHAOS::S))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-GET-MODULE-SORTS ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; in: DEFUN PSUP-GET-SORT-GRAPH*
;     (STRING (CAR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CADR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CAR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CADR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-GET-SORT-GRAPH* ...)
; compiling (DEFUN PSUP-GET-OPERATORS ...)
; compiling (DEFUN PSUP-GET-OPERATORS* ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; in: DEFUN PSUP-MAKE-METHOD-INFO
;     (STRING (CAR CHAOS::MINFO))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CADDR CHAOS::MINFO))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (MAPCAR #'STRING (CADR CHAOS::MINFO))
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB-KERNEL:%RPLACD 
; --> SETQ THE LIST CONS FUNCALL SB-C::%FUNCALL 
; ==>
;   (STRING (CAR #:G223))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-MAKE-METHOD-INFO ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-MAP-CHAOS-OP-TO-TRS ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; in: DEFUN TRS-TERM-TO-PSUP-TERM
;     (STRING SORT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN TRS-TERM-TO-PSUP-TERM ...)
; compiling (DEFUN PSUP-PARSE-EXPRESSION ...)
; compiling (DEFUN PSUP-PARSE-EXPRESSION* ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; in: DEFUN PSUP-PARSE-VARS
;     (LENGTH CHAOS::DECL)
; 
; 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 VECTOR.
; compiling (DEFUN PSUP-PARSE-VARS ...)
; compiling (DEFUN PSUP-PARSE-AXIOM ...)
; compiling (DEFUN PSUP-PARSE-AXIOM* ...)
; compiling (DEFUN PSUP-UNPARSE-EXPRESSION ...)
; compiling (DEFUN PSUP-UNPARSE-EXPRESSION* ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::TRS-TERM-SORT CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-RE-MAKE-VARIABLE-FORM ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-MAKE-TERM-FORM ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; in: DEFUN TRS-TERM-TO-PSUP
;     `(:VAR ,(STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM))
;       ,(STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM)))
; --> SB-IMPL::|List| 
; ==>
;   (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

; ==>
;   (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     `(:BUILTIN-VALUE ,(CHAOS::TRS-TERM-BUILTIN-VALUE CHAOS::TERM)
;       ,(STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM)))
; --> SB-IMPL::|List| 
; ==>
;   (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN TRS-TERM-TO-PSUP ...)
; compiling (DEFUN PSUP-GET-AXIOMS ...)
; compiling (DEFUN PSUP-GET-AXIOMS* ...)

; file: /«PKGBUILDDIR»/chaos/psup/psup.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PSUP-MAKE-AXIOM-INFO ...)
; compiling (DEFUN PSUP-MAKE-AXIOM-INFO2 ...)
; compiling (DEFUN PSUP-IMAGE-OF-AXIOMS ...)
; compiling (DEFUN PSUP-IMAGE-OF-AXIOMS* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/chaos/psup/psup-TMP.fasl written
; compilation finished in 0:00:00.199
; compiling file "/«PKGBUILDDIR»/thstuff/parse-apply.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTERM START ...)
; compiling (DEFUN PARSE-START-COMMAND ...)
; compiling (DEFTERM CHOOSE ...)
; compiling (DEFTERM INSPECT-TERM ...)
; compiling (DEFUN GET-SELECTORS ...)
; compiling (DEFUN PARSE-CHOOSE-COMMAND ...)
; compiling (DEFTERM MATCH ...)
; compiling (DEFUN PARSE-MATCH-COMMAND ...)
; compiling (DEFUN PARSE-FIND-COMMAND ...)
; compiling (DEFTERM APPLY ...)
; compiling (DEFUN GET-APPLY-ACTION ...)

; file: /«PKGBUILDDIR»/thstuff/parse-apply.lisp
; in: DEFUN PARSE-RULE-SPEC
;     (CHAR CHAOS::TOK 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; 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)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time
; compiling (DEFUN PARSE-RULE-SPEC ...)
; compiling (DEFUN GET-APPLY-WHERE ...)
; compiling (DEFUN PARSE-APPLY-COMMAND ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/parse-apply-TMP.fasl written
; compilation finished in 0:00:00.193
; compiling file "/«PKGBUILDDIR»/thstuff/basics.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CHECK-APPLY-CONTEXT ...)

; file: /«PKGBUILDDIR»/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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN COMMAND-DISPLAY ...)
; compiling (DEFUN COMMAND-FINAL ...)
; compiling (DEFUN DISP-TERM ...)
; compiling (DEFUN DISP-TERM* ...)
; compiling (DEFUN APPLY-HELP ...)
; compiling (DEFUN STR-TO-INT ...)
; compiling (DEFUN !MAKE-RIGHT-ASSOCIATIVE ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN COMPUTE-OCCUR-SELECTION
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::CUR))
; 
; 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 VECTOR.

;     (ZEROP CHAOS::I)
; ==>
;   (= CHAOS::I 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 because: The operands might not be the same type.

;     (<= CHAOS::I (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::CUR)))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (<= 0 CHAOS::I)
; --> >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (<= CHAOS::I (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::CUR)))
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (<= 0 CHAOS::I)
; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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)))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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)
; ==>
;   (- CHAOS::I 1)
; 
; 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.
; 
; 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.
; compiling (DEFUN COMPUTE-OCCUR-SELECTION ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN COMPUTE-SUBSEQ-SELECTION
;     (<= CHAOS::N1 (LENGTH CHAOS::LST))
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (LENGTH CHAOS::LST)
; 
; 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 VECTOR.

;     (< 1 CHAOS::M1)
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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)
; ==>
;   (+ CHAOS::N 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a REAL, not a RATIONAL.
; 
; 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)
; ==>
;   (+ CHAOS::N 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a REAL, not a RATIONAL.
; 
; 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::N1 (LENGTH CHAOS::LST))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (<= 1 CHAOS::M1)
; --> >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (<= CHAOS::M CHAOS::N)
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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::M1)
; ==>
;   (- CHAOS::M1 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.

;     (1- CHAOS::N1)
; ==>
;   (- CHAOS::N1 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::M CHAOS::N)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::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.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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 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)
; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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))
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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)
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; 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)
; ==>
;   (+ CHAOS::N 1)
; 
; 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.
; 
; 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.
; compiling (DEFUN COMPUTE-SUBSEQ-SELECTION ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN COMPUTE-SUBSET-SELECTION
;     (LENGTH CHAOS::LST)
; 
; 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 VECTOR.

;     (< 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)
; --> >= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (1- CHAOS::I)
; ==>
;   (- CHAOS::I 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.

;     (<= 0 CHAOS::N)
; --> >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN COMPUTE-SUBSET-SELECTION ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN COMPUTE-SET-OCS
;     (PUSHNEW CHAOS::VAL CHAOS::RES)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN COMPUTE-SET-OCS ...)
; compiling (DEFVAR *SELECTION-TARGET* ...)
; compiling (DECLAIM (SPECIAL *SELECTION-TARGET*))
; compiling (DEFUN COMPUTE-SELECTION ...)
; compiling (DEFUN !COMPUTE-SELECTION ...)
; compiling (DEFUN !COMPUTE-SELECTION-AUX ...)
; compiling (DEFUN @COPY-LIST-TERM-USING-LIST-VAR ...)
; compiling (DEFUN @COPY-TERM-USING-VARIABLE ...)
; compiling (DEFUN @COPY-TERM ...)
; compiling (DEFUN @MATCHER ...)
; compiling (DEFUN @TEST-RULE-DIRECT ...)
; compiling (DEFVAR *-INSIDE-APPLY-WITH-EXTENSIONS-* ...)
; compiling (DEFUN @TEST-RULE ...)
; compiling (DEFUN @MAKE-AC-PATTERN ...)
; compiling (DEFUN @MAKE-A-PATTERNS ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN @PAT-MATCH
;     (MULTIPLE-VALUE-SETQ (CHAOS::GS CHAOS::SUB CHAOS::NO-MATCH CHAOS::EEQ)
;       (CHAOS::@MATCHER CHAOS::NPAT CHAOS::TERM TYPE))
; --> VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> VALUES 
; ==>
;   (SETQ CHAOS::GS #:NEW720)
; 
; caught STYLE-WARNING:
;   GS is being set even though it was declared to be ignored.

; ==>
;   (SETQ CHAOS::EEQ #:NEW723)
; 
; caught STYLE-WARNING:
;   EEQ is being set even though it was declared to be ignored.
; compiling (DEFUN @PAT-MATCH ...)
; compiling (DECLAIM (SPECIAL *M-PATTERN-SUBST*))
; compiling (DEFUN MATCH-M-PATTERN ...)
; compiling (DEFUN @TEST-RULE-EXTENSIONS ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::VARIABLE-NAME CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN COMPUTE-VARIABLE-SUBSTITUTION ...)
; compiling (DEFSTRUCT FOUND-PATTERN ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN GET-SUBTERM-POS
;     (>= CHAOS::RP 0)
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (1- CHAOS::P)
; ==>
;   (- CHAOS::P 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::RP 0)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN GET-SUBTERM-POS ...)
; compiling (DEFUN FIND-MATCHING-RULES-ALL ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN FIND-MATCHING-RULES-ALL*
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TARGET))
; 
; 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 VECTOR.
; compiling (DEFUN FIND-MATCHING-RULES-ALL* ...)

; file: /«PKGBUILDDIR»/thstuff/basics.lisp
; in: DEFUN FIND-MATCHING-RULES
;     (1+ CHAOS::NUM)
; ==>
;   (+ CHAOS::NUM 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 (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.
; compiling (DEFUN FIND-MATCHING-RULES ...)
; compiling (DEFUN COMPUTE-EXTRA-VARIABLES ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/basics-TMP.fasl written
; compilation finished in 0:00:00.192
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "thstuff" "basics">
; compiling file "/«PKGBUILDDIR»/thstuff/eval-match.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN EVAL-MATCH-COMMAND ...)
; compiling (DEFUN FIND-REWRITE-RULES ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::VARIABLE-NAME CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN FIND-REWRITE-RULES-TOP ...)

; file: /«PKGBUILDDIR»/thstuff/eval-match.lisp
; in: DEFUN FIND-REWRITE-RULES-ALL
;     (STRING CHAOS::LABEL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (STRING (CHAOS::VARIABLE-NAME CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN FIND-REWRITE-RULES-ALL ...)

; file: /«PKGBUILDDIR»/thstuff/eval-match.lisp
; in: DEFUN PERFORM-MATCH
;     (FUNCALL CHAOS::FIRST-MATCH-METH CHAOS::PATTERN CHAOS::REAL-TARGET)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::FIRST-MATCH-METH)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::NEXT-MATCH-METH CHAOS::GLOBAL-STATE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::NEXT-MATCH-METH)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PERFORM-MATCH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/eval-match-TMP.fasl written
; compilation finished in 0:00:00.084
; compiling file "/«PKGBUILDDIR»/thstuff/eval-apply.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN EVAL-START-COMMAND ...)
; compiling (DEFUN DO-EVAL-START-TH ...)
; compiling (DEFUN EVAL-CHOOSE-COMMAND ...)
; compiling (DEFUN EVAL-INSPECT-TERM-COMMAND ...)
; compiling (DEFVAR *-APPLIED-* ...)
; compiling (DEFVAR *-INSIDE-APPLY-ALL-* ...)
; compiling (DEFUN EVAL-APPLY-COMMAND ...)
; compiling (DEFVAR *COPY-CONDITIONS*)
; compiling (DECLAIM (SPECIAL *COPY-CONDITONS*))
; compiling (DEFVAR *APPLY-DEBUG* ...)
; compiling (DEFUN @APPLY-ONE-RULE ...)

; file: /«PKGBUILDDIR»/thstuff/eval-apply.lisp
; in: DEFUN APPLY-ONE-RULE-NO-SIMPLIFY
;     (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GLOBAL-STATE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::NEXT-MATCH-METHOD)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::LISP-FORM-FUNCTION (CHAOS::RULE-RHS CHAOS::RULE)) SUBST)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::LISP-FORM-FUNCTION (CHAOS::RULE-RHS CHAOS::RULE)))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::RULE)
;              (CHAOS::RULE-LHS CHAOS::RULE) CHAOS::TERM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::RULE))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN APPLY-ONE-RULE-NO-SIMPLIFY ...)
; compiling (DEFUN @APPLY-RULE ...)
; compiling (DEFUN @APPLY-RULE-WITH-EXTENSIONS ...)
; compiling (DEFUN @APPLY-ALL ...)
; compiling (DEFUN APPLY-PRINT-RULE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/eval-apply-TMP.fasl written
; compilation finished in 0:00:00.125
; compiling file "/«PKGBUILDDIR»/thstuff/cexec.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (SPECIAL $$CEXEC-TERM))
; compiling (DEFSTRUCT (RULE-PAT #) ...)
; compiling (DEFVAR .RULES-SO-FAR. ...)

; file: /«PKGBUILDDIR»/thstuff/cexec.lisp
; in: DEFUN PRINT-RULE-PATTERN
;     (DEFUN CHAOS::PRINT-RULE-PATTERN
;            (CHAOS::RPAT &OPTIONAL (STREAM *STANDARD-OUTPUT*) &REST IGNORE)
;       (FORMAT STREAM "~%-- rule pattern: ~d" (CHAOS::RULE-PAT-NUM CHAOS::RPAT))
;       (FORMAT STREAM "~%  posisition: ~a" (CHAOS::RULE-PAT-POS CHAOS::RPAT))
;       (FORMAT STREAM "~&  rule      :")
;       (CHAOS::PRINT-CHAOS-OBJECT (CHAOS::RULE-PAT-RULE CHAOS::RPAT))
;       (FORMAT STREAM "~&  subst     :")
;       (CHAOS::PRINT-SUBSTITUTION (CHAOS::RULE-PAT-SUBST CHAOS::RPAT))
;       (FORMAT STREAM "~&  cond-ok   :~a" (CHAOS::RULE-PAT-COND-OK CHAOS::RPAT))
;       (FORMAT STREAM "~&  condition :")
;       (CHAOS::TERM-PRINT (CHAOS::RULE-PAT-CONDITION CHAOS::RPAT)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CHAOS::PRINT-RULE-PATTERN
;         (CHAOS::RPAT &OPTIONAL (STREAM *STANDARD-OUTPUT*) &REST IGNORE)
;       (BLOCK CHAOS::PRINT-RULE-PATTERN
;         (FORMAT STREAM "~%-- rule pattern: ~d"
;                 (CHAOS::RULE-PAT-NUM CHAOS::RPAT))
;         (FORMAT STREAM "~%  posisition: ~a" (CHAOS::RULE-PAT-POS CHAOS::RPAT))
;         (FORMAT STREAM "~&  rule      :")
;         (CHAOS::PRINT-CHAOS-OBJECT (CHAOS::RULE-PAT-RULE CHAOS::RPAT))
;         (FORMAT STREAM "~&  subst     :")
;         (CHAOS::PRINT-SUBSTITUTION (CHAOS::RULE-PAT-SUBST CHAOS::RPAT))
;         (FORMAT STREAM "~&  cond-ok   :~a"
;                 (CHAOS::RULE-PAT-COND-OK CHAOS::RPAT))
;         (FORMAT STREAM "~&  condition :")
;         (CHAOS::TERM-PRINT (CHAOS::RULE-PAT-CONDITION CHAOS::RPAT))))
; 
; caught STYLE-WARNING:
;   The variable IGNORE is defined but never used.
; compiling (DEFUN PRINT-RULE-PATTERN ...)
; compiling (DEFUN MAKE-RULE-PAT-WITH-CHECK ...)
; compiling (DEFUN RULE-PAT-EQUAL ...)

; file: /«PKGBUILDDIR»/thstuff/cexec.lisp
; in: DEFSTRUCT RWL-STATE
;     (DEFSTRUCT (CHAOS::RWL-STATE (:PRINT-FUNCTION CHAOS::PR-RWL-STATE))
;       (CHAOS::STATE 0 :TYPE FIXNUM)
;       (CHAOS::TERM NIL)
;       (CHAOS::TRANS-RULES NIL)
;       (CHAOS::RULE-PAT NIL)
;       (SUBST NIL)
;       (CHAOS::IS-FINAL NIL)
;       (LOOP NIL)
;       (CONDITION NIL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::RWL-STATE {10095B8DC3}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::RWL-STATE-TERM could not be inlined because
;   the structure definition for CHAOS::RWL-STATE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEFSTRUCT (RWL-STATE #) ...)
; compiling (DEFUN STATE-IS-VALID-TRANSITION ...)
; compiling (DEFUN PR-RWL-STATE ...)
; compiling (DEFUN PRINT-RWL-STATE ...)
; compiling (DEFUN PRINT-STATE-TRANSITION ...)
; compiling (DEFSTRUCT (RWL-SCH-NODE # ...) ...)
; compiling (DEFMACRO CREATE-SCH-NODE ...)
; compiling (DEFUN PR-RWL-SCH-NODE ...)
; compiling (DEFUN SHOW-RWL-SCH-STATE ...)
; compiling (DEFUN SHOW-RWL-SCH-LABEL ...)

; file: /«PKGBUILDDIR»/thstuff/cexec.lisp
; in: DEFSTRUCT RWL-SCH-CONTEXT
;     (DEFSTRUCT
;         (CHAOS::RWL-SCH-CONTEXT (:PRINT-FUNCTION CHAOS::PRINT-SCH-CONTEXT))
;       (CHAOS::MODULE NIL)
;       (CHAOS::TERM NIL)
;       (CHAOS::PATTERN NIL)
;       (CONDITION NIL)
;       (CHAOS::ZERO-TRANS-ALLOWED NIL)
;       (CHAOS::FINAL-CHECK NIL)
;       (CHAOS::MAX-SOL MOST-POSITIVE-FIXNUM :TYPE FIXNUM)
;       (CHAOS::SOL-FOUND 0 :TYPE FIXNUM)
;       (CHAOS::MAX-DEPTH MOST-POSITIVE-FIXNUM :TYPE FIXNUM)
;       (CHAOS::CUR-DEPTH 0 :TYPE FIXNUM)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::RWL-SCH-CONTEXT {100A7B3413}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CHAOS::RWL-SCH-CONTEXT-ANSWERS and
;   CHAOS::RWL-SCH-CONTEXT-IF could not be inlined because the structure definition
;   for CHAOS::RWL-SCH-CONTEXT was not yet seen. To avoid this warning, DEFSTRUCT
;   should precede references to the affected functions, or they must be declared
;   locally notinline at each call site.
; compiling (DEFSTRUCT (RWL-SCH-CONTEXT #) ...)
; compiling (DEFUN PRINT-SCH-CONTEXT ...)
; compiling (DEFUN SHOW-RWL-SCH-GRAPH ...)
; compiling (DEFUN FIND-RWL-SCH-STATE ...)
; compiling (DEFUN FIND-RWL-SCH-STATE-GLOBALLY ...)
; compiling (DEFUN SHOW-RWL-SCH-PATH ...)
; compiling (DEFUN FIND-MATCHING-RULES-FOR-EXEC ...)
; compiling (DEFUN FIND-MATCHING-RULES-FOR-EXEC* ...)
; compiling (DEFUN IF-BINDING-SHOULD-BE-PRINTED ...)
; compiling (DEFUN RWL-SCH-CHECK-CONDITIONS ...)
; compiling (DEFUN PR-USED-RULE ...)
; compiling (DEFUN PRINT-SUBST-IF-BINDING-RESULT ...)
; compiling (DEFUN GET-TARGET-SUBTERM ...)
; compiling (DEFVAR .CEXEC-TERM-HASH. ...)
; compiling (DEFUN INITIALIZE-CEXEC-TERM-HASH ...)
; compiling (DECLAIM (INLINE GET-SCH-HASHED-TERM))
; compiling (DEFUN GET-SCH-HASHED-TERM ...)
; compiling (DECLAIM (INLINE SET-SCH-HASHED-TERM))
; compiling (DEFUN SET-SCH-HASHED-TERM ...)
; compiling (DEFMACRO CEXEC-GET-HASHED-TERM ...)
; compiling (DEFMACRO CEXEC-SET-HASHED-TERM ...)
; compiling (DEFUN CEXEC-SCH-CHECK-PREDICATE ...)
; compiling (DEFUN CEXEC-LOOP-CHECK ...)
; compiling (DEFUN MAKE-RWL-STATE-WITH-HASH ...)
; compiling (DEFUN RWL-STATE-SET-TRANSITION-RULES ...)
; compiling (DEFUN APPLY-RULE-CEXEC ...)
; compiling (DEFUN CEXEC-TERM-1 ...)
; compiling (DEFUN RWL-STEP-FORWARD-1 ...)
; compiling (DEFUN MAKE-ANYTHING-IS-OK-TERM ...)
; compiling (DEFUN RWL-SEARCH* ...)
; compiling (DEFUN REPORT-RWL-RESULT ...)
; compiling (DEFUN RWL-CONTINUE ...)
; compiling (DEFUN RWL-CONTINUE+ ...)
; compiling (DEFUN RWL-CONTINUE* ...)
; compiling (DEFUN RWL-SEARCH ...)
; compiling (DEFUN RWL-CHECK-ONE-STEP-REACHABILITY ...)
; compiling (DEFUN RWL-SCH-SET-RESULT ...)
; compiling (DEFUN RWL-CONT ...)
; compiling (DEFUN NAT*-TO-MAX-OPTION ...)
; compiling (DEFUN TERM-PATTERN-INCLUDED-IN-CEXEC ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/cexec-TMP.fasl written
; compilation finished in 0:00:00.911
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "thstuff" "cexec">
; compiling file "/«PKGBUILDDIR»/thstuff/case.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFPARAMETER .CASE-MODULE-TRUE. ...)
; compiling (DEFPARAMETER .CASE-MODULE-FALSE. ...)
; compiling (DEFPARAMETER .CASE-TRUE-AXIOM. ...)
; compiling (DEFPARAMETER .CASE-FALSE-AXIOM. ...)
; compiling (DEFUN PERFORM-CASE-REDUCTION ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/case-TMP.fasl written
; compilation finished in 0:00:00.036
; compiling file "/«PKGBUILDDIR»/thstuff/proof-struct.lisp" (written 18 OCT 2015 10:16:15 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT (TACTIC #) ...)
; compiling (DEFPARAMETER .TACTIC-SI. ...)
; compiling (DEFPARAMETER .TACTIC-CA. ...)
; compiling (DEFPARAMETER .TACTIC-TC. ...)
; compiling (DEFPARAMETER .TACTIC-IP. ...)
; compiling (DEFPARAMETER .TACTIC-RD. ...)
; compiling (DEFPARAMETER .TACTIC-NF. ...)
; compiling (DEFPARAMETER .TACTIC-CT. ...)
; compiling (DEFPARAMETER .TACTIC-NIL. ...)
; compiling (DEFPARAMETER .ALL-BUILTIN-TACTICS. ...)
; compiling (DEFPARAMETER .DEFAULT-TACTICS. ...)
; compiling (DEFPARAMETER .TACTIC-CTF. ...)
; compiling (DEFPARAMETER .TACTIC-CSP. ...)
; compiling (DEFVAR .USER-DEFINED-TACTICS. ...)
; compiling (DEFUN CANONICALIZE-TACTIC-NAME ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN PR-TACTIC
;     (FORMAT STREAM "[~a]" (CHAOS::TACTIC-NAME CHAOS::TACTIC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG59 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "[" STREAM)
;               (PRINC #:FORMAT-ARG59 STREAM)
;               (WRITE-STRING "]" STREAM))
;             NIL)
;           #:G58)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-TACTIC ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN GET-BUILTIN-TACTIC ...)
; compiling (DEFUN TACTIC-NAME-IS-BUILTIN? ...)
; compiling (DEFSTRUCT (TACTIC-SEQ # ...) ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN PR-TACTIC-SEQ
;     (FORMAT STREAM "( ~{~a~^ ~a ~} )"
;             (MAPCAR #'(LAMBDA (CHAOS::X) (CHAOS::TACTIC-NAME CHAOS::X))
;                     CHAOS::TACTICS))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG150 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "( " STREAM)
;               (LET* (# #)
;                 (DECLARE #)
;                 (LOOP #
;                       #
;                       #
;                       #
;                       #
;                       #))
;               (WRITE-STRING " )" STREAM))
;             NIL)
;           #:G149)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-TACTIC-SEQ ...)
; compiling (DEFSTRUCT (TACTIC-CTFP-COMMON #) ...)
; compiling (DEFSTRUCT (TACTIC-CTF # ...) ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN PR-TACTIC-CTF
;     (FORMAT STREAM ":ctf")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING ":ctf" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-TACTIC-CTF ...)
; compiling (DEFSTRUCT (TACTIC-CSP # ...) ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN PR-TACTIC-CSP
;     (FORMAT STREAM ":csp")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (WRITE-STRING ":csp" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-TACTIC-CSP ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN GET-DEFINED-TACTIC
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (STRING-EQUAL CHAOS::NAME
;                        (CHAOS::CANONICALIZE-TACTIC-NAME
;                         (CHAOS::TACTIC-NAME CHAOS::X))))
;      CHAOS::DEFS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; compiling (DEFUN GET-DEFINED-TACTIC ...)
; compiling (DEFUN GET-DEFAULT-TACTICS ...)
; compiling (DEFUN DECLARE-TACTIC ...)
; compiling (DEFVAR *CITP-SHOW-RWL* ...)
; compiling (DEFMACRO WITH-IN-CONTEXT ...)
; compiling (DECLAIM (SPECIAL *CITP-SPOILER*))
; compiling (DEFVAR *CITP-SPOILER* ...)
; compiling (DEFMACRO IF-SPOILER-ON ...)
; compiling (DEFMACRO WHEN-SPOILER-ON ...)
; compiling (DEFMACRO WITH-SPOILER-ON ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFPARAMETER *CITP-MAX-FLAGS* ...)
; compiling (DEFSTRUCT (CITP-FLAG-STRUCT) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CITP-FLAGS*)
; compiling (SETQ *CITP-FLAGS* ...)
; compiling (DEFMACRO CITP-FLAG-STRUCT ...)
; compiling (DEFMACRO CITP-FLAG ...)
; compiling (DEFMACRO CITP-FLAG-NAME ...)
; compiling (DEFMACRO CITP-FLAG-HOOK ...)
; compiling (DEFCONSTANT CITP-ALL ...)
; compiling (DEFCONSTANT CITP-VERBOSE ...)
; compiling (DEFCONSTANT CITP-SHOW-RWL ...)
; compiling (DEFCONSTANT CITP-SPOILER ...)
; compiling (DEFCONSTANT CITP-PRINT-MESSAGE ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN FIND-CITP-FLAG-INDEX
;     (CHAOS::CITP-FLAG-NAME CHAOS::X)
; --> CHAOS::CITP-FLAG-STRUCT-NAME TRULY-THE SB-KERNEL:%INSTANCE-REF THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN FIND-CITP-FLAG-INDEX ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; 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 because: The operands might not be the same type.
; compiling (DEFUN PRINT-CITP-FLAG ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN PR-CITP-FLAG-INTERNAL
;     (CHAOS::CITP-FLAG-NAME CHAOS::INDEX)
; --> CHAOS::CITP-FLAG-STRUCT-NAME TRULY-THE SB-KERNEL:%INSTANCE-REF THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; 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)
; --> CHAOS::CITP-FLAG-STRUCT-VALUE SB-KERNEL:%INSTANCE-REF THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PR-CITP-FLAG-INTERNAL ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN HELP-CITP-FLAG
;     (CHAOS::CITP-FLAG-STRUCT CHAOS::INDEX)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN HELP-CITP-FLAG ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; 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")
; --> PROGN SETF LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::CITP-FLAG-HOOK CHAOS::CITP-VERBOSE)
;             #'(LAMBDA (CHAOS::NAME CHAOS::VALUE)
;                 (DECLARE (IGNORE CHAOS::NAME))
;                 (SETF CHAOS::*CITP-VERBOSE* CHAOS::VALUE)))
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (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)))
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::CITP-FLAG-HOOK CHAOS::CITP-SPOILER)
;             #'(LAMBDA (CHAOS::NAME CHAOS::VALUE)
;                 (DECLARE (IGNORE CHAOS::NAME))
;                 (SETF CHAOS::*CITP-SPOILER* CHAOS::VALUE)))
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::CITP-FLAG-STRUCT CHAOS::IDX)
;             (CHAOS::MAKE-CITP-FLAG-STRUCT :VALUE NIL))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFUN INITIALIZE-CITP-FLAG ...)
; compiling (INITIALIZE-CITP-FLAG)
; compiling (DEFMACRO WHEN-CITP-VERBOSE ...)
; compiling (DEFVAR *CITP-SILENT* ...)
; compiling (DEFMACRO WITH-CITP-ENV ...)
; compiling (DEFMACRO WITH-NEXT-CONTEXT ...)
; compiling (DEFMACRO WITH-CITP-DEBUG ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFSTRUCT GOAL
;     (DEFSTRUCT (CHAOS::GOAL (:PRINT-FUNCTION CHAOS::PR-GOAL))
;       (CHAOS::NAME "" :TYPE STRING)
;       (CHAOS::CONTEXT NIL :TYPE (OR NULL CHAOS::MODULE))
;       (CHAOS::CONSTANTS NIL :TYPE LIST)
;       (CHAOS::IND-CONSTANTS NIL :TYPE LIST)
;       (CHAOS::INDVARS NIL :TYPE LIST)
;       (CHAOS::SKOLEMS NIL :TYPE LIST)
;       (CHAOS::ASSUMPTIONS NIL :TYPE LIST)
;       (CHAOS::TACTIC NIL :TYPE (OR NULL CHAOS::TACTIC))
;       (CHAOS::TARGETS NIL :TYPE LIST)
;       (CHAOS::PROVED NIL :TYPE LIST)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::GOAL {1007FD4043}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::GOAL-DEFS could not be inlined because the
;   structure definition for CHAOS::GOAL was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEFSTRUCT (GOAL #) ...)
; compiling (DEFUN GOAL-IS-DISCHARGED ...)
; compiling (DEFUN GET-MODULE-SIMPLE-NAME ...)
; compiling (DEFUN PR-GOAL ...)
; compiling (DEFUN THE-GOAL-NEEDS-UNDO ...)
; compiling (DEFSTRUCT (PTREE-NODE # ...) ...)
; compiling (DEFUN PR-PTREE-NODE ...)
; compiling (DEFMACRO PTREE-NODE-GOAL ...)
; compiling (DEFUN INITIALIZE-PTREE-NODE ...)
; compiling (DEFUN NODE-IS-DISCHARGED? ...)
; compiling (DEFUN MAKE-IT-UNPROVED ...)
; compiling (DEFUN MAKE-PTREE-GOAL-NAME ...)
; compiling (DEFPARAMETER .NEXT-CONTEXT-MODULE. ...)
; compiling (DEFUN MAKE-NEXT-CONTEXT-MODULE-NAME ...)
; compiling (DEFVAR .GOALS-SO-FAR. ...)
; compiling (DEFUN PREPARE-NEXT-GOAL ...)
; compiling (DEFUN GIVE-GOAL-NAME-EACH-IN-ORDER ...)
; compiling (DEFUN MAKE-PTREE-ROOT ...)
; compiling (DEFUN ADD-PTREE-CHILD ...)
; compiling (DEFUN ADD-PTREE-CHILDREN ...)
; compiling (DEFUN GET-PTREE-ROOT ...)
; compiling (DEFUN THE-NODE-NEEDS-UNDO ...)
; compiling (DEFUN PARENT-NEEDS-UNDO ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFSTRUCT PTREE
;     (DEFSTRUCT (CHAOS::PTREE (:PRINT-FUNCTION CHAOS::PR-PTREE))
;       (CHAOS::CONTEXT NIL :TYPE (OR NULL CHAOS::MODULE))
;       (CHAOS::NUM-GEN-CONST 0 :TYPE FIXNUM)
;       (CHAOS::NUM-GEN-CONST-IND 0 :TYPE FIXNUM)
;       (CHAOS::ROOT NIL :TYPE (OR NULL CHAOS::PTREE-NODE))
;       (CHAOS::INDVAR-SUBST NIL :TYPE LIST)
;       (CHAOS::VAR-SUBST NIL :TYPE LIST)
;       (CHAOS::DEFS-SO-FAR NIL :TYPE LIST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::PTREE {10094668D3}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::PTREE-CONTEXT could not be inlined because
;   the structure definition for CHAOS::PTREE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEFSTRUCT (PTREE #) ...)
; compiling (DEFUN PR-PTREE ...)
; compiling (DEFUN RESET-PROOF ...)
; compiling (DEFUN EXISTING-DEF-NAME? ...)
; compiling (DEFUN INTRO-CONST-RETURNS-SUBST ...)
; compiling (DEFUN MAKE-TC-CONST-NAME ...)
; compiling (DEFUN FIND-VARIABLE-SUBST-IN ...)
; compiling (DEFUN LIST-SUBMODULES ...)
; compiling (DEFUN VARIABLE->CONSTANT ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN MAKE-IND-CONST-NAME
;     (STRING CHAOS::NAME-PREFIX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN MAKE-IND-CONST-NAME ...)
; compiling (DEFUN VARIABLE->CONSTRUCTOR ...)
; compiling (DEFUN SKOLEMIZE-IF-NEED ...)
; compiling (DEFUN INITIALIZE-PROOF-TREE ...)
; compiling (DEFUN CHECK-SUCCESS ...)
; compiling (DEFUN ROLL-BACK ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN FIND-GOAL-NODE
;     (STRING= (CHAOS::GOAL-NAME CHAOS::GOAL) CHAOS::NAME)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN FIND-GOAL-NODE ...)
; compiling (DEFUN PRINT-NAMED-GOAL ...)
; compiling (DEFUN GET-UNPROVED-NODES ...)
; compiling (DEFUN GET-UNPROVED-GOALS ...)
; compiling (DEFUN PRINT-UNPROVED-GOALS ...)
; compiling (DEFUN GET-NEXT-PROOF-CONTEXT ...)
; compiling (DEFUN NEXT-PROOF-TARGET-IS-SPECIFIED? ...)
; compiling (DEFUN GET-TARGET-GOAL-NODE ...)
; compiling (DEFUN SELECT-NEXT-GOAL ...)
; compiling (DEFUN GET-TACTIC ...)
; compiling (DEFPARAMETER .ROOT-CONTEXT-MODULE. ...)
; compiling (DEFVAR .LS-PAT. ...)
; compiling (DEFVAR .LE-PAT. ...)
; compiling (DEFUN PREPARE-ROOT-CONTEXT ...)
; compiling (DEFUN BEGIN-PROOF ...)
; compiling (DEFVAR *SHOW-PROOF-MODE* ...)
; compiling (DEFUN PRINT-PROOF-TREE ...)
; compiling (DEFUN !PRINT-PROOF-TREE ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN !PRINT-PROOF-VERTICAL
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::NODE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::LEAF-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN !PRINT-PROOF-VERTICAL ...)
; compiling (DEFUN !PRINT-PROOF-HORIZONTAL ...)
; compiling (DEFPARAMETER *PROOF-INDENT* ...)

; file: /«PKGBUILDDIR»/thstuff/proof-struct.lisp
; in: DEFUN DESCRIBE-PROOF-TREE
;     (+ CHAOS::*PROOF-INDENT* CHAOS::*PRINT-INDENT*)
; 
; 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 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       etc.
; compiling (DEFUN DESCRIBE-PROOF-TREE ...)
; compiling (DEFUN PRINT-CURRENT-GOAL ...)
; compiling (DEFUN PRINT-DEFS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/proof-struct-TMP.fasl written
; compilation finished in 0:00:00.690
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "thstuff" "proof-struct">
; compiling file "/«PKGBUILDDIR»/thstuff/apply-tactic.lisp" (written 18 OCT 2015 10:16:15 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN DISTRIBUTE-SENTENCES ...)
; compiling (DEFUN RULE-COPY-CANONICALIZED ...)
; compiling (DEFUN APPLY-SUBSTITUTION-TO-AXIOM ...)
; compiling (DEFUN COPY-CONSTANT-TERM ...)
; compiling (DEFUN SELECT-COMBS-AUX ...)
; compiling (DEFUN SELECT-COMBS-AUX-INDEXED ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN SELECT-COMB-ELEMS
;     (LENGTH CHAOS::X)
; 
; 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 VECTOR.
; compiling (DEFUN SELECT-COMB-ELEMS ...)
; compiling (DEFUN AXIOM-VARIABLES ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN NORMALIZE-TERM-IN
;     (= CHAOS::RULE-COUNT-SAVE (CHAOS::NUMBER-REWRITINGS))
; 
; 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 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.

;     (DEFUN CHAOS::NORMALIZE-TERM-IN
;            (CHAOS::MODULE CHAOS::TERM &OPTIONAL (CHAOS::REDUCTION-MODE :RED))
;       (LET ((CHAOS::APPLIED? NIL)
;             (CHAOS::TARGETS NIL)
;             (CHAOS::RULE-COUNT-SAVE (CHAOS::NUMBER-REWRITINGS)))
;         (IF (CHAOS::TERM-VARIABLES CHAOS::TERM)
;             (SETQ CHAOS::TARGETS #)
;             (SETQ CHAOS::TARGETS #))
;         (IF CHAOS::TARGETS
;             (PROGN (DOLIST # #) (VALUES CHAOS::TERM CHAOS::APPLIED?))
;             (VALUES CHAOS::TERM NIL))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::NORMALIZE-TERM-IN
;                    (SB-INT:NAMED-LAMBDA CHAOS::NORMALIZE-TERM-IN
;                        (CHAOS::MODULE CHAOS::TERM &OPTIONAL
;                         (CHAOS::REDUCTION-MODE :RED))
;                      (BLOCK CHAOS::NORMALIZE-TERM-IN
;                        (LET (# # #)
;                          (IF #
;                              #
;                              #)
;                          (IF CHAOS::TARGETS
;                              #
;                              #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::NUMBER-REWRITINGS could not be inlined because its source code
;   was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to CHAOS::REDUCER-NO-STAT could not be inlined because its source code was
;   not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; compiling (DEFUN NORMALIZE-TERM-IN ...)
; compiling (DEFUN NORMALIZE-SENTENCE ...)
; compiling (DEFUN IS-CONTRADICTION ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN SENTENCE-IS-SATISFIED
;     (SETQ CHAOS::RESULT :CT)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN SENTENCE-IS-SATISFIED ...)
; compiling (DEFUN CHECK-TRUE<=>FALSE ...)
; compiling (DEFUN CHECK-CONTRADICTORY-ASSUMPTIONS ...)
; compiling (DEFUN CHECK-CONTRADICTION ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN CHECK-LE
;     (MULTIPLE-VALUE-SETQ (CHAOS::MATCH? SUBST)
;       (CHAOS::@PAT-MATCH CHAOS::.LE-PAT. CHAOS::LHS))
; --> VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> VALUES 
; ==>
;   (SETQ SUBST #:NEW400)
; 
; caught STYLE-WARNING:
;   SUBST is being set even though it was declared to be ignored.
; compiling (DEFUN CHECK-LE ...)
; compiling (DEFUN BOOLEAN-CONSTANT? ...)
; compiling (DEFUN SIMPLIFY-BOOLEAN-AXIOM ...)
; compiling (DEFUN MAKE-NEW-ASSUMPTION ...)
; compiling (DEFUN CONDITION->AXIOMS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN AXIOM-IS-AN-INSTANCE-OF
;     (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GS)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::NEXT-MATCH-METHOD)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::CX)
;              (CHAOS::RULE-LHS CHAOS::CX) (CHAOS::RULE-LHS CHAOS::AX))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::RULE-FIRST-MATCH-METHOD CHAOS::CX))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN AXIOM-IS-AN-INSTANCE-OF ...)
; compiling (DEFUN CHECK-CT-WITH-AXIOMS ...)
; compiling (DEFUN CHECK-SENTENCE&MARK-LABEL ...)
; compiling (DEFUN SET-OPERATOR-REWRITE-RULE ...)
; compiling (DEFUN ADD-ASSUMPTIONS-TO-GOAL ...)
; compiling (DEFUN CHECK-GOAL-IS-SATISFIED ...)
; compiling (DEFUN DO-CHECK-SENTENCE ...)
; compiling (DEFPARAMETER .TRIAL-CONTEXT-MODULE. ...)
; compiling (DEFUN TRY-PROVE-WITH-AXIOMS ...)
; compiling (DEFUN ALREADY-PROVED? ...)
; compiling (DEFUN APPLY-NIL ...)
; compiling (DEFUN APPLY-NIL-INTERNAL ...)
; compiling (DEFUN GENERATE-IP-DERIVED-AXIOMS ...)
; compiling (DEFUN APPLY-IP ...)
; compiling (DEFUN MAKE-TC-VARIABLE-SUBSTITUTIONS ...)
; compiling (DEFUN APPLY-TC ...)
; compiling (DEFUN SET-INDVARS ...)
; compiling (DEFUN SET-INDUCTION-VARIABLES ...)
; compiling (DEFUN GATHER-CONSTRUCTOR-OPS ...)
; compiling (DEFUN GET-INDUCTION-VARIABLE-CONSTRUCTORS ...)
; compiling (DEFUN GET-INDVAR-CONSTRUCTORS ...)
; compiling (DEFUN MAKE-INDVAR-COMB-SUBSTITUTIONS ...)
; compiling (DEFUN GET-INDUCTION-BASE-SUBSTITUTIONS ...)
; compiling (DEFUN GET-INDUCTION-STEP-SUBSTITUTIONS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; 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 CONS NULL VECTOR).
; compiling (DEFUN GET-REAL-TARGET-VARIABLE ...)
; compiling (DEFUN MAKE-REAL-INDUCTION-SUBST ...)
; compiling (DEFUN SET-BASE-CASES ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN MAKE-STEP-CONSTRUCTOR-TERM
;     (INCF CHAOS::N)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::N)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (< 1 (INCF CHAOS::N))
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (ZEROP (CDR CHAOS::VAR-ASSOC))
; ==>
;   (= (CDR CHAOS::VAR-ASSOC) 0)
; 
; 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 because: The operands might not be the same type.

;     (INCF (CDR CHAOS::VAR-ASSOC))
; --> LET* 
; ==>
;   (+ 1 (CDR #:VAR-ASSOC1885))
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (INCF (CDR CHAOS::VAR-ASSOC))
; --> LET* 
; ==>
;   (+ 1 (CDR #:VAR-ASSOC1887))
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (INCF (CDR CHAOS::VAR-ASSOC))
; --> LET* 
; ==>
;   (+ 1 (CDR #:VAR-ASSOC1889))
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ 1 (CDR #:VAR-ASSOC1887))
; 
; 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-ASSOC1889))
; 
; 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-ASSOC1885))
; 
; 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)
; --> SETQ 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 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 (INCF CHAOS::N))
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; 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.
; compiling (DEFUN MAKE-STEP-CONSTRUCTOR-TERM ...)
; compiling (DEFUN MAKE-INDUCTION-STEP-SUBST ...)
; compiling (DEFUN MAKE-REAL-INDUCTION-STEP-SUBST ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN RESOLVE-INDUCTION-SUBST
;     (ASSOC CHAOS::V CHAOS::RSUBSTS)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN RESOLVE-INDUCTION-SUBST ...)
; compiling (DEFUN SUBST-IS-EQUAL ...)
; compiling (DEFUN ADD-HYPOTHESIS ...)
; compiling (DEFUN ADD-STEP-CASES ...)
; compiling (DEFUN INDUCTION-CASES ...)
; compiling (DEFUN APPLY-SI ...)
; compiling (DEFUN DO-APPLY-RD ...)
; compiling (DEFUN APPLY-RD ...)
; compiling (DEFUN GET-GTERMS ...)
; compiling (DEFUN GET-GTERMS-FROM-AXIOM ...)
; compiling (DEFUN GSUBTERM-HAS-MATCHING-RULE ...)
; compiling (DEFUN CA-INSTANTIATE-CONDITION ...)
; compiling (DEFVAR .DUPLICATED. ...)
; compiling (DEFVAR .SUBST-SO-FAR. ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN FIND-GTERM-MATCHING-CONDITIONALS
;     (SETF (AREF CHAOS::.DUPLICATED. CHAOS::IDX)
;             (REMOVE-DUPLICATES CHAOS::REJECTED :TEST
;                                #'CHAOS::TERM-EQUATIONAL-EQUAL))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFUN FIND-GTERM-MATCHING-CONDITIONALS ...)
; compiling (DEFVAR .NEW-AXS-SO-FAR. ...)
; compiling (DEFUN GENERATE-CASE-AXIOMS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; 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 CONS NULL VECTOR).

;     (LENGTH CHAOS::XC)
; 
; 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 VECTOR.
; compiling (DEFUN FIND-SUB-CASE-IN ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN CASE-IS-VALID
;     (AREF CHAOS::.DUPLICATED. CHAOS::IDX)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN CASE-IS-VALID ...)
; compiling (DEFUN REMOVE-EXCLUSIVE-CASES ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN NORMALIZE-CASES
;     (LENGTH CHAOS::.DUPLICATED.)
; 
; 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 VECTOR.

;     (AREF CHAOS::.DUPLICATED. CHAOS::X)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN NORMALIZE-CASES ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN GENERATE-CASES
;     (LENGTH CHAOS::RV-COMBS)
; 
; 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 VECTOR.
; compiling (DEFUN GENERATE-CASES ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN RULE-IS-FOR-CASE
;     (STRING CHAOS::LB)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN RULE-IS-FOR-CASE ...)
; compiling (DEFUN GET-CA-RULES ...)
; compiling (DEFUN APPLY-CA ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN RULE-IS-CASE-GENERATED
;     (STRING CHAOS::LB)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN RULE-IS-CASE-GENERATED ...)
; compiling (DEFUN PRINT-CASE-AXIOMS ...)
; compiling (DEFUN ALL-CASES ...)
; compiling (DEFUN APPLY-CS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN GET-TARGET-AXIOM
;     (CHAOS::SET-NEEDS-RULE)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN GET-TARGET-AXIOM ...)
; compiling (DEFUN RESOLVE-SUBST-FORM ...)
; compiling (DEFUN MAKE-REAL-INSTANCIATION-SUBST ...)
; compiling (DEFUN MAKE-AXIOM-INSTANCE ...)
; compiling (DEFUN INSTANCIATE-AXIOM ...)
; compiling (DEFUN MAKE-IMPL-ASSUMPTION ...)
; compiling (DEFUN MAKE-IMPL-FORM ...)
; compiling (DEFUN INTRODUCE-IMPLICATION-TO-GOAL ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN CITP-RENAME-TERM-VARIABLES
;     (MEMBER CHAOS::VAR CHAOS::DONE)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN CITP-RENAME-TERM-VARIABLES ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: LET ((*RENAMED-VARIABLE-NUMBER* 0))
;     (LET ((CHAOS::*RENAMED-VARIABLE-NUMBER* 0))
;       (DECLARE (TYPE FIXNUM CHAOS::*RENAMED-VARIABLE-NUMBER*))
;       (DEFUN CHAOS::CITP-RENAME-AXIOM-VARIABLES (CHAOS::AXIOM)
;         (CHAOS::CITP-RENAME-TERM-VARIABLES
;          (INCF CHAOS::*RENAMED-VARIABLE-NUMBER*)
;          (CHAOS::AXIOM-VARIABLES CHAOS::AXIOM))
;         CHAOS::AXIOM))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (CHAOS::*RENAMED-VARIABLE-NUMBER*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables
; compiling (LET (#) ...)
; compiling (DEFSTRUCT (CPP #) ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN PR-CPP
;     (FORMAT STREAM "~%Critical Pair ---------")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "Critical Pair ---------" STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PR-CPP ...)
; compiling (DEFUN COMPUTE-OVERWRAPS ...)
; compiling (DEFUN TERM-AT-POS ...)
; compiling (DEFUN REPLACE-TERM-AT ...)
; compiling (DEFUN COMPUTE-AXIOM-OVERWRAPPS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; 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.
; compiling (DEFUN GENERATE-CRITICAL-PAIRS ...)
; compiling (DEFUN COMPUTE-CRITICAL-PAIRS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN APPLY-CP
;     (LENGTH CHAOS::CPPS)
; 
; 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 VECTOR.
; compiling (DEFUN APPLY-CP ...)
; compiling (DEFUN ADD-CRITICAL-PAIRS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN REDUCE-IN-GOAL
;     (STRING CHAOS::MODE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN REDUCE-IN-GOAL ...)
; compiling (DEFUN APPLY-NF ...)
; compiling (DEFUN APPLY-CT ...)
; compiling (DEFUN MAKE-CTF-CONSTRUCTOR-PATTERN ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN DO-APPLY-CTF-WITH-CONSTRUCTORS
;     (SORT CHAOS::CONSTRUCTORS
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (LET ((CHAOS::PREC #))
;                 (IF (EQ CHAOS::PREC :GREATER)
;                     T
;                     NIL))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; compiling (DEFUN DO-APPLY-CTF-WITH-CONSTRUCTORS ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN DO-APPLY-CTF-TO-EQUATION
;     (FLET ((CHAOS::ADD-ASSUMPTION (CHAOS::GOAL CHAOS::LHS CHAOS::RHS)
;              (LET (CHAOS::N-AXIOM)
;                (MULTIPLE-VALUE-BIND # # #))))
;       (LET ((CHAOS::T-GOAL
;              (CHAOS::PREPARE-NEXT-GOAL CHAOS::CUR-NODE CHAOS::TACTIC))
;             (CHAOS::F-GOAL
;              (CHAOS::PREPARE-NEXT-GOAL CHAOS::CUR-NODE CHAOS::TACTIC)))
;         (CHAOS::WITH-IN-MODULE ((CHAOS::GOAL-CONTEXT CHAOS::CUR-GOAL))
;           (LET (#)
;             (UNLESS # #)
;             (UNLESS # #)))
;         (CHAOS::WITH-CITP-DEBUG NIL (FORMAT T "~%citp from equation: generated")
;                                 (CHAOS::PRINT-NEXT)
;                                 (WHEN CHAOS::T-GOAL
;                                   (CHAOS::PR-GOAL CHAOS::T-GOAL))
;                                 (WHEN CHAOS::F-GOAL
;                                   (CHAOS::PR-GOAL CHAOS::F-GOAL)))
;         (IF (AND CHAOS::T-GOAL CHAOS::F-GOAL)
;             (VALUES T (LIST CHAOS::T-GOAL CHAOS::F-GOAL))
;             (IF CHAOS::T-GOAL
;                 (VALUES T #)
;                 (IF CHAOS::F-GOAL
;                     #
;                     #)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; compiling (DEFUN DO-APPLY-CTF-TO-EQUATION ...)
; compiling (DEFUN PARSE-AXIOM-OR-TERM ...)
; compiling (DEFUN DO-APPLY-CTF ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN APPLY-CTF
;     (LENGTH CHAOS::NEXT-GOALS)
; 
; 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 VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; 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 SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; 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 (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; compiling (DEFUN APPLY-CTF ...)
; compiling (DEFUN APPLY-CTF-TACTIC ...)
; compiling (DEFUN DO-APPLY-CSP ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN APPLY-CSP
;     (LENGTH CHAOS::NEXT-GOALS)
; 
; 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 VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; 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 SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; 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 (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
;                                                                    * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; compiling (DEFUN APPLY-CSP ...)
; compiling (DEFUN APPLY-CSP-TACTIC ...)
; compiling (DEFUN REPORT-CITP-STAT ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN APPLY-TACTIC
;     (FUNCALL (CHAOS::TACTIC-EXECUTOR CHAOS::TACTIC) CHAOS::PTREE-NODE
;              CHAOS::TACTIC)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::TACTIC-EXECUTOR CHAOS::TACTIC))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN APPLY-TACTIC ...)
; compiling (DEFUN APPLY-TACTICS-TO-NODE ...)
; compiling (DEFUN APPLY-TACTIC-SEQ ...)
; compiling (DEFUN FLATTEN-TACTIC-SEQ ...)

; file: /«PKGBUILDDIR»/thstuff/apply-tactic.lisp
; in: DEFUN APPLY-TACTICS
;     (DEFUN CHAOS::APPLY-TACTICS
;            (CHAOS::PTREE CHAOS::TACTICS
;             &OPTIONAL (CHAOS::VERBOSE CHAOS::*CITP-VERBOSE*))
;       (DECLARE (TYPE CHAOS::PTREE CHAOS::PTREE)
;                (TYPE LIST CHAOS::TACTICS))
;       (LET ((CHAOS::TARGET (CHAOS::GET-NEXT-PROOF-CONTEXT CHAOS::PTREE)))
;         (UNLESS CHAOS::TARGET
;           (FORMAT T "~%**> All goals have been proved!")
;           (RETURN-FROM CHAOS::APPLY-TACTICS NIL))
;         (CHAOS::RESET-REWRITE-COUNTERS)
;         (CHAOS::BEGIN-REWRITE)
;         (CHAOS::APPLY-TACTICS-TO-NODE CHAOS::TARGET
;          (CHAOS::FLATTEN-TACTIC-SEQ CHAOS::TACTICS) CHAOS::VERBOSE)
;         (CHAOS::END-REWRITE)
;         (CHAOS::REPORT-CITP-STAT)
;         (CHAOS::CHECK-SUCCESS CHAOS::PTREE)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::APPLY-TACTICS
;                    (SB-INT:NAMED-LAMBDA CHAOS::APPLY-TACTICS
;                        (CHAOS::PTREE CHAOS::TACTICS &OPTIONAL
;                         (CHAOS::VERBOSE CHAOS::*CITP-VERBOSE*))
;                      (DECLARE (TYPE CHAOS::PTREE CHAOS::PTREE)
;                               (TYPE LIST CHAOS::TACTICS))
;                      (BLOCK CHAOS::APPLY-TACTICS
;                        (LET (#)
;                          (UNLESS CHAOS::TARGET # #)
;                          (CHAOS::RESET-REWRITE-COUNTERS)
;                          (CHAOS::BEGIN-REWRITE)
;                          (CHAOS::APPLY-TACTICS-TO-NODE CHAOS::TARGET #
;                           CHAOS::VERBOSE)
;                          (CHAOS::END-REWRITE)
;                          (CHAOS::REPORT-CITP-STAT)
;                          (CHAOS::CHECK-SUCCESS CHAOS::PTREE))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::RESET-REWRITE-COUNTERS could not be inlined because its source
;   code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
;   in effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to CHAOS::BEGIN-REWRITE could not be inlined because its source code was
;   not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to CHAOS::END-REWRITE could not be inlined because its source code was not
;   saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to
;   save function definitions for inlining.
; compiling (DEFUN APPLY-TACTICS ...)
; compiling (DEFUN APPLY-AUTO ...)
; compiling (DEFUN APPLY-TACTICS-TO-GOAL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/apply-tactic-TMP.fasl written
; compilation finished in 0:00:00.949
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "thstuff" "apply-tactic">
; compiling file "/«PKGBUILDDIR»/thstuff/citp.lisp" (written 18 OCT 2015 10:16:15 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CHECK-CONTEXT-MODULE ...)
; compiling (DEFUN CHECK-PTREE ...)
; compiling (DEFUN CHECK-CONTEXT-MODULE-AND-PTREE ...)
; compiling (DEFUN CITP-PARSE-GOAL ...)
; compiling (DEFUN CITP-PARSE-APPLY ...)
; compiling (DEFUN CITP-PARSE-IND-ON ...)
; compiling (DEFUN CITP-PARSE-AUTO ...)
; compiling (DEFUN CITP-PARSE-ROLL-BACK ...)
; compiling (DEFUN MAKE-AXIOM-PATTERN ...)
; compiling (DEFUN CITP-PARSE-INIT ...)
; compiling (DEFUN CITP-PARSE-IMP ...)
; compiling (DEFUN CITP-PARSE-CRITICAL-PAIR ...)
; compiling (DEFUN CITP-PARSE-EQUATION ...)
; compiling (DEFUN CITP-PARSE-BACKWARD ...)
; compiling (DEFUN CITP-PARSE-SELECT ...)
; compiling (DEFUN CITP-PARSE-RED ...)
; compiling (DEFUN CITP-PARSE-VERBOSE ...)
; compiling (DEFUN CITP-PARSE-NORMALIZE ...)
; compiling (DEFUN CITP-PARSE-CTF ...)
; compiling (DEFUN CITP-PARSE-CSP ...)

; file: /«PKGBUILDDIR»/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 (SIMPLE-ARRAY * (*)).
; 
; 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.
; compiling (DEFUN CITP-PARSE-DEFINE ...)
; compiling (DEFUN CITP-PARSE-SHOW ...)

; file: /«PKGBUILDDIR»/thstuff/citp.lisp
; in: DEFUN CITP-PARSE-SPOILER
;     (SETF (CHAOS::CITP-FLAG CHAOS::CITP-SPOILER) CHAOS::VALUE)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN CITP-PARSE-SPOILER ...)
; compiling (DEFUN PARSE-CITP-BINSPECT ...)
; compiling (DEFUN CITP-PARSE-BSHOW ...)
; compiling (DEFUN CITP-PARSE-SET ...)
; compiling (DEFUN EVAL-CITP-GOAL ...)
; compiling (DEFUN EVAL-CITP-APPLY ...)
; compiling (DEFUN EVAL-CITP-IND-ON ...)
; compiling (DEFUN EVAL-CITP-ROLL-BACK ...)
; compiling (DEFUN EVAL-CITP-INIT ...)
; compiling (DEFUN EVAL-CITP-IMP ...)
; compiling (DEFUN EVAL-CITP-CRITICAL-PAIR ...)
; compiling (DEFUN EVAL-CITP-EQUATION ...)
; compiling (DEFUN EVAL-CITP-BACKWARD ...)
; compiling (DEFUN EVAL-CITP-SELECT ...)
; compiling (DEFUN EVAL-CITP-RED ...)
; compiling (DEFUN EVAL-CITP-VERBOSE ...)
; compiling (DEFUN EVAL-CITP-NORMALIZE ...)
; compiling (DEFUN EVAL-CITP-CTF ...)
; compiling (DEFUN EVAL-CITP-CSP ...)
; compiling (DEFUN EVAL-CITP-SHOW ...)
; compiling (DEFUN EVAL-CITP-BINSPECT ...)
; compiling (DEFUN EVAL-CITP-DEFINE ...)

; file: /«PKGBUILDDIR»/thstuff/citp.lisp
; in: DEFUN CITP-EVAL-SET
;     (CHAOS::CITP-FLAG CHAOS::CITP-PRINT-MESSAGE)
; --> CHAOS::CITP-FLAG-STRUCT-VALUE SB-KERNEL:%INSTANCE-REF THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (= 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 because: The operands might not be the same type.

;     (SETF (CHAOS::CITP-FLAG CHAOS::X) CHAOS::VALUE)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::CITP-FLAG CHAOS::INDEX) CHAOS::VALUE)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::CITP-FLAG-HOOK CHAOS::INDEX)
; --> CHAOS::CITP-FLAG-STRUCT-HOOK TRULY-THE SB-KERNEL:%INSTANCE-REF THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::CITP-FLAG-HOOK CHAOS::INDEX))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CITP-EVAL-SET ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/citp-TMP.fasl written
; compilation finished in 0:00:00.131
; compiling file "/«PKGBUILDDIR»/thstuff/bterm-inspector.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *DEBUG-BTERM* ...)
; compiling (DEFVAR .BTERM-ASSOC-TABLE. ...)
; compiling (DEFVAR .BVAR-NUM. ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFUN CLEAR-BTERM-MEMO-TABLE ...)
; compiling (DEFUN RESET-BVAR ...)
; compiling (DEFUN MAKE-BTERM-VARIABLE ...)
; compiling (DEFUN GET-BTERM-VARIABLE ...)
; compiling (DEFSTRUCT (ABST-BTERM) ...)
; compiling (DEFSTRUCT (ABST-AND #))

; file: /«PKGBUILDDIR»/thstuff/bterm-inspector.lisp
; in: DEFUN PRINT-ABST-BTERM
;     (FORMAT STREAM "(~d) " (INCF CHAOS::NUM))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG139 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "(" STREAM)
;               (LET (# #)
;                 (PRINC #:FORMAT-ARG139 STREAM))
;               (WRITE-STRING ") " STREAM))
;             NIL)
;           #:G138)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.
; compiling (DEFUN PRINT-ABST-BTERM ...)
; compiling (DEFUN XTRACT-XOR-SUBTERMS ...)
; compiling (DEFUN XTRACT-AND-SUBTERMS ...)
; compiling (DEFUN MAKE-AND-ABSTRACTION ...)

; file: /«PKGBUILDDIR»/thstuff/bterm-inspector.lisp
; in: DEFUN MAKE-TF-COMBINATION
;     (DOTIMES (CHAOS::C CHAOS::COLUMNS)
;       (SETQ CHAOS::ASSIGNMENT NIL)
;       (LET ((CHAOS::CYCLE (EXPT 2 CHAOS::C)))
;         (DOTIMES (CHAOS::R CHAOS::ROWS)
;           (IF (NOT CHAOS::ASSIGNMENT)
;               (SETQ #)
;               (IF #
;                   #))
;           (SETF # CHAOS::ASSIGNMENT))))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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, not a FIXNUM.

;     (EXPT 2 CHAOS::C)
; ==>
;   (ASH 1 SB-C::POWER)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.

;     (DOTIMES (CHAOS::R CHAOS::ROWS)
;       (IF (NOT CHAOS::ASSIGNMENT)
;           (SETQ CHAOS::ASSIGNMENT CHAOS::*BOOL-TRUE*)
;           (IF (= 0 (MOD CHAOS::R CHAOS::CYCLE))
;               (CHAOS::CHANGE-PARITY)))
;       (SETF (AREF SUBST CHAOS::R CHAOS::C) CHAOS::ASSIGNMENT))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

;     (DOTIMES (CHAOS::C CHAOS::COLUMNS)
;       (SETQ CHAOS::ASSIGNMENT NIL)
;       (LET ((CHAOS::CYCLE (EXPT 2 CHAOS::C)))
;         (DOTIMES (CHAOS::R CHAOS::ROWS)
;           (IF (NOT CHAOS::ASSIGNMENT)
;               (SETQ #)
;               (IF #
;                   #))
;           (SETF # CHAOS::ASSIGNMENT))))
; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::C 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.
; compiling (DEFUN MAKE-TF-COMBINATION ...)

; file: /«PKGBUILDDIR»/thstuff/bterm-inspector.lisp
; in: DEFUN ASSIGN-TF
;     (LENGTH CHAOS::LIST-VARS)
; 
; 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 VECTOR.

;     (INCF CHAOS::NUM)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (EXPT 2 CHAOS::COLUMNS)
; ==>
;   (ASH 1 SB-C::POWER)
; 
; 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 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &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)))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ CHAOS::R 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)
; --> SETQ 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 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.
; compiling (DEFUN ASSIGN-TF ...)
; compiling (DEFVAR *ABST-BTERM* ...)
; compiling (DEFVAR *ABST-BTERM-REPRESENTATION* ...)
; compiling (DEFUN MAKE-ABST-BOOLEAN-TERM ...)
; compiling (DEFUN FIND-BVAR-SUBST ...)
; compiling (DEFUN PRINT-BTERM-SUBSTITUTION ...)
; compiling (DEFUN ABSTRACT-BOOLEAN-TERM ...)
; compiling (DEFUN MAKE-AND-REPRESENTATION ...)
; compiling (DEFUN MAKE-XOR-REPRESENTATION ...)
; compiling (DEFUN MAKE-BTERM-REPRESENTATION ...)
; compiling (DEFUN SIMPLE-PRINT-BTERM ...)
; compiling (DEFUN PRINT-BTERM-TREE ...)
; compiling (DEFUN PRINT-ABS-BTERM ...)
; compiling (DEFUN RESOLVE-ABST-BTERM ...)
; compiling (DEFUN TRY-RESOLVE-BTERM ...)
; compiling (DEFUN BINSPECT-IN-GOAL ...)
; compiling (DEFUN BINSPECT-IN-MODULE ...)
; compiling (DEFUN BINSPECT-IN ...)
; compiling (DEFUN BRESOLVE ...)
; compiling (DEFUN BSHOW ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/thstuff/bterm-inspector-TMP.fasl written
; compilation finished in 0:00:00.133
; compiling file "/«PKGBUILDDIR»/BigPink/codes/types.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN LIST->QUEUE ...)
; compiling (DEFMACRO QUEUE-FRONT-PTR ...)
; compiling (DEFMACRO QUEUE-REAR-PTR ...)
; compiling (DEFMACRO QUEUE-SET-FRONT-PTR ...)
; compiling (DEFMACRO QUEUE-SET-REAR-PTR ...)
; compiling (DEFMACRO EMPTY-QUEUE? ...)
; compiling (DEFUN QUEUE-FRONT ...)
; compiling (DEFUN QUEUE-INSERT ...)
; compiling (DEFUN DELETE-QUEUE ...)
; compiling (DEFSTRUCT (LITERAL # ...) ...)
; compiling (DEFCONSTANT SCRATCH-BIT ...)
; compiling (DEFCONSTANT ORIENTED-EQ-BIT ...)
; compiling (DEFMACRO TEST-BIT ...)
; compiling (DEFMACRO SET-BIT ...)
; compiling (DEFMACRO CLEAR-BIT ...)
; compiling (DEFMACRO POSITIVE-LITERAL? ...)
; compiling (DEFMACRO NEGATIVE-LITERAL? ...)
; compiling (DEFMACRO ANSWER-LITERAL? ...)
; compiling (DEFMACRO POSITIVE-EQ-LITERAL? ...)
; compiling (DEFMACRO NEGATIVE-EQ-LITERAL? ...)
; compiling (DEFMACRO EQ-LITERAL? ...)
; compiling (DECLAIM (INLINE PROPOSITIONAL-LITERAL?))
; compiling (DEFUN PROPOSITIONAL-LITERAL? ...)
; compiling (DEFUN PR-LITERAL ...)
; compiling (DEFVAR *FOPL-TWO-EQUALITIES* ...)
; compiling (DEFVAR *FOPL-SENTENCE-MODULE* ...)
; compiling (DEFVAR *FOPL-CLAUSE-FORM-MODULE* ...)
; compiling (DEFVAR *FOPL-SENTENCE-SORT* ...)
; compiling (DEFVAR *VAR-DECL-LIST-SORT* ...)
; compiling (DEFVAR *FOPL-CLAUSE-SORT* ...)
; compiling (DEFVAR *FOPL-SENTENCE-SEQ-SORT* ...)
; compiling (DEFVAR *VAR-DECL-LIST* ...)
; compiling (DEFVAR *FOPL-AND* ...)
; compiling (DEFVAR *FOPL-OR* ...)
; compiling (DEFVAR *FOPL-IMPLY* ...)
; compiling (DEFVAR *FOPL-IFF* ...)
; compiling (DEFVAR *FOPL-NEG* ...)
; compiling (DEFVAR *FOPL-FORALL* ...)
; compiling (DEFVAR *FOPL-EXISTS* ...)
; compiling (DEFVAR *FOPL-EQ* ...)
; compiling (DEFVAR *FOPL-BEQ* ...)
; compiling (DEFVAR *FOPL-ANS* ...)
; compiling (DEFVAR *CLAUSE-CONSTRUCTOR* ...)
; compiling (DEFVAR *CLAUSE-CONSTRUCTOR2* ...)
; compiling (DEFVAR *FOPL-SENTENCE-SEQ* ...)
; compiling (DECLAIM (INLINE TERM-IS-ATOM?))
; compiling (DEFUN TERM-IS-ATOM? ...)
; compiling (DEFSTRUCT (CLAUSE # ...) ...)
; compiling (DEFMACRO GET-CLAUSE ...)
; compiling (DEFPARAMETER CL-PRINT-MERGINE ...)
; compiling (DEFUN PRINT-CLAUSE ...)
; compiling (DEFUN PR-CLAUSE-LIST ...)
; compiling (DEFUN PRINT-CLAUSE-ATTRIBUTES ...)
; compiling (DEFUN LITERALS-TO-TERM ...)
; compiling (DEFUN CLAUSE-TO-TERM ...)
; compiling (DEFUN COPY-LITERAL ...)
; compiling (DEFUN SHALLOW-COPY-LITERAL ...)
; compiling (DEFUN CLAUSE-VARIABLES ...)
; compiling (DECLAIM (INLINE CLAUSE-DISTINCT-VARIABLES))
; compiling (DEFUN CLAUSE-DISTINCT-VARIABLES ...)
; compiling (DECLAIM (INLINE GROUND-CLAUSE?))
; compiling (DEFUN GROUND-CLAUSE? ...)
; compiling (DECLAIM (INLINE NUM-LITERALS))
; compiling (DEFUN NUM-LITERALS ...)
; compiling (DECLAIM (INLINE NUM-ANSWERS))
; compiling (DEFUN NUM-ANSWERS ...)
; compiling (DECLAIM (INLINE NUM-LITERALS-ALL))
; compiling (DEFUN NUM-LITERALS-ALL ...)
; compiling (DECLAIM (INLINE UNIT-CLAUSE?))
; compiling (DEFUN UNIT-CLAUSE? ...)
; compiling (DECLAIM (INLINE POSITIVE-CLAUSE?))
; compiling (DEFUN POSITIVE-CLAUSE? ...)
; compiling (DECLAIM (INLINE NEGATIVE-CLAUSE?))
; compiling (DEFUN NEGATIVE-CLAUSE? ...)
; compiling (DECLAIM (INLINE PROPOSITIONAL-CLAUSE?))
; compiling (DEFUN PROPOSITIONAL-CLAUSE? ...)
; compiling (DECLAIM (INLINE HORN-CLAUSE?))
; compiling (DEFUN HORN-CLAUSE? ...)
; compiling (DECLAIM (INLINE EQUALITY-CLAUSE?))
; compiling (DEFUN EQUALITY-CLAUSE? ...)
; compiling (DEFUN SYMMETRY-CLAUSE? ...)
; compiling (DEFUN XX-RESOLVABLE ...)
; compiling (DEFSTRUCT PSYSTEM ...)
; compiling (DEFUN INITIALIZE-PSYSTEM ...)
; compiling (DEFSTRUCT (CLASH #) ...)
; compiling (DEFUN PRINT-CLASH ...)
; compiling (DEFSTRUCT (PARAMOD #) ...)
; compiling (DEFUN PR-PARAMOD ...)
; compiling (DEFSTRUCT (DEMOD # ...) ...)
; compiling (DEFMACRO DEMOD-LHS ...)
; compiling (DEFMACRO DEMOD-RHS ...)
; compiling (DEFMACRO DEMOD-CONDITION ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (GET # ...) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN PRINT-DEMODULATOR ...)
; compiling (DEFSTRUCT (OPTION-SET) ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/types-TMP.fasl written
; compilation finished in 0:00:00.354
; compiling file "/«PKGBUILDDIR»/BigPink/codes/glob.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR $$RAW-CLAUSE ...)
; compiling (DEFVAR *SK-FUNCTION-NUM* ...)
; compiling (DEFVAR *CLAUSE-PRETTY-PRINT* ...)
; compiling (DECLAIM (SPECIAL *CURRENT-PROOF-SYSTEM*))
; compiling (DEFVAR *CURRENT-PROOF-SYSTEM* ...)
; compiling (DEFVAR *CURRENT-PSYS* ...)
; compiling (DEFVAR *GIVEN-CLAUSE* ...)
; compiling (DEFVAR *PN-PROOF-MODULE* ...)
; compiling (DEFVAR *PN-REFINEMENT-CHECK-MODULE* ...)
; compiling (DEFVAR *PN-NO-DB-RESET* ...)
; compiling (DEFVAR .DEBUG-PN-MEMORY. ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR .PN-CLAUSE-DELETED. ...)
; compiling (DEFVAR *CLAUSE-HASH* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *SOS* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *USABLE* ...)
; compiling (DEFVAR *DEMODULATORS* ...)
; compiling (DEFVAR *NEW-DEMODULATOR* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *PASSIVE* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *MAX-INPUT-ID* ...)
; compiling (DEFVAR *HOT* ...)
; compiling (DEFVAR *WEIGHT-PICK-GIVEN* ...)
; compiling (DEFVAR *WEIGHT-PURGE-GEN* ...)
; compiling (DEFVAR *WEIGHT-TERMS* ...)
; compiling (DEFVAR *CLASH-POS-LITERALS* ...)
; compiling (DEFVAR *CLASH-NEG-LITERALS* ...)
; compiling (DEFVAR *POS-LITERALS* ...)
; compiling (DEFVAR *NEG-LITERALS* ...)
; compiling (DEFVAR *PARAMOD-RULES* ...)
; compiling (DEFVAR *CLASH-LIT-TABLE* ...)
; compiling (DEFVAR *PARAINTO-VAR-RULES* ...)
; compiling (DEFVAR *PARAFROM-VAR-RULES* ...)
; compiling (DEFVAR *FULL-LIT-TABLE* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFPARAMETER *PN-MAX-PARAMETERS* ...)
; compiling (DEFSTRUCT (PN-PARAM #) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PN-PARAMETERS* ...)
; compiling (DEFMACRO PN-PARAMETER ...)
; compiling (DEFMACRO PN-PARAMETER-NAME ...)
; compiling (DEFMACRO PN-PARAMETER-MIN ...)
; compiling (DEFMACRO PN-PARAMETER-MAX ...)
; compiling (DEFCONSTANT MAX-GEN ...)
; compiling (DEFCONSTANT MAX-KEPT ...)
; compiling (DEFCONSTANT MAX-GIVEN ...)
; compiling (DEFCONSTANT MAX-WEIGHT ...)
; compiling (DEFCONSTANT PICK-GIVEN-RATIO ...)
; compiling (DEFCONSTANT DEMOD-LIMIT ...)
; compiling (DEFCONSTANT MAX-PROOFS ...)
; compiling (DEFCONSTANT NEG-WEIGHT ...)
; compiling (DEFCONSTANT STATS-LEVEL ...)
; compiling (DEFCONSTANT CHANGE-LIMIT-AFTER ...)
; compiling (DEFCONSTANT NEW-MAX-WEIGHT ...)
; compiling (DEFCONSTANT MAX-ANSWERS ...)
; compiling (DEFCONSTANT MAX-SOS ...)
; compiling (DEFCONSTANT MAX-SECONDS ...)
; compiling (DEFCONSTANT DYNAMIC-DEMOD-DEPTH ...)
; compiling (DEFCONSTANT DYNAMIC-DEMOD-RHS ...)
; compiling (DEFCONSTANT INV-CHECK-MAX-DEPTH ...)
; compiling (DEFCONSTANT CONTROL-MEMORY-POINT ...)
; compiling (DEFCONSTANT MAX-LITERALS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/glob.lisp
; in: EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
;     (SETF (AREF CHAOS::*PN-PARAMETERS* CHAOS::X) (CHAOS::MAKE-PN-PARAM))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DOTIMES (X *PN-MAX-PARAMETERS*) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-SECONDS) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-SECONDS) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-SECONDS) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-GEN) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-GEN) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-GEN) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-KEPT) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-KEPT) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-KEPT) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-GIVEN) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-GIVEN) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-GIVEN) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-NAME PICK-GIVEN-RATIO) ...)
; compiling (SETF (PN-PARAMETER-MIN PICK-GIVEN-RATIO) ...)
; compiling (SETF (PN-PARAMETER-MAX PICK-GIVEN-RATIO) ...)
; compiling (SETF (PN-PARAMETER-NAME DEMOD-LIMIT) ...)
; compiling (SETF (PN-PARAMETER-MIN DEMOD-LIMIT) ...)
; compiling (SETF (PN-PARAMETER-MAX DEMOD-LIMIT) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-PROOFS) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-PROOFS) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-PROOFS) ...)
; compiling (SETF (PN-PARAMETER-NAME NEG-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-MIN NEG-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-MAX NEG-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-NAME STATS-LEVEL) ...)
; compiling (SETF (PN-PARAMETER-MIN STATS-LEVEL) ...)
; compiling (SETF (PN-PARAMETER-MAX STATS-LEVEL) ...)
; compiling (SETF (PN-PARAMETER-NAME CHANGE-LIMIT-AFTER) ...)
; compiling (SETF (PN-PARAMETER-MIN CHANGE-LIMIT-AFTER) ...)
; compiling (SETF (PN-PARAMETER-MAX CHANGE-LIMIT-AFTER) ...)
; compiling (SETF (PN-PARAMETER-NAME NEW-MAX-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-MIN NEW-MAX-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-MAX NEW-MAX-WEIGHT) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-ANSWERS) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-ANSWERS) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-ANSWERS) ...)
; compiling (SETF (PN-PARAMETER-NAME DYNAMIC-DEMOD-DEPTH) ...)
; compiling (SETF (PN-PARAMETER-MIN DYNAMIC-DEMOD-DEPTH) ...)
; compiling (SETF (PN-PARAMETER-MAX DYNAMIC-DEMOD-DEPTH) ...)
; compiling (SETF (PN-PARAMETER-NAME DYNAMIC-DEMOD-RHS) ...)
; compiling (SETF (PN-PARAMETER-MIN DYNAMIC-DEMOD-RHS) ...)
; compiling (SETF (PN-PARAMETER-MAX DYNAMIC-DEMOD-RHS) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-SOS) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-SOS) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-SOS) ...)
; compiling (SETF (PN-PARAMETER-NAME INV-CHECK-MAX-DEPTH) ...)
; compiling (SETF (PN-PARAMETER-MIN INV-CHECK-MAX-DEPTH) ...)
; compiling (SETF (PN-PARAMETER-MAX INV-CHECK-MAX-DEPTH) ...)
; compiling (SETF (PN-PARAMETER-NAME CONTROL-MEMORY-POINT) ...)
; compiling (SETF (PN-PARAMETER-MIN CONTROL-MEMORY-POINT) ...)
; compiling (SETF (PN-PARAMETER-MAX CONTROL-MEMORY-POINT) ...)
; compiling (SETF (PN-PARAMETER-NAME MAX-LITERALS) ...)
; compiling (SETF (PN-PARAMETER-MIN MAX-LITERALS) ...)
; compiling (SETF (PN-PARAMETER-MAX MAX-LITERALS) ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFPARAMETER *PN-MAX-FLAGS* ...)
; compiling (DEFSTRUCT (PIGNOSE-FLAG #) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PN-CONTROL-FLAGS*)
; compiling (SETQ *PN-CONTROL-FLAGS* ...)
; compiling (DEFMACRO PN-FLAG ...)
; compiling (DEFMACRO PN-FLAG-NAME ...)
; compiling (DEFMACRO PN-FLAG-HOOK ...)
; compiling (DEFCONSTANT SOS-QUEUE ...)
; compiling (DEFCONSTANT SOS-STACK ...)
; compiling (DEFCONSTANT INPUT-SOS-FIRST ...)
; compiling (DEFCONSTANT PRINT-GIVEN ...)
; compiling (DEFCONSTANT PRINT-LISTS-AT-END ...)
; compiling (DEFCONSTANT BINARY-RES ...)
; compiling (DEFCONSTANT HYPER-RES ...)
; compiling (DEFCONSTANT NEG-HYPER-RES ...)
; compiling (DEFCONSTANT PARA-INTO ...)
; compiling (DEFCONSTANT PARA-FROM ...)
; compiling (DEFCONSTANT DEMOD-INF ...)
; compiling (DEFCONSTANT PARA-FROM-LEFT ...)
; compiling (DEFCONSTANT PARA-FROM-RIGHT ...)
; compiling (DEFCONSTANT PARA-INTO-LEFT ...)
; compiling (DEFCONSTANT PARA-INTO-RIGHT ...)
; compiling (DEFCONSTANT PARA-FROM-VARS ...)
; compiling (DEFCONSTANT PARA-INTO-VARS ...)
; compiling (DEFCONSTANT PARA-FROM-UNITS-ONLY ...)
; compiling (DEFCONSTANT PARA-INTO-UNITS-ONLY ...)
; compiling (DEFCONSTANT PARA-SKIP-SKOLEM ...)
; compiling (DEFCONSTANT PARA-ONES-RULE ...)
; compiling (DEFCONSTANT PARA-ALL ...)
; compiling (DEFCONSTANT UNIT-DELETION ...)
; compiling (DEFCONSTANT DELETE-IDENTICAL-NESTED-SKOLEM ...)
; compiling (DEFCONSTANT SORT-LITERALS ...)
; compiling (DEFCONSTANT FOR-SUB ...)
; compiling (DEFCONSTANT BACK-SUB ...)
; compiling (DEFCONSTANT FACTOR ...)
; compiling (DEFCONSTANT ORDER-EQ ...)
; compiling (DEFCONSTANT EQ-UNITS-BOTH-WAYS ...)
; compiling (DEFCONSTANT DYNAMIC-DEMOD ...)
; compiling (DEFCONSTANT DYNAMIC-DEMOD-ALL ...)
; compiling (DEFCONSTANT DYNAMIC-DEMOD-LEX-DEP ...)
; compiling (DEFCONSTANT BACK-DEMOD ...)
; compiling (DEFCONSTANT KB ...)
; compiling (DEFCONSTANT LRPO ...)
; compiling (DEFCONSTANT LEX-ORDER-VARS ...)
; compiling (DEFCONSTANT SIMPLIFY-FOL ...)
; compiling (DEFCONSTANT NEW-VARIABLE-NAME ...)
; compiling (DEFCONSTANT PROCESS-INPUT ...)
; compiling (DEFCONSTANT QUIET ...)
; compiling (DEFCONSTANT VERY-VERBOSE ...)
; compiling (DEFCONSTANT PRINT-KEPT ...)
; compiling (DEFCONSTANT PRINT-PROOFS ...)
; compiling (DEFCONSTANT PRINT-NEW-DEMOD ...)
; compiling (DEFCONSTANT PRINT-BACK-DEMOD ...)
; compiling (DEFCONSTANT PRINT-BACK-SUB ...)
; compiling (DEFCONSTANT ORDER-HYPER ...)
; compiling (DEFCONSTANT PROPOSITIONAL ...)
; compiling (DEFCONSTANT AUTO ...)
; compiling (DEFCONSTANT HYPER-SYMMETRY-KLUDGE ...)
; compiling (DEFCONSTANT DISCARD-NON-ORIENTABLE-EQ ...)
; compiling (DEFCONSTANT DISCARD-XX-RESOLVABLE ...)
; compiling (DEFCONSTANT BACK-UNIT-DELETION ...)
; compiling (DEFCONSTANT AUTO2 ...)
; compiling (DEFCONSTANT AUTO1 ...)
; compiling (DEFCONSTANT AUTO3 ...)
; compiling (DEFCONSTANT DEBUG-INFER ...)
; compiling (DEFCONSTANT DEBUG-BINARY-RES ...)
; compiling (DEFCONSTANT DEBUG-HYPER-RES ...)
; compiling (DEFCONSTANT DEBUG-NEG-HYPER-RES ...)
; compiling (DEFCONSTANT DEBUG-UR-RES ...)
; compiling (DEFCONSTANT DEBUG-PARA-FROM ...)
; compiling (DEFCONSTANT DEBUG-PARA-INTO ...)
; compiling (DEFCONSTANT UNIVERSAL-SYMMETRY ...)
; compiling (DEFCONSTANT CONTROL-MEMORY ...)
; compiling (DEFCONSTANT PRINT-STATS ...)
; compiling (DEFCONSTANT PRINT-MESSAGE ...)
; compiling (DEFCONSTANT UNIFY-HEAVY ...)
; compiling (DEFCONSTANT TRACE-DEMOD ...)
; compiling (DEFCONSTANT DEBUG-REFINE ...)
; compiling (DEFCONSTANT NO-DEMOD ...)
; compiling (DEFCONSTANT NO-BACK-DEMOD ...)
; compiling (DEFCONSTANT KB2 ...)
; compiling (DEFCONSTANT NO-NEW-DEMOD ...)
; compiling (DEFCONSTANT PROP-RES ...)
; compiling (DEFCONSTANT NO-JUNK ...)
; compiling (DEFCONSTANT NO-CONFUSION ...)
; compiling (DEFCONSTANT META-PARAMOD ...)
; compiling (DEFCONSTANT DEBUG-INV-CHECK ...)
; compiling (DEFCONSTANT DIST-CONST ...)
; compiling (DEFCONSTANT DEBUG-DIST-CONST ...)
; compiling (DEFCONSTANT RANDOMIZE-SOS ...)
; compiling (DEFCONSTANT DEBUG-SOS ...)
; compiling (DEFCONSTANT PUT-GOAL-IN-SOS ...)
; compiling (DEFCONSTANT CHECK-INIT-ALWAYS ...)
; compiling (DEFCONSTANT UR-RES ...)
; compiling (DEFCONSTANT KB3 ...)

; file: /«PKGBUILDDIR»/BigPink/codes/glob.lisp
; in: EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
;     (SETF (AREF CHAOS::*PN-CONTROL-FLAGS* CHAOS::X) (CHAOS::MAKE-PIGNOSE-FLAG))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DOTIMES (X *PN-MAX-FLAGS*) ...)
; compiling (SETF (PN-FLAG-NAME SOS-QUEUE) ...)
; compiling (SETF (PN-FLAG-NAME SOS-STACK) ...)
; compiling (SETF (PN-FLAG-NAME INPUT-SOS-FIRST) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-GIVEN) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-LISTS-AT-END) ...)
; compiling (SETF (PN-FLAG-NAME BINARY-RES) ...)
; compiling (SETF (PN-FLAG-NAME HYPER-RES) ...)
; compiling (SETF (PN-FLAG-NAME NEG-HYPER-RES) ...)
; compiling (SETF (PN-FLAG-NAME UR-RES) ...)
; compiling (SETF (PN-FLAG-NAME PARA-INTO) ...)
; compiling (SETF (PN-FLAG-NAME PARA-FROM) ...)
; compiling (SETF (PN-FLAG-NAME DEMOD-INF) ...)
; compiling (SETF (PN-FLAG-NAME PARA-FROM-LEFT) ...)
; compiling (SETF (PN-FLAG-NAME PARA-FROM-RIGHT) ...)
; compiling (SETF (PN-FLAG-NAME PARA-INTO-LEFT) ...)
; compiling (SETF (PN-FLAG-NAME PARA-INTO-RIGHT) ...)
; compiling (SETF (PN-FLAG-NAME PARA-FROM-VARS) ...)
; compiling (SETF (PN-FLAG-NAME PARA-INTO-VARS) ...)
; compiling (SETF (PN-FLAG-NAME PARA-FROM-UNITS-ONLY) ...)
; compiling (SETF (PN-FLAG-NAME PARA-INTO-UNITS-ONLY) ...)
; compiling (SETF (PN-FLAG-NAME PARA-SKIP-SKOLEM) ...)
; compiling (SETF (PN-FLAG-NAME PARA-ONES-RULE) ...)
; compiling (SETF (PN-FLAG-NAME PARA-ALL) ...)
; compiling (SETF (PN-FLAG-NAME UNIT-DELETION) ...)
; compiling (SETF (PN-FLAG-NAME DELETE-IDENTICAL-NESTED-SKOLEM) ...)
; compiling (SETF (PN-FLAG-NAME SORT-LITERALS) ...)
; compiling (SETF (PN-FLAG-NAME FOR-SUB) ...)
; compiling (SETF (PN-FLAG-NAME BACK-SUB) ...)
; compiling (SETF (PN-FLAG-NAME FACTOR) ...)
; compiling (SETF (PN-FLAG-NAME ORDER-EQ) ...)
; compiling (SETF (PN-FLAG-NAME EQ-UNITS-BOTH-WAYS) ...)
; compiling (SETF (PN-FLAG-NAME DYNAMIC-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME DYNAMIC-DEMOD-ALL) ...)
; compiling (SETF (PN-FLAG-NAME DYNAMIC-DEMOD-LEX-DEP) ...)
; compiling (SETF (PN-FLAG-NAME BACK-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME KB) ...)
; compiling (SETF (PN-FLAG-NAME LRPO) ...)
; compiling (SETF (PN-FLAG-NAME LEX-ORDER-VARS) ...)
; compiling (SETF (PN-FLAG-NAME SIMPLIFY-FOL) ...)
; compiling (SETF (PN-FLAG-NAME NEW-VARIABLE-NAME) ...)
; compiling (SETF (PN-FLAG-NAME PROCESS-INPUT) ...)
; compiling (SETF (PN-FLAG-NAME QUIET) ...)
; compiling (SETF (PN-FLAG-NAME VERY-VERBOSE) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-KEPT) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-PROOFS) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-NEW-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-BACK-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-BACK-SUB) ...)
; compiling (SETF (PN-FLAG-NAME ORDER-HYPER) ...)
; compiling (SETF (PN-FLAG-NAME PROPOSITIONAL) ...)
; compiling (SETF (PN-FLAG-NAME AUTO) ...)
; compiling (SETF (PN-FLAG-NAME HYPER-SYMMETRY-KLUDGE) ...)
; compiling (SETF (PN-FLAG-NAME DISCARD-NON-ORIENTABLE-EQ) ...)
; compiling (SETF (PN-FLAG-NAME DISCARD-XX-RESOLVABLE) ...)
; compiling (SETF (PN-FLAG-NAME BACK-UNIT-DELETION) ...)
; compiling (SETF (PN-FLAG-NAME AUTO2) ...)
; compiling (SETF (PN-FLAG-NAME AUTO1) ...)
; compiling (SETF (PN-FLAG-NAME AUTO3) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-INFER) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-BINARY-RES) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-HYPER-RES) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-NEG-HYPER-RES) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-UR-RES) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-PARA-FROM) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-PARA-INTO) ...)
; compiling (SETF (PN-FLAG-NAME UNIVERSAL-SYMMETRY) ...)
; compiling (SETF (PN-FLAG-NAME CONTROL-MEMORY) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-STATS) ...)
; compiling (SETF (PN-FLAG-NAME PRINT-MESSAGE) ...)
; compiling (SETF (PN-FLAG-NAME UNIFY-HEAVY) ...)
; compiling (SETF (PN-FLAG-NAME TRACE-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-REFINE) ...)
; compiling (SETF (PN-FLAG-NAME NO-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME NO-BACK-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME KB2) ...)
; compiling (SETF (PN-FLAG-NAME NO-NEW-DEMOD) ...)
; compiling (SETF (PN-FLAG-NAME PROP-RES) ...)
; compiling (SETF (PN-FLAG-NAME NO-JUNK) ...)
; compiling (SETF (PN-FLAG-NAME NO-CONFUSION) ...)
; compiling (SETF (PN-FLAG-NAME META-PARAMOD) ...)
; compiling (SETF (PN-FLAG-HOOK META-PARAMOD) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-INV-CHECK) ...)
; compiling (SETF (PN-FLAG-NAME DIST-CONST) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-DIST-CONST) ...)
; compiling (SETF (PN-FLAG-NAME RANDOMIZE-SOS) ...)
; compiling (SETF (PN-FLAG-NAME DEBUG-SOS) ...)
; compiling (SETF (PN-FLAG-NAME PUT-GOAL-IN-SOS) ...)
; compiling (SETF (PN-FLAG-NAME CHECK-INIT-ALWAYS) ...)
; compiling (SETF (PN-FLAG-NAME KB3) ...)
; compiling (DEFVAR *PN-OPTION-SET* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFPARAMETER *PN-MAX-INTERNAL-FLAGS* ...)
; compiling (DEFCONSTANT SPECIAL-UNARY-PRESENT ...)
; compiling (DEFCONSTANT DOLLAR-PRESENT ...)
; compiling (DEFCONSTANT LEX-VALS-SET ...)
; compiling (DECLAIM (TYPE SIMPLE-ARRAY ...))
; compiling (DEFVAR *PN-INTERNAL-FLAGS* ...)

; file: /«PKGBUILDDIR»/BigPink/codes/glob.lisp
; in: DEFUN RESET-PN-INTERNAL-FLAGS
;     (SETF (AREF CHAOS::*PN-INTERNAL-FLAGS* CHAOS::X) NIL)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFUN RESET-PN-INTERNAL-FLAGS ...)
; compiling (DEFMACRO PN-INTERNAL-FLAG ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFPARAMETER *PN-STAT-SIZE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PN-STATS* ...)
; compiling (DEFMACRO PN-STAT ...)
; compiling (DEFMACRO PN-STATS ...)
; compiling (DEFUN RESET-INFER-STATISTICS ...)
; compiling (DEFCONSTANT CL-INPUT ...)
; compiling (DEFCONSTANT CL-GENERATED ...)
; compiling (DEFCONSTANT CL-KEPT ...)
; compiling (DEFCONSTANT CL-FOR-SUB ...)
; compiling (DEFCONSTANT CL-BACK-SUB ...)
; compiling (DEFCONSTANT CL-TAUTOLOGY ...)
; compiling (DEFCONSTANT CL-GIVEN ...)
; compiling (DEFCONSTANT CL-WT-DELETE ...)
; compiling (DEFCONSTANT REWRITES ...)
; compiling (DEFCONSTANT UNIT-DELETES ...)
; compiling (DEFCONSTANT EMPTY-CLAUSES ...)
; compiling (DEFCONSTANT FOR-SUB-SOS ...)
; compiling (DEFCONSTANT NEW-DEMODS ...)
; compiling (DEFCONSTANT CL-BACK-DEMOD ...)
; compiling (DEFCONSTANT SOS-SIZE ...)
; compiling (DEFCONSTANT CL-NOT-ANC-SUBSUMED ...)
; compiling (DEFCONSTANT USABLE-SIZE ...)
; compiling (DEFCONSTANT DEMODULATORS-SIZE ...)
; compiling (DEFCONSTANT INIT-WALL-SECONDS ...)
; compiling (DEFCONSTANT BINARY-RES-GEN ...)
; compiling (DEFCONSTANT HYPER-RES-GEN ...)
; compiling (DEFCONSTANT NEG-HYPER-RES-GEN ...)
; compiling (DEFCONSTANT UR-RES-GEN ...)
; compiling (DEFCONSTANT PARA-INTO-GEN ...)
; compiling (DEFCONSTANT PARA-FROM-GEN ...)
; compiling (DEFCONSTANT DEMOD-INF-GEN ...)
; compiling (DEFCONSTANT HOT-GENERATED ...)
; compiling (DEFCONSTANT HOT-KEPT ...)
; compiling (DEFCONSTANT FACTOR-SIMPLIFICATIONS ...)
; compiling (DEFCONSTANT HOT-SIZE ...)
; compiling (DEFCONSTANT PASSIVE-SIZE ...)
; compiling (DEFCONSTANT BACK-UNIT-DEL-GEN ...)
; compiling (DEFCONSTANT FACTOR-GEN ...)
; compiling (DEFCONSTANT DEMOD-LIMITS ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFPARAMETER *PN-MAX-CLOCKS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *PN-CLOCKS* ...)
; compiling (DEFSTRUCT (PN-CLOCK #) ...)
; compiling (DEFMACRO CLOCK-START ...)
; compiling (DEFMACRO CLOCK-STOP ...)
; compiling (DEFUN RESET-PN-CLOCKS ...)
; compiling (DEFMACRO PN-CLOCK-VALUE ...)
; compiling (DEFCONSTANT PN-GLOBAL-RUN-TIME ...)
; compiling (DEFCONSTANT BINARY-TIME ...)
; compiling (DEFCONSTANT HYPER-TIME ...)
; compiling (DEFCONSTANT NEG-HYPER-TIME ...)
; compiling (DEFCONSTANT UR-TIME ...)
; compiling (DEFCONSTANT PARA-INTO-TIME ...)
; compiling (DEFCONSTANT PARA-FROM-TIME ...)
; compiling (DEFCONSTANT PRE-PROC-TIME ...)
; compiling (DEFCONSTANT DEMOD-TIME ...)
; compiling (DEFCONSTANT ORDER-EQ-TIME ...)
; compiling (DEFCONSTANT UNIT-DEL-TIME ...)
; compiling (DEFCONSTANT WEIGH-CL-TIME ...)
; compiling (DEFCONSTANT SORT-LITS-TIME ...)
; compiling (DEFCONSTANT FOR-SUB-TIME ...)
; compiling (DEFCONSTANT DEL-CL-TIME ...)
; compiling (DEFCONSTANT KEEP-CL-TIME ...)
; compiling (DEFCONSTANT CONFLICT-TIME ...)
; compiling (DEFCONSTANT NEW-DEMOD-TIME ...)
; compiling (DEFCONSTANT POST-PROC-TIME ...)
; compiling (DEFCONSTANT BACK-DEMOD-TIME ...)
; compiling (DEFCONSTANT BACK-SUB-TIME ...)
; compiling (DEFCONSTANT FACTOR-TIME ...)
; compiling (DEFCONSTANT FACTOR-SIMP-TIME ...)
; compiling (DEFCONSTANT BACK-UNIT-DEL-TIME ...)
; compiling (DEFCONSTANT PRINT-CLAUSE-TIME ...)
; compiling (DOTIMES (X *PN-MAX-CLOCKS*) ...)
; compiling (DECLAIM (TYPE INTEGER ...))
; compiling (DEFVAR *PN-INTERNAL-START-TIME* ...)
; compiling (DEFUN PN-START-INTERNAL-CLOCK ...)
; compiling (DEFUN PN-INTERNAL-RUN-TIME ...)
; compiling (DEFVAR .PN-IGNORE-OPS. ...)
; compiling (DEFUN SETUP-PIGNOSE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/glob-TMP.fasl written
; compilation finished in 0:00:00.191
; compiling file "/«PKGBUILDDIR»/BigPink/codes/proof-sys.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO MODULE-PROOF-SYSTEM ...)
; compiling (DEFUN CREATE-MODULE-PSYSTEM ...)

; file: /«PKGBUILDDIR»/BigPink/codes/proof-sys.lisp
; in: DEFUN UPDATE-MODULE-PROOF-SYSTEM
;     (SETQ CHAOS::DO-ANYWAY T)
; 
; caught STYLE-WARNING:
;   DO-ANYWAY is being set even though it was declared to be ignored.
; 
; caught STYLE-WARNING:
;   DO-ANYWAY is being set even though it was declared to be ignored.

;     (CHAOS::NEED-REWRITING-PREPARATION MOD)
; ==>
;   (< (CHAOS::MODULE-STATUS MOD) 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.
; compiling (DEFUN UPDATE-MODULE-PROOF-SYSTEM ...)
; compiling (DEFUN RESET-MODULE-PROOF-SYSTEM ...)
; compiling (DEFUN PN-DB-RESET ...)
; compiling (DEFUN AUTO-DB-RESET ...)
; compiling (DEFMACRO WITH-PROOF-CONTEXT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/proof-sys-TMP.fasl written
; compilation finished in 0:00:00.024
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "BigPink" "codes" "proof-sys">
; compiling file "/«PKGBUILDDIR»/BigPink/codes/syntax.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN INSTALL-FOPL-SENTENCE ...)
; compiling (DEFUN INSTALL-FOPL-CLAUSE ...)
; compiling (DEFUN INSTALL-FOPL-CLAUSE-FORM ...)
; compiling (DEFUN FOPL-SENTENCE-TYPE ...)
; compiling (DECLAIM (INLINE FOPL-FORALL? ...))
; compiling (DEFUN FOPL-FORALL? ...)
; compiling (DEFUN FOPL-EXISTS? ...)
; compiling (DEFUN FOPL-AND? ...)
; compiling (DEFUN FOPL-OR? ...)
; compiling (DEFUN FOPL-IMPLY? ...)
; compiling (DEFUN FOPL-IFF? ...)
; compiling (DEFUN FOPL-NOT? ...)
; compiling (DEFUN FOPL-EQ? ...)
; compiling (DEFUN FOPL-BEQ? ...)
; compiling (DEFUN IS-VALID-FORMULA? ...)
; compiling (DEFUN CHECK-FOPL-SYNTAX ...)

; file: /«PKGBUILDDIR»/BigPink/codes/syntax.lisp
; in: DEFUN CHECK-FOPL-SYNTAX-AUX
;     (LABELS ((CHAOS::CHECK-VAR-DECL (CHAOS::VAR-DECL)
;                (COND (# T) (# #) (T #))))
;       (IF (CHAOS::TERM-IS-APPLICATION-FORM? CHAOS::FOPL-SENTENCE)
;           (LET ((TYPE #))
;             (CASE TYPE (:ATOM T) (# #) (:NOT #) (OTHERWISE #)))
;           T))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; compiling (DEFUN CHECK-FOPL-SYNTAX-AUX ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/syntax-TMP.fasl written
; compilation finished in 0:00:00.060
; compiling file "/«PKGBUILDDIR»/BigPink/codes/index.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO MAKE-INDEX-TABLE ...)
; compiling (DEFMACRO MAKE-ENTRY-IN-INDEX-TABLE ...)
; compiling (DEFMACRO INDEX-TABLE-COUNT ...)
; compiling (DEFMACRO SET-TO-INDEX-TABLE ...)
; compiling (DEFMACRO ADD-TO-INDEX-TABLE ...)
; compiling (DEFMACRO DELETE-FROM-INDEX-TABLE ...)
; compiling (DEFMACRO GET-INDEXED-DATA ...)
; compiling (DEFUN CLEAR-ALL-INDEX-TABLES ...)
; compiling (DEFUN SPECIALIZE-TERM ...)
; compiling (DEFUN GET-ALL-METHODS-OF-SORT ...)
; compiling (DEFUN SPECIALIZE-TERM-FOR-METHODS ...)
; compiling (DECLAIM (INLINE PN-CONST-PAT))
; compiling (DEFUN PN-CONST-PAT ...)
; compiling (DECLAIM (INLINE PN-CONST-POSSIBLE-PAT))
; compiling (DEFUN PN-CONST-POSSIBLE-PAT ...)
; compiling (DEFMACRO LITERAL-ENTRY-LITERAL ...)
; compiling (DEFMACRO LITERAL-ENTRY-ATOM ...)
; compiling (DECLAIM (INLINE GET-LITERAL-ENTRY-FROM-ATOM))
; compiling (DEFUN GET-LITERAL-ENTRY-FROM-ATOM ...)
; compiling (DECLAIM (INLINE ADD-LITERAL-TO-TABLE))
; compiling (DEFUN ADD-LITERAL-TO-TABLE ...)
; compiling (DECLAIM (INLINE DELETE-LITERAL-FROM-TABLE))
; compiling (DEFUN DELETE-LITERAL-FROM-TABLE ...)
; compiling (DECLAIM (INLINE DELETE-LITERAL-FROM-TABLE-SLOW))
; compiling (DEFUN DELETE-LITERAL-FROM-TABLE-SLOW ...)
; compiling (DEFUN ADD-CLAUSE-TO-TABLE ...)
; compiling (DEFUN DELETE-CLAUSE-FROM-TABLE ...)
; compiling (DEFUN PIGNOSE-INDEX-ALL ...)
; compiling (DEFMACRO MAKE-EMPTY-NLIST ...)
; compiling (DEFMACRO NLIST-N ...)
; compiling (DEFMACRO NLIST-LIST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN NLIST-PUSH
;     (INCF (CAR CHAOS::NLIST))
; --> LET* 
; ==>
;   (+ 1 (CAR #:NLIST443))
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN NLIST-PUSH ...)
; compiling (DEFSTRUCT (DTREE #) ...)
; compiling (DEFMACRO GET-DTREE ...)
; compiling (DEFUN IS-INSERT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN DTREE-INDEX
;     (ASSOC ATOM (CHAOS::DTREE-ATOMS CHAOS::DTREE))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN DTREE-INDEX ...)
; compiling (DEFUN IS-FETCH ...)
; compiling (DEFMACRO FOREACH-DENTRY ...)
; compiling (DEFUN IS-FETCH-CONCAT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN DTREE-FETCH
;     (>= CHAOS::VAR-N CHAOS::BEST-N)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::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.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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 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.
; compiling (DEFUN DTREE-FETCH ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN DTREE-ATOM-FETCH
;     (ASSOC CHAOS::OP (CHAOS::DTREE-ATOMS CHAOS::DTREE))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (< (INCF CHAOS::VAR-N (CHAOS::NLIST-N CHAOS::ATOM-NLIST)) CHAOS::BEST-N)
; 
; 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))
; --> SETQ 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.
; compiling (DEFUN DTREE-ATOM-FETCH ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; 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.

;     (ASSOC ATOM (CHAOS::DTREE-ATOMS CHAOS::DTREE))
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (DECF (CAR CHAOS::NLIST))
; --> LET* 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.
; compiling (DEFUN DTREE-DELETE ...)
; compiling (DEFUN IS-DELETE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN INDEX-ALL-LITERALS
;     (CHAOS::PN-FLAG CHAOS::BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN INDEX-ALL-LITERALS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN UN-INDEX-ALL-LITERALS
;     (CHAOS::PN-FLAG CHAOS::BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN UN-INDEX-ALL-LITERALS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN UN-INDEX-ALL-LITERALS-SLOW
;     (CHAOS::PN-FLAG CHAOS::BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN UN-INDEX-ALL-LITERALS-SLOW ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN INDEX-CLASH-LITERALS
;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN INDEX-CLASH-LITERALS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN UN-INDEX-CLASH-LITERALS
;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN UN-INDEX-CLASH-LITERALS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN UN-INDEX-CLASH-LITERALS-SLOW
;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN UN-INDEX-CLASH-LITERALS-SLOW ...)
; compiling (DEFUN GET-PARAMOD-ENTRY ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN IS-PARAMOD-INSERT
;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN IS-PARAMOD-INSERT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (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.
; compiling (DEFUN IS-PARAMOD-DELETE ...)
; compiling (DEFUN IS-PARAMOD-FETCH ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN IS-PARAMOD-FETCH-CONCAT
;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN IS-PARAMOD-FETCH-CONCAT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN ADD-EQ-LITERAL
;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-SKIP-SKOLEM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN ADD-EQ-LITERAL ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN ADD-EQ-LITERAL-TO-TABLE
;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-UNITS-ONLY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN ADD-EQ-LITERAL-TO-TABLE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN DELETE-EQ-LITERAL-FROM-TABLE
;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN DELETE-EQ-LITERAL-FROM-TABLE ...)
; compiling (DEFUN DELETE-EQ-LITERAL-FROM-TABLE-SLOW ...)

; file: /«PKGBUILDDIR»/BigPink/codes/index.lisp
; in: DEFUN DELETE-EQ-LITERAL-ATOM-FROM-TABLE
;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN DELETE-EQ-LITERAL-ATOM-FROM-TABLE ...)
; compiling (DEFUN INDEX-PARAMODULATION ...)
; compiling (DEFUN UN-INDEX-PARAMODULATION ...)
; compiling (DEFUN UN-INDEX-PARAMODULATION-SLOW ...)
; compiling (DEFUN GET-ALL-DEMODULATORS ...)
; compiling (DEFUN UN-INDEX-DEMODULATOR ...)
; compiling (DEFUN TABLE-TO-CLAUSE-LIST ...)
; compiling (DEFUN TABLE-TO-LITERAL-LIST ...)
; compiling (DEFUN GET-CLASHABLE-CLAUSES-FROM-LITERAL ...)
; compiling (DEFUN GET-CLASHABLE-CLAUSES-FROM-ATOM ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/index-TMP.fasl written
; compilation finished in 0:00:00.321
; compiling file "/«PKGBUILDDIR»/BigPink/codes/butils.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN TERM-IS-IDENTICAL ...)
; compiling (DEFUN TERM-OCCURS-IN ...)
; compiling (DEFUN OPERATOR-OCCURS-IN ...)
; compiling (DEFUN COPY-TERM-REUSING-VARIABLES ...)
; compiling (DEFUN ALLOCATE-NEW-TERM-CELL ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PN-MAKE-NEW-VARIABLE
;     (CHAOS::PN-FLAG CHAOS::NEW-VARIABLE-NAME)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

; in: DEFUN PN-NEXT-VAR-NUM
;     (DEFUN CHAOS::PN-NEXT-VAR-NUM () (1+ CHAOS::GEN-VAR-NUM))
; --> PROGN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CHAOS::PN-NEXT-VAR-NUM
;         NIL
;       (BLOCK CHAOS::PN-NEXT-VAR-NUM (1+ CHAOS::GEN-VAR-NUM)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; compiling (LET (#) ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN REPLACE-TERM-VARS
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.
; compiling (DEFUN REPLACE-TERM-VARS ...)
; compiling (DEFUN MAKE-TERM-VAR-RENAME-MAP ...)
; compiling (DEFUN TERM-UNIQUE-VARS ...)
; compiling (DEFUN IS-SKOLEM ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN ID-NESTED-SKOLEMS
;     (CHAOS::TERM-SUBTERMS CHAOS::TERM)
; --> CHAOS::TERM-4TH CHAOS::BODY-4TH CADDDR CAR CDR CDR CDR CAR 
; ==>
;   CHAOS::TERM
; 
; note: deleting unreachable code

;     (CHAOS::TERM-HEAD CHAOS::TERM)
; --> CHAOS::TERM-2ND CHAOS::BODY-2ND CADR CAR CDR CAR 
; ==>
;   CHAOS::TERM
; 
; note: deleting unreachable code

;     (RETURN-FROM CHAOS::ID-NESTED-SKOLEMS T)
; 
; note: deleting unreachable code
; compiling (DEFUN ID-NESTED-SKOLEMS ...)
; compiling (DEFUN IDENT-NESTED-SKOLEMS ...)
; compiling (DEFUN MAKE-VAR-MAPPING ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN INIT-PN-OPTIONS
;     (SETF (CHAOS::PN-FLAG CHAOS::PARA-FROM-LEFT) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PARA-FROM-RIGHT) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PARA-INTO-LEFT) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PARA-INTO-RIGHT) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::FOR-SUB) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::BACK-SUB) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-KEPT) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-STATS) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-GIVEN) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-BACK-SUB) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-NEW-DEMOD) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-BACK-DEMOD) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::BACK-UNIT-DELETION) NIL)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::SIMPLIFY-FOL) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-PROOFS) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::NEW-VARIABLE-NAME) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::ORDER-HYPER) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::PUT-GOAL-IN-SOS) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::CHECK-INIT-ALWAYS) T)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::NO-JUNK) NIL)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::NO-CONFUSION) NIL)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::META-PARAMOD) NIL)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::RANDOMIZE-SOS) NIL)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-PARAMETER CHAOS::DEMOD-LIMIT) 1000)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN INIT-PN-OPTIONS ...)
; compiling (INIT-PN-OPTIONS)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN FIND-PN-FLAG-INDEX
;     (CHAOS::PN-FLAG-NAME CHAOS::X)
; --> CHAOS::PIGNOSE-FLAG-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (STRING= CHAOS::NAME (CHAOS::PN-FLAG-NAME CHAOS::X))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN FIND-PN-FLAG-INDEX ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN FIND-PN-PARAMETER-INDEX
;     (CHAOS::PN-PARAMETER-NAME CHAOS::X)
; --> CHAOS::PN-PARAM-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN FIND-PN-PARAMETER-INDEX ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN SAVE-PN-FLAGS
;     (CHAOS::PN-FLAG CHAOS::X)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN SAVE-PN-FLAGS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN RESTORE-PN-FLAGS
;     (SETF (CHAOS::PN-FLAG CHAOS::X) (AREF ARRAY CHAOS::X))
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN RESTORE-PN-FLAGS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN SAVE-PN-PARAMETERS
;     (CHAOS::PN-PARAMETER CHAOS::X)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN SAVE-PN-PARAMETERS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN RESTORE-PN-PARAMETERS
;     (SETF (CHAOS::PN-PARAMETER CHAOS::X) (AREF ARRAY CHAOS::X))
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN RESTORE-PN-PARAMETERS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; 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 CONS NULL VECTOR).

;     (STRING= CHAOS::NAME (CHAOS::OPTION-SET-NAME CHAOS::X))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN FIND-OPTION-SET ...)
; compiling (DEFUN CREATE-OPTION-SET ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN SAVE-OPTION-SET
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN RESTORE-OPTION-SET
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN SAVE-OPTION-SET ...)
; compiling (DEFUN RESTORE-OPTION-SET ...)
; compiling (DEFUN SHOW-OPTION-SET ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PR-LIST-OF-FLAG
;     (CHAOS::PN-FLAG-NAME CHAOS::X)
; --> CHAOS::PIGNOSE-FLAG-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG-NAME CHAOS::Y)
; --> CHAOS::PIGNOSE-FLAG-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (STRING< (THE SIMPLE-STRING (CHAOS::PN-FLAG-NAME CHAOS::X))
;              (THE SIMPLE-STRING (CHAOS::PN-FLAG-NAME CHAOS::Y)))
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.

;     (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)
; --> CHAOS::PIGNOSE-FLAG-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::FLAG)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG-NAME CHAOS::X)
; --> CHAOS::PIGNOSE-FLAG-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PR-LIST-OF-FLAG ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PR-LIST-OF-PARAM
;     (CHAOS::PN-PARAMETER-NAME CHAOS::X)
; --> CHAOS::PN-PARAM-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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< (THE SIMPLE-STRING (CHAOS::PN-PARAMETER-NAME CHAOS::X))
;              (THE SIMPLE-STRING (CHAOS::PN-PARAMETER-NAME CHAOS::Y)))
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.

;     (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)
; --> CHAOS::PN-PARAM-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-MIN AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-MAX AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN PR-LIST-OF-PARAM ...)
; compiling (DEFUN PR-LIST-OF-OPTION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN AUTO-CHANGE-FLAG
;     (CHAOS::PN-FLAG CHAOS::INDEX)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG-NAME CHAOS::INDEX)
; --> CHAOS::PIGNOSE-FLAG-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::INDEX) CHAOS::VALUE)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN AUTO-CHANGE-FLAG ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN DEPENDENT-FLAGS
;     (CHAOS::PN-FLAG CHAOS::INDEX)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN DEPENDENT-FLAGS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN AUTO-CHANGE-PARAM
;     (CHAOS::PN-PARAMETER CHAOS::INDEX)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER-NAME CHAOS::INDEX)
; --> CHAOS::PN-PARAM-NAME AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN AUTO-CHANGE-PARAM ...)
; compiling (DEFUN DEPENDENT-PARAMS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN MOVE-FROM-USABLE-TO-SOS
;     (FUNCALL CHAOS::PRED CHAOS::C)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PRED)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN MOVE-FROM-USABLE-TO-SOS ...)
; compiling (DEFUN GET-GLOBAL-LIST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN RESET-MEMORY-CONTROL
;     (* 20 (THE FIXNUM (LENGTH CHAOS::*SOS*)))
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 92233720368547758001) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The result is a (VALUES (MOD 92233720368547758001) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              64)
;                                                                             &REST
;                                                                             T).
;       etc.
; compiling (DECLAIM (TYPE FIXNUM ...) ...)
; compiling (DEFVAR .NEXT-CONTROL-POINT. ...)
; compiling (DEFUN RESET-MEMORY-CONTROL ...)
; compiling (DEFPARAMETER .MAX-WEIGHT. ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR .SOS-DIST. ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PN-CONTROL-MEMORY
;     (CHAOS::PN-PARAMETER CHAOS::MAX-SOS)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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::.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 because: The operands might not be the same type.

;     (CHAOS::PN-PARAMETER CHAOS::CONTROL-MEMORY-POINT)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (* CHAOS::N 20)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -92233720368547758080 92233720368547758060)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The result is a (VALUES
;                        (INTEGER -92233720368547758080 92233720368547758060)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (<= (* CHAOS::N 20) CHAOS::SIZE)
; --> IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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
; compiling (DEFUN PN-CONTROL-MEMORY ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PN-RUN-TIME
;     (CHAOS::CLOCK-STOP CHAOS::PN-GLOBAL-RUN-TIME)
; --> LET 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 first argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a UNSIGNED-BYTE, 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.

; --> LET IF PROGN INCF LET* 
; ==>
;   (+ (- (GET-INTERNAL-REAL-TIME) (CHAOS::PN-CLOCK-CURR CHAOS::CLOCK))
;      (CHAOS::PN-CLOCK-ACCUM #:CLOCK814))
; 
; 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 5) 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.
; compiling (DEFUN PN-RUN-TIME ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN CHECK-PN-STOP
;     (CHAOS::PN-PARAMETER CHAOS::MAX-GIVEN)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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?))
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::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.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::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.
; compiling (DEFUN CHECK-PN-STOP ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN CHECK-FOR-PROOF
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-PROOFS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-PROOFS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN CHECK-FOR-PROOF ...)
; compiling (DEFUN PRINT-PROOF ...)
; compiling (DEFUN MOVE-AXIOMS-TO-USABLE ...)
; compiling (DEFUN CLAUSE-SET-PROPERTY ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN REPORT-CLAUSE-SET-PROPS
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN REPORT-CLAUSE-SET-PROPS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PN-AUTOMATIC-SETTINGS-1
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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 because: The operands might not be the same type.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN PN-AUTOMATIC-SETTINGS-1 ...)
; compiling (DEFUN SOS-HAS-POS-NON-GROUND ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PN-AUTOMATIC-SETTINGS-2
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (= 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 because: The operands might not be the same type.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (> 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (> 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.
; compiling (DEFUN PN-AUTOMATIC-SETTINGS-2 ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PN-AUTOMATIC-SETTINGS-3
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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 because: The operands might not be the same type.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN PN-AUTOMATIC-SETTINGS-3 ...)
; compiling (DEFUN OUTPUT-PN-STATS ...)
; compiling (DEFUN PRINT-PN-STAT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PRINT-PN-STAT-DETAIL
;     (CHAOS::PN-FLAG CHAOS::BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PROP-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::FACTOR)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEMOD-INF)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::UR-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BACK-UNIT-DELETION)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PRINT-PN-STAT-DETAIL ...)
; compiling (DEFUN PRINT-PN-STAT-BRIEF ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN INFER-CLEAN-UP
;     (CHAOS::PN-FLAG CHAOS::PRINT-LISTS-AT-END)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-STATS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::STATS-LEVEL)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN INFER-CLEAN-UP ...)
; compiling (DEFUN PRINT-USABLE-LIST ...)
; compiling (DEFUN PRINT-SOS-LIST ...)
; compiling (DEFUN PRINT-PASSIVE-LIST ...)
; compiling (DEFUN PRINT-DEMODULATORS-LIST ...)
; compiling (DEFUN PRINT-SOS ...)
; compiling (DEFUN PRINT-USABLE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PRINT-LITERAL-ENTRY
;     (PRINC ATOM)
; ==>
;   ATOM
; 
; note: deleting unreachable code
; compiling (DEFUN PRINT-LITERAL-ENTRY ...)
; compiling (DEFUN SHOW-POS-LITERALS ...)
; compiling (DEFUN SHOW-NEG-LITERALS ...)
; compiling (DEFUN SHOW-CLASH-POS-LITERALS ...)
; compiling (DEFUN SHOW-CLASH-NEG-LITERALS ...)
; compiling (DEFUN SHOW-PARAMOD-RULES ...)
; compiling (DEFUN SHOW-FULL-LIT-TABLE ...)
; compiling (DEFUN SHOW-DEMODULATORS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PRINT-PN-TIMES
;     (CHAOS::PN-FLAG CHAOS::BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BACK-UNIT-DELETION)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PRINT-PN-TIMES ...)

; file: /«PKGBUILDDIR»/BigPink/codes/butils.lisp
; in: DEFUN PRINT-PN-TIMES-BRIEF
;     (CHAOS::PN-FLAG CHAOS::BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PRINT-PN-TIMES-BRIEF ...)
; compiling (DEFUN REPORT-PN-MEMORY ...)
; compiling (DEFPARAMETER *IMPORT-FOPL-AST* ...)
; compiling (DEFUN INCLUDE-FOPL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/butils-TMP.fasl written
; compilation finished in 0:00:00.800
; compiling file "/«PKGBUILDDIR»/BigPink/codes/unify.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN COMPOSE-SUBST ...)
; compiling (DECLAIM (SPECIAL .DO-OCCUR-CHECK.))
; compiling (DEFVAR .DO-OCCUR-CHECK. ...)
; compiling (DEFUN PN-DECOMPOSE-TERMS-UNIFY ...)
; compiling (DEFUN PN-DECOMPOSE-TERMS-MATCH ...)

; file: /«PKGBUILDDIR»/BigPink/codes/unify.lisp
; in: DEFUN UNIFY
;     (CHAOS::PN-FLAG CHAOS::UNIFY-HEAVY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN UNIFY ...)
; compiling (DECLAIM (INLINE PROP-UNIFY))
; compiling (DEFUN PROP-UNIFY ...)
; compiling (DEFUN FIRST-UNIFY ...)
; compiling (DEFUN NEXT-UNIFY ...)

; file: /«PKGBUILDDIR»/BigPink/codes/unify.lisp
; in: DEFUN PN-MATCH
;     (CHAOS::PN-FLAG CHAOS::UNIFY-HEAVY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PN-MATCH ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/unify-TMP.fasl written
; compilation finished in 0:00:00.058
; compiling file "/«PKGBUILDDIR»/BigPink/codes/clause.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN IS-EQUALITY ...)
; compiling (DEFUN MARK-LITERAL ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN COMPARE-LITERAL
;     (CHAOS::PN-FLAG CHAOS::PROPOSITIONAL)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN COMPARE-LITERAL ...)
; compiling (DEFUN LITERAL-EQUAL ...)
; compiling (DEFUN FIND-CLAUSE ...)
; compiling (DEFUN CLEAR-CLAUSE-HASH ...)
; compiling (DEFUN DELETE-CLAUSE ...)
; compiling (DEFUN DELETE-CLAUSE! ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN NEW-CLAUSE
;     (INCF (CHAOS::PSYSTEM-CLAUSE-COUNTER CHAOS::PSYS))
; --> LET* 
; ==>
;   (+ 1 (CHAOS::PSYSTEM-CLAUSE-COUNTER #:PSYS156))
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN NEW-CLAUSE ...)
; compiling (DEFUN RESET-CLAUSE-DB ...)
; compiling (DEFUN COPY-CLAUSE ...)
; compiling (DEFUN MAKE-CLAUSE-SHALLOW-COPY ...)
; compiling (DEFUN MAKE-DUMMY-CLAUSE ...)
; compiling (DEFUN LITERAL-NUMBER ...)
; compiling (DEFUN ITH-LITERAL ...)
; compiling (DEFUN CL-DELETE ...)
; compiling (DEFUN SET-CLAUSE-CONTAINER ...)
; compiling (DEFUN APPEND-CLAUSE ...)
; compiling (DEFUN PREPEND-CLAUSE ...)
; compiling (DEFUN INSERT-BEFORE-CLAUSE ...)
; compiling (DEFUN INSERT-AFTER-CLAUSE ...)
; compiling (DEFUN DELETE-FROM-LIST ...)
; compiling (DEFUN CLAUSE-FULL-UN-INDEX ...)
; compiling (DEFUN CLAUSE-FULL-UN-INDEX-SLOW ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN CLAUSE-ALL-PARENTS
;     (MEMBER CHAOS::PID CHAOS::SO-FAR)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a (OR FIXNUM (NOT NUMBER)).

;     (PUSHNEW CHAOS::PC CHAOS::PLIST)
; --> LET* SETQ THE ADJOIN 
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN CLAUSE-ALL-PARENTS ...)
; compiling (DEFUN ORDERED-SUB-CLAUSE ...)
; compiling (DEFUN CLAUSE-EQUAL ...)
; compiling (DEFUN SUB-CLAUSE ...)
; compiling (DEFUN SORT-LITERALS ...)
; compiling (DEFUN NEXT-CLAUSE-NUM ...)
; compiling (DEFMACRO SOS-LAST-CLAUSE ...)
; compiling (DEFVAR .USE-BI-AXIOM-AS-DEMOD. ...)
; compiling (DEFUN CLAUSE-IS-BUILTIN-DEMOD ...)
; compiling (DEFUN CLAUSE-AXIOM-DECLARED-AS-DEMODULATOR ...)
; compiling (DEFUN CL-UNIQUE-VARIABLES ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN UNIT-DELETION
;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN UNIT-DELETION ...)
; compiling (DEFUN BACK-UNIT-DELETION ...)
; compiling (DEFUN MERGE-CLAUSE ...)
; compiling (DEFUN CL-TAUTOLOGY? ...)
; compiling (DEFUN PROOF-WEIGHT ...)
; compiling (DEFUN PROOF-LENGTH ...)
; compiling (DEFUN RENAME-CLAUSE-VARIABLES ...)
; compiling (DEFUN RENAME-VARIABLES-IN-TERM ...)
; compiling (DEFUN LIST-NAME2-LIST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN FIND-LIGHTEST-CLAUSE
;     (CHAOS::PN-FLAG CHAOS::RANDOMIZE-SOS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-SOS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN FIND-LIGHTEST-CLAUSE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN FIND-GIVEN-CLAUSE
;     (CHAOS::PN-FLAG CHAOS::SOS-QUEUE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::SOS-STACK)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::PICK-GIVEN-RATIO)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN FIND-GIVEN-CLAUSE ...)
; compiling (DEFUN EXTRACT-GIVEN-CLAUSE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN WEIGHT-CLAUSE
;     (CHAOS::PN-PARAMETER CHAOS::NEG-WEIGHT)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN WEIGHT-CLAUSE ...)
; compiling (DEFPARAMETER .MAX-LITERALS. ...)
; compiling (DEFVAR .MAP-ARRAY. ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN MAP-REST
;     (SETF (AREF CHAOS::.MAP-ARRAY. CHAOS::I) NIL)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.

;     (AREF CHAOS::.MAP-ARRAY. CHAOS::I)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; 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.
; compiling (DEFUN MAP-REST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN SUBSUME?
;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN SUBSUME? ...)
; compiling (DEFUN FOR-SUB-PROP ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN FORWARD-SUBSUME
;     (CHAOS::PN-FLAG CHAOS::PROPOSITIONAL)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::FACTOR)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN FORWARD-SUBSUME ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN BACK-SUBSUME
;     (CHAOS::PN-FLAG CHAOS::FACTOR)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN BACK-SUBSUME ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN UNIT-CONFLICT
;     (CHAOS::PN-PARAMETER CHAOS::MAX-PROOFS)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN UNIT-CONFLICT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/clause.lisp
; in: DEFUN PN-DISTINCT-CONSTANTS
;     (CHAOS::PN-FLAG CHAOS::DEBUG-DIST-CONST)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN PN-DISTINCT-CONSTANTS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/clause-TMP.fasl written
; compilation finished in 0:00:00.335
; compiling file "/«PKGBUILDDIR»/BigPink/codes/formula.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *DEBUG-FORMULA* ...)
; compiling (DECLAIM (SPECIAL *DEBUG-FORMULA-NEST*) ...)
; compiling (DEFVAR *DEBUG-FORMULA-NEST* ...)

; file: /«PKGBUILDDIR»/BigPink/codes/formula.lisp
; in: DEFUN PN-TERM-EQUATIONAL-EQUAL
;     (CHAOS::E-EQUAL-IN-THEORY (CHAOS::METHOD-THEORY CHAOS::F1) CHAOS::T1
;                               CHAOS::T2)
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CHAOS::THEORY-INFO-MATCH-EQUAL-FUN
;     (CHAOS::THEORY-INFO (CHAOS::METHOD-THEORY CHAOS::F1))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PN-TERM-EQUATIONAL-EQUAL ...)
; compiling (DECLAIM (SPECIAL *CURRENT-FORMULA*) ...)
; compiling (DEFVAR *CURRENT-FORMULA* ...)
; compiling (DEFUN FORMULA->CLAUSE-1 ...)
; compiling (DEFUN CNF ...)
; compiling (DEFUN NNF-SKOLEMIZE ...)
; compiling (DEFUN CAFEOBJ-TERM->FORMULA ...)
; compiling (DEFUN NORMALIZE-QUANTIFIERS ...)
; compiling (DEFUN MAKE-UNIVERSAL-CLOSURE ...)
; compiling (DEFUN NEGATE-SENTENCE ...)
; compiling (DEFUN NEG-NORMAL-FORM ...)
; compiling (DEFUN MAKE-SKOLEM-FUNCTION-NAME ...)
; compiling (DEFUN SKOLEMIZE ...)
; compiling (DEFUN RENAME-FREE-FORMULA ...)
; compiling (DEFUN SUBST-FREE-FORMULA ...)

; file: /«PKGBUILDDIR»/BigPink/codes/formula.lisp
; in: DEFUN SUBST-FREE-TERM
;     (LENGTH (CHAOS::TERM-SUBTERMS CHAOS::TERM))
; 
; 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 VECTOR.
; compiling (DEFUN SUBST-FREE-TERM ...)

; file: /«PKGBUILDDIR»/BigPink/codes/formula.lisp
; in: DEFUN UNIQUE-ALL-VARIABLES
;     (LABELS ((CHAOS::UNIQUE (CHAOS::F)
;                (DECLARE (TYPE CHAOS::TERM CHAOS::F))
;                (LET (#)
;                  (DECLARE #)
;                  (WHEN CHAOS::*DEBUG-FORMULA* # #)
;                  (CASE TYPE # # #)
;                  (WHEN CHAOS::*DEBUG-FORMULA* # #))))
;       (CHAOS::UNIQUE CHAOS::SENTENCE)
;       CHAOS::SENTENCE)
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; compiling (DEFUN UNIQUE-ALL-VARIABLES ...)
; compiling (DEFUN ZAP-QUANTIFIERS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/formula.lisp
; in: DEFUN CONJ-NORMAL-FORM
;     (CHAOS::PN-FLAG CHAOS::SIMPLIFY-FOL)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN CONJ-NORMAL-FORM ...)

; file: /«PKGBUILDDIR»/BigPink/codes/formula.lisp
; in: DEFUN DISTRIBUTE-OR
;     (CHAOS::PN-FLAG CHAOS::SIMPLIFY-FOL)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (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 CONS NULL 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN DISTRIBUTE-OR ...)
; compiling (DEFUN GATHER-SUBTERMS-WITH-TOP ...)
; compiling (DEFUN CONFLICT-TAUTOLOGY ...)
; compiling (DEFUN SUBSUME-CONJUNCTS ...)
; compiling (DEFUN SUBSUME-DISJUNCTS ...)
; compiling (DEFVAR *DEBUG-SUBSUME-PROP* ...)
; compiling (DECLAIM (SPECIAL *DEBUG-SUBSUME-PROP-NEST*))
; compiling (DEFVAR *DEBUG-SUBSUME-PROP-NEST* ...)

; file: /«PKGBUILDDIR»/BigPink/codes/formula.lisp
; in: DEFUN GEN-SUBSUME-PROP
;     (1+ CHAOS::*DEBUG-SUBSUME-PROP-NEST*)
; ==>
;   (+ CHAOS::*DEBUG-SUBSUME-PROP-NEST* 1)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN GEN-SUBSUME-PROP ...)
; compiling (DEFUN FORMULA-IS-IDENTICAL ...)
; compiling (DEFUN TERM->CLAUSE ...)
; compiling (DEFUN CNF-TO-LIST ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/formula-TMP.fasl written
; compilation finished in 0:00:00.249
; compiling file "/«PKGBUILDDIR»/BigPink/codes/modconv.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN MAKE-PIGNOSE-AXIOM ...)
; compiling (DECLAIM (SPECIAL *ELIM-TF-IN-AXIOMS*))
; compiling (DEFVAR *ELIM-TF-IN-AXIOMS* ...)

; file: /«PKGBUILDDIR»/BigPink/codes/modconv.lisp
; in: DEFUN PN-SET-TF-FLAG
;     (CHAOS::PN-FLAG CHAOS::META-PARAMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PN-SET-TF-FLAG ...)
; compiling (DEFUN PN-METHOD-IS-OF-SAME-OPERATOR ...)
; compiling (DEFUN AXIOM->FORMULA ...)
; compiling (DEFUN MODULE-ALL-EQUATIONS ...)
; compiling (DEFUN MODULE-INCLUDES-FORMULA ...)
; compiling (DEFUN MAKE-PN-APPL-PAT ...)
; compiling (DEFUN COVER-SET-OF-SORT ...)
; compiling (DEFUN MODULE-COVER-SETS ...)
; compiling (DEFUN GET-ALL-METHODS-OF-SORT-STRICT ...)
; compiling (DEFUN INTRO-EXISTS ...)
; compiling (DEFUN PN-NO-JUNK ...)
; compiling (DEFUN PN-NO-CONFUSION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/modconv.lisp
; in: DEFUN MODULE-AXIOMS->CLAUSE
;     (CHAOS::PN-FLAG CHAOS::NO-JUNK)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-CONFUSION)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN MODULE-AXIOMS->CLAUSE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/modconv-TMP.fasl written
; compilation finished in 0:00:00.104
; compiling file "/«PKGBUILDDIR»/BigPink/codes/weight.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO MODULE-OP-LEX ...)
; compiling (DEFVAR .OP-LEX-RELATION-TABLE. ...)
; compiling (DEFVAR *DEBUG-OP-RELATION* ...)
; compiling (DEFMACRO MAKE-OP-RELATION ...)
; compiling (DEFMACRO GET-OP-RELATION ...)
; compiling (DEFMACRO OP-RELATION-OP ...)
; compiling (DEFMACRO _SUBOPS ...)
; compiling (DEFMACRO _SUPEROPS ...)
; compiling (DEFMACRO SUBOPS ...)
; compiling (DEFMACRO SUPEROPS ...)
; compiling (DECLAIM (INLINE OP-LEX<))
; compiling (DEFUN OP-LEX< ...)
; compiling (DEFUN DUMP-OP-LEX-RELATION-TABLE ...)
; compiling (DEFUN TERM-SUB-OPERATORS ...)
; compiling (DEFUN ADD-OP-TO-ORDER ...)
; compiling (DEFUN GATHER-OP-RELATIONS-FROM-ORDER ...)
; compiling (DEFUN ADD-OP-RELATION-TO-ORDER ...)

; file: /«PKGBUILDDIR»/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.
; compiling (DEFUN MAKE-OP-PREC-RELATIONS ...)
; compiling (DEFVAR .OP-LEX-PREC-TABLE. ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; in: DEFUN DUMP-OP-LEX-TABLE
;     (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: 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.
; compiling (DEFUN DUMP-OP-LEX-TABLE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; in: DEFUN OP-LEX-COMPARE
;     (STRING< CHAOS::N1 CHAOS::N2)
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.

;     (STRING= CHAOS::N1 CHAOS::N2)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN OP-LEX-COMPARE ...)
; compiling (DECLAIM (INLINE METHOD-LEX-PREC))
; compiling (DEFUN METHOD-LEX-PREC ...)
; compiling (DEFSETF METHOD-LEX-PREC ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; in: DEFUN ORDER-LEX-OP
;     (STRING< CHAOS::N1 CHAOS::N2)
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.

;     (STRING= CHAOS::N1 CHAOS::N2)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN ORDER-LEX-OP ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; 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.
; compiling (DEFUN MAKE-LEXICAL-PREC-TABLE ...)
; compiling (DEFUN MAKE-OP-LEX-PREC-TABLE ...)
; compiling (DEFUN OP-LEX-PRECEDENCE ...)
; compiling (DEFUN TERM-WEIGHT ...)
; compiling (DEFUN WEIGHT-LEX-ORDER ...)
; compiling (DEFUN TERM-LEX-ORDER ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; in: DEFUN TERM-LEX-ORDER-VARS
;     (< CHAOS::VN2 CHAOS::VN1)
; 
; 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.
; compiling (DEFUN TERM-LEX-ORDER-VARS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; in: DEFUN LEX-CHECK
;     (CHAOS::PN-FLAG CHAOS::LEX-ORDER-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (DEFUN CHAOS::LEX-CHECK (CHAOS::TERM1 CHAOS::TERM2)
;       (DECLARE (TYPE CHAOS::TERM CHAOS::TERM1 CHAOS::TERM2)
;                (INLINE CHAOS::TERM-LEX-ORDER-VARS)
;                (INLINE CHAOS::TERM-LEX-ORDER))
;       (IF (CHAOS::PN-FLAG CHAOS::LEX-ORDER-VARS)
;           (CHAOS::TERM-LEX-ORDER-VARS CHAOS::TERM1 CHAOS::TERM2)
;           (CHAOS::TERM-LEX-ORDER CHAOS::TERM1 CHAOS::TERM2)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::LEX-CHECK
;                    (SB-INT:NAMED-LAMBDA CHAOS::LEX-CHECK
;                        (CHAOS::TERM1 CHAOS::TERM2)
;                      (DECLARE (TYPE CHAOS::TERM CHAOS::TERM1 CHAOS::TERM2)
;                               (INLINE CHAOS::TERM-LEX-ORDER-VARS)
;                               (INLINE CHAOS::TERM-LEX-ORDER))
;                      (BLOCK CHAOS::LEX-CHECK
;                        (IF (CHAOS::PN-FLAG CHAOS::LEX-ORDER-VARS)
;                            (CHAOS::TERM-LEX-ORDER-VARS CHAOS::TERM1
;                             CHAOS::TERM2)
;                            (CHAOS::TERM-LEX-ORDER CHAOS::TERM1 CHAOS::TERM2))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::TERM-LEX-ORDER-VARS could not be inlined because its source code
;   was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to CHAOS::TERM-LEX-ORDER could not be inlined because its source code was
;   not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; compiling (DEFUN LEX-CHECK ...)
; compiling (DEFUN ORDER-LITERAL ...)

; file: /«PKGBUILDDIR»/BigPink/codes/weight.lisp
; in: DEFUN ORDER-EQUALITIES
;     (DEFUN CHAOS::ORDER-EQUALITIES (CHAOS::CLAUSE &OPTIONAL CHAOS::INPUT)
;       (DECLARE (TYPE CHAOS::CLAUSE CHAOS::CLAUSE)
;                (INLINE CHAOS::ORDER-LITERAL))
;       (DOLIST (CHAOS::LIT (CHAOS::CLAUSE-LITERALS CHAOS::CLAUSE))
;         (WHEN (CHAOS::EQ-LITERAL? CHAOS::LIT)
;           (CHAOS::ORDER-LITERAL CHAOS::LIT CHAOS::INPUT))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::ORDER-EQUALITIES
;                    (SB-INT:NAMED-LAMBDA CHAOS::ORDER-EQUALITIES
;                        (CHAOS::CLAUSE &OPTIONAL CHAOS::INPUT)
;                      (DECLARE (TYPE CHAOS::CLAUSE CHAOS::CLAUSE)
;                               (INLINE CHAOS::ORDER-LITERAL))
;                      (BLOCK CHAOS::ORDER-EQUALITIES
;                        (DOLIST (CHAOS::LIT #) (WHEN # #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::ORDER-LITERAL could not be inlined because its source code was
;   not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; compiling (DEFUN ORDER-EQUALITIES ...)
; compiling (DEFUN SYM-ELIM ...)
; compiling (DEFUN VAR-SUBSET ...)
; compiling (DEFUN TERM-IDENT-X-VARS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/weight-TMP.fasl written
; compilation finished in 0:00:00.451
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "BigPink" "codes" "weight">
; compiling file "/«PKGBUILDDIR»/BigPink/codes/lrpo.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN LRPO-LEX ...)
; compiling (DECLAIM (INLINE NUM-OCCURRENCES))
; compiling (DEFUN NUM-OCCURRENCES ...)
; compiling (DEFUN TERM-MULTISET-DIFF ...)
; compiling (DEFUN LRPO-MULTISET ...)
; compiling (DEFUN LRPO ...)
; compiling (DECLAIM (INLINE LRPO-GREATER))
; compiling (DEFUN LRPO-GREATER ...)
; compiling (DEFUN ORDER-EQUALITIES-LRPO ...)

; file: /«PKGBUILDDIR»/BigPink/codes/lrpo.lisp
; in: DEFUN PN-ORIENT-TERM-PAIR
;     (CHAOS::PN-FLAG CHAOS::LRPO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PN-ORIENT-TERM-PAIR ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/lrpo-TMP.fasl written
; compilation finished in 0:00:00.058
; compiling file "/«PKGBUILDDIR»/BigPink/codes/resolve.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (INLINE COMB-CLASH-SUBST))
; compiling (DEFUN COMB-CLASH-SUBST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN BUILD-HYPER
;     (CHAOS::PN-FLAG CHAOS::DEBUG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN BUILD-HYPER ...)
; compiling (DECLAIM (SPECIAL _CLASH_SO_FAR_) ...)
; compiling (DEFVAR _CLASH_SO_FAR_ ...)
; compiling (DECLAIM (INLINE RENAME-SUBST))
; compiling (DEFUN RENAME-SUBST ...)
; compiling (DEFUN MAXIMAL-LITERAL ...)
; compiling (DECLAIM (INLINE COMPOSE-SUBST2))
; compiling (DEFUN COMPOSE-SUBST2 ...)
; compiling (DECLAIM (INLINE CL-OCCURS-IN-CLASH))
; compiling (DEFUN CL-OCCURS-IN-CLASH ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN CLASH-ONE
;     (FUNCALL CHAOS::CLAUSE-PRED CHAOS::CLASH-CLAUSE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::CLAUSE-PRED)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAOS::PN-FLAG CHAOS::ORDER-HYPER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN CLASH-ONE ...)
; compiling (DEFUN GET-NSUBST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; 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)
; ==>
;   CHAOS::LIST-RESOLVENT
; 
; note: deleting unreachable code
; compiling (DEFUN HYPER-CLASH! ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN HYPER-RESOLUTION
;     (CHAOS::PN-FLAG CHAOS::DEBUG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::ORDER-HYPER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN HYPER-RESOLUTION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN NEG-HYPER-RESOLUTION
;     (CHAOS::PN-FLAG CHAOS::DEBUG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::ORDER-HYPER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN NEG-HYPER-RESOLUTION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN UR-RESOLUTION
;     (MULTIPLE-VALUE-SETQ (CHAOS::NEW-SUBST CHAOS::NO-MATCH CHAOS::E-EQUAL)
;       (CHAOS::UNIFY (CHAOS::LITERAL-ATOM CHAOS::L3)
;                     (CHAOS::LITERAL-ATOM CHAOS::NUC-LIT) NIL))
; --> VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> VALUES 
; ==>
;   (SETQ CHAOS::E-EQUAL #:NEW598)
; 
; caught STYLE-WARNING:
;   E-EQUAL is being set even though it was declared to be ignored.

;     (INCF CHAOS::J)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::J)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN UR-RESOLUTION ...)
; compiling (DEFUN BUILD-BIN-RES ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN BINARY-RESOLUTION
;     (CHAOS::PN-FLAG CHAOS::DEBUG-BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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.
; compiling (DEFUN BINARY-RESOLUTION ...)
; compiling (DEFSTRUCT (FACTOR) ...)

; file: /«PKGBUILDDIR»/BigPink/codes/resolve.lisp
; in: DEFUN NEXT-FACTOR
;     (MULTIPLE-VALUE-SETQ (SUBST CHAOS::NO-MATCH CHAOS::E-EQ)
;       (CHAOS::UNIFY (CHAOS::LITERAL-ATOM CHAOS::L1)
;                     (CHAOS::LITERAL-ATOM CHAOS::L2) NIL))
; --> VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> VALUES 
; ==>
;   (SETQ CHAOS::E-EQ #:NEW786)
; 
; caught STYLE-WARNING:
;   E-EQ is being set even though it was declared to be ignored.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN NEXT-FACTOR ...)
; compiling (DEFUN GET-FACTORS ...)
; compiling (DEFUN ALL-FACTORS ...)
; compiling (DEFUN FACTOR-SIMPLIFY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/resolve-TMP.fasl written
; compilation finished in 0:00:00.227
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "BigPink" "codes" "resolve">
; compiling file "/«PKGBUILDDIR»/BigPink/codes/paramod.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (INLINE GET-TERM-AT))
; compiling (DEFUN GET-TERM-AT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN APPLY-SUBST-2
;     (INCF CHAOS::POS)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::POS)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; 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.
; compiling (DEFUN APPLY-SUBST-2 ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN BUILD-BIN-PARA
;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN BUILD-BIN-PARA ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN PARA-INTO-TERMS-ALPHA
;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PARA-INTO-TERMS-ALPHA ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN PARA-FROM-ALPHA
;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-UNITS-ONLY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PARA-FROM-ALPHA ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN PARAMODULATION-FROM
;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-UNITS-ONLY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-VARS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PARAMODULATION-FROM ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN PARA-INTO-TERMS
;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN PARA-INTO-TERMS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/paramod.lisp
; in: DEFUN PARAMODULATION-INTO
;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-UNITS-ONLY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PARAMODULATION-INTO ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/paramod-TMP.fasl written
; compilation finished in 0:00:00.168
; compiling file "/«PKGBUILDDIR»/BigPink/codes/demod.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL .DEMOD-TARGET-CLAUSE.) ...)
; compiling (DEFVAR .DEMOD-TARGET-CLAUSE. ...)
; compiling (DECLAIM (SPECIAL .DEMOD-USED-CLAUSES.) ...)
; compiling (DEFVAR .DEMOD-USED-CLAUSES. ...)
; compiling (DECLAIM (SPECIAL .CURRENT-DEMOD-CLAUSE.) ...)
; compiling (DEFVAR .CURRENT-DEMOD-CLAUSE. ...)
; compiling (DECLAIM (SPECIAL .DEMOD-TO-BE-USED.) ...)
; compiling (DEFVAR .DEMOD-TO-BE-USED. ...)
; compiling (DEFMACRO METHOD-DEMODULATORS ...)
; compiling (DEFUN RULE-2-DEMOD ...)
; compiling (DEFUN RULE->DEMODULATOR ...)
; compiling (DEFUN CAFEOBJ-RULES->DEMODULATORS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/demod.lisp
; in: DEFUN DYNAMIC-DEMODULATOR
;     (CHAOS::PN-FLAG CHAOS::LRPO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DYNAMIC-DEMOD-ALL)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::DYNAMIC-DEMOD-RHS)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::LRPO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DYNAMIC-DEMOD-ALL)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN DYNAMIC-DEMODULATOR ...)
; compiling (DEFUN NEW-DEMODULATOR ...)
; compiling (DECLAIM (SPECIAL *CURRENT-CAFEOBJ-RULE*) ...)
; compiling (DEFVAR *CURRENT-CAFEOBJ-RULE* ...)
; compiling (DECLAIM (SPECIAL *DEMOD-IS-BACK-DEMOD*))
; compiling (DEFVAR *DEMOD-IS-BACK-DEMOD* ...)

; file: /«PKGBUILDDIR»/BigPink/codes/demod.lisp
; in: DEFUN DEMOD-REPLACE-TERM
;     (CHAOS::PN-PARAMETER CHAOS::DEMOD-LIMIT)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN DEMOD-REPLACE-TERM ...)
; compiling (DEFUN APPLY-ONE-DEMODULATOR ...)

; file: /«PKGBUILDDIR»/BigPink/codes/demod.lisp
; in: DEFUN APPLY-ONE-DEMODULATOR*
;     (CHAOS::PN-FLAG CHAOS::LRPO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (DEFUN CHAOS::APPLY-ONE-DEMODULATOR*
;            (CHAOS::DEMOD CHAOS::TERM
;             &AUX (CHAOS::RULE (CHAOS::DEMOD-AXIOM CHAOS::DEMOD)))
;       (DECLARE (TYPE CHAOS::DEMOD CHAOS::DEMOD)
;                (TYPE CHAOS::AXIOM CHAOS::RULE)
;                (TYPE CHAOS::TERM CHAOS::TERM))
;       (DECLARE (INLINE CHAOS::DEMOD-REPLACE-TERM))
;       (WHEN (CHAOS::TERM-EQ (CHAOS::RULE-LHS CHAOS::RULE) CHAOS::TERM)
;         (RETURN-FROM CHAOS::APPLY-ONE-DEMODULATOR* NIL))
;       (LET* ((CHAOS::*SELF* CHAOS::TERM)
;              (CHAOS::*DO-UNIFY* NIL)
;              (CHAOS::CONTR NIL)
;              (CHAOS::OK T))
;         (DECLARE (TYPE CHAOS::TERM CHAOS::*SELF*)
;                  (TYPE (OR NULL CHAOS::TERM) CHAOS::CONTR))
;         (MULTIPLE-VALUE-BIND (SUBST CHAOS::NO-MATCH CHAOS::E-EQUAL)
;             (CHAOS::PN-MATCH (CHAOS::RULE-LHS CHAOS::RULE) CHAOS::TERM NIL T)
;           (DECLARE (TYPE LIST SUBST)
;                    (IGNORE CHAOS::E-EQUAL))
;           (INCF CHAOS::$$MATCHES)
;           (WHEN CHAOS::NO-MATCH (RETURN-FROM CHAOS::APPLY-ONE-DEMODULATOR* NIL))
;           (UNLESS (CHAOS::BEH-CONTEXT-OK? CHAOS::RULE CHAOS::TERM)
;             (RETURN-FROM CHAOS::APPLY-ONE-DEMODULATOR* NIL))
;           (BLOCK CHAOS::TRY-RULE (CATCH 'CHAOS::RULE-FAILURE # # #))
;           NIL)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CHAOS::APPLY-ONE-DEMODULATOR*
;                    (SB-INT:NAMED-LAMBDA CHAOS::APPLY-ONE-DEMODULATOR*
;                        (CHAOS::DEMOD CHAOS::TERM &AUX
;                         (CHAOS::RULE (CHAOS::DEMOD-AXIOM CHAOS::DEMOD)))
;                      (DECLARE (TYPE CHAOS::DEMOD CHAOS::DEMOD)
;                               (TYPE CHAOS::AXIOM CHAOS::RULE)
;                               (TYPE CHAOS::TERM CHAOS::TERM))
;                      (DECLARE (INLINE CHAOS::DEMOD-REPLACE-TERM))
;                      (BLOCK CHAOS::APPLY-ONE-DEMODULATOR*
;                        (WHEN (CHAOS::TERM-EQ # CHAOS::TERM)
;                          (RETURN-FROM CHAOS::APPLY-ONE-DEMODULATOR* NIL))
;                        (LET* (# # # #)
;                          (DECLARE #
;                                   #)
;                          (MULTIPLE-VALUE-BIND # # # # # # # NIL))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to CHAOS::DEMOD-REPLACE-TERM could not be inlined because its source code
;   was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; compiling (DEFUN APPLY-ONE-DEMODULATOR* ...)
; compiling (DEFUN APPLY-DEMODULATOR ...)
; compiling (DEFUN APPLY-DEMODULATORS ...)
; compiling (DEFUN DEMOD-REDUCE-TERM ...)
; compiling (DEFVAR .DEMOD-STRAT. ...)

; file: /«PKGBUILDDIR»/BigPink/codes/demod.lisp
; in: DEFUN DEMOD-METHOD-REWRITE-STRATEGY
;     (AREF CHAOS::.DEMOD-STRAT. CHAOS::NUM-ARGS)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN DEMOD-METHOD-REWRITE-STRATEGY ...)
; compiling (DEFUN DEMOD-NORMALIZE-TERM ...)
; compiling (DEFUN CLEAN-REDUCED-FLAG ...)
; compiling (DEFUN DEMOD-REWRITE ...)
; compiling (DEFUN DEMODULATE-CLAUSE ...)
; compiling (DEFUN DEMOD-ATOM ...)
; compiling (DEFUN APPLY-DEMOD-TO-CLAUSE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/demod.lisp
; in: DEFUN BACK-DEMODULATE
;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN BACK-DEMODULATE ...)
; compiling (DEFMACRO PN-IS-TRUE? ...)
; compiling (DEFMACRO SAFE-IS-TRUE? ...)
; compiling (DEFMACRO SAFE-IS-FALSE? ...)
; compiling (DEFUN PN-IS-FALSE? ...)
; compiling (DEFUN LITERAL-TRUE-FALSE-REDUCE ...)
; compiling (DEFUN SETUP-BUILTIN-DEMODULATORS ...)
; compiling (DEFUN SETUP-DEMODULATORS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/demod-TMP.fasl written
; compilation finished in 0:00:00.231
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "BigPink" "codes" "demod">
; compiling file "/«PKGBUILDDIR»/BigPink/codes/infer.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN INFER-MAIN
;     (CHAOS::PN-FLAG CHAOS::AUTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO1)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-GIVEN)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::CHANGE-LIMIT-AFTER)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-STATS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN INFER-MAIN ...)
; compiling (DEFUN PN-INTERACT ...)
; compiling (DECLAIM (INLINE GIVEN-CLAUSE-OK))
; compiling (DEFUN GIVEN-CLAUSE-OK ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN INFER
;     (CHAOS::PN-FLAG CHAOS::CONTROL-MEMORY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::UR-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEMOD-INF)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN INFER ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN POST-PROCESS
;     (CHAOS::PN-FLAG CHAOS::EQ-UNITS-BOTH-WAYS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::ORDER-EQ)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-NEW-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BACK-SUB)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-BACK-SUB)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::FACTOR)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BACK-UNIT-DELETION)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-BACK-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN POST-PROCESS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN POST-PROC-ALL
;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN POST-PROC-ALL ...)
; compiling (DEFUN HEAT-IS-ON ...)
; compiling (DEFUN END-PRE-PROCESS ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN PRE-PROCESS
;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-KEPT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NO-NEW-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DYNAMIC-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEMOD-INF)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-NEW-DEMOD)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::MAX-PROOFS)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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-FLAG CHAOS::PRINT-STATS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; compiling (DEFUN PRE-PROCESS ...)
; compiling (DEFUN EXIT-PN-PROOF ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN PROC-GEN
;     (CHAOS::PN-FLAG CHAOS::VERY-VERBOSE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::ORDER-EQ)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::LRPO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DISCARD-NON-ORIENTABLE-EQ)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::UNIT-DELETION)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::FACTOR)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::MAX-LITERALS)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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-FLAG CHAOS::DISCARD-XX-RESOLVABLE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::MAX-WEIGHT)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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-FLAG CHAOS::VERY-VERBOSE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DELETE-IDENTICAL-NESTED-SKOLEM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::SORT-LITERALS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::ORDER-EQ)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::FOR-SUB)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::VERY-VERBOSE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::QUIET)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEBUG-INFER)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PROC-GEN ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN PREPARE-INFERENCE
;     (CHAOS::PN-FLAG CHAOS::UNIVERSAL-SYMMETRY)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO1)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO1)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO1)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PROCESS-INPUT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::INPUT-SOS-FIRST)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (1- (CHAOS::NEXT-CLAUSE-NUM))
; ==>
;   (- (CHAOS::NEXT-CLAUSE-NUM) 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.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.
; compiling (DEFUN PREPARE-INFERENCE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/infer.lisp
; in: DEFUN CHECK-PN-OPTIONS
;     (CHAOS::PN-FLAG CHAOS::BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::UR-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEMOD-INF)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-RIGHT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO-LEFT)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-ONES-RULE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::KB)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::KB2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::KB3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::LRPO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-PARAMETER CHAOS::DEMOD-LIMIT)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::SOS-QUEUE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::SOS-STACK)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::SOS-QUEUE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN CHECK-PN-OPTIONS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/infer-TMP.fasl written
; compilation finished in 0:00:00.398
; compiling file "/«PKGBUILDDIR»/BigPink/codes/sigmatch.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR .SIGMATCH-VIEW-NUM. ...)
; compiling (DEFUN MAKE-SIGMATCH-VIEW-NAME ...)
; compiling (DEFUN RESET-SIGMATCH-VIEW-NAME ...)
; compiling (DEFSTRUCT (SIGMATCH-SET) ...)
; compiling (DEFUN SIGMATCH-SET-ALL-OPS ...)
; compiling (DEFUN CREATE-SIGMATCH-SET ...)
; compiling (DEFUN SIGMATCH ...)

; file: /«PKGBUILDDIR»/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.

;     (STRING< (STRING (CHAOS::SORT-NAME CHAOS::X))
;              (STRING (CHAOS::SORT-NAME CHAOS::Y)))
; ==>
;   (SB-KERNEL:STRING<* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; 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.
; compiling (DEFUN SIGMATCH-OP ...)

; file: /«PKGBUILDDIR»/BigPink/codes/sigmatch.lisp
; 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 CONS NULL VECTOR).

;     (RASSOC SORT CHAOS::SAL)
; ==>
;   (SB-KERNEL:%RASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFUN MAKE-SIGMATCH-OP-PAT ...)
; compiling (DEFUN GENERATE-SIGMATCH-VIEW ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/sigmatch-TMP.fasl written
; compilation finished in 0:00:00.061
; compiling file "/«PKGBUILDDIR»/BigPink/codes/refine.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN PN-GET-IMAGE-OF-AXIOMS ...)
; compiling (DEFUN PN-AXIOM-IMAGE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/refine.lisp
; in: DEFUN CHECK-REFINE
;     (CHAOS::PN-FLAG CHAOS::DEBUG-REFINE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-PARAMETER CHAOS::MAX-PROOFS) 1)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN CHECK-REFINE ...)
; compiling (DEFUN PN-CHECK-REFINEMENT ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/refine-TMP.fasl written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/BigPink/codes/commands.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFTERM FAX ...)

; file: /«PKGBUILDDIR»/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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (CHAR (FIRST CHAOS::INPUT) 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PIGNOSE-PROCESS-FAX-PROC ...)
; compiling (DEFUN PIGNOSE-EVAL-FAX-PROC ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; in: DEFUN PIGNOSE-PROCESS-GOAL-PROC
;     (STRING (SECOND CHAOS::LHS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.

;     (CHAR (FIRST CHAOS::INPUT) 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PIGNOSE-PROCESS-GOAL-PROC ...)
; compiling (DEFUN PIGNOSE-EVAL-GOAL-PROC ...)
; compiling (DEFTERM SOS ...)
; compiling (DEFUN PIGNOSE-PARSE-SOS ...)
; compiling (DEFTERM PNDB ...)
; compiling (DEFUN PIGNOSE-PARSE-DB ...)
; compiling (DEFTERM CLAUSE-PRINT ...)
; compiling (DEFUN PIGNOSE-PARSE-CLAUSE ...)
; compiling (DEFTERM RESOLVE ...)
; compiling (DEFUN PIGNOSE-PARSE-RESOLVE ...)
; compiling (DEFTERM DEMOD ...)
; compiling (DEFUN PIGNOSE-PARSE-DEMOD ...)
; compiling (DEFTERM SAVE-OPTION ...)
; compiling (DEFTERM PN-LIST ...)
; compiling (DEFUN PIGNOSE-PARSE-LIST-COMMAND ...)
; compiling (DEFTERM PN-OPTION ...)
; compiling (DEFUN PIGNOSE-PARSE-SAVE-OPTION ...)
; compiling (DEFUN PIGNOSE-PARSE-OPTION ...)
; compiling (DEFTERM PN-SET-FLAG ...)
; compiling (DEFUN PIGNOSE-PARSE-FLAG ...)
; compiling (DEFTERM PN-ASSIGN ...)
; compiling (DEFUN PIGNOSE-PARSE-PARAM ...)
; compiling (DEFTERM SIGMATCH ...)
; compiling (DEFUN PIGNOSE-PARSE-SIGMATCH ...)
; compiling (DEFTERM PN-LEX ...)
; compiling (DEFUN PIGNOSE-PARSE-LEX ...)
; compiling (DEFUN PARSE-FAX-DECLARATION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; in: DEFUN EVAL-FAX
;     (CHAOS::SET-NEEDS-RULE)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN EVAL-FAX ...)
; compiling (DEFUN EVAL-PNDB ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; 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.
; compiling (DEFUN EVAL-SOS ...)
; compiling (DEFUN EVAL-CLAUSE-SHOW ...)
; compiling (DEFUN EVAL-PN-LIST ...)
; compiling (DEFUN EVAL-RESOLVE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; in: DEFUN DO-RESOLVE
;     (CHAOS::PN-FLAG CHAOS::PRINT-STATS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN DO-RESOLVE ...)
; compiling (DEFUN PIGNOSE-SHOW-CLAUSE ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; in: DEFUN EVAL-PN-SET-FLAG
;     (CHAOS::PN-FLAG CHAOS::PRINT-MESSAGE)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-FLAG CHAOS::INDEX) CHAOS::VALUE)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG-HOOK CHAOS::INDEX)
; --> CHAOS::PIGNOSE-FLAG-HOOK AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CHAOS::PN-FLAG-HOOK CHAOS::INDEX))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN EVAL-PN-SET-FLAG ...)
; compiling (DEFUN PIGNOSE-SHOW-OPTION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; in: DEFUN EVAL-PN-ASSIGN
;     (CHAOS::PN-PARAMETER-MIN CHAOS::INDEX)
; --> CHAOS::PN-PARAM-MIN AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PN-PARAM-MAX AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-PARAMETER CHAOS::INDEX) CHAOS::VALUE)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.
; compiling (DEFUN EVAL-PN-ASSIGN ...)
; compiling (DEFUN EVAL-PN-OPTION ...)
; compiling (DEFUN PERFORM-DEMODULATION ...)

; file: /«PKGBUILDDIR»/BigPink/codes/commands.lisp
; in: DEFUN PERFORM-DEMODULATION*
;     (ZEROP CHAOS::*TERM-MEMO-HASH-HIT*)
; ==>
;   (= CHAOS::*TERM-MEMO-HASH-HIT* 0)
; 
; 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 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 because: The operands might not be the same type.
; compiling (DEFUN PERFORM-DEMODULATION* ...)
; compiling (DEFUN EVAL-PN-SIGMATCH ...)
; compiling (DEFUN EVAL-PN-LEX ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/commands-TMP.fasl written
; compilation finished in 0:00:00.705
; compiling file "/«PKGBUILDDIR»/BigPink/codes/inv.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (SPECIAL .PN-CHECK-SAFETY.))
; compiling (DEFVAR .PN-CHECK-SAFETY. ...)
; compiling (DEFSTRUCT (INV-CHECK-SYSTEM) ...)
; compiling (DEFUN PN-GET-METH-UNIQUE ...)
; compiling (DEFUN MAKE-TERM-PAT ...)

; file: /«PKGBUILDDIR»/BigPink/codes/inv.lisp
; in: DEFUN MAKE-INV-CHECK-CONTEXT
;     (CHAOS::PN-FLAG CHAOS::DEBUG-INV-CHECK)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN MAKE-INV-CHECK-CONTEXT ...)
; compiling (DEFUN MAKE-INV-CHECK-CONTEXTS ...)
; compiling (DEFUN PN-EXPAND-MACRO ...)

; file: /«PKGBUILDDIR»/BigPink/codes/inv.lisp
; in: DEFUN MAKE-PN-INV-CHECK-PAT
;     (FORMAT CHAOS::PRINT-MSG "~%~a: " MAKE-CONDITION)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG305 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (PRINC #:FORMAT-ARG305 STREAM)
;               (WRITE-STRING ": " STREAM))
;             NIL)
;           #:G304)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT CHAOS::PRINT-MSG "~%goal: ")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (TERPRI STREAM) (WRITE-STRING "goal: " STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN MAKE-PN-INV-CHECK-PAT ...)
; compiling (DEFUN CL-MEMBER-TEST ...)

; file: /«PKGBUILDDIR»/BigPink/codes/inv.lisp
; in: DEFUN SETUP-INV-CHECK-DB
;     (CHAOS::PN-FLAG CHAOS::AUTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO1)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN SETUP-INV-CHECK-DB ...)

; file: /«PKGBUILDDIR»/BigPink/codes/inv.lisp
; in: DEFUN PERFORM-INV-CHECK
;     (CHAOS::PN-FLAG CHAOS::AUTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO2)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::AUTO3)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::BINARY-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::NEG-HYPER-RES)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-FROM)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::PARA-INTO)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (CHAOS::PN-FLAG CHAOS::DEMOD-INF)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (SETF (CHAOS::PN-PARAMETER CHAOS::MAX-PROOFS) 1)
; --> LET* AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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)
; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

; --> CHAOS::MARK-MODULE-NEED-REWRITING-PREPARATION SETF LET* MIN LET LET IF <= 
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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 4) because:
;       The first argument is a REAL, not a FIXNUM.
; compiling (DEFUN PERFORM-INV-CHECK ...)

; file: /«PKGBUILDDIR»/BigPink/codes/inv.lisp
; in: DEFUN DO-INVARIANCE-CHECK
;     (OR CHAOS::OBJECT CHAOS::INIT-STATE)
; --> LET IF OR THE 
; ==>
;   CHAOS::INIT-STATE
; 
; note: deleting unreachable code

;     (CHAOS::PN-PARAMETER CHAOS::INV-CHECK-MAX-DEPTH)
; --> CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; 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.

;     (INCF CHAOS::LOOPS)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::LOOPS)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (> CHAOS::LOOPS CHAOS::MAX-LOOPS)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (ZEROP CHAOS::LOOPS)
; --> = IF 
; ==>
;   (= CHAOS::LOOPS 0)
; 
; 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 because: The operands might not be the same type.

;     (INCF CHAOS::NUM)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (< CHAOS::LOOPS CHAOS::SKIP-L)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (= CHAOS::LOOPS CHAOS::SKIP-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 because: The operands might not be the same type.

;     (< CHAOS::NUM CHAOS::SKIP-NUM)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (ZEROP CHAOS::LOOPS)
; ==>
;   (= CHAOS::LOOPS 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 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.
; 
; note: unable to open code because: The operands might not be the same type.

;     (CHAOS::PN-FLAG CHAOS::CHECK-INIT-ALWAYS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.

;     (INCF CHAOS::LOOPS)
; --> SETQ 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 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::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 REAL, not a FIXNUM.

;     (INCF CHAOS::NUM)
; --> SETQ 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 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::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 REAL, 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 REAL, not a FIXNUM.
; compiling (DEFUN DO-INVARIANCE-CHECK ...)
; compiling (DEFUN PARSE-PN-CHECK-COMMAND ...)

; file: /«PKGBUILDDIR»/BigPink/codes/inv.lisp
; in: DEFUN PN-CHECK-INVARIANCE
;     (CHAOS::PN-FLAG CHAOS::PRINT-STATS)
; --> CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT: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.
; compiling (DEFUN PN-CHECK-INVARIANCE ...)
; compiling (DEFUN PN-CHECK-SAFETY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/BigPink/codes/inv-TMP.fasl written
; compilation finished in 0:00:00.198
; compiling file "/«PKGBUILDDIR»/cafeobj/cafeobjvar.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DEFVAR *CAFEOBJ-BATCH* ...)
; compiling (DEFVAR *CAFEOBJ-NO-BANNER* ...)
; compiling (DEFVAR *CAFEOBJ-VERBOSE* ...)
; compiling (DEFVAR *PROMPT* ...)
; compiling (DEFVAR *CAFEOBJ-INITIAL-LOAD-FILES* ...)
; compiling (DEFVAR *CAFEOBJ-INITIAL-PRELUDE-FILE* ...)
; compiling (DEFVAR *CAFEOBJ-SECONDARY-PRELUDE-FILE* ...)
; compiling (DEFVAR *CAFEOBJ-LOAD-INIT-FILE* ...)
; compiling (DEFVAR *CAFEOBJ-SECONDARY-PRELUDE-PATH* ...)
; compiling (DEFVAR *CAFEOBJ-INSTALL-DIR* ...)
; compiling (DEFVAR *CAFEOBJ-SCHEMAS* ...)
; compiling (DEFVAR *CAFEOBJ-PRINT-ERRORS* ...)
; compiling (DEFPARAMETER *CAFEOBJ-MOD-ELTS* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/cafeobjvar-TMP.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/cafeobj/creader.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CAFEOBJ-PARSE ...)
; compiling (DEFUN CAFEOBJ-PARSE-FROM-STRING ...)
; compiling (DEFPARAMETER SORTDECLARATION ...)
; compiling (DEFPARAMETER HSORTDECLARATION ...)
; compiling (DEFPARAMETER HRCSORTDECLARATION ...)
; compiling (DEFPARAMETER BSORTDECLARATION ...)
; compiling (DEFPARAMETER BHSORTDECLARATION ...)
; compiling (DEFPARAMETER OPERATORDECLARATION ...)
; compiling (DEFPARAMETER BOPERATORDECLARATION ...)
; compiling (DEFPARAMETER PREDICATEDECLARATION ...)
; compiling (DEFPARAMETER BPREDICATEDECLARATION ...)
; compiling (DEFPARAMETER OPERATORATTRIBUTE ...)
; compiling (DEFPARAMETER LETDECLARATION ...)
; compiling (DEFPARAMETER VARDECLARATION ...)
; compiling (DEFPARAMETER VARSDECLARATION ...)
; compiling (DEFPARAMETER PVARDECLARATION ...)
; compiling (DEFPARAMETER PVARSDECLARATION ...)
; compiling (DEFPARAMETER MACRODECLARATION ...)
; compiling (DEFPARAMETER EQDECLARATION ...)
; compiling (DEFPARAMETER BEQDECLARATION ...)
; compiling (DEFPARAMETER CEQDECLARATION ...)
; compiling (DEFPARAMETER BCEQDECLARATION ...)
; compiling (DEFPARAMETER FOPLAXDECLARATION ...)
; compiling (DEFPARAMETER FOPLGOALDECLARATION ...)
; compiling (DEFPARAMETER RLDECLARATION ...)
; compiling (DEFPARAMETER BRLDECLARATION ...)
; compiling (DEFPARAMETER CRLDECLARATION ...)
; compiling (DEFPARAMETER BCRLDECLARATION ...)
; compiling (DEFPARAMETER EXDECLARATION ...)
; compiling (DEFPARAMETER PRDECLARATION ...)
; compiling (DEFPARAMETER USDECLARATION ...)
; compiling (DEFPARAMETER INCDECLARATION ...)
; compiling (DEFPARAMETER CTF ...)
; compiling (DEFPARAMETER CSP ...)
; compiling (SETQ *CAFEOBJ-SCHEMAS* ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/creader-TMP.fasl written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/cafeobj/oldoc.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN OLDOC-GET-DOCUMENTATION ...)
; compiling (DECLAIM (SPECIAL .CATEGORY-DESCRIPTIONS. ...))

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; in: DEFUN OLDOC-LIST-CATEGORIES
;     (1+ CHAOS::N)
; ==>
;   (+ CHAOS::N 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.
; compiling (DEFUN OLDOC-LIST-CATEGORIES ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; in: DEFSTRUCT OLDOC
;     (DEFSTRUCT (CHAOS::OLDOC (:PRINT-FUNCTION CHAOS::PRINT-ONLINE-DOCUMENT))
;       (CHAOS::KEY "" :TYPE STRING)
;       (CHAOS::CATEGORY NIL :TYPE SYMBOL)
;       (CHAOS::MAIN "" :TYPE STRING)
;       (CHAOS::TITLE "" :TYPE STRING)
;       (CHAOS::RTITLE "" :TYPE STRING)
;       (CHAOS::EXAMPLE "" :TYPE STRING)
;       (CHAOS::MDKEY "" :TYPE STRING)
;       (CHAOS::NAMES NIL :TYPE LIST)
;       (CHAOS::RELATED NIL :TYPE LIST)
;       (CHAOS::CACHE NIL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CHAOS::OLDOC {100AF5E153}>
;    '#(#<SB-KERNEL:LAYOUT for T {1000099793}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {1000099813}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CHAOS::OLDOC-TITLE could not be inlined because the
;   structure definition for CHAOS::OLDOC was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEFVAR *CAFEOBJ-DOC-DB* ...)
; compiling (DEFVAR *CAFEOBJ-ALIAS-DB* ...)
; compiling (DEFSTRUCT (OLDOC #) ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; in: DEFUN PRINT-ONLINE-DOCUMENT
;     (FORMAT STREAM "~%*** key    : ~a" (CHAOS::OLDOC-KEY CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG367 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "*** key    : " STREAM)
;               (PRINC #:FORMAT-ARG367 STREAM))
;             NIL)
;           #:G366)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&red-title  : ~a" (CHAOS::OLDOC-RTITLE CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG381 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "red-title  : " STREAM)
;               (PRINC #:FORMAT-ARG381 STREAM))
;             NIL)
;           #:G380)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&title      : ~a" (CHAOS::OLDOC-TITLE CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG395 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "title      : " STREAM)
;               (PRINC #:FORMAT-ARG395 STREAM))
;             NIL)
;           #:G394)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&mdkey      : ~a" (CHAOS::OLDOC-MDKEY CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG409 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "mdkey      : " STREAM)
;               (PRINC #:FORMAT-ARG409 STREAM))
;             NIL)
;           #:G408)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&main       : ~a" (CHAOS::OLDOC-MAIN CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG423 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "main       : " STREAM)
;               (PRINC #:FORMAT-ARG423 STREAM))
;             NIL)
;           #:G422)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&example    : ~a" (CHAOS::OLDOC-EXAMPLE CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG437 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "example    : " STREAM)
;               (PRINC #:FORMAT-ARG437 STREAM))
;             NIL)
;           #:G436)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&names      : ~a" (CHAOS::OLDOC-NAMES CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG451 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "names      : " STREAM)
;               (PRINC #:FORMAT-ARG451 STREAM))
;             NIL)
;           #:G450)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&related    : ~a" (CHAOS::OLDOC-RELATED CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG465 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "related    : " STREAM)
;               (PRINC #:FORMAT-ARG465 STREAM))
;             NIL)
;           #:G464)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&cache      : ~a" (CHAOS::OLDOC-CACHE CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG479 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "cache      : " STREAM)
;               (PRINC #:FORMAT-ARG479 STREAM))
;             NIL)
;           #:G478)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~&cateogry   : ~a" (CHAOS::OLDOC-CATEGORY CHAOS::DOC))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG493 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "cateogry   : " STREAM)
;               (PRINC #:FORMAT-ARG493 STREAM))
;             NIL)
;           #:G492)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-ONLINE-DOCUMENT ...)
; compiling (DEFUN OLDOC-MAKE-KEY ...)
; compiling (DEFUN OLDOC-QUESTION-TO-STRING ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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 (SIMPLE-ARRAY * (*)).
; 
; 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.
; compiling (DEFUN OLDOC-FIND-DOC-ENTRY ...)
; compiling (DEFUN OLDOC-FORMAT-RELATED ...)
; compiling (DEFUN OLDOC-FORMAT-DOCUMENTATION ...)
; compiling (DEFUN OLDOC-IS-REGEX ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; in: DEFUN OLDOC-PARSE-TO-WORDS
;     (STRING-TRIM "\"'" CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                                SYMBOL CHARACTER), not a SIMPLE-STRING.
; compiling (DEFUN OLDOC-PARSE-TO-WORDS ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; in: DEFUN OLDOC-SEARCH-ALL
;     (APPLY CHAOS::X (LIST CHAOS::FULLSS))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::X)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (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.
; compiling (DEFUN OLDOC-SEARCH-ALL ...)
; compiling (DEFUN REGISTER-ONLINE-HELP ...)
; compiling (DEFPARAMETER .MD-REMOVE-HASH-HASH. ...)
; compiling (DEFPARAMETER .MD-REMOVE-LINK. ...)
; compiling (DEFPARAMETER .MD-REMOVE-LINK2. ...)
; compiling (DEFPARAMETER .MD-REMOVE-CODE-SIGN. ...)
; compiling (DEFPARAMETER .MD-REPLACE-TILDE. ...)
; compiling (DEFPARAMETER .MD-REPLACE-BQ. ...)
; compiling (DEFPARAMETER .MD-REMOVE-BQ. ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; 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. #)))))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REPLACE-BQ.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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)))))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REPLACE-TILDE.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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))))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-CODE-SIGN.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;              (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                       (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-LINK2.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK.
;              (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-LINK.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-HASH-HASH.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN FORMAT-MARKDOWN ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; 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))))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-BQ.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;              (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                       (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-LINK2.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK.
;              (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-LINK.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.MD-REMOVE-HASH-HASH.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN OLDOC-REDUCE-STRING ...)
; compiling (DEFVAR .OUT-DONE. ...)
; compiling (DEFUN REFMAN-SORT ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; 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))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG1534 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (PRINC #:FORMAT-ARG1534 STREAM))
;             NIL)
;           #:G1533)
; 
; 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.
; compiling (DEFUN EXPORT-REFMAN ...)
; compiling (DEFPARAMETER .TODO. ...)

; file: /«PKGBUILDDIR»/cafeobj/oldoc.lisp
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::.TODO.)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN SHOW-UNDOCUMENTED ...)
; compiling (DEFUN OLDOC-GET-DOCUMENTS-BY-CATEGORY ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/oldoc-TMP.fasl written
; compilation finished in 0:00:00.324
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "cafeobj" "oldoc">
; compiling file "/«PKGBUILDDIR»/cafeobj/define.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *CAFEOBJ-TOP-COMMANDS* ...)
; compiling (DEFVAR *CAFEOBJ-DECLARATIONS* ...)
; compiling (DEFSTRUCT (COMDE #) ...)
; compiling (DEFPARAMETER .VALID-COMDE-TYPES. ...)
; compiling (DEFPARAMETER .VALID-DECL-CATEGORIES. ...)
; compiling (DEFPARAMETER .VALID-COM-CATEGORIES. ...)

; file: /«PKGBUILDDIR»/cafeobj/define.lisp
; in: DEFUN PRINT-COMDE
;     (FORMAT STREAM "~%** key         : ~a" (CHAOS::COMDE-KEY CHAOS::ME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG75 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "** key         : " STREAM)
;               (PRINC #:FORMAT-ARG75 STREAM))
;             NIL)
;           #:G74)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~%   type        : ~a" (CHAOS::COMDE-TYPE CHAOS::ME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG89 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "   type        : " STREAM)
;               (PRINC #:FORMAT-ARG89 STREAM))
;             NIL)
;           #:G88)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~%   category    : ~a" (CHAOS::COMDE-CATEGORY CHAOS::ME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG103 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "   category    : " STREAM)
;               (PRINC #:FORMAT-ARG103 STREAM))
;             NIL)
;           #:G102)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~%   parser      : ~a" (CHAOS::COMDE-PARSER CHAOS::ME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG117 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "   parser      : " STREAM)
;               (PRINC #:FORMAT-ARG117 STREAM))
;             NIL)
;           #:G116)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.

;     (FORMAT STREAM "~%   evaluator   : ~a" (CHAOS::COMDE-EVALUATOR CHAOS::ME))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG131 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING "   evaluator   : " STREAM)
;               (PRINC #:FORMAT-ARG131 STREAM))
;             NIL)
;           #:G130)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T NIL) STREAM (VECTOR CHARACTER)
;                               (VECTOR NIL) BASE-STRING), not a NULL.
; compiling (DEFUN PRINT-COMDE ...)
; compiling (DEFPARAMETER .CATEGORY-DESCRIPTIONS. ...)
; compiling (DEFUN GET-COMMAND-INFO ...)

; file: /«PKGBUILDDIR»/cafeobj/define.lisp
; 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.
; compiling (DEFUN SHOW-TOP-ENTRIES ...)
; compiling (DEFUN GET-DECL-INFO ...)

; file: /«PKGBUILDDIR»/cafeobj/define.lisp
; 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.
; compiling (DEFUN SHOW-DECL-ENTRIES ...)

; file: /«PKGBUILDDIR»/cafeobj/define.lisp
; in: DEFMACRO DEFINE
;     (MEMBER CHAOS::CATEGORY CHAOS::.VALID-COM-CATEGORIES.)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))

;     (MEMBER CHAOS::CATEGORY CHAOS::.VALID-DECL-CATEGORIES.)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; compiling (DEFMACRO DEFINE ...)
; compiling (DEFUN PRINT-COMDE-USAGE ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/define-TMP.fasl written
; compilation finished in 0:00:00.103
; compiling file "/«PKGBUILDDIR»/cafeobj/trans-com.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/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 (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN PARSE-IN-CONTEXT-MODEXP-WITH-TERM ...)
; compiling (DEFUN PARSE-REDUCE-COMMAND ...)
; compiling (DEFUN PARSE-EXEC-COMMAND ...)
; compiling (DEFUN PARSE-EXEC+-COMMAND ...)
; compiling (DEFUN PARSE-BRED-COMMAND ...)
; compiling (DEFUN PARSE-PARSE-COMMAND ...)
; compiling (DEFUN PARSE-TEST-REDUCTION ...)
; compiling (DEFUN PARSE-TRAM-COMMAND ...)
; compiling (DEFUN PARSE-AUTOLOAD-COMMAND ...)
; compiling (DEFUN PARSE-NO-AUTOLOAD-COMMAND ...)
; compiling (DEFUN PARSE-CBRED-COMMAND ...)
; compiling (DEFUN PARSE-IN-CONTEXT-MODEXP-WITH-NAME ...)
; compiling (DEFUN PARSE-LOOK-UP-COMMAND ...)
; compiling (DEFUN PARSE-CASE-COMMAND ...)
; compiling (DEFUN PARSE-EVAL-LISP ...)
; compiling (DEFUN PARSE-META-EVAL ...)
; compiling (DEFUN PARSE-MAKE-COMMAND ...)
; compiling (DEFUN PARSE-INPUT-COMMAND ...)
; compiling (DEFPARAMETER _SAVE-PAT ...)
; compiling (DEFUN PARSE-SAVE-COMMAND ...)
; compiling (DEFVAR _RESTORE-PAT ...)
; compiling (DEFUN PARSE-RESTORE-COMMAND ...)
; compiling (DEFVAR _RESET-PAT ...)
; compiling (DEFUN PARSE-RESET-COMMAND ...)
; compiling (DEFVAR _FULL-RESET-PAT ...)
; compiling (DEFUN PARSE-FULL-RESET-COMMAND ...)
; compiling (DEFUN PARSE-PRELUDE-COMMAND ...)
; compiling (DEFUN PARSE-COMMENT-COMMAND ...)
; compiling (DEFVAR _OPEN-PAT ...)
; compiling (DEFUN PARSE-OPEN-COMMAND ...)
; compiling (DEFVAR _CLOSE-PAT ...)
; compiling (DEFUN PARSE-CLOSE-COMMAND ...)
; compiling (DEFUN PARSE-INSPECT-TERM-COMMAND ...)
; compiling (DEFVAR _PWD-PAT ...)
; compiling (DEFUN PARSE-PWD-COMMAND ...)
; compiling (DEFVAR _LS-PAT ...)
; compiling (DEFUN PARSE-LS-COMMAND ...)
; compiling (DEFVAR _SHELL-PAT ...)
; compiling (DEFUN PARSE-SHELL-COMMAND ...)
; compiling (DEFVAR _CD-PAT ...)
; compiling (DEFUN PARSE-CD-COMMAND ...)
; compiling (DEFVAR _PUSHD-PAT ...)

; file: /«PKGBUILDDIR»/cafeobj/trans-com.lisp
; in: DEFUN PARSE-PUSHD-COMMAND
;     (LENGTH CHAOS::INP)
; 
; 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 VECTOR.
; compiling (DEFUN PARSE-PUSHD-COMMAND ...)
; compiling (DEFVAR _POPD-PAT ...)

; file: /«PKGBUILDDIR»/cafeobj/trans-com.lisp
; in: DEFUN PARSE-POPD-COMMAND
;     (LENGTH CHAOS::INP)
; 
; 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 VECTOR.
; compiling (DEFUN PARSE-POPD-COMMAND ...)
; compiling (DEFVAR _DIRS-PAT ...)
; compiling (DEFUN PARSE-DIRS-COMMAND ...)
; compiling (DEFVAR _PROTECT-PAT ...)
; compiling (DEFUN PARSE-PROTECT-COMMAND ...)
; compiling (DEFVAR _UNPROTECT-PAT ...)
; compiling (DEFUN PARSE-UNPROTECT-COMMAND ...)
; compiling (DEFVAR _SELECT-PAT ...)
; compiling (DEFVAR _SHOW-PAT ...)
; compiling (DEFVAR _DESC-PAT ...)
; compiling (DEFUN PARSE-SHOW-COMMAND ...)
; compiling (DEFVAR _SET-PAT ...)
; compiling (DEFUN PARSE-SET-COMMAND ...)
; compiling (DEFVAR _PROVIDE-PAT ...)
; compiling (DEFUN PARSE-PROVIDE-COMMAND ...)
; compiling (DEFVAR _REQUIRE-PAT ...)
; compiling (DEFUN PARSE-REQUIRE-COMMAND ...)
; compiling (DEFPARAMETER _REGULARIZE-PAT ...)
; compiling (DEFUN PARSE-REGULARIZE-COMMAND ...)
; compiling (DEFUN PARSE-CHECK-COMMAND ...)
; compiling (DEFUN CAFEOBJ-CHECK-HELP ...)
; compiling (DEFUN PARSE-DRIBBLE-COMMAND ...)

; file: /«PKGBUILDDIR»/cafeobj/trans-com.lisp
; in: DEFUN PARSE-CONTINUE-COMMAND
;     (> CHAOS::NUM 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       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.
;       etc.
; compiling (DEFUN PARSE-CONTINUE-COMMAND ...)
; compiling (DEFUN PARSE-NAME-COMMAND ...)
; compiling (DEFUN PARSE-VERSION-COMMAND ...)
; compiling (DEFUN CAFEOBJ-EVAL-MODULE-ELEMENT-PROC ...)
; compiling (DEFPARAMETER _GENDOC-PAT ...)
; compiling (DEFUN PARSE-GENDOC-COMMAND ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/trans-com-TMP.fasl written
; compilation finished in 0:00:00.146
; compiling file "/«PKGBUILDDIR»/cafeobj/trans-decl.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN PARSE-INTERFACE-DECL ...)

; file: /«PKGBUILDDIR»/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 CONS NULL VECTOR).
; compiling (DEFUN PROCESS-IMPORTATION-FORM ...)
; compiling (DEFUN PARSE-IMPORTS-FORM ...)
; compiling (DEFUN PROCESS-SORT-REFERENCE-FORM ...)
; compiling (DEFUN PROCESS-SORT-AND-SUBSORT-FORM ...)
; compiling (DEFUN PROCESS-HIDDEN-SORT-FORM ...)
; compiling (DEFUN PROCESS-BSORT-DECLARATION ...)
; compiling (DEFUN PROCESS-HBSORT-DECLARATION ...)
; compiling (DEFUN GATHER-SLOT-DECLS ...)
; compiling (DEFUN PROCESS-SUPER-REFS ...)
; compiling (DEFUN PROCESS-RECORD-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-CLASS-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-OPERATOR-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-PREDICATE-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-PREDICATES-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-BPREDICATES-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-OPERATORS-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-BOPERATORS-DECLARATION-FORM ...)
; compiling (DEFUN PARSE-REW-STRATEGY ...)
; compiling (DEFUN PROCESS-OPATTR-FORM ...)
; compiling (DEFUN PROCESS-SIGNATURE ...)
; compiling (DEFUN PROCESS-VARIABLE-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-PSEUD-VARIABLE-DECLARATION-FORM ...)

; file: /«PKGBUILDDIR»/cafeobj/trans-decl.lisp
; in: DEFUN PROCESS-AXIOM-FORM
;     (STRING CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a SYMBOL.
; compiling (DEFUN PROCESS-AXIOM-FORM ...)
; compiling (DEFUN PROCESS-AXIOMS-DECLARATION ...)
; compiling (DEFUN PROCESS-LET-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-MACRO-DECLARATION-FORM ...)
; compiling (DEFUN PROCESS-MODULE-DECLARATION-FORM ...)
; compiling (DEFUN PARSE-PSORT-DECL ...)
; compiling (DEFUN PARSE-MODULE-ELEMENTS ...)

; file: /«PKGBUILDDIR»/cafeobj/trans-decl.lisp
; in: DEFUN PARSE-MODULE-ELEMENT
;     (FUNCALL CHAOS::PARSER CHAOS::E)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PARSER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN PARSE-MODULE-ELEMENT ...)
; compiling (DEFUN PARSE-MODULE-ELEMENT-1 ...)
; compiling (DEFUN PROCESS-VIEW-DECLARATION-FORM ...)
; compiling (DEFUN PARSE-DYNAMIC-COMMENT-1 ...)
; compiling (DEFUN PARSE-DYNAMIC-COMMENT-2 ...)
; compiling (DEFUN PROCESS-EV-LISP-FORM ...)
; compiling (DEFUN PARSE-EVAL-FORM ...)
; compiling (DEFUN PARSE-DECL-DO-NOTHING ...)
; compiling (DEFUN EVAL-DECL-DO-NOTHING ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/trans-decl-TMP.fasl written
; compilation finished in 0:00:00.200
; compiling file "/«PKGBUILDDIR»/cafeobj/trans-form.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN CAFEOBJ-2-CHAOS-PROC ...)
; compiling (DEFUN CAFEOBJ2CHAOS ...)

; file: /«PKGBUILDDIR»/cafeobj/trans-form.lisp
; in: DEFUN CAFEOBJ->CHAOS
;     (FORMAT CHAOS::PORT
;             "~&;;; this file is generated by CafeOBJ to Chaos converter version 1.2")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING
;                ";;; this file is generated by CafeOBJ to Chaos converter version 1.2"
;                STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.

;     (FORMAT CHAOS::PORT "~&;;; creation date = ~a" (CHAOS::GET-TIME-STRING))
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG40 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING ";;; creation date = " STREAM)
;               (PRINC #:FORMAT-ARG40 STREAM))
;             NIL)
;           #:G39)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.

;     (FORMAT CHAOS::PORT "~%;;; source file   = ~a" CHAOS::IN-FILE)
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM #:FORMAT-ARG54 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (TERPRI STREAM)
;               (WRITE-STRING ";;; source file   = " STREAM)
;               (PRINC #:FORMAT-ARG54 STREAM))
;             NIL)
;           #:G53)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.

;     (FORMAT CHAOS::PORT "~&(in-package :chaos)~%")
; ==>
;   (FORMAT SB-C::DEST
;           (LAMBDA (STREAM &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (FRESH-LINE STREAM)
;               (WRITE-STRING "(in-package :chaos)" STREAM)
;               (TERPRI STREAM))
;             NIL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM (MEMBER T NIL)), not a NULL.
; compiling (DEFUN CAFEOBJ->CHAOS ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/trans-form-TMP.fasl written
; compilation finished in 0:00:00.027
; compiling file "/«PKGBUILDDIR»/cafeobj/command-top.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN GET-ARG-STRING ...)

; file: /«PKGBUILDDIR»/cafeobj/command-top.lisp
; in: DEFUN CAFEOBJ-PROCESS-ARGS
;     (INCF CHAOS::I)
; --> SETQ THE 
; ==>
;   (+ 1 CHAOS::I)
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (> CHAOS::ARGC CHAOS::I)
; 
; 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.

;     (INCF CHAOS::I)
; --> SETQ 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 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.
; compiling (DEFUN CAFEOBJ-PROCESS-ARGS ...)
; compiling (DEFUN CAFEOBJ-INTERPRETER-HELP ...)
; compiling (DEFUN PRINT-CONTEXT-INFO ...)
; compiling (DEFUN PRINT-HELP-HELP ...)
; compiling (DEFUN CAFEOBJ-TOP-LEVEL-HELP ...)
; compiling (DEFPARAMETER .CAFEOBJ-MAIN-COMMANDS. ...)
; compiling (DEFUN SHOW-CAFEOBJ-MAIN-COMMANDS ...)
; compiling (DEFPARAMETER .?-INVALID-CHARS. ...)

; file: /«PKGBUILDDIR»/cafeobj/command-top.lisp
; in: DEFUN CAFEOBJ-WHAT-IS
;     (FORMAT T CHAOS::DESCRIPTION)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                                FUNCTION), not a SIMPLE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                                FUNCTION), not a FUNCTION.
; compiling (DEFUN CAFEOBJ-WHAT-IS ...)

; file: /«PKGBUILDDIR»/cafeobj/command-top.lisp
; in: DEFUN GET-COMMAND-DESCRIPTION
;     (STRING= CHAOS::LEVEL "??")
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
;                               SYMBOL CHARACTER), not a STRING.
; compiling (DEFUN GET-COMMAND-DESCRIPTION ...)

; file: /«PKGBUILDDIR»/cafeobj/command-top.lisp
; 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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   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 LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CAFEOBJ-INPUT ...)

; file: /«PKGBUILDDIR»/cafeobj/command-top.lisp
; in: DEFUN CAFEOBJ-PROBE-FILE
;     (<= (FILE-WRITE-DATE CHAOS::SRC) (FILE-WRITE-DATE CHAOS::BIN))
; --> IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.
; compiling (DEFUN CAFEOBJ-PROBE-FILE ...)
; compiling (DEFUN PRINT-CAFEOBJ-PROMPT ...)
; compiling (DEFUN SET-CAFEOBJ-LIBPATH ...)
; compiling (DEFUN SET-CAFEOBJ-STANDARD-LIBRARY-PATH ...)
; compiling (DEFUN BYE-BYE-BYE ...)
; compiling (DEFUN CAFEOBJ-NOP ...)

; file: /«PKGBUILDDIR»/cafeobj/command-top.lisp
; in: DEFUN CAFEOBJ-EVALUATE-COMMAND
;     (FUNCALL CHAOS::PARSER CHAOS::INP)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::PARSER)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FUNCALL CHAOS::EVALUATOR CHAOS::PFORM)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::EVALUATOR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CAFEOBJ-EVALUATE-COMMAND ...)
; compiling (DEFUN PARSE-CAFEOBJ-INPUT-FROM-STRING ...)
; compiling (DEFVAR *ON-TOP-DEBUG* ...)
; compiling (DEFUN PROCESS-CAFEOBJ-INPUT ...)
; compiling (DEFUN HANDLE-CAFEOBJ-TOP-ERROR ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/command-top-TMP.fasl written
; compilation finished in 0:00:00.258
; compiling file "/«PKGBUILDDIR»/cafeobj/commands.lisp" (written 21 OCT 2015 03:41:24 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (CLRHASH *CAFEOBJ-TOP-COMMANDS*)
; compiling (CLRHASH *CAFEOBJ-DOC-DB*)
; compiling (DEFINE (":is") ...)
; compiling (DEFINE ("!") ...)
; compiling (DEFINE ("#define") ...)
; compiling (DEFINE ("--" "**") ...)
; compiling (DEFINE ("-->" "**>") ...)
; compiling (DEFINE ("=") ...)
; compiling (DEFINE ("==") ...)
; compiling (DEFINE ("=/=") ...)
; compiling (DEFINE ("==>") ...)
; compiling (DEFINE ("=*=") ...)
; compiling (DEFINE ("=(n)=>" "=(n,m)=>" ...) ...)
; compiling (DEFINE ("accept =*= proof switch") ...)
; compiling (DEFINE ("?" "??" ...) ...)
; compiling (DEFINE ("?apropos" "?ap") ...)
; compiling (DEFINE ("all axioms switch") ...)
; compiling (DEFINE ("always memo switch") ...)
; compiling (DEFINE ("apply") ...)
; compiling (DEFINE ("auto context switch") ...)
; compiling (DEFINE ("autoload") ...)
; compiling (DEFINE ("no-autoload") ...)
; compiling (DEFINE ("axioms" "axiom" ...) ...)
; compiling (DEFINE ("bceq" "bcq") ...)
; compiling (DEFINE ("beq") ...)
; compiling (DEFINE ("bctrans" "bctr") ...)
; compiling (DEFINE ("bop" "bops") ...)
; compiling (DEFINE ("bpred" "bpreds" ...) ...)
; compiling (DEFINE ("breduce" "bred") ...)
; compiling (DEFINE ("btrans" "btr") ...)
; compiling (DEFINE ("cbred") ...)
; compiling (DEFINE ("cd") ...)
; compiling (DEFINE ("ceq" "cq") ...)
; compiling (DEFINE ("check") ...)
; compiling (DEFINE ("check switch") ...)
; compiling (DEFINE ("choose") ...)
; compiling (DEFINE ("clean memo" "clean") ...)
; compiling (DEFINE ("clean memo switch") ...)
; compiling (DEFINE ("close") ...)
; compiling (DEFINE ("comments") ...)
; compiling (DEFINE ("cond limit switch") ...)
; compiling (DEFINE ("ctrans" "ctr") ...)
; compiling (DEFINE ("describe" "desc") ...)
; compiling (DEFINE ("eof") ...)
; compiling (DEFINE ("eq") ...)
; compiling (DEFINE ("exec limit switch") ...)
; compiling (DEFINE ("exec trace switch") ...)
; compiling (DEFINE ("execute" "exec") ...)
; compiling (DEFINE ("extending" "ex") ...)
; compiling (DEFINE ("find") ...)
; compiling (DEFINE ("find all rules switch") ...)
; compiling (DEFINE ("full reset" "full-reset" ...) ...)
; compiling (DEFINE ("gendoc") ...)
; compiling (DEFINE ("imports") ...)
; compiling (DEFINE ("include BOOL switch") ...)
; compiling (DEFINE ("include RWL switch") ...)
; compiling (DEFINE ("including" "inc") ...)
; compiling (DEFINE ("input" "in") ...)
; compiling (DEFINE ("instantiation") ...)
; compiling (DEFINE ("let") ...)
; compiling (DEFINE ("libpath switch" "library path") ...)
; compiling (DEFINE ("look" "look up") ...)
; compiling (DEFINE ("ls") ...)
; compiling (DEFINE ("match" "unify") ...)
; compiling (DEFINE ("module" "mod" ...) ...)
; compiling (DEFINE ("parameterized module") ...)
; compiling (DEFINE ("memo switch") ...)
; compiling (DEFINE ("module expression") ...)
; compiling (DEFINE ("on-the-fly" "on the fly") ...)
; compiling (DEFINE ("op" "ops") ...)
; compiling (DEFINE ("open") ...)
; compiling (DEFINE ("operator attributes" "assoc" ...) ...)
; compiling (DEFINE ("operator precedence" "precedence") ...)
; compiling (DEFINE ("parse") ...)
; compiling (DEFINE ("parser normalize switch") ...)
; compiling (DEFINE ("pred" "pd" ...) ...)
; compiling (DEFINE ("print depth switch") ...)
; compiling (DEFINE ("print mode switch") ...)
; compiling (DEFINE ("print trs switch") ...)
; compiling (DEFINE ("protect") ...)
; compiling (DEFINE ("protecting" "pr") ...)
; compiling (DEFINE ("provide") ...)
; compiling (DEFINE ("pwd") ...)
; compiling (DEFINE ("qualified sort" "qualified operator" ...) ...)
; compiling (DEFINE ("qualified term") ...)
; compiling (DEFINE ("quiet switch") ...)
; compiling (DEFINE ("quit") ...)
; compiling (DEFINE ("reduce" "red") ...)
; compiling (DEFINE ("reduce conditions") ...)
; compiling (DEFINE ("regularize") ...)
; compiling (DEFINE ("regularize signature switch" "reg signature") ...)
; compiling (DEFINE ("require") ...)
; compiling (DEFINE ("reset") ...)
; compiling (DEFINE ("restore") ...)
; compiling (DEFINE ("rewrite limit switch" "rew limit") ...)
; compiling (DEFINE ("save") ...)
; compiling (DEFINE ("save-system" "save system") ...)
; compiling (DEFINE ("search predicates") ...)
; compiling (DEFINE ("select") ...)
; compiling (DEFINE ("set") ...)
; compiling (DEFINE ("show" "sh") ...)
; compiling (DEFINE ("show mode switch") ...)
; compiling (DEFINE ("signature" "sig") ...)
; compiling (DEFINE ("sort declaration") ...)
; compiling (DEFINE ("start") ...)
; compiling (DEFINE ("statistics") ...)
; compiling (DEFINE ("step switch") ...)
; compiling (DEFINE ("stop pattern switch") ...)
; compiling (DEFINE ("switches") ...)
; compiling (DEFINE ("trace whole switch") ...)
; compiling (DEFINE ("trans" "tr") ...)
; compiling (DEFINE ("unprotect") ...)
; compiling (DEFINE ("using" "us") ...)
; compiling (DEFINE ("var" "vars") ...)
; compiling (DEFINE ("verbose switch") ...)
; compiling (DEFINE ("version") ...)
; compiling (DEFINE ("view") ...)
; compiling (DEFINE ("dribble") ...)
; compiling (DEFINE ("exec!" "execute!") ...)
; compiling (DEFINE ("stop") ...)
; compiling (DEFINE ("lisp" "ev") ...)
; compiling (DEFINE ("lispq" "evq") ...)
; compiling (DEFINE ("make") ...)
; compiling (DEFINE ("prelude") ...)
; compiling (DEFINE ("[") ...)
; compiling (DEFINE ("*") ...)
; compiling (DEFINE ("bsort") ...)
; compiling (DEFINE ("ax") ...)
; compiling (DEFINE ("bax") ...)
; compiling (DEFINE ("goal") ...)
; compiling (DEFINE ("bgoal") ...)
; compiling (DEFINE ("pvar" "pvars") ...)
; compiling (DEFINE ("rule" "rl") ...)
; compiling (DEFINE ("crule" "crl") ...)
; compiling (DEFINE ("brule" "brl") ...)
; compiling (DEFINE ("bcrule" "bcrl") ...)
; compiling (DEFINE ("inspect" "inspect-term") ...)
; compiling (DEFINE ("pushd") ...)
; compiling (DEFINE ("popd") ...)
; compiling (DEFINE ("dirs") ...)
; compiling (DEFINE ("") ...)
; compiling (DEFINE ("cont" "continue") ...)
; compiling (DEFINE ("names" "name") ...)
; compiling (DEFINE ("scase") ...)
; compiling (DEFINE ("sos" "passive") ...)
; compiling (DEFINE ("db") ...)
; compiling (DEFINE ("clause") ...)
; compiling (DEFINE ("list") ...)
; compiling (DEFINE ("flag") ...)
; compiling (DEFINE ("param") ...)
; compiling (DEFINE ("option") ...)
; compiling (DEFINE ("resolve") ...)
; compiling (DEFINE ("demod") ...)
; compiling (DEFINE ("save-option") ...)
; compiling (DEFINE ("sigmatch") ...)
; compiling (DEFINE ("lex") ...)
; compiling (DEFINE (".") ...)
; compiling (DEFINE ("citp") ...)
; compiling (DEFINE (":goal") ...)
; compiling (DEFINE (":apply") ...)
; compiling (DEFINE (":ind") ...)
; compiling (DEFINE (":auto") ...)
; compiling (DEFINE (":roll") ...)
; compiling (DEFINE (":init") ...)
; compiling (DEFINE (":imply" ":imp") ...)
; compiling (DEFINE (":cp") ...)
; compiling (DEFINE (":equation") ...)
; compiling (DEFINE (":rule") ...)
; compiling (DEFINE (":backward") ...)
; compiling (DEFINE (":select") ...)
; compiling (DEFINE (":red" ":exec" ...) ...)
; compiling (DEFINE (":verbose") ...)
; compiling (DEFINE (":normalize") ...)
; compiling (DEFINE (":ctf") ...)
; compiling (DEFINE (":ctf-") ...)
; compiling (DEFINE (":csp") ...)
; compiling (DEFINE (":csp-") ...)
; compiling (DEFINE (":def" ":define") ...)
; compiling (DEFINE (":show" ":sh") ...)
; compiling (DEFINE (":describe" ":desc") ...)
; compiling (DEFINE (":spoiler") ...)
; compiling (DEFINE (":set") ...)
; compiling (DEFINE (":binspect") ...)
; compiling (DEFINE ("binspect") ...)
; compiling (DEFINE ("bresolve" ":bresolve") ...)
; compiling (DEFINE ("bshow" ":bshow") ...)
; compiling (DEFINE ("commands" "com") ...)
; compiling (DEFINE ("?com" "?command") ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/commands-TMP.fasl written
; compilation finished in 0:00:00.355
; compiling file "/«PKGBUILDDIR»/cafeobj/declarations.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (CLRHASH *CAFEOBJ-DECLARATIONS*)
; compiling (DEFINE ("bsort") ...)
; compiling (DEFINE ("[") ...)
; compiling (DEFINE ("hidden" "*") ...)
; compiling (DEFINE ("op") ...)
; compiling (DEFINE ("ops") ...)
; compiling (DEFINE ("bop") ...)
; compiling (DEFINE ("bops") ...)
; compiling (DEFINE ("pred" "pd") ...)
; compiling (DEFINE ("preds" "pds") ...)
; compiling (DEFINE ("dpred") ...)
; compiling (DEFINE ("bpred" "bpd") ...)
; compiling (DEFINE ("bpreds" "bpds") ...)
; compiling (DEFINE ("dbpred") ...)
; compiling (DEFINE ("let") ...)
; compiling (DEFINE ("#define") ...)
; compiling (DEFINE ("eq" "cq" ...) ...)
; compiling (DEFINE ("var" "vars") ...)
; compiling (DEFINE ("pvar" "pvars") ...)
; compiling (DEFINE ("fax" "bfax" ...) ...)
; compiling (DEFINE ("goal" "bgoal") ...)
; compiling (DEFINE ("imports" "import") ...)
; compiling (DEFINE ("pr" "protecting" ...) ...)
; compiling (DEFINE ("--" "**") ...)
; compiling (DEFINE ("-->") ...)
; compiling (DEFINE ("**>") ...)
; compiling (DEFINE ("ev" "lisp" ...) ...)
; compiling (DEFINE ("eval") ...)
; compiling (DEFINE ("sig" "signature") ...)
; compiling (DEFINE ("axioms" "axiom" ...) ...)
; compiling (DEFINE (".") ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/declarations-TMP.fasl written
; compilation finished in 0:00:00.051
; compiling file "/«PKGBUILDDIR»/cafeobj/cafeobj-top.lisp" (written 08 OCT 2015 01:43:01 AM):
; compiling (IN-PACKAGE :CHAOS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR G_LINE_1 ...)
; compiling (SETQ -CAFEOBJ-LOAD-TIME- ...)
; compiling (DEFUN CAFEOBJ-GREETING ...)
; compiling (DEFVAR .LISP-IMPLEMENTATION. ...)
; compiling (DEFVAR .LISP-VERSION. ...)
; compiling (DEFUN SUB-MESSAGE ...)

; file: /«PKGBUILDDIR»/cafeobj/cafeobj-top.lisp
; in: DEFUN CAFEOBJ
;     (CHAOS::WITH-CHAOS-ERROR NIL
;       (CHAOS::CAFEOBJ-INIT-FILES))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR NIL
;       (CHAOS::WITH-CHAOS-ERROR NIL
;         (CHAOS::CAFEOBJ-INIT-FILES)))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAOS::WITH-CHAOS-ERROR NIL
;       (DOLIST (CHAOS::F (REVERSE CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*))
;         (CHAOS::CAFEOBJ-INPUT CHAOS::F)))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR NIL
;       (CHAOS::WITH-CHAOS-ERROR NIL
;         (DOLIST (CHAOS::F (REVERSE CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*))
;           (CHAOS::CAFEOBJ-INPUT CHAOS::F))))
; --> LET LET IF LET IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CHAOS::STD-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; compiling (DEFUN CAFEOBJ ...)
; compiling (DEFUN CAFEOBJ-INIT ...)
; compiling (DEFUN CAFEOBJ-INIT-FILES ...)
; compiling (DEFMACRO ABORT-ON-ERROR ...)
; compiling (DEFUN RESUME-CAFEOBJ ...)
; compiling (DEFUN CAFEOBJ-TOP-LEVEL ...)

; /«PKGBUILDDIR»/tmpcache/common-lisp/sbcl-1.2.14.debian-linux-x64/«PKGBUILDDIR»/cafeobj/cafeobj-top-TMP.fasl written
; compilation finished in 0:00:00.069
; 
; compilation unit finished
;   caught 47 STYLE-WARNING conditions
;   printed 2415 notes
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into ./dumps/sbcl/cafeobj.sbcl:
writing 4944 bytes from the read-only space at 0x20000000
writing 3168 bytes from the static space at 0x20100000
writing 91750400 bytes from the dynamic space at 0x1000000000
done]
chmod +x dumps/sbcl/cafeobj.sbcl
cat ./xbin/cafeobj.in | \
sed -e 's:@FIRSTCHOICE@:sbcl:g' \
-e 's:@LIBPATH@:lib/cafeobj-1.5:g' \
-e 's:@SHAREPATH@:share/cafeobj-1.5:g' >./xbin/cafeobj 
make -C doc/refman reference-manual.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/refman'
pandoc -f markdown --table-of-contents --toc-depth=2 --template=template.tex --biblatex -V biblio-files=manual.bib -V papersize=a4paper -V mainfont='FreeSerif' -V sansfont='FreeSans' -V monofont='FreeMono' -V documentclass=memoir --latex-engine=xelatex --template=template.tex -t latex -s -o reference-manual.tex reference-manual.md introduction.md overview.md cloudsync.md reference-head.md reference.md
xelatex reference-manual.tex
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./reference-manual.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/t1enc.def))
(/usr/share/texmf/tex/latex/lm/lmodern.sty)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty))
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty
For additional information on amsmath, use the `?' option.
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amstext.sty
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty))
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty)
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty))
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))
(/usr/share/texlive/texmf-dist/tex/latex/tools/calc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/base/fixltx2e.sty

Package fixltx2e Warning: fixltx2e is not required with releases after 2015
(fixltx2e)                All fixes are now in the LaTeX kernel.
(fixltx2e)                See the latexrelease package for details.

) (/usr/share/texlive/texmf-dist/tex/latex/upquote/upquote.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/textcomp.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/ts1enc.def)))
(/usr/share/texlive/texmf-dist/tex/xelatex/mathspec/mathspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/etoolbox/etoolbox.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg))))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xkeyval/xkeyval.sty
(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkeyval.tex
(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkvutils.tex))))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype.sty
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype-xetex.def)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.sty
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex1.sty
(/usr/share/texlive/texmf-dist/tex/latex/logreq/logreq.sty
(/usr/share/texlive/texmf-dist/tex/latex/logreq/logreq.def))
(/usr/share/texlive/texmf-dist/tex/latex/base/ifthen.sty)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/blx-compat.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/bbx/numeric.bbx
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/bbx/standard.bbx))
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/cbx/numeric.cbx)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.sty
(/usr/share/texlive/texmf-dist/tex/latex/listings/lstmisc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.cfg))
(/usr/share/texmf/tex/latex/lm/ot1lmr.fd)
(/usr/share/texmf/tex/latex/lm/omllmm.fd)
(/usr/share/texmf/tex/latex/lm/omslmsy.fd)
(/usr/share/texmf/tex/latex/lm/omxlmex.fd)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver: hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))

Package hyperref Warning: Option `bookmarks' has already been used,
(hyperref)                setting the option has no effect on input line 119.

(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/lbx/english.lbx)
No file reference-manual.aux.
(/usr/share/texlive/texmf-dist/tex/latex/base/ts1cmr.fd)
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex

Package biblatex Warning: Data encoding is 'utf8'.
(biblatex)                Use backend=biber.

No file reference-manual.bbl.
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label

Package hyperref Warning: Rerun to get /PageLabels entry.

[1] [2] [1] [2] [1]

LaTeX Warning: Citation 'DBLP:conf/birthday/2014futatsugi' on page 2 undefined 
on input line 253.

[2] [3]

LaTeX Warning: Hyper reference `sort' on page 4 undefined on input line 316.


LaTeX Warning: Hyper reference `protecting' on page 4 undefined on input line 3
34.


LaTeX Warning: Hyper reference `extending' on page 4 undefined on input line 33
5.


LaTeX Warning: Hyper reference `using' on page 4 undefined on input line 336.


LaTeX Warning: Hyper reference `including' on page 4 undefined on input line 33
7.

[4]

LaTeX Warning: Hyper reference `var' on page 5 undefined on input line 371.


LaTeX Warning: Hyper reference `op' on page 5 undefined on input line 372.


LaTeX Warning: Hyper reference `eq' on page 5 undefined on input line 392.

[5] [6] [7]

LaTeX Warning: Hyper reference `op' on page 8 undefined on input line 465.

[8]
Overfull \hbox (70.84981pt too wide) in paragraph at lines 521--521
[]  \EU1/FreeMono(0)/m/n/10 -- associative and commutative set constructor with
 identity empty[] 

Overfull \hbox (105.88782pt too wide) in paragraph at lines 522--522
[]  \EU1/FreeMono(0)/m/n/10 op (_ _) : MultiSet MultiSet -> MultiSet { constr a
ssoc comm id: empty }[] 

Overfull \hbox (113.32951pt too wide) in paragraph at lines 544--544
[]     \EU1/FreeMono(0)/m/n/10 {sort Pair -> ClState, op fst -> fst.clstate, op
 snd -> snd.clstate })[] 

Overfull \hbox (125.73235pt too wide) in paragraph at lines 556--556
[]  \EU1/FreeMono(0)/m/n/10 pr(3TUPLE(NAT, NAT, PCLABEL{sort Elt -> PcLabel})*{
sort 3Tuple -> PcState})[] 
[9]
Overfull \hbox (94.72527pt too wide) in paragraph at lines 567--567
[]  \EU1/FreeMono(0)/m/n/10 pr(MULTISET(PCSTATE{sort Elt -> PcState})*{sort Mul
tiSet -> PcStates})[] 

Overfull \hbox (38.91252pt too wide) in paragraph at lines 577--577
[]          \EU1/FreeMono(0)/m/n/10 PCSTATES{sort Elt -> PcStates})*{sort Pair 
-> State})[] 

Overfull \hbox (32.7111pt too wide) in paragraph at lines 601--601
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; OldClVal:Nat ; idlepc >> S:PcS
tates ) >[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 603--603
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , busy > , ( << PcVal ; ClVal ; gotvalu
e >> S ) > .[] 

Overfull \hbox (45.11394pt too wide) in paragraph at lines 615--615
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; GotClVal:Nat ; gotvalue >> S:P
cStates ) >[] 
[10]
Overfull \hbox (69.9196pt too wide) in paragraph at lines 618--618
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , busy > , ( << GotClVal ; GotClVal ; u
pdated >> S ) >[] 

Overfull \hbox (32.7111pt too wide) in paragraph at lines 620--620
[]    \EU1/FreeMono(0)/m/n/10 < < PcVal , busy > , ( << PcVal ; PcVal ; updated
 >> S ) >[] 

Overfull \hbox (38.91252pt too wide) in paragraph at lines 632--632
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; OldClVal:Nat ; updated >> S:Pc
States ) >[] 

Overfull \hbox (66.8189pt too wide) in paragraph at lines 634--634
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , idlecl > , ( << PcVal ; OldClVal ; id
lepc >> S ) > .[] 

LaTeX Warning: Citation 'preining:cafeobj' on page 11 undefined on input line 6
71.

[11]
Overfull \hbox (23.40898pt too wide) in paragraph at lines 695--695
[]  \EU1/FreeMono(0)/m/n/10 op (_ _) : PredNameSeq PredNameSeq -> PredNameSeq {
assoc} .[] 

Overfull \hbox (122.63165pt too wide) in paragraph at lines 697--697
[]  \EU1/FreeMono(0)/m/n/10 eq apply(P:PredName PS:PredNameSeq, S:State) = appl
y(P,S) and apply(PS,S) .[] 
[12] [13]
Overfull \hbox (48.21465pt too wide) in paragraph at lines 787--787
[]  \EU1/FreeMono(0)/m/n/10 eq s1 =  < < N , idlecl > , ( << M ; K ; idlepc   >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 788--788
[]  \EU1/FreeMono(0)/m/n/10 eq s2 =  < < N , idlecl > , ( << M ; K ; gotvalue >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 789--789
[]  \EU1/FreeMono(0)/m/n/10 eq s3 =  < < N , idlecl > , ( << M ; K ; updated  >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 790--790
[]  \EU1/FreeMono(0)/m/n/10 eq t1 =  < < N , busy   > , ( << M ; K ; idlepc   >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 791--791
[]  \EU1/FreeMono(0)/m/n/10 eq t2 =  < < N , busy   > , ( << M ; K ; gotvalue >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 792--792
[]  \EU1/FreeMono(0)/m/n/10 eq t3 =  < < N , busy   > , ( << M ; K ; updated  >
> PCS ) >  .[] 
[14] [15] [16]

LaTeX Warning: Hyper reference `comments' on page 17 undefined on input line 86
1.


LaTeX Warning: Hyper reference `starstar' on page 17 undefined on input line 86
2.


LaTeX Warning: Hyper reference `comments' on page 17 undefined on input line 87
1.


LaTeX Warning: Hyper reference `starstar' on page 17 undefined on input line 87
1.

[17]

LaTeX Warning: Hyper reference `eq' on page 18 undefined on input line 883.


LaTeX Warning: Hyper reference `equality' on page 18 undefined on input line 88
3.


LaTeX Warning: Hyper reference `searchpredicate' on page 18 undefined on input 
line 889.


LaTeX Warning: Hyper reference `equality' on page 18 undefined on input line 90
0.


LaTeX Warning: Hyper reference `searchpredicate' on page 18 undefined on input 
line 918.


LaTeX Warning: Hyper reference `trans' on page 18 undefined on input line 919.

[18]

LaTeX Warning: Hyper reference `sort' on page 19 undefined on input line 974.

[19]

LaTeX Warning: Hyper reference `show' on page 20 undefined on input line 988.


LaTeX Warning: Hyper reference `opattr' on page 20 undefined on input line 994.


LaTeX Warning: Hyper reference `opattr' on page 20 undefined on input line 996.


LaTeX Warning: Hyper reference `switch-memo' on page 20 undefined on input line
 997.


LaTeX Warning: Hyper reference `citp' on page 20 undefined on input line 1004.

[20]

LaTeX Warning: Hyper reference `choose' on page 21 undefined on input line 1054
.


LaTeX Warning: Hyper reference `start' on page 21 undefined on input line 1079.


LaTeX Warning: Hyper reference `choose' on page 21 undefined on input line 1080
.


LaTeX Warning: Hyper reference `citp' on page 21 undefined on input line 1086.

[21]

LaTeX Warning: Hyper reference `no-autoload' on page 22 undefined on input line
 1102.


LaTeX Warning: Hyper reference `trans' on page 22 undefined on input line 1115.


LaTeX Warning: Hyper reference `eq' on page 22 undefined on input line 1115.


LaTeX Warning: Hyper reference `var' on page 22 undefined on input line 1116.


LaTeX Warning: Hyper reference `imports' on page 22 undefined on input line 111
6.


LaTeX Warning: Hyper reference `signature' on page 22 undefined on input line 1
117.


LaTeX Warning: Hyper reference `citp-equation' on page 22 undefined on input li
ne 1121.


LaTeX Warning: Hyper reference `citp-rule' on page 22 undefined on input line 1
122.


LaTeX Warning: Hyper reference `citp-rule' on page 22 undefined on input line 1
125.


LaTeX Warning: Hyper reference `citp-equation' on page 22 undefined on input li
ne 1126.


LaTeX Warning: Hyper reference `citp-cp' on page 22 undefined on input line 112
7.


LaTeX Warning: Hyper reference `citp' on page 22 undefined on input line 1127.


LaTeX Warning: Hyper reference `ceq' on page 22 undefined on input line 1137.


LaTeX Warning: Hyper reference `beq' on page 22 undefined on input line 1139.


LaTeX Warning: Hyper reference `ceq' on page 22 undefined on input line 1139.


LaTeX Warning: Hyper reference `eq' on page 22 undefined on input line 1140.


LaTeX Warning: Hyper reference `bctrans' on page 22 undefined on input line 114
4.


LaTeX Warning: Hyper reference `bctrans' on page 22 undefined on input line 114
6.


LaTeX Warning: Hyper reference `ctrans' on page 22 undefined on input line 1151
.

[22]

LaTeX Warning: Hyper reference `btrans' on page 23 undefined on input line 1153
.


LaTeX Warning: Hyper reference `ctrans' on page 23 undefined on input line 1154
.


LaTeX Warning: Hyper reference `trans' on page 23 undefined on input line 1154.


LaTeX Warning: Hyper reference `eq' on page 23 undefined on input line 1159.


LaTeX Warning: Hyper reference `bceq' on page 23 undefined on input line 1161.


LaTeX Warning: Hyper reference `ceq' on page 23 undefined on input line 1161.


LaTeX Warning: Hyper reference `eq' on page 23 undefined on input line 1162.


LaTeX Warning: Hyper reference `bshow' on page 23 undefined on input line 1172.


Overfull \hbox (141.23589pt too wide) in paragraph at lines 1181--1181
[]\EU1/FreeMono(0)/m/n/10 CafeOBJ> binspect in BTE : (p1(X:S) or p2(X)) and p3(
Y:S) or (p4(Y) and p1(Y)) .[] 

Overfull \hbox (1288.49786pt too wide) in paragraph at lines 1183--1183
[]\EU1/FreeMono(0)/m/n/10 --> ((p4(Y:S) and p1(Y)) xor ((p3(Y) and p1(X:S)) xor
 ((p2(X) and (p3(Y) and p1(X))) xor ((p3(Y) and p2(X)) xor ((p3(Y) and (p2(X) a
nd (p4(Y) and p1(Y)))) xor ((p3(Y) and (p2(X) and (p1(X) and (p1(Y) and p4(Y)))
)) xor (p1(X) and (p3(Y) and (p1(Y) and p4(Y))))))))))[] 

LaTeX Warning: Hyper reference `citp' on page 23 undefined on input line 1189.


LaTeX Warning: Hyper reference `binspect' on page 23 undefined on input line 11
90.

[23]

LaTeX Warning: Hyper reference `op' on page 24 undefined on input line 1200.


LaTeX Warning: Hyper reference `op' on page 24 undefined on input line 1202.


LaTeX Warning: Hyper reference `pred' on page 24 undefined on input line 1210.


LaTeX Warning: Hyper reference `bop' on page 24 undefined on input line 1210.


LaTeX Warning: Hyper reference `op' on page 24 undefined on input line 1211.


LaTeX Warning: Hyper reference `reduce' on page 24 undefined on input line 1222
.


LaTeX Warning: Hyper reference `execute' on page 24 undefined on input line 122
3.


LaTeX Warning: Hyper reference `citp' on page 24 undefined on input line 1229.


Overfull \hbox (291.9303pt too wide) in paragraph at lines 1237--1237
[]  \EU1/FreeMono(0)/m/n/10 (1): { P-5:Bool |-> true, P-4:Bool |-> true, P-3:Bo
ol |-> true, P-2:Bool |-> true, P-1:Bool |-> true }[] 

Overfull \hbox (298.13171pt too wide) in paragraph at lines 1238--1238
[]  \EU1/FreeMono(0)/m/n/10 (2): { P-5:Bool |-> false, P-4:Bool |-> true, P-3:B
ool |-> true, P-2:Bool |-> true, P-1:Bool |-> true }[] 

LaTeX Warning: Hyper reference `btrans' on page 24 undefined on input line 1244
.


LaTeX Warning: Hyper reference `btrans' on page 24 undefined on input line 1246
.

[24]

LaTeX Warning: Hyper reference `binspect' on page 25 undefined on input line 12
51.


LaTeX Warning: Hyper reference `citp' on page 25 undefined on input line 1253.


Overfull \hbox (1123.54018pt too wide) in paragraph at lines 1259--1259
[]\EU1/FreeMono(0)/m/n/10 ((P-1:Bool and (P-2:Bool and (P-3:Bool and P-4:Bool))
) xor ((P-1 and (P-2 and (P-4 and (P-5:Bool and P-3)))) xor ((P-2 and (P-1 and 
(P-5 and P-3))) xor ((P-5 and P-3) xor ((P-4 and (P-3 and P-5)) xor ((P-4 and P
-3) xor (P-2 and P-1)))))))[] 

LaTeX Warning: Hyper reference `trans' on page 25 undefined on input line 1275.


LaTeX Warning: Hyper reference `bctrans' on page 25 undefined on input line 127
7.


LaTeX Warning: Hyper reference `ctrans' on page 25 undefined on input line 1278
.


LaTeX Warning: Hyper reference `trans' on page 25 undefined on input line 1278.


LaTeX Warning: Hyper reference `ls' on page 25 undefined on input line 1291.


LaTeX Warning: Hyper reference `pwd' on page 25 undefined on input line 1291.

[25]

LaTeX Warning: Hyper reference `eq' on page 26 undefined on input line 1297.


LaTeX Warning: Hyper reference `bceq' on page 26 undefined on input line 1299.


LaTeX Warning: Hyper reference `beq' on page 26 undefined on input line 1299.


LaTeX Warning: Hyper reference `eq' on page 26 undefined on input line 1300.


LaTeX Warning: Hyper reference `regularize' on page 26 undefined on input line 
1324.


LaTeX Warning: Hyper reference `check' on page 26 undefined on input line 1336.


LaTeX Warning: Hyper reference `check' on page 26 undefined on input line 1340.


LaTeX Warning: Hyper reference `apply' on page 26 undefined on input line 1349.


Overfull \hbox (5.14282pt too wide) in paragraph at lines 1347--1351
\EU1/FreeSerif(0)/m/n/10 Chooses a subterm by the given \EU1/FreeMono(0)/m/n/10
 <selection>\EU1/FreeSerif(0)/m/n/10 . See \EU1/FreeMono(0)/m/n/10 apply \EU1/F
reeSerif(0)/m/n/10 for details on \EU1/FreeMono(0)/m/n/10 <selection>\EU1/FreeS
erif(0)/m/n/10 . 

LaTeX Warning: Hyper reference `opattr' on page 26 undefined on input line 1352
.


LaTeX Warning: Hyper reference `start' on page 26 undefined on input line 1353.


LaTeX Warning: Hyper reference `apply' on page 26 undefined on input line 1353.


[26]

LaTeX Warning: Hyper reference `citp-imply' on page 27 undefined on input line 
1364.


LaTeX Warning: Hyper reference `citp-def' on page 27 undefined on input line 13
65.


LaTeX Warning: Hyper reference `citp-ctf-' on page 27 undefined on input line 1
366.


LaTeX Warning: Hyper reference `citp-ctf' on page 27 undefined on input line 13
67.


LaTeX Warning: Hyper reference `citp-csp-' on page 27 undefined on input line 1
368.


LaTeX Warning: Hyper reference `citp-csp' on page 27 undefined on input line 13
69.


LaTeX Warning: Hyper reference `citp-red' on page 27 undefined on input line 13
69.


LaTeX Warning: Hyper reference `citp-select' on page 27 undefined on input line
 1370.


LaTeX Warning: Hyper reference `citp-backward' on page 27 undefined on input li
ne 1371.


LaTeX Warning: Hyper reference `citp-rule' on page 27 undefined on input line 1
372.


LaTeX Warning: Hyper reference `citp-equation' on page 27 undefined on input li
ne 1373.


LaTeX Warning: Hyper reference `citp-cp' on page 27 undefined on input line 137
4.


LaTeX Warning: Hyper reference `citp-init' on page 27 undefined on input line 1
374.


LaTeX Warning: Hyper reference `citp-roll' on page 27 undefined on input line 1
375.


LaTeX Warning: Hyper reference `citp-auto' on page 27 undefined on input line 1
376.


LaTeX Warning: Hyper reference `citp-ind' on page 27 undefined on input line 13
77.


LaTeX Warning: Hyper reference `citp-apply' on page 27 undefined on input line 
1378.


LaTeX Warning: Hyper reference `citp-goal' on page 27 undefined on input line 1
379.


Underfull \hbox (badness 6608) in paragraph at lines 1364--1380
[]\EU1/FreeSerif(0)/m/n/10 Related: \EU1/FreeMono(0)/m/n/10 :imp\EU1/FreeSerif(
0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :def\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMon
o(0)/m/n/10 :ctf-\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :ctf\EU1/Fr
eeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :csp-\EU1/FreeSerif(0)/m/n/10 , \EU
1/FreeMono(0)/m/n/10 :csp\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :re
d\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :select\EU1/FreeSerif(0)/m/
n/10 ,

Underfull \hbox (badness 4316) in paragraph at lines 1364--1380
\EU1/FreeMono(0)/m/n/10 :backward\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/
n/10 :rule\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :equation\EU1/Free
Serif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :cp\EU1/FreeSerif(0)/m/n/10 , \EU1/Fr
eeMono(0)/m/n/10 :init\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :roll\
EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 :auto\EU1/FreeSerif(0)/m/n/10
 , \EU1/FreeMono(0)/m/n/10 :ind\EU1/FreeSerif(0)/m/n/10 ,

LaTeX Warning: Hyper reference `switch-clean-memo' on page 27 undefined on inpu
t line 1390.


LaTeX Warning: Hyper reference `open' on page 27 undefined on input line 1402.


LaTeX Warning: Hyper reference `open' on page 27 undefined on input line 1404.

[27]

LaTeX Warning: Hyper reference `starstar' on page 28 undefined on input line 14
19.


LaTeX Warning: Hyper reference `starstar' on page 28 undefined on input line 14
20.


LaTeX Warning: Hyper reference `switch-step' on page 28 undefined on input line
 1429.


LaTeX Warning: Hyper reference `switch-stop-pattern' on page 28 undefined on in
put line 1430.


LaTeX Warning: Hyper reference `citp' on page 28 undefined on input line 1437.


Overfull \hbox (7.90546pt too wide) in paragraph at lines 1442--1442
[]\EU1/FreeMono(0)/m/n/10 :cp (ceq top(sq(S@Sys)) = I@Pid if pc(S@Sys,I@Pid) = 
cs .) 

LaTeX Warning: Hyper reference `ctrans' on page 28 undefined on input line 1449
.


LaTeX Warning: Hyper reference `rule' on page 28 undefined on input line 1451.


LaTeX Warning: Hyper reference `ctrans' on page 28 undefined on input line 1452
.

[28]

LaTeX Warning: Hyper reference `citp-csp-' on page 29 undefined on input line 1
464.


LaTeX Warning: Hyper reference `citp' on page 29 undefined on input line 1465.


LaTeX Warning: Hyper reference `citp-csp' on page 29 undefined on input line 14
69.


LaTeX Warning: Hyper reference `citp-csp' on page 29 undefined on input line 14
73.


LaTeX Warning: Hyper reference `citp' on page 29 undefined on input line 1474.


LaTeX Warning: Hyper reference `citp-ctf-' on page 29 undefined on input line 1
481.


LaTeX Warning: Hyper reference `citp' on page 29 undefined on input line 1482.


LaTeX Warning: Hyper reference `citp-ctf' on page 29 undefined on input line 14
86.


LaTeX Warning: Hyper reference `citp-ctf' on page 29 undefined on input line 14
90.


LaTeX Warning: Hyper reference `citp' on page 29 undefined on input line 1491.


LaTeX Warning: Hyper reference `trans' on page 29 undefined on input line 1496.


LaTeX Warning: Hyper reference `ceq' on page 29 undefined on input line 1496.


LaTeX Warning: Hyper reference `bctrans' on page 29 undefined on input line 149
8.


LaTeX Warning: Hyper reference `btrans' on page 29 undefined on input line 1499
.


LaTeX Warning: Hyper reference `trans' on page 29 undefined on input line 1499.


LaTeX Warning: Hyper reference `citp' on page 29 undefined on input line 1510.

[29]

LaTeX Warning: Hyper reference `citp-show' on page 30 undefined on input line 1
530.


LaTeX Warning: Hyper reference `citp' on page 30 undefined on input line 1531.


LaTeX Warning: Hyper reference `show' on page 30 undefined on input line 1555.

[30]

LaTeX Warning: Hyper reference `popd' on page 31 undefined on input line 1561.


LaTeX Warning: Hyper reference `pwd' on page 31 undefined on input line 1561.


LaTeX Warning: Hyper reference `pushd' on page 31 undefined on input line 1562.


LaTeX Warning: Hyper reference `cd' on page 31 undefined on input line 1562.


LaTeX Warning: Hyper reference `ls' on page 31 undefined on input line 1563.

[31]

LaTeX Warning: Hyper reference `bceq' on page 32 undefined on input line 1622.


LaTeX Warning: Hyper reference `beq' on page 32 undefined on input line 1622.


LaTeX Warning: Hyper reference `ceq' on page 32 undefined on input line 1623.


LaTeX Warning: Hyper reference `citp-cp' on page 32 undefined on input line 162
8.


LaTeX Warning: Hyper reference `citp-rule' on page 32 undefined on input line 1
631.


LaTeX Warning: Hyper reference `citp-cp' on page 32 undefined on input line 163
2.


LaTeX Warning: Hyper reference `citp' on page 32 undefined on input line 1632.


LaTeX Warning: Hyper reference `reduce' on page 32 undefined on input line 1641
.


LaTeX Warning: Hyper reference `reduce' on page 32 undefined on input line 1650
.


LaTeX Warning: Hyper reference `reduce' on page 32 undefined on input line 1665
.


LaTeX Warning: Hyper reference `breduce' on page 32 undefined on input line 166
6.


LaTeX Warning: Hyper reference `moduleexpression' on page 32 undefined on input
 line 1672.

[32]

LaTeX Warning: Hyper reference `using' on page 33 undefined on input line 1675.


LaTeX Warning: Hyper reference `protecting' on page 33 undefined on input line 
1676.


LaTeX Warning: Hyper reference `including' on page 33 undefined on input line 1
677.


LaTeX Warning: Hyper reference `apply' on page 33 undefined on input line 1686.


LaTeX Warning: Hyper reference `prelude' on page 33 undefined on input line 169
9.


LaTeX Warning: Hyper reference `reset' on page 33 undefined on input line 1700.


LaTeX Warning: Hyper reference `citp' on page 33 undefined on input line 1711.

[33]

LaTeX Warning: Hyper reference `citp' on page 34 undefined on input line 1731.


LaTeX Warning: Hyper reference `using' on page 34 undefined on input line 1739.


LaTeX Warning: Hyper reference `protecting' on page 34 undefined on input line 
1740.


LaTeX Warning: Hyper reference `including' on page 34 undefined on input line 1
741.


LaTeX Warning: Hyper reference `extending' on page 34 undefined on input line 1
742.


LaTeX Warning: Hyper reference `axioms' on page 34 undefined on input line 1743
.


LaTeX Warning: Hyper reference `signature' on page 34 undefined on input line 1
744.


Overfull \hbox (1.80495pt too wide) in paragraph at lines 1739--1745
[]\EU1/FreeSerif(0)/m/n/10 Related: \EU1/FreeMono(0)/m/n/10 using\EU1/FreeSerif
(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 protecting\EU1/FreeSerif(0)/m/n/10 , \EU1/
FreeMono(0)/m/n/10 including\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 
extending\EU1/FreeSerif(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 axioms\EU1/FreeSeri
f(0)/m/n/10 , \EU1/FreeMono(0)/m/n/10 signature 

LaTeX Warning: Hyper reference `moduleexpression' on page 34 undefined on input
 line 1768.


LaTeX Warning: Hyper reference `moduleexpression' on page 34 undefined on input
 line 1771.


LaTeX Warning: Hyper reference `using' on page 34 undefined on input line 1772.


LaTeX Warning: Hyper reference `protecting' on page 34 undefined on input line 
1773.


LaTeX Warning: Hyper reference `extending' on page 34 undefined on input line 1
774.

[34]

LaTeX Warning: Hyper reference `citp' on page 35 undefined on input line 1780.


LaTeX Warning: Hyper reference `citp' on page 35 undefined on input line 1796.

[35]
Underfull \hbox (badness 10000) in paragraph at lines 1851--1852
[]\EU1/FreeMono(0)/m/n/10 <parameter> <= view to <mod_name> { <view_elements>

LaTeX Warning: Hyper reference `view' on page 36 undefined on input line 1853.

[36] [37]

LaTeX Warning: Hyper reference `pwd' on page 38 undefined on input line 1963.


LaTeX Warning: Hyper reference `cd' on page 38 undefined on input line 1963.


LaTeX Warning: Hyper reference `moduleexpression' on page 38 undefined on input
 line 1971.


LaTeX Warning: Hyper reference `opattr' on page 38 undefined on input line 2000
.

[38]

LaTeX Warning: Hyper reference `parameterizedmodule' on page 39 undefined on in
put line 2034.


LaTeX Warning: Hyper reference `view' on page 39 undefined on input line 2060.


LaTeX Warning: Hyper reference `instantiation' on page 39 undefined on input li
ne 2064.

[39]

LaTeX Warning: Hyper reference `autoload' on page 40 undefined on input line 20
83.


LaTeX Warning: Hyper reference `citp' on page 40 undefined on input line 2090.


LaTeX Warning: Hyper reference `qualified' on page 40 undefined on input line 2
096.

[40]

LaTeX Warning: Hyper reference `var' on page 41 undefined on input line 2125.


LaTeX Warning: Hyper reference `opattr' on page 41 undefined on input line 2154
.


LaTeX Warning: Hyper reference `select' on page 41 undefined on input line 2162
.


LaTeX Warning: Hyper reference `moduleexpression' on page 41 undefined on input
 line 2163.


LaTeX Warning: Hyper reference `close' on page 41 undefined on input line 2164.


LaTeX Warning: Hyper reference `op' on page 41 undefined on input line 2168.


Class memoir Warning: The material used in the headers is too large
(24.0pt) for the given head height (12.0pt), it is recommended to
either increase the head height or redesign the header
(in both cases you will find help in the memoir manual). on input line 2179.


Overfull \vbox (12.0pt too high) has occurred while \output is active [41]

LaTeX Warning: Hyper reference `opprec' on page 42 undefined on input line 2187
.


Underfull \hbox (badness 10000) in paragraph at lines 2200--2201
[]\EU1/FreeMono(0)/m/n/10 op if_then_else_fi : Bool Int Int -> Int { strat: (1

LaTeX Warning: Hyper reference `switch-memo' on page 42 undefined on input line
 2211.


LaTeX Warning: Hyper reference `bop' on page 42 undefined on input line 2236.


LaTeX Warning: Hyper reference `opattr' on page 42 undefined on input line 2244
.

[42]

LaTeX Warning: Hyper reference `opattr' on page 43 undefined on input line 2267
.


LaTeX Warning: Hyper reference `qualifiedother' on page 43 undefined on input l
ine 2292.

[43]
Underfull \hbox (badness 1648) in paragraph at lines 2309--2312
\EU1/FreeSerif(0)/m/n/10 Tries to parse the given term within the module specif
ied by the module expression

LaTeX Warning: Hyper reference `qualified' on page 44 undefined on input line 2
316.


LaTeX Warning: Hyper reference `dirs' on page 44 undefined on input line 2327.


LaTeX Warning: Hyper reference `pwd' on page 44 undefined on input line 2327.


LaTeX Warning: Hyper reference `pushd' on page 44 undefined on input line 2328.


LaTeX Warning: Hyper reference `cd' on page 44 undefined on input line 2328.


LaTeX Warning: Hyper reference `ls' on page 44 undefined on input line 2329.


LaTeX Warning: Hyper reference `bpred' on page 44 undefined on input line 2337.


LaTeX Warning: Hyper reference `op' on page 44 undefined on input line 2337.


LaTeX Warning: Hyper reference `reset' on page 44 undefined on input line 2342.


LaTeX Warning: Hyper reference `fullreset' on page 44 undefined on input line 2
345.


LaTeX Warning: Hyper reference `reset' on page 44 undefined on input line 2346.


[44]

LaTeX Warning: Hyper reference `searchpredicate' on page 45 undefined on input 
line 2371.


LaTeX Warning: Hyper reference `unprotect' on page 45 undefined on input line 2
378.


LaTeX Warning: Hyper reference `moduleexpression' on page 45 undefined on input
 line 2384.


LaTeX Warning: Hyper reference `including' on page 45 undefined on input line 2
387.


LaTeX Warning: Hyper reference `using' on page 45 undefined on input line 2388.


LaTeX Warning: Hyper reference `extending' on page 45 undefined on input line 2
389.


LaTeX Warning: Hyper reference `require' on page 45 undefined on input line 239
7.

[45]

LaTeX Warning: Hyper reference `dirs' on page 46 undefined on input line 2405.


LaTeX Warning: Hyper reference `pwd' on page 46 undefined on input line 2405.


LaTeX Warning: Hyper reference `popd' on page 46 undefined on input line 2406.


LaTeX Warning: Hyper reference `cd' on page 46 undefined on input line 2406.


LaTeX Warning: Hyper reference `ls' on page 46 undefined on input line 2407.


LaTeX Warning: Hyper reference `var' on page 46 undefined on input line 2413.


LaTeX Warning: Hyper reference `var' on page 46 undefined on input line 2413.


LaTeX Warning: Hyper reference `dirs' on page 46 undefined on input line 2419.


LaTeX Warning: Hyper reference `popd' on page 46 undefined on input line 2419.


LaTeX Warning: Hyper reference `pushd' on page 46 undefined on input line 2420.


LaTeX Warning: Hyper reference `ls' on page 46 undefined on input line 2420.


LaTeX Warning: Hyper reference `cd' on page 46 undefined on input line 2421.


LaTeX Warning: Hyper reference `view' on page 46 undefined on input line 2439.


LaTeX Warning: Hyper reference `qualified' on page 46 undefined on input line 2
444.


LaTeX Warning: Hyper reference `parameterizedmodule' on page 46 undefined on in
put line 2445.


LaTeX Warning: Hyper reference `parse' on page 46 undefined on input line 2454.


[46]

LaTeX Warning: Hyper reference `switch-verbose' on page 47 undefined on input l
ine 2467.


LaTeX Warning: Hyper reference `citp' on page 47 undefined on input line 2477.


LaTeX Warning: Hyper reference `breduce' on page 47 undefined on input line 248
8.


LaTeX Warning: Hyper reference `execute' on page 47 undefined on input line 248
9.


LaTeX Warning: Hyper reference `apply' on page 47 undefined on input line 2496.


LaTeX Warning: Hyper reference `apply' on page 47 undefined on input line 2500.


[47]
Underfull \hbox (badness 3690) in paragraph at lines 2508--2510
[]\EU1/FreeSerif(0)/m/n/10 Modules can be automatically regularized by the inte
rpreter if the \EU1/FreeMono(0)/m/n/10 regularize

LaTeX Warning: Hyper reference `regularize' on page 48 undefined on input line 
2514.


LaTeX Warning: Hyper reference `provide' on page 48 undefined on input line 252
7.


LaTeX Warning: Hyper reference `prelude' on page 48 undefined on input line 254
3.


LaTeX Warning: Hyper reference `fullreset' on page 48 undefined on input line 2
544.

[48]

LaTeX Warning: Hyper reference `save-system' on page 49 undefined on input line
 2559.


LaTeX Warning: Hyper reference `save' on page 49 undefined on input line 2560.


LaTeX Warning: Hyper reference `input' on page 49 undefined on input line 2560.


LaTeX Warning: Hyper reference `switch-step' on page 49 undefined on input line
 2570.


LaTeX Warning: Hyper reference `citp' on page 49 undefined on input line 2577.


LaTeX Warning: Hyper reference `citp-cp' on page 49 undefined on input line 258
2.


LaTeX Warning: Hyper reference `citp-equation' on page 49 undefined on input li
ne 2584.


LaTeX Warning: Hyper reference `citp-cp' on page 49 undefined on input line 258
5.


LaTeX Warning: Hyper reference `citp' on page 49 undefined on input line 2585.


LaTeX Warning: Hyper reference `trans' on page 49 undefined on input line 2589.


LaTeX Warning: Hyper reference `trans' on page 49 undefined on input line 2591.


LaTeX Warning: Hyper reference `save-system' on page 49 undefined on input line
 2601.


LaTeX Warning: Hyper reference `restore' on page 49 undefined on input line 260
2.


LaTeX Warning: Hyper reference `input' on page 49 undefined on input line 2602.


[49]

LaTeX Warning: Hyper reference `restore' on page 50 undefined on input line 261
4.


LaTeX Warning: Hyper reference `save' on page 50 undefined on input line 2615.


LaTeX Warning: Hyper reference `input' on page 50 undefined on input line 2615.


[50]
Underfull \hbox (badness 10000) in paragraph at lines 2684--2685
[]\EU1/FreeMono(0)/m/n/10 S =(n,m)=>* SS [if Pred1] suchThat Pred2 withStateEq

LaTeX Warning: Hyper reference `citp' on page 51 undefined on input line 2690.


LaTeX Warning: Hyper reference `moduleexpression' on page 51 undefined on input
 line 2700.


LaTeX Warning: Hyper reference `open' on page 51 undefined on input line 2701.


LaTeX Warning: Hyper reference `citp' on page 51 undefined on input line 2707.


LaTeX Warning: Hyper reference `switches' on page 51 undefined on input line 27
21.


LaTeX Warning: Hyper reference `show' on page 51 undefined on input line 2722.

[51]

LaTeX Warning: Hyper reference `citp-describe' on page 52 undefined on input li
ne 2729.


LaTeX Warning: Hyper reference `citp' on page 52 undefined on input line 2730.


LaTeX Warning: Hyper reference `switches' on page 52 undefined on input line 27
71.


LaTeX Warning: Hyper reference `describe' on page 52 undefined on input line 27
74.


LaTeX Warning: Hyper reference `switches' on page 52 undefined on input line 27
75.

[52]

LaTeX Warning: Hyper reference `op' on page 53 undefined on input line 2794.


LaTeX Warning: Hyper reference `sort' on page 53 undefined on input line 2794.


LaTeX Warning: Hyper reference `imports' on page 53 undefined on input line 279
5.


LaTeX Warning: Hyper reference `axioms' on page 53 undefined on input line 2795
.

[53]

LaTeX Warning: Hyper reference `citp' on page 54 undefined on input line 2841.


LaTeX Warning: Hyper reference `match' on page 54 undefined on input line 2850.


LaTeX Warning: Hyper reference `choose' on page 54 undefined on input line 2851
.


LaTeX Warning: Hyper reference `apply' on page 54 undefined on input line 2851.


LaTeX Warning: Hyper reference `show' on page 54 undefined on input line 2901.


LaTeX Warning: Hyper reference `describe' on page 54 undefined on input line 29
01.


LaTeX Warning: Hyper reference `dirs' on page 54 undefined on input line 2902.


LaTeX Warning: Hyper reference `set' on page 54 undefined on input line 2902.


LaTeX Warning: Hyper reference `cd' on page 54 undefined on input line 2903.


LaTeX Warning: Hyper reference `ls' on page 54 undefined on input line 2903.


LaTeX Warning: Hyper reference `pwd' on page 54 undefined on input line 2904.


LaTeX Warning: Hyper reference `pushd' on page 54 undefined on input line 2904.


LaTeX Warning: Hyper reference `popd' on page 54 undefined on input line 2905.


LaTeX Warning: Hyper reference `lisp' on page 54 undefined on input line 2905.


LaTeX Warning: Hyper reference `lisp' on page 54 undefined on input line 2906.


LaTeX Warning: Hyper reference `commandexec' on page 54 undefined on input line
 2907.

[54]

LaTeX Warning: Hyper reference `switch-stop-pattern' on page 55 undefined on in
put line 2912.


LaTeX Warning: Hyper reference `switch-step' on page 55 undefined on input line
 2917.


LaTeX Warning: Hyper reference `switch-step' on page 55 undefined on input line
 2921.


LaTeX Warning: Hyper reference `show' on page 55 undefined on input line 2951.


LaTeX Warning: Hyper reference `set' on page 55 undefined on input line 2951.

[55]

LaTeX Warning: Hyper reference `eq' on page 56 undefined on input line 2966.


LaTeX Warning: Hyper reference `execute' on page 56 undefined on input line 297
2.


LaTeX Warning: Hyper reference `searchpredicate' on page 56 undefined on input 
line 2973.


LaTeX Warning: Hyper reference `protect' on page 56 undefined on input line 298
2.


LaTeX Warning: Hyper reference `moduleexpression' on page 56 undefined on input
 line 2988.


LaTeX Warning: Hyper reference `protecting' on page 56 undefined on input line 
2991.


LaTeX Warning: Hyper reference `including' on page 56 undefined on input line 2
992.


LaTeX Warning: Hyper reference `extending' on page 56 undefined on input line 2
993.


LaTeX Warning: Hyper reference `onthefly' on page 56 undefined on input line 30
05.


LaTeX Warning: Hyper reference `qualified' on page 56 undefined on input line 3
006.


LaTeX Warning: Hyper reference `op' on page 56 undefined on input line 3007.

[56]

LaTeX Warning: Hyper reference `citp' on page 57 undefined on input line 3013.


LaTeX Warning: Hyper reference `switch-quiet' on page 57 undefined on input lin
e 3022.


LaTeX Warning: Hyper reference `parameterizedmodule' on page 57 undefined on in
put line 3031.

[57]
Underfull \hbox (badness 2142) in paragraph at lines 3068--3072
\EU1/FreeSerif(0)/m/n/10 Assume a module \EU1/FreeMono(0)/m/n/10 MONOID \EU1/Fr
eeSerif(0)/m/n/10 with sort \EU1/FreeMono(0)/m/n/10 M \EU1/FreeSerif(0)/m/n/10 
and ops \EU1/FreeMono(0)/m/n/10 e \EU1/FreeSerif(0)/m/n/10 and \EU1/FreeMono(0)
/m/n/10 * \EU1/FreeSerif(0)/m/n/10 are given, and another

LaTeX Warning: Empty bibliography on input line 3081.


Class memoir Warning: The material used in the headers is too large
(24.0pt) for the given head height (12.0pt), it is recommended to
either increase the head height or redesign the header
(in both cases you will find help in the memoir manual). on input line 3083.

[58] (./reference-manual.aux)

LaTeX Warning: There were undefined references.


LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right.


Package biblatex Warning: Please (re)run BibTeX on the file(s):
(biblatex)                reference-manual
(biblatex)                and rerun LaTeX afterwards.

 )
(see the transcript file for additional information)
Output written on reference-manual.pdf (62 pages).
Transcript written on reference-manual.log.
bibtex reference-manual
This is BibTeX, Version 0.99d (TeX Live 2015/Debian)
The top-level auxiliary file: reference-manual.aux
The style file: biblatex.bst
Database file #1: reference-manual-blx.bib
Database file #2: manual.bib
Biblatex version: 3.0
xelatex reference-manual.tex
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./reference-manual.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/t1enc.def))
(/usr/share/texmf/tex/latex/lm/lmodern.sty)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty))
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty
For additional information on amsmath, use the `?' option.
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amstext.sty
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty))
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty)
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty))
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))
(/usr/share/texlive/texmf-dist/tex/latex/tools/calc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/base/fixltx2e.sty

Package fixltx2e Warning: fixltx2e is not required with releases after 2015
(fixltx2e)                All fixes are now in the LaTeX kernel.
(fixltx2e)                See the latexrelease package for details.

) (/usr/share/texlive/texmf-dist/tex/latex/upquote/upquote.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/textcomp.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/ts1enc.def)))
(/usr/share/texlive/texmf-dist/tex/xelatex/mathspec/mathspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/etoolbox/etoolbox.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg))))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xkeyval/xkeyval.sty
(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkeyval.tex
(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkvutils.tex))))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype.sty
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype-xetex.def)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.sty
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex1.sty
(/usr/share/texlive/texmf-dist/tex/latex/logreq/logreq.sty
(/usr/share/texlive/texmf-dist/tex/latex/logreq/logreq.def))
(/usr/share/texlive/texmf-dist/tex/latex/base/ifthen.sty)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/blx-compat.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/bbx/numeric.bbx
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/bbx/standard.bbx))
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/cbx/numeric.cbx)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.sty
(/usr/share/texlive/texmf-dist/tex/latex/listings/lstmisc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.cfg))
(/usr/share/texmf/tex/latex/lm/ot1lmr.fd)
(/usr/share/texmf/tex/latex/lm/omllmm.fd)
(/usr/share/texmf/tex/latex/lm/omslmsy.fd)
(/usr/share/texmf/tex/latex/lm/omxlmex.fd)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver: hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))

Package hyperref Warning: Option `bookmarks' has already been used,
(hyperref)                setting the option has no effect on input line 119.

(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/lbx/english.lbx)
(./reference-manual.aux)
(/usr/share/texlive/texmf-dist/tex/latex/base/ts1cmr.fd)
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex

Package biblatex Warning: Data encoding is 'utf8'.
(biblatex)                Use backend=biber.

(./reference-manual.bbl)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(./reference-manual.out) (./reference-manual.out) [1] [2]
(./reference-manual.toc
(/usr/share/texlive/texmf-dist/tex/latex/microtype/mt-LatinModernRoman.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/mt-msa.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/mt-msb.cfg) [1]
Overfull \hbox (25.50647pt too wide) in paragraph at lines 87--87
 [][] [][][]\EU1/FreeMono(0)/m/n/10 bceq [ <label-exp> ] <term> = <term> if <bo
olterm> 

Underfull \hbox (badness 10000) in paragraph at lines 89--89
 [][] [][][]\EU1/FreeMono(0)/m/n/10 bcrule [ <label-exp> ] <term> => <term> if 


Underfull \hbox (badness 10000) in paragraph at lines 91--91
 [][] [][][]\EU1/FreeMono(0)/m/n/10 bctrans [ <label-exp> ] <term> => <term> if
 

Overfull \hbox (19.30505pt too wide) in paragraph at lines 127--127
 [][] [][][]\EU1/FreeMono(0)/m/n/10 ceq [ <label-exp> ] <term> = <term> if <boo
lterm> 
[2]
Underfull \hbox (badness 10000) in paragraph at lines 153--153
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :cp { "[" <label> "]" | "(" <sentence> . ")
" } 

Underfull \hbox (badness 10000) in paragraph at lines 157--157
 [][] [][][]\EU1/FreeMono(0)/m/n/10 crule [ <label-exp> ] <term> => <term> if 

Underfull \hbox (badness 10000) in paragraph at lines 161--161
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :csp- { eq [ <label-exp>] <term> = <term> .
 

Underfull \hbox (badness 10000) in paragraph at lines 167--167
 [][] [][][]\EU1/FreeMono(0)/m/n/10 ctrans [ <label-exp> ] <term> => <term> if 


Underfull \hbox (badness 10000) in paragraph at lines 219--219
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :imp "[" <label> "]" by "{" <variable> <- 
[3]
Underfull \hbox (badness 10000) in paragraph at lines 233--233
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :init { "[" <label> "]" | "(" <sentence> ""
)} 

Underfull \hbox (badness 10000) in paragraph at lines 255--255
 [][] [][][]\EU1/FreeMono(0)/m/n/10 list { axiom | sos | usable | flag | param 
| 

Underfull \hbox (badness 10000) in paragraph at lines 269--269
 [][] [][][]\EU1/FreeMono(0)/m/n/10 [sys:]module[!|*] <modname> [ ( <params> ) 
] 

Underfull \hbox (badness 10000) in paragraph at lines 281--281
 [][] [][][]\EU1/FreeMono(0)/m/n/10 op <op-spec> : <sorts> -> <sort> { <attribu
te- 
[4]
Underfull \hbox (badness 10000) in paragraph at lines 335--335
 [][] [][][]\EU1/FreeMono(0)/m/n/10 { :red | :exec | :bred } [in <goal-name> :]
 

Underfull \hbox (badness 10000) in paragraph at lines 369--369
 [][] [][][]\EU1/FreeMono(0)/m/n/10 scase (<term>) in (<mod-exp>) as <name> { 
[5]
Underfull \hbox (badness 10000) in paragraph at lines 431--431
 [][] [][][]\EU1/FreeMono(0)/m/n/10 view <name> from <modname> to <modname> { 
) [6] [1] [2] [3] [4] [5] [6] [7] [8]
Overfull \hbox (70.84981pt too wide) in paragraph at lines 521--521
[]  \EU1/FreeMono(0)/m/n/10 -- associative and commutative set constructor with
 identity empty[] 

Overfull \hbox (105.88782pt too wide) in paragraph at lines 522--522
[]  \EU1/FreeMono(0)/m/n/10 op (_ _) : MultiSet MultiSet -> MultiSet { constr a
ssoc comm id: empty }[] 

Overfull \hbox (113.32951pt too wide) in paragraph at lines 544--544
[]     \EU1/FreeMono(0)/m/n/10 {sort Pair -> ClState, op fst -> fst.clstate, op
 snd -> snd.clstate })[] 

Overfull \hbox (125.73235pt too wide) in paragraph at lines 556--556
[]  \EU1/FreeMono(0)/m/n/10 pr(3TUPLE(NAT, NAT, PCLABEL{sort Elt -> PcLabel})*{
sort 3Tuple -> PcState})[] 
[9]
Overfull \hbox (94.72527pt too wide) in paragraph at lines 567--567
[]  \EU1/FreeMono(0)/m/n/10 pr(MULTISET(PCSTATE{sort Elt -> PcState})*{sort Mul
tiSet -> PcStates})[] 

Overfull \hbox (38.91252pt too wide) in paragraph at lines 577--577
[]          \EU1/FreeMono(0)/m/n/10 PCSTATES{sort Elt -> PcStates})*{sort Pair 
-> State})[] 

Overfull \hbox (32.7111pt too wide) in paragraph at lines 601--601
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; OldClVal:Nat ; idlepc >> S:PcS
tates ) >[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 603--603
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , busy > , ( << PcVal ; ClVal ; gotvalu
e >> S ) > .[] 

Overfull \hbox (45.11394pt too wide) in paragraph at lines 615--615
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; GotClVal:Nat ; gotvalue >> S:P
cStates ) >[] 
[10]
Overfull \hbox (69.9196pt too wide) in paragraph at lines 618--618
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , busy > , ( << GotClVal ; GotClVal ; u
pdated >> S ) >[] 

Overfull \hbox (32.7111pt too wide) in paragraph at lines 620--620
[]    \EU1/FreeMono(0)/m/n/10 < < PcVal , busy > , ( << PcVal ; PcVal ; updated
 >> S ) >[] 

Overfull \hbox (38.91252pt too wide) in paragraph at lines 632--632
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; OldClVal:Nat ; updated >> S:Pc
States ) >[] 

Overfull \hbox (66.8189pt too wide) in paragraph at lines 634--634
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , idlecl > , ( << PcVal ; OldClVal ; id
lepc >> S ) > .[] 
[11]
Overfull \hbox (23.40898pt too wide) in paragraph at lines 695--695
[]  \EU1/FreeMono(0)/m/n/10 op (_ _) : PredNameSeq PredNameSeq -> PredNameSeq {
assoc} .[] 

Overfull \hbox (122.63165pt too wide) in paragraph at lines 697--697
[]  \EU1/FreeMono(0)/m/n/10 eq apply(P:PredName PS:PredNameSeq, S:State) = appl
y(P,S) and apply(PS,S) .[] 
[12] [13]
Overfull \hbox (48.21465pt too wide) in paragraph at lines 787--787
[]  \EU1/FreeMono(0)/m/n/10 eq s1 =  < < N , idlecl > , ( << M ; K ; idlepc   >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 788--788
[]  \EU1/FreeMono(0)/m/n/10 eq s2 =  < < N , idlecl > , ( << M ; K ; gotvalue >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 789--789
[]  \EU1/FreeMono(0)/m/n/10 eq s3 =  < < N , idlecl > , ( << M ; K ; updated  >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 790--790
[]  \EU1/FreeMono(0)/m/n/10 eq t1 =  < < N , busy   > , ( << M ; K ; idlepc   >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 791--791
[]  \EU1/FreeMono(0)/m/n/10 eq t2 =  < < N , busy   > , ( << M ; K ; gotvalue >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 792--792
[]  \EU1/FreeMono(0)/m/n/10 eq t3 =  < < N , busy   > , ( << M ; K ; updated  >
> PCS ) >  .[] 
[14] [15] [16] [17] [18] [19] [20] [21] [22]
Overfull \hbox (141.23589pt too wide) in paragraph at lines 1181--1181
[]\EU1/FreeMono(0)/m/n/10 CafeOBJ> binspect in BTE : (p1(X:S) or p2(X)) and p3(
Y:S) or (p4(Y) and p1(Y)) .[] 

Overfull \hbox (1288.49786pt too wide) in paragraph at lines 1183--1183
[]\EU1/FreeMono(0)/m/n/10 --> ((p4(Y:S) and p1(Y)) xor ((p3(Y) and p1(X:S)) xor
 ((p2(X) and (p3(Y) and p1(X))) xor ((p3(Y) and p2(X)) xor ((p3(Y) and (p2(X) a
nd (p4(Y) and p1(Y)))) xor ((p3(Y) and (p2(X) and (p1(X) and (p1(Y) and p4(Y)))
)) xor (p1(X) and (p3(Y) and (p1(Y) and p4(Y))))))))))[] 
[23]
Overfull \hbox (291.9303pt too wide) in paragraph at lines 1237--1237
[]  \EU1/FreeMono(0)/m/n/10 (1): { P-5:Bool |-> true, P-4:Bool |-> true, P-3:Bo
ol |-> true, P-2:Bool |-> true, P-1:Bool |-> true }[] 

Overfull \hbox (298.13171pt too wide) in paragraph at lines 1238--1238
[]  \EU1/FreeMono(0)/m/n/10 (2): { P-5:Bool |-> false, P-4:Bool |-> true, P-3:B
ool |-> true, P-2:Bool |-> true, P-1:Bool |-> true }[] 
[24]
Overfull \hbox (1123.54018pt too wide) in paragraph at lines 1259--1259
[]\EU1/FreeMono(0)/m/n/10 ((P-1:Bool and (P-2:Bool and (P-3:Bool and P-4:Bool))
) xor ((P-1 and (P-2 and (P-4 and (P-5:Bool and P-3)))) xor ((P-2 and (P-1 and 
(P-5 and P-3))) xor ((P-5 and P-3) xor ((P-4 and (P-3 and P-5)) xor ((P-4 and P
-3) xor (P-2 and P-1)))))))[] 
[25]
Overfull \hbox (5.14282pt too wide) in paragraph at lines 1347--1351
\EU1/FreeSerif(0)/m/n/10 Chooses a subterm by the given \EU1/FreeMono(0)/m/n/10
 <selection>\EU1/FreeSerif(0)/m/n/10 . See [][]\EU1/FreeMono(0)/m/n/10 apply[][
] \EU1/FreeSerif(0)/m/n/10 for details on \EU1/FreeMono(0)/m/n/10 <selection>\E
U1/FreeSerif(0)/m/n/10 . 
[26]
Underfull \hbox (badness 6608) in paragraph at lines 1364--1380
[]\EU1/FreeSerif(0)/m/n/10 Related: [][]\EU1/FreeMono(0)/m/n/10 :imp[][]\EU1/Fr
eeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :def[][]\EU1/FreeSerif(0)/m/n/1
0 , [][]\EU1/FreeMono(0)/m/n/10 :ctf-[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/Fr
eeMono(0)/m/n/10 :ctf[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10
 :csp-[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :csp[][]\EU1/F
reeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :red[][]\EU1/FreeSerif(0)/m/n/
10 , [][]\EU1/FreeMono(0)/m/n/10 :select[][]\EU1/FreeSerif(0)/m/n/10 ,

Underfull \hbox (badness 4316) in paragraph at lines 1364--1380
[][]\EU1/FreeMono(0)/m/n/10 :backward[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/Fr
eeMono(0)/m/n/10 :rule[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/1
0 :equation[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :cp[][]\E
U1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :init[][]\EU1/FreeSerif(0)
/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :roll[][]\EU1/FreeSerif(0)/m/n/10 , [][]\
EU1/FreeMono(0)/m/n/10 :auto[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)
/m/n/10 :ind[][]\EU1/FreeSerif(0)/m/n/10 ,
[27]
Overfull \hbox (7.90546pt too wide) in paragraph at lines 1442--1442
[]\EU1/FreeMono(0)/m/n/10 :cp (ceq top(sq(S@Sys)) = I@Pid if pc(S@Sys,I@Pid) = 
cs .) 
[28] [29] [30] [31] [32] [33]
Overfull \hbox (1.80495pt too wide) in paragraph at lines 1739--1745
[]\EU1/FreeSerif(0)/m/n/10 Related: [][]\EU1/FreeMono(0)/m/n/10 using[][]\EU1/F
reeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 protecting[][]\EU1/FreeSerif(0
)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 including[][]\EU1/FreeSerif(0)/m/n/10 , 
[][]\EU1/FreeMono(0)/m/n/10 extending[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/Fr
eeMono(0)/m/n/10 axioms[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/
10 signature[][] 
[34] [35]
Underfull \hbox (badness 10000) in paragraph at lines 1851--1852
[]\EU1/FreeMono(0)/m/n/10 <parameter> <= view to <mod_name> { <view_elements>
[36] [37] [38] [39] [40]

Class memoir Warning: The material used in the headers is too large
(24.0pt) for the given head height (12.0pt), it is recommended to
either increase the head height or redesign the header
(in both cases you will find help in the memoir manual). on input line 2179.


Overfull \vbox (12.0pt too high) has occurred while \output is active [41]
Underfull \hbox (badness 10000) in paragraph at lines 2200--2201
[]\EU1/FreeMono(0)/m/n/10 op if_then_else_fi : Bool Int Int -> Int { strat: (1
[42] [43]
Underfull \hbox (badness 1648) in paragraph at lines 2309--2312
\EU1/FreeSerif(0)/m/n/10 Tries to parse the given term within the module specif
ied by the module expression
[44] [45] [46] [47]
Underfull \hbox (badness 3690) in paragraph at lines 2508--2510
[]\EU1/FreeSerif(0)/m/n/10 Modules can be automatically regularized by the inte
rpreter if the \EU1/FreeMono(0)/m/n/10 regularize
[48] [49] [50]
Underfull \hbox (badness 10000) in paragraph at lines 2684--2685
[]\EU1/FreeMono(0)/m/n/10 S =(n,m)=>* SS [if Pred1] suchThat Pred2 withStateEq
[51] [52] [53] [54] [55] [56] [57]
Underfull \hbox (badness 2142) in paragraph at lines 3068--3072
\EU1/FreeSerif(0)/m/n/10 Assume a module \EU1/FreeMono(0)/m/n/10 MONOID \EU1/Fr
eeSerif(0)/m/n/10 with sort \EU1/FreeMono(0)/m/n/10 M \EU1/FreeSerif(0)/m/n/10 
and ops \EU1/FreeMono(0)/m/n/10 e \EU1/FreeSerif(0)/m/n/10 and \EU1/FreeMono(0)
/m/n/10 * \EU1/FreeSerif(0)/m/n/10 are given, and another
[58]

Class memoir Warning: The material used in the headers is too large
(24.0pt) for the given head height (12.0pt), it is recommended to
either increase the head height or redesign the header
(in both cases you will find help in the memoir manual). on input line 3083.

[59] (./reference-manual.aux) )
(see the transcript file for additional information)
Output written on reference-manual.pdf (67 pages).
Transcript written on reference-manual.log.
xelatex reference-manual.tex
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./reference-manual.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/t1enc.def))
(/usr/share/texmf/tex/latex/lm/lmodern.sty)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty))
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty
For additional information on amsmath, use the `?' option.
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amstext.sty
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty))
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty)
(/usr/share/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty))
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))
(/usr/share/texlive/texmf-dist/tex/latex/tools/calc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/base/fixltx2e.sty

Package fixltx2e Warning: fixltx2e is not required with releases after 2015
(fixltx2e)                All fixes are now in the LaTeX kernel.
(fixltx2e)                See the latexrelease package for details.

) (/usr/share/texlive/texmf-dist/tex/latex/upquote/upquote.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/textcomp.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/ts1enc.def)))
(/usr/share/texlive/texmf-dist/tex/xelatex/mathspec/mathspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/etoolbox/etoolbox.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg))))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xkeyval/xkeyval.sty
(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkeyval.tex
(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkvutils.tex))))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype.sty
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype-xetex.def)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/microtype.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.sty
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex1.sty
(/usr/share/texlive/texmf-dist/tex/latex/logreq/logreq.sty
(/usr/share/texlive/texmf-dist/tex/latex/logreq/logreq.def))
(/usr/share/texlive/texmf-dist/tex/latex/base/ifthen.sty)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/blx-compat.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/bbx/numeric.bbx
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/bbx/standard.bbx))
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/cbx/numeric.cbx)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/biblatex.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.sty
(/usr/share/texlive/texmf-dist/tex/latex/listings/lstmisc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.cfg))
(/usr/share/texmf/tex/latex/lm/ot1lmr.fd)
(/usr/share/texmf/tex/latex/lm/omllmm.fd)
(/usr/share/texmf/tex/latex/lm/omslmsy.fd)
(/usr/share/texmf/tex/latex/lm/omxlmex.fd)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd)
(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver: hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))

Package hyperref Warning: Option `bookmarks' has already been used,
(hyperref)                setting the option has no effect on input line 119.

(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
(/usr/share/texlive/texmf-dist/tex/latex/biblatex/lbx/english.lbx)
(./reference-manual.aux)
(/usr/share/texlive/texmf-dist/tex/latex/base/ts1cmr.fd)
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex

Package biblatex Warning: Data encoding is 'utf8'.
(biblatex)                Use backend=biber.

(./reference-manual.bbl)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(./reference-manual.out) (./reference-manual.out) [1] [2]
(./reference-manual.toc
(/usr/share/texlive/texmf-dist/tex/latex/microtype/mt-LatinModernRoman.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/mt-msa.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/microtype/mt-msb.cfg) [1]
Overfull \hbox (25.50647pt too wide) in paragraph at lines 87--87
 [][] [][][]\EU1/FreeMono(0)/m/n/10 bceq [ <label-exp> ] <term> = <term> if <bo
olterm> 

Underfull \hbox (badness 10000) in paragraph at lines 89--89
 [][] [][][]\EU1/FreeMono(0)/m/n/10 bcrule [ <label-exp> ] <term> => <term> if 


Underfull \hbox (badness 10000) in paragraph at lines 91--91
 [][] [][][]\EU1/FreeMono(0)/m/n/10 bctrans [ <label-exp> ] <term> => <term> if
 

Overfull \hbox (19.30505pt too wide) in paragraph at lines 127--127
 [][] [][][]\EU1/FreeMono(0)/m/n/10 ceq [ <label-exp> ] <term> = <term> if <boo
lterm> 
[2]
Underfull \hbox (badness 10000) in paragraph at lines 153--153
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :cp { "[" <label> "]" | "(" <sentence> . ")
" } 

Underfull \hbox (badness 10000) in paragraph at lines 157--157
 [][] [][][]\EU1/FreeMono(0)/m/n/10 crule [ <label-exp> ] <term> => <term> if 

Underfull \hbox (badness 10000) in paragraph at lines 161--161
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :csp- { eq [ <label-exp>] <term> = <term> .
 

Underfull \hbox (badness 10000) in paragraph at lines 167--167
 [][] [][][]\EU1/FreeMono(0)/m/n/10 ctrans [ <label-exp> ] <term> => <term> if 


Underfull \hbox (badness 10000) in paragraph at lines 219--219
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :imp "[" <label> "]" by "{" <variable> <- 
[3]
Underfull \hbox (badness 10000) in paragraph at lines 233--233
 [][] [][][]\EU1/FreeMono(0)/m/n/10 :init { "[" <label> "]" | "(" <sentence> ""
)} 

Underfull \hbox (badness 10000) in paragraph at lines 255--255
 [][] [][][]\EU1/FreeMono(0)/m/n/10 list { axiom | sos | usable | flag | param 
| 

Underfull \hbox (badness 10000) in paragraph at lines 269--269
 [][] [][][]\EU1/FreeMono(0)/m/n/10 [sys:]module[!|*] <modname> [ ( <params> ) 
] 

Underfull \hbox (badness 10000) in paragraph at lines 281--281
 [][] [][][]\EU1/FreeMono(0)/m/n/10 op <op-spec> : <sorts> -> <sort> { <attribu
te- 
[4]
Underfull \hbox (badness 10000) in paragraph at lines 335--335
 [][] [][][]\EU1/FreeMono(0)/m/n/10 { :red | :exec | :bred } [in <goal-name> :]
 

Underfull \hbox (badness 10000) in paragraph at lines 369--369
 [][] [][][]\EU1/FreeMono(0)/m/n/10 scase (<term>) in (<mod-exp>) as <name> { 
[5]
Underfull \hbox (badness 10000) in paragraph at lines 431--431
 [][] [][][]\EU1/FreeMono(0)/m/n/10 view <name> from <modname> to <modname> { 
) [6] [1] [2] [3] [4] [5] [6] [7] [8]
Overfull \hbox (70.84981pt too wide) in paragraph at lines 521--521
[]  \EU1/FreeMono(0)/m/n/10 -- associative and commutative set constructor with
 identity empty[] 

Overfull \hbox (105.88782pt too wide) in paragraph at lines 522--522
[]  \EU1/FreeMono(0)/m/n/10 op (_ _) : MultiSet MultiSet -> MultiSet { constr a
ssoc comm id: empty }[] 

Overfull \hbox (113.32951pt too wide) in paragraph at lines 544--544
[]     \EU1/FreeMono(0)/m/n/10 {sort Pair -> ClState, op fst -> fst.clstate, op
 snd -> snd.clstate })[] 

Overfull \hbox (125.73235pt too wide) in paragraph at lines 556--556
[]  \EU1/FreeMono(0)/m/n/10 pr(3TUPLE(NAT, NAT, PCLABEL{sort Elt -> PcLabel})*{
sort 3Tuple -> PcState})[] 
[9]
Overfull \hbox (94.72527pt too wide) in paragraph at lines 567--567
[]  \EU1/FreeMono(0)/m/n/10 pr(MULTISET(PCSTATE{sort Elt -> PcState})*{sort Mul
tiSet -> PcStates})[] 

Overfull \hbox (38.91252pt too wide) in paragraph at lines 577--577
[]          \EU1/FreeMono(0)/m/n/10 PCSTATES{sort Elt -> PcStates})*{sort Pair 
-> State})[] 

Overfull \hbox (32.7111pt too wide) in paragraph at lines 601--601
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; OldClVal:Nat ; idlepc >> S:PcS
tates ) >[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 603--603
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , busy > , ( << PcVal ; ClVal ; gotvalu
e >> S ) > .[] 

Overfull \hbox (45.11394pt too wide) in paragraph at lines 615--615
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; GotClVal:Nat ; gotvalue >> S:P
cStates ) >[] 
[10]
Overfull \hbox (69.9196pt too wide) in paragraph at lines 618--618
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , busy > , ( << GotClVal ; GotClVal ; u
pdated >> S ) >[] 

Overfull \hbox (32.7111pt too wide) in paragraph at lines 620--620
[]    \EU1/FreeMono(0)/m/n/10 < < PcVal , busy > , ( << PcVal ; PcVal ; updated
 >> S ) >[] 

Overfull \hbox (38.91252pt too wide) in paragraph at lines 632--632
[]      \EU1/FreeMono(0)/m/n/10 ( << PcVal:Nat ; OldClVal:Nat ; updated >> S:Pc
States ) >[] 

Overfull \hbox (66.8189pt too wide) in paragraph at lines 634--634
[]    \EU1/FreeMono(0)/m/n/10 < < ClVal , idlecl > , ( << PcVal ; OldClVal ; id
lepc >> S ) > .[] 
[11]
Overfull \hbox (23.40898pt too wide) in paragraph at lines 695--695
[]  \EU1/FreeMono(0)/m/n/10 op (_ _) : PredNameSeq PredNameSeq -> PredNameSeq {
assoc} .[] 

Overfull \hbox (122.63165pt too wide) in paragraph at lines 697--697
[]  \EU1/FreeMono(0)/m/n/10 eq apply(P:PredName PS:PredNameSeq, S:State) = appl
y(P,S) and apply(PS,S) .[] 
[12] [13]
Overfull \hbox (48.21465pt too wide) in paragraph at lines 787--787
[]  \EU1/FreeMono(0)/m/n/10 eq s1 =  < < N , idlecl > , ( << M ; K ; idlepc   >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 788--788
[]  \EU1/FreeMono(0)/m/n/10 eq s2 =  < < N , idlecl > , ( << M ; K ; gotvalue >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 789--789
[]  \EU1/FreeMono(0)/m/n/10 eq s3 =  < < N , idlecl > , ( << M ; K ; updated  >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 790--790
[]  \EU1/FreeMono(0)/m/n/10 eq t1 =  < < N , busy   > , ( << M ; K ; idlepc   >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 791--791
[]  \EU1/FreeMono(0)/m/n/10 eq t2 =  < < N , busy   > , ( << M ; K ; gotvalue >
> PCS ) >  .[] 

Overfull \hbox (48.21465pt too wide) in paragraph at lines 792--792
[]  \EU1/FreeMono(0)/m/n/10 eq t3 =  < < N , busy   > , ( << M ; K ; updated  >
> PCS ) >  .[] 
[14] [15] [16] [17] [18] [19] [20] [21] [22]
Overfull \hbox (141.23589pt too wide) in paragraph at lines 1181--1181
[]\EU1/FreeMono(0)/m/n/10 CafeOBJ> binspect in BTE : (p1(X:S) or p2(X)) and p3(
Y:S) or (p4(Y) and p1(Y)) .[] 

Overfull \hbox (1288.49786pt too wide) in paragraph at lines 1183--1183
[]\EU1/FreeMono(0)/m/n/10 --> ((p4(Y:S) and p1(Y)) xor ((p3(Y) and p1(X:S)) xor
 ((p2(X) and (p3(Y) and p1(X))) xor ((p3(Y) and p2(X)) xor ((p3(Y) and (p2(X) a
nd (p4(Y) and p1(Y)))) xor ((p3(Y) and (p2(X) and (p1(X) and (p1(Y) and p4(Y)))
)) xor (p1(X) and (p3(Y) and (p1(Y) and p4(Y))))))))))[] 
[23]
Overfull \hbox (291.9303pt too wide) in paragraph at lines 1237--1237
[]  \EU1/FreeMono(0)/m/n/10 (1): { P-5:Bool |-> true, P-4:Bool |-> true, P-3:Bo
ol |-> true, P-2:Bool |-> true, P-1:Bool |-> true }[] 

Overfull \hbox (298.13171pt too wide) in paragraph at lines 1238--1238
[]  \EU1/FreeMono(0)/m/n/10 (2): { P-5:Bool |-> false, P-4:Bool |-> true, P-3:B
ool |-> true, P-2:Bool |-> true, P-1:Bool |-> true }[] 
[24]
Overfull \hbox (1123.54018pt too wide) in paragraph at lines 1259--1259
[]\EU1/FreeMono(0)/m/n/10 ((P-1:Bool and (P-2:Bool and (P-3:Bool and P-4:Bool))
) xor ((P-1 and (P-2 and (P-4 and (P-5:Bool and P-3)))) xor ((P-2 and (P-1 and 
(P-5 and P-3))) xor ((P-5 and P-3) xor ((P-4 and (P-3 and P-5)) xor ((P-4 and P
-3) xor (P-2 and P-1)))))))[] 
[25]
Overfull \hbox (5.14282pt too wide) in paragraph at lines 1347--1351
\EU1/FreeSerif(0)/m/n/10 Chooses a subterm by the given \EU1/FreeMono(0)/m/n/10
 <selection>\EU1/FreeSerif(0)/m/n/10 . See [][]\EU1/FreeMono(0)/m/n/10 apply[][
] \EU1/FreeSerif(0)/m/n/10 for details on \EU1/FreeMono(0)/m/n/10 <selection>\E
U1/FreeSerif(0)/m/n/10 . 
[26]
Underfull \hbox (badness 6608) in paragraph at lines 1364--1380
[]\EU1/FreeSerif(0)/m/n/10 Related: [][]\EU1/FreeMono(0)/m/n/10 :imp[][]\EU1/Fr
eeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :def[][]\EU1/FreeSerif(0)/m/n/1
0 , [][]\EU1/FreeMono(0)/m/n/10 :ctf-[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/Fr
eeMono(0)/m/n/10 :ctf[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10
 :csp-[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :csp[][]\EU1/F
reeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :red[][]\EU1/FreeSerif(0)/m/n/
10 , [][]\EU1/FreeMono(0)/m/n/10 :select[][]\EU1/FreeSerif(0)/m/n/10 ,

Underfull \hbox (badness 4316) in paragraph at lines 1364--1380
[][]\EU1/FreeMono(0)/m/n/10 :backward[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/Fr
eeMono(0)/m/n/10 :rule[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/1
0 :equation[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :cp[][]\E
U1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :init[][]\EU1/FreeSerif(0)
/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 :roll[][]\EU1/FreeSerif(0)/m/n/10 , [][]\
EU1/FreeMono(0)/m/n/10 :auto[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)
/m/n/10 :ind[][]\EU1/FreeSerif(0)/m/n/10 ,
[27]
Overfull \hbox (7.90546pt too wide) in paragraph at lines 1442--1442
[]\EU1/FreeMono(0)/m/n/10 :cp (ceq top(sq(S@Sys)) = I@Pid if pc(S@Sys,I@Pid) = 
cs .) 
[28] [29] [30] [31] [32] [33]
Overfull \hbox (1.80495pt too wide) in paragraph at lines 1739--1745
[]\EU1/FreeSerif(0)/m/n/10 Related: [][]\EU1/FreeMono(0)/m/n/10 using[][]\EU1/F
reeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 protecting[][]\EU1/FreeSerif(0
)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/10 including[][]\EU1/FreeSerif(0)/m/n/10 , 
[][]\EU1/FreeMono(0)/m/n/10 extending[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/Fr
eeMono(0)/m/n/10 axioms[][]\EU1/FreeSerif(0)/m/n/10 , [][]\EU1/FreeMono(0)/m/n/
10 signature[][] 
[34] [35]
Underfull \hbox (badness 10000) in paragraph at lines 1851--1852
[]\EU1/FreeMono(0)/m/n/10 <parameter> <= view to <mod_name> { <view_elements>
[36] [37] [38] [39] [40]

Class memoir Warning: The material used in the headers is too large
(24.0pt) for the given head height (12.0pt), it is recommended to
either increase the head height or redesign the header
(in both cases you will find help in the memoir manual). on input line 2179.


Overfull \vbox (12.0pt too high) has occurred while \output is active [41]
Underfull \hbox (badness 10000) in paragraph at lines 2200--2201
[]\EU1/FreeMono(0)/m/n/10 op if_then_else_fi : Bool Int Int -> Int { strat: (1
[42] [43]
Underfull \hbox (badness 1648) in paragraph at lines 2309--2312
\EU1/FreeSerif(0)/m/n/10 Tries to parse the given term within the module specif
ied by the module expression
[44] [45] [46] [47]
Underfull \hbox (badness 3690) in paragraph at lines 2508--2510
[]\EU1/FreeSerif(0)/m/n/10 Modules can be automatically regularized by the inte
rpreter if the \EU1/FreeMono(0)/m/n/10 regularize
[48] [49] [50]
Underfull \hbox (badness 10000) in paragraph at lines 2684--2685
[]\EU1/FreeMono(0)/m/n/10 S =(n,m)=>* SS [if Pred1] suchThat Pred2 withStateEq
[51] [52] [53] [54] [55] [56] [57]
Underfull \hbox (badness 2142) in paragraph at lines 3068--3072
\EU1/FreeSerif(0)/m/n/10 Assume a module \EU1/FreeMono(0)/m/n/10 MONOID \EU1/Fr
eeSerif(0)/m/n/10 with sort \EU1/FreeMono(0)/m/n/10 M \EU1/FreeSerif(0)/m/n/10 
and ops \EU1/FreeMono(0)/m/n/10 e \EU1/FreeSerif(0)/m/n/10 and \EU1/FreeMono(0)
/m/n/10 * \EU1/FreeSerif(0)/m/n/10 are given, and another
[58]

Class memoir Warning: The material used in the headers is too large
(24.0pt) for the given head height (12.0pt), it is recommended to
either increase the head height or redesign the header
(in both cases you will find help in the memoir manual). on input line 3083.

[59] (./reference-manual.aux) )
(see the transcript file for additional information)
Output written on reference-manual.pdf (67 pages).
Transcript written on reference-manual.log.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/refman'
make -C doc/manual manual.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/manual'
pdflatex manual
This is pdfTeX, Version 3.14159265-2.6-1.40.16 (TeX Live 2015/Debian) (preloaded format=pdflatex)
 restricted \write18 enabled.
entering extended mode
(./manual.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty)) (./manual.sty

LaTeX Warning: You have requested package `manual',
               but the package provides `manualsty'.

(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty)
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/pdftex-def/pdftex.def
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/infwarerr.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ltxcmds.sty)))
(/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
Style option: `fancybox' v1.4 <2010/05/15> (tvz)
) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver (autodetected): hpdftex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hpdftex.def
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)))
Writing index file manual.idx 
Writing glossary file manual.glo 

******************************************************
Stock height and width: 845.04684pt by 597.50787pt
Top and edge trims: 0pt and 0pt
Page height and width: 794.96999pt by 597.50787pt
Text height and width: 562pt by 396pt
Spine and edge margins: 90.3375pt and 111.17038pt
Upper and lower margins: 113.81102pt and 119.15897pt
Headheight and headsep: 12pt and 24pt
Footskip: 24pt
Columnsep and columnseprule: 10pt and 0pt
Marginparsep and marginparwidth: 17pt and 51pt
Sidecapsep and sidecapwidth: 7pt and 117pt
Sidebarhsep and sidebarwidth: 7pt and 117pt
Sidebarvsep and sidebartopsep: 12pt and 0pt
Sidebarheight: 596.39996pt
Sidefoothsep and sidefootwidth: 7pt and 117pt
Sidefootvsep and sidefootheight: 12pt and 596.39996pt
******************************************************

End manual.sty
)
Writing index file lines.idx 
No file manual.aux.
*geometry* driver: auto-detecting
*geometry* detected driver: pdftex
(/usr/share/texlive/texmf-dist/tex/context/base/supp-pdf.mkii
[Loading MPS to PDF converter (version 2006.09.02).]
) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/epstopdf-base.sty
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/grfext.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/epstopdf-sys.cfg))
<cafe-logo.pdf, id=4, 296.10625pt x 344.28625pt> <use cafe-logo.pdf> [1{/var/li
b/texmf/fonts/map/pdftex/updmap/pdftex.map} <./cafe-logo.pdf>] [2]

LaTeX Warning: Citation `e-m85' on page iii undefined on input line 79.


LaTeX Warning: Citation `m-g82' on page iii undefined on input line 79.


LaTeX Warning: Citation `osa' on page iii undefined on input line 80.


LaTeX Warning: Citation `osa-survey' on page iii undefined on input line 80.


LaTeX Warning: Citation `hsa' on page iii undefined on input line 81.


LaTeX Warning: Citation `eatcs-coalg' on page iii undefined on input line 81.


LaTeX Warning: Citation `rew-logic' on page iii undefined on input line 82.


LaTeX Warning: Citation `institution' on page iii undefined on input line 83.


LaTeX Warning: Citation `trs-eatcs' on page iii undefined on input line 83.


LaTeX Warning: Citation `trs-handbook' on page iii undefined on input line 84.


LaTeX Warning: Citation `razvan96-1' on page iii undefined on input line 85.


LaTeX Warning: Citation `cafeobj-rep' on page iii undefined on input line 86.


LaTeX Warning: Citation `osa' on page iii undefined on input line 106.


LaTeX Warning: Citation `rew-logic' on page iii undefined on input line 113.

[3]

LaTeX Warning: Citation `hsa' on page iv undefined on input line 118.


Underfull \hbox (badness 10000) in paragraph at lines 151--153
[][]

Underfull \hbox (badness 10000) in paragraph at lines 151--153

[4]
Underfull \vbox (badness 10000) has occurred while \output is active [1]

LaTeX Warning: Reference `sec:p2-import-decl' on page 2 undefined on input line
 293.


LaTeX Warning: Reference `sec:p2-current-module' on page 2 undefined on input l
ine 313.

[2] [3]

LaTeX Warning: Reference `sec:p2-builtin-module' on page 4 undefined on input l
ine 416.


LaTeX Warning: Reference `sec:p2-init-opt' on page 4 undefined on input line 41
6.


LaTeX Warning: Reference `sec:p2-import-decl' on page 4 undefined on input line
 448.


LaTeX Warning: Reference `sec:p2-save-restore' on page 4 undefined on input lin
e 486.

[4]

LaTeX Warning: Reference `sec:p2-reading-files' on page 5 undefined on input li
ne 529.


LaTeX Warning: Reference `sec:p2-init-opt' on page 5 undefined on input line 53
3.

[5]

LaTeX Warning: Reference `sec:p2-startup' on page 6 undefined on input line 557
.


LaTeX Warning: Reference `sec:p2-builtin-module' on page 6 undefined on input l
ine 568.


LaTeX Warning: Reference `sec:p2-set-command' on page 6 undefined on input line
 581.


LaTeX Warning: Reference `sec:p2-lib-system' on page 6 undefined on input line 
596.


LaTeX Warning: Reference `sec:p2-startup' on page 6 undefined on input line 640
.

[6]

LaTeX Warning: Reference `sec:p2-init-opt' on page 7 undefined on input line 67
1.


LaTeX Warning: Reference `sec:p2-set-command' on page 7 undefined on input line
 672.

[7]

LaTeX Warning: Reference `sec:p2-show-command' on page 8 undefined on input lin
e 718.


LaTeX Warning: Reference `sec:p2-show-command' on page 8 undefined on input lin
e 765.

[8]

LaTeX Warning: Reference `sec:p2-module-decl-syntax' on page 9 undefined on inp
ut line 814.


LaTeX Warning: Reference `sec:p2-view' on page 9 undefined on input line 815.


LaTeX Warning: Reference `sec:p2-check-command' on page 9 undefined on input li
ne 819.


LaTeX Warning: Reference `sec:p2-startup' on page 9 undefined on input line 820
.


LaTeX Warning: Reference `sec:p2-current-module' on page 9 undefined on input l
ine 821.


LaTeX Warning: Reference `sec:p2-set-command' on page 9 undefined on input line
 822.


LaTeX Warning: Reference `sec:p2-module-decl-syntax' on page 9 undefined on inp
ut line 823.


LaTeX Warning: Reference `sec:p2-reading-files' on page 9 undefined on input li
ne 824.


LaTeX Warning: Reference `sec:p2-save-restore' on page 9 undefined on input lin
e 825.


LaTeX Warning: Reference `sec:p2-show-command' on page 9 undefined on input lin
e 828.


LaTeX Warning: Reference `sec:p2-term-evaluation' on page 9 undefined on input 
line 832.


LaTeX Warning: Reference `sec:p2-theorem-proving' on page 9 undefined on input 
line 834.


LaTeX Warning: Reference `sec:syntax-abbrev' on page 9 undefined on input line 
838.

[9]

LaTeX Warning: Reference `sec:p2-help-command' on page 10 undefined on input li
ne 878.


LaTeX Warning: Reference `sec:p2-show-command' on page 10 undefined on input li
ne 892.


LaTeX Warning: Reference `sec:p2-lib-system' on page 10 undefined on input line
 909.

[10]

LaTeX Warning: Reference `sec:p2-help-command' on page 11 undefined on input li
ne 928.


LaTeX Warning: Reference `sec:p2-inspect-module' on page 11 undefined on input 
line 946.


Underfull \vbox (badness 10000) has occurred while \output is active [11]
[12]

LaTeX Font Warning: Font shape `OMS/cmtt/m/n' undefined
(Font)              using `OMS/cmsy/m/n' instead
(Font)              for symbol `textbraceleft' on input line 998.


LaTeX Warning: Reference `sec:p2-import-decl' on page 13 undefined on input lin
e 1018.


LaTeX Warning: Reference `sec:p2-builtin-module' on page 13 undefined on input 
line 1029.

[13]

LaTeX Warning: Reference `sec:p2-import-decl' on page 14 undefined on input lin
e 1090.

[14]

LaTeX Warning: Reference `sec:p2-signature' on page 15 undefined on input line 
1108.


LaTeX Warning: Reference `sec:p2-axioms' on page 15 undefined on input line 111
1.


Underfull \vbox (badness 10000) has occurred while \output is active [15]

LaTeX Warning: Reference `sec:p2-show-command' on page 16 undefined on input li
ne 1178.


LaTeX Warning: Reference `sec:p2-inspect-module' on page 16 undefined on input 
line 1180.


LaTeX Warning: Reference `sec:p2-parameter' on page 16 undefined on input line 
1190.


LaTeX Warning: Reference `sec:p2-hsort-beget-axs' on page 16 undefined on input
 line 1191.


LaTeX Warning: Citation `cafeobj-rep' on page 16 undefined on input line 1193.

[16]
Underfull \vbox (badness 10000) has occurred while \output is active [17]

LaTeX Warning: Reference `sec:p2-module-expression' on page 18 undefined on inp
ut line 1308.


Underfull \vbox (badness 10000) has occurred while \output is active [18]

LaTeX Warning: Reference `sec:p2-eq-decl-cond' on page 19 undefined on input li
ne 1378.


LaTeX Warning: Reference `sec:p2-module-hierarchies' on page 19 undefined on in
put line 1382.

[19] [20]

LaTeX Warning: Reference `sec:p2-wff-terms' on page 21 undefined on input line 
1388.

(/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd) [21]

LaTeX Warning: Reference `sec:p2-op-decl' on page 22 undefined on input line 14
41.


LaTeX Warning: Reference `sec:p2-axioms' on page 22 undefined on input line 144
2.


Overfull \hbox (11.99506pt too wide) in paragraph at lines 1461--1461
[]     \OT1/cmtt/m/n/9 [Warning]: declaring a visible sort "S", there already b
e a sort[] 

Overfull \hbox (7.27011pt too wide) in paragraph at lines 1462--1462
[]         \OT1/cmtt/m/n/9 with the same name but of differenct type (visible/h
idden).[] 

LaTeX Warning: Reference `sec:p2-naming-and-qualification' on page 22 undefined
 on input line 1486.

[22]

LaTeX Warning: Reference `sec:p2-trans-decl' on page 23 undefined on input line
 1590.


LaTeX Warning: Reference `sec:p2-wff-terms' on page 23 undefined on input line 
1600.

[23]

LaTeX Warning: Reference `sec:p2-naming-and-qualification' on page 24 undefined
 on input line 1625.

[24]

LaTeX Warning: Reference `sec:p2-operator-reference' on page 25 undefined on in
put line 1705.

[25]

LaTeX Warning: Reference `sec:p2-hsort-beget-axs' on page 26 undefined on input
 line 1771.


LaTeX Warning: Reference `sec:p2-import-decl' on page 26 undefined on input lin
e 1799.

[26] [27]

LaTeX Warning: Reference `sec:p2-parsing-qualifier' on page 28 undefined on inp
ut line 1893.


LaTeX Warning: Reference `sec:p2-parsing-qualifier' on page 28 undefined on inp
ut line 1898.

[28]

LaTeX Warning: Reference `sec:p2-equation-decl' on page 29 undefined on input l
ine 1966.


LaTeX Warning: Reference `sec:p2-check-command' on page 29 undefined on input l
ine 1992.

[29]

LaTeX Warning: Reference `sec:p2-current-module' on page 30 undefined on input 
line 2017.


LaTeX Warning: Reference `sec:p2-module-expression' on page 30 undefined on inp
ut line 2018.


LaTeX Warning: Reference `exs:simple-nat' on page 30 undefined on input line 20
45.


LaTeX Warning: Reference `sec:p2-variable-decl' on page 30 undefined on input l
ine 2047.


Underfull \vbox (badness 4582) has occurred while \output is active [30]
[31]
Underfull \vbox (badness 1648) has occurred while \output is active [32]
[33] [34]
Underfull \vbox (badness 4291) has occurred while \output is active [35]

LaTeX Warning: Reference `sec:p2-wff-terms' on page 36 undefined on input line 
2464.


LaTeX Warning: Reference `exs:simple-int' on page 36 undefined on input line 25
18.

[36]

LaTeX Warning: Reference `sec:p2-beh-eq-decl' on page 37 undefined on input lin
e 2593.

[37]

LaTeX Warning: Reference `sec:p2-variable-decl' on page 38 undefined on input l
ine 2650.

[38]

LaTeX Warning: Reference `sec:p2-import-decl' on page 39 undefined on input lin
e 2705.


LaTeX Warning: Reference `sec:p2-inspect-module' on page 39 undefined on input 
line 2721.

[39]

LaTeX Warning: Reference `exs:counter' on page 40 undefined on input line 2781.


[40]

LaTeX Warning: Reference `sec:p2-theorem-proving-exs' on page 41 undefined on i
nput line 2882.


LaTeX Warning: Reference `sec:p2-term-evaluation' on page 41 undefined on input
 line 2903.


LaTeX Warning: Reference `sec:p2-equational-theory' on page 41 undefined on inp
ut line 2907.


LaTeX Warning: Reference `sec:p2-executable-module' on page 41 undefined on inp
ut line 2911.

[41]

LaTeX Warning: Reference `sec:p2-import-decl' on page 42 undefined on input lin
e 2921.


LaTeX Warning: Reference `sec:p2-trans-decl' on page 42 undefined on input line
 2970.


LaTeX Warning: Reference `sec:p2-import-decl' on page 42 undefined on input lin
e 2971.

[42]

LaTeX Warning: Reference `sec:p2-executable-module' on page 43 undefined on inp
ut line 3042.


LaTeX Warning: Reference `sec:p2-proving-trans-2' on page 43 undefined on input
 line 3054.


LaTeX Warning: Reference `sec:p2-beh-op-decl' on page 43 undefined on input lin
e 3072.

[43]

LaTeX Warning: Reference `sec:p2-term-evaluation' on page 44 undefined on input
 line 3117.


LaTeX Warning: Reference `sec:p2-evaluation-command' on page 44 undefined on in
put line 3145.

[44] [45] [46]

LaTeX Warning: Reference `sec:p2-show-command' on page 47 undefined on input li
ne 3181.


LaTeX Warning: Reference `exs:simple-nat' on page 47 undefined on input line 31
88.


Underfull \vbox (badness 6708) has occurred while \output is active [47]

LaTeX Warning: Reference `sec:p2-blocks-in-mod' on page 48 undefined on input l
ine 3245.


LaTeX Warning: Reference `sec:p2-import-decl' on page 48 undefined on input lin
e 3249.


LaTeX Warning: Reference `sec:p2-op-properties' on page 48 undefined on input l
ine 3252.

[48] [49]

LaTeX Warning: Reference `sec:p2-current-module' on page 50 undefined on input 
line 3341.


Underfull \vbox (badness 4072) has occurred while \output is active [50]

LaTeX Warning: Reference `sec:p2-flexible-typing' on page 51 undefined on input
 line 3399.


LaTeX Warning: Reference `sec:p2-term-evaluation' on page 51 undefined on input
 line 3431.

[51]

LaTeX Warning: Reference `sec:p2-print-whole-module' on page 52 undefined on in
put line 3603.


Underfull \vbox (badness 10000) has occurred while \output is active [52]

LaTeX Warning: Reference `exs:choice' on page 53 undefined on input line 3623.


LaTeX Warning: Reference `sec:p2-transition-pred' on page 53 undefined on input
 line 3662.

[53]
Underfull \vbox (badness 10000) has occurred while \output is active [54]

LaTeX Warning: Citation `hsa' on page 55 undefined on input line 3768.


LaTeX Warning: Reference `sec:p2-pre-view' on page 55 undefined on input line 3
773.

[55]

LaTeX Warning: Reference `sec:p2-beh-equiv-pred' on page 56 undefined on input 
line 3802.

[56] [57]

LaTeX Warning: Reference `sec:p2-equational-theory' on page 58 undefined on inp
ut line 3894.


LaTeX Warning: Reference `sec:p2-rew-strategy' on page 58 undefined on input li
ne 3900.


LaTeX Warning: Reference `exs:simple-nat' on page 58 undefined on input line 39
22.


LaTeX Warning: Reference `sec:p2-eval-exs-1' on page 58 undefined on input line
 3933.

[58]

LaTeX Warning: Reference `sec:p2-evaluation-command' on page 59 undefined on in
put line 3965.


LaTeX Warning: Reference `sec:p2-theorem-proving-exs' on page 59 undefined on i
nput line 3968.


LaTeX Warning: Reference `sec:p2-module-expression' on page 59 undefined on inp
ut line 3992.


LaTeX Warning: Reference `sec:p2-current-module' on page 59 undefined on input 
line 3995.


LaTeX Warning: Reference `sec:p2-executable-module' on page 59 undefined on inp
ut line 4006.


LaTeX Warning: Reference `sec:p2-eval-exs-2' on page 59 undefined on input line
 4026.


LaTeX Warning: Reference `sec:p2-eval-exs-3' on page 59 undefined on input line
 4026.

[59]

LaTeX Warning: Reference `exs:simple-nat' on page 60 undefined on input line 40
71.


LaTeX Warning: Reference `sec:p2-wff-terms' on page 60 undefined on input line 
4103.

[60] [61]

LaTeX Warning: Reference `exs:choice-nat' on page 62 undefined on input line 42
03.


Underfull \vbox (badness 10000) has occurred while \output is active [62]

LaTeX Warning: Citation `rew-logic' on page 63 undefined on input line 4251.

[63]

LaTeX Warning: Reference `sec:p2-eval-exs-1' on page 64 undefined on input line
 4328.

[64]
Underfull \vbox (badness 10000) has occurred while \output is active [65]
Underfull \vbox (badness 10000) has occurred while \output is active [66]
[67]
Overfull \vbox (104.49998pt too high) has occurred while \output is active
[68]

LaTeX Warning: Reference `sec:p2-trs-basic' on page 69 undefined on input line 
4525.

[69]
Underfull \vbox (badness 10000) has occurred while \output is active [70]
[71] [72]

LaTeX Warning: Reference `sec:p2-choose-command' on page 73 undefined on input 
line 4768.

[73]

LaTeX Warning: Reference `sec:p2-current-module' on page 74 undefined on input 
line 4846.


Underfull \vbox (badness 3514) has occurred while \output is active [74]
Underfull \vbox (badness 10000) has occurred while \output is active [75]
[76] [77]

LaTeX Warning: Reference `exs:mult' on page 78 undefined on input line 5049.

[78]
Underfull \vbox (badness 4913) has occurred while \output is active [79]
Underfull \vbox (badness 2547) has occurred while \output is active [80]
Underfull \vbox (badness 10000) has occurred while \output is active [81]

LaTeX Warning: Citation `OBJ' on page 82 undefined on input line 5312.


Package hyperref Warning: Token not allowed in a PDF string (PDFDocEncoding):
(hyperref)                removing `math shift' on input line 5315.


Package hyperref Warning: Token not allowed in a PDF string (PDFDocEncoding):
(hyperref)                removing `math shift' on input line 5315.

[82] [83]
Underfull \vbox (badness 4673) has occurred while \output is active [84]
Underfull \vbox (badness 7116) has occurred while \output is active [85]
[86] [87] [88]

LaTeX Warning: Reference `sec:p2-operator' on page 89 undefined on input line 5
583.


LaTeX Warning: Reference `sec:p2-operator' on page 89 undefined on input line 5
589.

[89]
Overfull \hbox (1.241pt too wide) in paragraph at lines 5638--5642
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 5644--5649
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 5655--5659
 []$ 

LaTeX Warning: Reference `sec:p2-equality-pred' on page 90 undefined on input l
ine 5668.


LaTeX Warning: Reference `sec:p2-syntactic-properties' on page 90 undefined on 
input line 5689.

[90] [91] [92] [93] [94] [95] [96] [97]

LaTeX Warning: Reference `sec:p2-evaluation-command' on page 98 undefined on in
put line 6288.


LaTeX Warning: Reference `sec:p2-eval-exs-3' on page 98 undefined on input line
 6289.

[98]
Underfull \vbox (badness 10000) has occurred while \output is active [99]

LaTeX Warning: Reference `sec:p2-op-attr-limit' on page 100 undefined on input 
line 6366.


Underfull \vbox (badness 10000) has occurred while \output is active [100]
Underfull \vbox (badness 10000) has occurred while \output is active [101]
Underfull \vbox (badness 10000) has occurred while \output is active [102]
[103]
Underfull \vbox (badness 10000) has occurred while \output is active [104]
[105]

LaTeX Warning: Reference `exs:az-op' on page 106 undefined on input line 6624.


LaTeX Warning: Reference `exs:propc' on page 106 undefined on input line 6662.

[106] [107] [108]
Underfull \vbox (badness 10000) has occurred while \output is active [109]

LaTeX Warning: Reference `sec:p2-let-command' on page 110 undefined on input li
ne 6814.


LaTeX Warning: Reference `sec:p2-theorem-proving' on page 110 undefined on inpu
t line 6815.

[110] [111]

LaTeX Warning: Reference `sec:p2-parsing-qualifier' on page 112 undefined on in
put line 6898.


LaTeX Warning: Reference `sec:p2-parameter' on page 112 undefined on input line
 6918.


LaTeX Warning: Reference `sec:p2-parameter' on page 112 undefined on input line
 6922.

[112] [113]

LaTeX Warning: Reference `sec:p2-params-as-subs' on page 114 undefined on input
 line 7145.


Underfull \vbox (badness 4792) has occurred while \output is active [114]

LaTeX Warning: Reference `sec:p2-naming-and-qualification' on page 115 undefine
d on input line 7182.


LaTeX Warning: Reference `sec:p2-flexible-typing' on page 115 undefined on inpu
t line 7193.


LaTeX Warning: Reference `exs:mult' on page 115 undefined on input line 7221.

[115] [116]

LaTeX Warning: Reference `exs:monoid' on page 117 undefined on input line 7329.


LaTeX Warning: Reference `exs:simple-nat' on page 117 undefined on input line 7
330.

[117]

LaTeX Warning: Reference `sec:p2-naming-and-qualification' on page 118 undefine
d on input line 7393.


LaTeX Warning: Reference `sec:p2-variable-decl' on page 118 undefined on input 
line 7419.


LaTeX Warning: Reference `sec:p2-pre-view' on page 118 undefined on input line 
7435.

[118]

LaTeX Warning: Reference `sec:p2-equational-theory' on page 119 undefined on in
put line 7452.


LaTeX Warning: Reference `exs:monoid' on page 119 undefined on input line 7470.


LaTeX Warning: Reference `exs:simple-nat' on page 119 undefined on input line 7
470.


LaTeX Warning: Reference `exs:mult' on page 119 undefined on input line 7504.

[119]

LaTeX Warning: Reference `sec:p2-operator-reference' on page 120 undefined on i
nput line 7549.


LaTeX Warning: Reference `sec:p2-pre-view' on page 120 undefined on input line 
7578.

[120]

LaTeX Warning: Reference `exs:counter' on page 121 undefined on input line 7605
.


LaTeX Warning: Reference `exs:simple-nat+' on page 121 undefined on input line 
7632.

[121]

LaTeX Warning: Reference `sec:p2-succinct-view' on page 122 undefined on input 
line 7661.

[122] [123]

LaTeX Warning: Reference `sec:p2-module-sharing' on page 124 undefined on input
 line 7803.


LaTeX Warning: Reference `exs:simple-nat' on page 124 undefined on input line 7
853.


LaTeX Warning: Reference `exs:ilist' on page 124 undefined on input line 7854.

[124]

LaTeX Warning: Reference `sec:p2-import-decl' on page 125 undefined on input li
ne 7891.


LaTeX Warning: Reference `sec:p2-current-module' on page 125 undefined on input
 line 7892.


LaTeX Warning: Reference `exs:ilist' on page 125 undefined on input line 7901.


LaTeX Warning: Reference `sec:p2-import-decl' on page 125 undefined on input li
ne 7928.

[125]

LaTeX Warning: Reference `exs:ilist' on page 126 undefined on input line 7956.


Underfull \vbox (badness 8038) has occurred while \output is active [126]
[127] [128]

LaTeX Warning: Reference `exs:ilist' on page 129 undefined on input line 8132.

[129]

LaTeX Warning: Reference `sec:p2-succinct-view' on page 130 undefined on input 
line 8180.


LaTeX Warning: Reference `sec:p2-naming-and-qualification' on page 130 undefine
d on input line 8197.


LaTeX Warning: Reference `sec:p2-naming-and-qualification' on page 130 undefine
d on input line 8213.


LaTeX Warning: Reference `sec:p2-parsing-qualifier' on page 130 undefined on in
put line 8229.

[130]

LaTeX Warning: Reference `sec:p2-module-sharing' on page 131 undefined on input
 line 8291.


LaTeX Warning: Reference `sec:p2-pre-view' on page 131 undefined on input line 
8295.


LaTeX Warning: Reference `exs:nat-ilist' on page 131 undefined on input line 83
06.

[131]

LaTeX Warning: Reference `sec:p2-module-sharing' on page 132 undefined on input
 line 8332.

[132] [133] [134]

LaTeX Warning: Reference `sec:p2-term-evaluation' on page 135 undefined on inpu
t line 8451.

[135]
Underfull \vbox (badness 10000) has occurred while \output is active [136]

LaTeX Warning: Reference `sec:p2-comment-syntax' on page 137 undefined on input
 line 8567.

[137]

LaTeX Warning: Reference `sec:p2-variable-decl' on page 138 undefined on input 
line 8632.

[138]

LaTeX Warning: Reference `sec:p2-open-close' on page 139 undefined on input lin
e 8688.

[139]

LaTeX Warning: Reference `sec:p2-open-close' on page 140 undefined on input lin
e 8756.


LaTeX Warning: Reference `sec:p2-current-module' on page 140 undefined on input
 line 8757.


LaTeX Warning: Reference `sec:p2-show-command' on page 140 undefined on input l
ine 8760.


LaTeX Warning: Reference `sec:p2-usage-of-apply' on page 140 undefined on input
 line 8791.


LaTeX Warning: Reference `sec:p2-apply-rule-id' on page 140 undefined on input 
line 8792.

[140]
Underfull \vbox (badness 1360) has occurred while \output is active [141]

LaTeX Warning: Reference `sec:p2-apply-rule-id' on page 142 undefined on input 
line 8877.

[142]

LaTeX Warning: Reference `sec:p2-apply-command' on page 143 undefined on input 
line 8943.


Underfull \vbox (badness 10000) has occurred while \output is active [143]

LaTeX Warning: Reference `sec:p2-eval-step-mode' on page 144 undefined on input
 line 9002.


Underfull \vbox (badness 10000) has occurred while \output is active [144]

LaTeX Warning: Reference `sec:p2-current-module' on page 145 undefined on input
 line 9027.


LaTeX Warning: Reference `sec:p2-apply-to-cond' on page 145 undefined on input 
line 9027.


Underfull \vbox (badness 7851) has occurred while \output is active [145]

LaTeX Warning: Reference `sec:p2-usage-of-apply' on page 146 undefined on input
 line 9092.

[146]

LaTeX Warning: Reference `sec:p2-apply-command' on page 147 undefined on input 
line 9145.


LaTeX Warning: Reference `exs:gcd' on page 147 undefined on input line 9154.


Underfull \vbox (badness 10000) has occurred while \output is active [147]

LaTeX Warning: Reference `sec:p2-current-module' on page 148 undefined on input
 line 9195.


LaTeX Warning: Reference `sec:p2-choose-command' on page 148 undefined on input
 line 9196.


LaTeX Warning: Reference `exs:simple-nat+' on page 148 undefined on input line 
9202.


Underfull \vbox (badness 10000) has occurred while \output is active [148]
[149]

LaTeX Warning: Reference `sec:p2-trs-basic' on page 150 undefined on input line
 9284.


LaTeX Warning: Reference `sec:p2-comment-syntax' on page 150 undefined on input
 line 9291.


Overfull \hbox (1.241pt too wide) in paragraph at lines 9292--9297
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 9299--9306
 []$ 
[150]

LaTeX Warning: Reference `exs:group' on page 151 undefined on input line 9372.

[151]

LaTeX Warning: Reference `sec:p2-equational-theory' on page 152 undefined on in
put line 9397.


Underfull \vbox (badness 10000) has occurred while \output is active [152]

LaTeX Warning: Reference `sec:p2-usage-of-open' on page 153 undefined on input 
line 9471.


LaTeX Warning: Reference `sec:p2-apply-rule-id' on page 153 undefined on input 
line 9473.

[153] [154]

LaTeX Warning: Reference `sec:p2-current-module' on page 155 undefined on input
 line 9521.


LaTeX Warning: Reference `exs:intb'' on page 155 undefined on input line 9529.


LaTeX Warning: Reference `sec:p2-wff-terms' on page 155 undefined on input line
 9553.

[155]

LaTeX Warning: Reference `sec:p2-flexible-typing' on page 156 undefined on inpu
t line 9612.

[156]

LaTeX Warning: Reference `sec:p2-rew-strategy' on page 157 undefined on input l
ine 9630.


LaTeX Warning: Reference `sec:p2-usage-of-open' on page 157 undefined on input 
line 9678.


LaTeX Warning: Reference `sec:p2-usage-of-apply' on page 157 undefined on input
 line 9678.


Underfull \vbox (badness 10000) has occurred while \output is active [157]

LaTeX Warning: Reference `sec:p2-equality-pred' on page 158 undefined on input 
line 9706.


LaTeX Warning: Reference `sec:p2-equational-theory' on page 158 undefined on in
put line 9709.


LaTeX Warning: Reference `sec:p2-usage-of-open' on page 158 undefined on input 
line 9738.


LaTeX Warning: Reference `sec:p2-usage-of-open' on page 158 undefined on input 
line 9750.

[158]

LaTeX Warning: Reference `sec:p2-views-exs' on page 159 undefined on input line
 9797.

[159]

LaTeX Warning: Reference `sec:p2-transition-pred' on page 160 undefined on inpu
t line 9827.


LaTeX Warning: Reference `exs:choice-nat' on page 160 undefined on input line 9
831.

[160]
Underfull \vbox (badness 10000) has occurred while \output is active [161]
[162] [163] [164]

LaTeX Warning: Reference `exs:counter' on page 165 undefined on input line 1009
4.


LaTeX Warning: Reference `sec:p2-proof-by-induction' on page 165 undefined on i
nput line 10112.


LaTeX Warning: Reference `sec:p2-beh-equiv-pred' on page 165 undefined on input
 line 10129.


Underfull \vbox (badness 10000) has occurred while \output is active [165]

LaTeX Warning: Reference `sec:p2-hsort-beget-axs' on page 166 undefined on inpu
t line 10164.

[166] [167] [168]

LaTeX Warning: Reference `sec:p2-startup' on page 169 undefined on input line 1
0286.


LaTeX Warning: Reference `sec:p2-init-opt' on page 169 undefined on input line 
10290.


LaTeX Warning: Reference `exs:propc' on page 169 undefined on input line 10309.


LaTeX Warning: Reference `exs:triv' on page 169 undefined on input line 10309.

[169] [170] [171]

LaTeX Font Warning: Font shape `OT1/cmss/m/sc' in size <10> not available
(Font)              Font shape `OT1/cmr/m/sc' tried instead on input line 10429
.

[172]

LaTeX Warning: Reference `sec:lex-selfterminating' on page 173 undefined on inp
ut line 10457.

[173]

LaTeX Font Warning: Font shape `OMS/cmss/m/n' undefined
(Font)              using `OMS/cmsy/m/n' instead
(Font)              for symbol `textbraceleft' on input line 10475.

[174] [175] [176] [177] [178]
Overfull \hbox (81.48405pt too wide) in paragraph at lines 10834--10891
[] []

Underfull \hbox (badness 10000) in paragraph at lines 10834--10891


Underfull \vbox (badness 10000) has occurred while \output is active [179]
[180]
bibitemlist
[181]
No file manual.ind.
No file lines.ind.
[182] (./manual.aux)

Package rerunfilecheck Warning: File `manual.out' has changed.
(rerunfilecheck)                Rerun to get outlines right
(rerunfilecheck)                or use package `bookmark'.


LaTeX Font Warning: Some font shapes were not available, defaults substituted.


LaTeX Warning: There were undefined references.


LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right.

 )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbsy10.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cmextra/cmbsy9.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmbx10.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fonts/type1/pu
blic/amsfonts/cm/cmbx8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmbx9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/
cm/cmcsc10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cm
itt10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi10.
pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi6.pfb></u
sr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi7.pfb></usr/shar
e/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi9.pfb></usr/share/texli
ve/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb></usr/share/texlive/texm
f-dist/fonts/type1/public/amsfonts/cm/cmr12.pfb></usr/share/texlive/texmf-dist/
fonts/type1/public/amsfonts/cm/cmr6.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/type1/publ
ic/amsfonts/cm/cmr8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfo
nts/cm/cmr9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/c
mss10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss12.
pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss17.pfb></
usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss8.pfb></usr/sha
re/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss9.pfb></usr/share/texl
ive/texmf-dist/fonts/type1/public/amsfonts/cm/cmssbx10.pfb></usr/share/texlive/
texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr/share/texlive/texmf-
dist/fonts/type1/public/amsfonts/cm/cmsy6.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmsy7.pfb></usr/share/texlive/texmf-dist/fonts/typ
e1/public/amsfonts/cm/cmsy9.pfb></usr/share/texlive/texmf-dist/fonts/type1/publ
ic/amsfonts/cm/cmti10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/ams
fonts/cm/cmti8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/c
m/cmti9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt1
0.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt8.pfb><
/usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on manual.pdf (186 pages, 819156 bytes).
Transcript written on manual.log.
makeindex manual.idx
This is makeindex, version 2.15 [TeX Live 2015] (kpathsea + Thai support).
Scanning input file manual.idx....done (412 entries accepted, 0 rejected).
Sorting entries......done (3785 comparisons).
Generating output file manual.ind....done (395 lines written, 0 warnings).
Output written in manual.ind.
Transcript written in manual.ilg.
makeindex lines.idx
This is makeindex, version 2.15 [TeX Live 2015] (kpathsea + Thai support).
Scanning input file lines.idx...done (0 entries accepted, 0 rejected).
Nothing written in lines.ind.
Transcript written in lines.ilg.
pdflatex manual
This is pdfTeX, Version 3.14159265-2.6-1.40.16 (TeX Live 2015/Debian) (preloaded format=pdflatex)
 restricted \write18 enabled.
entering extended mode
(./manual.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty)) (./manual.sty

LaTeX Warning: You have requested package `manual',
               but the package provides `manualsty'.

(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty)
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/pdftex-def/pdftex.def
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/infwarerr.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ltxcmds.sty)))
(/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
Style option: `fancybox' v1.4 <2010/05/15> (tvz)
) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver (autodetected): hpdftex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hpdftex.def
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)))
Writing index file manual.idx 
Writing glossary file manual.glo 

******************************************************
Stock height and width: 845.04684pt by 597.50787pt
Top and edge trims: 0pt and 0pt
Page height and width: 794.96999pt by 597.50787pt
Text height and width: 562pt by 396pt
Spine and edge margins: 90.3375pt and 111.17038pt
Upper and lower margins: 113.81102pt and 119.15897pt
Headheight and headsep: 12pt and 24pt
Footskip: 24pt
Columnsep and columnseprule: 10pt and 0pt
Marginparsep and marginparwidth: 17pt and 51pt
Sidecapsep and sidecapwidth: 7pt and 117pt
Sidebarhsep and sidebarwidth: 7pt and 117pt
Sidebarvsep and sidebartopsep: 12pt and 0pt
Sidebarheight: 596.39996pt
Sidefoothsep and sidefootwidth: 7pt and 117pt
Sidefootvsep and sidefootheight: 12pt and 596.39996pt
******************************************************

End manual.sty
)
Writing index file lines.idx 
(./manual.aux)
*geometry* driver: auto-detecting
*geometry* detected driver: pdftex
(/usr/share/texlive/texmf-dist/tex/context/base/supp-pdf.mkii
[Loading MPS to PDF converter (version 2006.09.02).]
) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(./manual.out) (./manual.out)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/epstopdf-base.sty
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/grfext.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/epstopdf-sys.cfg))
<cafe-logo.pdf, id=671, 296.10625pt x 344.28625pt> <use cafe-logo.pdf> [1{/var/
lib/texmf/fonts/map/pdftex/updmap/pdftex.map} <./cafe-logo.pdf>] (./manual.toc
[2] [3] [4] [5]) [6] [7]
Underfull \hbox (badness 10000) in paragraph at lines 151--153
[][]

Underfull \hbox (badness 10000) in paragraph at lines 151--153

[8]
Underfull \vbox (badness 10000) has occurred while \output is active [1]
[2] [3] [4] [5] [6] [7] [8] [9] [10]
Underfull \vbox (badness 10000) has occurred while \output is active [11]
[12]

LaTeX Font Warning: Font shape `OMS/cmtt/m/n' undefined
(Font)              using `OMS/cmsy/m/n' instead
(Font)              for symbol `textbraceleft' on input line 998.

[13] [14]
Underfull \vbox (badness 10000) has occurred while \output is active [15]
[16]
Underfull \vbox (badness 10000) has occurred while \output is active [17]
Underfull \vbox (badness 10000) has occurred while \output is active [18]
[19] [20] (/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd) [21]
Overfull \hbox (11.99506pt too wide) in paragraph at lines 1461--1461
[]     \OT1/cmtt/m/n/9 [Warning]: declaring a visible sort "S", there already b
e a sort[] 

Overfull \hbox (7.27011pt too wide) in paragraph at lines 1462--1462
[]         \OT1/cmtt/m/n/9 with the same name but of differenct type (visible/h
idden).[] 
[22] [23] [24] [25] [26] [27] [28] [29]
Underfull \vbox (badness 4582) has occurred while \output is active [30]
[31]
Underfull \vbox (badness 1648) has occurred while \output is active [32]
[33] [34]
Underfull \vbox (badness 4291) has occurred while \output is active [35]
[36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46]
Underfull \vbox (badness 6708) has occurred while \output is active [47]
[48] [49]
Underfull \vbox (badness 4072) has occurred while \output is active [50]
[51]
Underfull \vbox (badness 10000) has occurred while \output is active [52]
[53]
Underfull \vbox (badness 10000) has occurred while \output is active [54]
[55] [56] [57] [58] [59] [60] [61]
Underfull \vbox (badness 10000) has occurred while \output is active [62]
[63] [64]
Underfull \vbox (badness 10000) has occurred while \output is active [65]
Underfull \vbox (badness 10000) has occurred while \output is active [66]
[67]
Overfull \vbox (104.49998pt too high) has occurred while \output is active
[68] [69]
Underfull \vbox (badness 10000) has occurred while \output is active [70]
[71] [72] [73]
Underfull \vbox (badness 3514) has occurred while \output is active [74]
Underfull \vbox (badness 10000) has occurred while \output is active [75]
[76] [77] [78]
Underfull \vbox (badness 4913) has occurred while \output is active [79]
Underfull \vbox (badness 2547) has occurred while \output is active [80]
Underfull \vbox (badness 10000) has occurred while \output is active [81]

Package hyperref Warning: Token not allowed in a PDF string (PDFDocEncoding):
(hyperref)                removing `math shift' on input line 5315.


Package hyperref Warning: Token not allowed in a PDF string (PDFDocEncoding):
(hyperref)                removing `math shift' on input line 5315.

[82] [83]
Underfull \vbox (badness 4673) has occurred while \output is active [84]
Underfull \vbox (badness 7116) has occurred while \output is active [85]
[86] [87] [88] [89]
Overfull \hbox (1.241pt too wide) in paragraph at lines 5638--5642
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 5644--5649
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 5655--5659
 []$ 
[90] [91] [92] [93] [94] [95] [96] [97] [98]
Underfull \vbox (badness 10000) has occurred while \output is active [99]
Underfull \vbox (badness 10000) has occurred while \output is active [100]
Underfull \vbox (badness 10000) has occurred while \output is active [101]
Underfull \vbox (badness 10000) has occurred while \output is active [102]
[103]
Underfull \vbox (badness 10000) has occurred while \output is active [104]
[105] [106] [107] [108]
Underfull \vbox (badness 10000) has occurred while \output is active [109]
[110] [111] [112] [113]
Underfull \vbox (badness 4792) has occurred while \output is active [114]
[115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125]
Underfull \vbox (badness 8038) has occurred while \output is active [126]
[127] [128] [129] [130] [131] [132] [133] [134] [135]
Underfull \vbox (badness 10000) has occurred while \output is active [136]
[137] [138] [139] [140]
Underfull \vbox (badness 1360) has occurred while \output is active [141]
[142]
Underfull \vbox (badness 10000) has occurred while \output is active [143]
Underfull \vbox (badness 10000) has occurred while \output is active [144]
Underfull \vbox (badness 7851) has occurred while \output is active [145]
[146]
Underfull \vbox (badness 10000) has occurred while \output is active [147]
Underfull \vbox (badness 10000) has occurred while \output is active [148]
[149]
Overfull \hbox (1.241pt too wide) in paragraph at lines 9292--9297
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 9299--9306
 []$ 
[150] [151]
Underfull \vbox (badness 10000) has occurred while \output is active [152]
[153] [154] [155] [156] [157] [158] [159] [160]
Underfull \vbox (badness 10000) has occurred while \output is active [161]
[162] [163] [164]
Underfull \vbox (badness 10000) has occurred while \output is active [165]
[166] [167] [168] [169] [170] [171]

LaTeX Font Warning: Font shape `OT1/cmss/m/sc' in size <10> not available
(Font)              Font shape `OT1/cmr/m/sc' tried instead on input line 10429
.

[172] [173]

LaTeX Font Warning: Font shape `OMS/cmss/m/n' undefined
(Font)              using `OMS/cmsy/m/n' instead
(Font)              for symbol `textbraceleft' on input line 10475.

[174] [175] [176] [177] [178]
Overfull \hbox (81.48405pt too wide) in paragraph at lines 10834--10891
[] []

Underfull \hbox (badness 10000) in paragraph at lines 10834--10891


Underfull \vbox (badness 10000) has occurred while \output is active [179]
[180]
bibitemlist
[181] (./manual.ind [182] [183] [184] [185] [186]) (./lines.ind) (./manual.aux)

Package rerunfilecheck Warning: File `manual.out' has changed.
(rerunfilecheck)                Rerun to get outlines right
(rerunfilecheck)                or use package `bookmark'.


LaTeX Font Warning: Some font shapes were not available, defaults substituted.

 )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbsy10.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cmextra/cmbsy9.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmbx10.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fonts/type1/pu
blic/amsfonts/cm/cmbx9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmcsc10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfont
s/cm/cmitt10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/
cmmi10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi6.
pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi7.pfb></u
sr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi9.pfb></usr/shar
e/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb></usr/share/texli
ve/texmf-dist/fonts/type1/public/amsfonts/cm/cmr12.pfb></usr/share/texlive/texm
f-dist/fonts/type1/public/amsfonts/cm/cmr6.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/typ
e1/public/amsfonts/cm/cmr8.pfb></usr/share/texlive/texmf-dist/fonts/type1/publi
c/amsfonts/cm/cmr9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfon
ts/cm/cmsl10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/
cmss10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss12
.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss17.pfb><
/usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss8.pfb></usr/sh
are/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss9.pfb></usr/share/tex
live/texmf-dist/fonts/type1/public/amsfonts/cm/cmssbx10.pfb></usr/share/texlive
/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr/share/texlive/texmf
-dist/fonts/type1/public/amsfonts/cm/cmsy6.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cm/cmsy7.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmsy9.pfb></usr/share/texlive/texmf-dist/fonts/type1/pub
lic/amsfonts/cm/cmti10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmti8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/
cm/cmti9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt
10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt8.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on manual.pdf (194 pages, 870287 bytes).
Transcript written on manual.log.
pdflatex manual
This is pdfTeX, Version 3.14159265-2.6-1.40.16 (TeX Live 2015/Debian) (preloaded format=pdflatex)
 restricted \write18 enabled.
entering extended mode
(./manual.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty)) (./manual.sty

LaTeX Warning: You have requested package `manual',
               but the package provides `manualsty'.

(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty)
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/pdftex-def/pdftex.def
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/infwarerr.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ltxcmds.sty)))
(/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
Style option: `fancybox' v1.4 <2010/05/15> (tvz)
) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver (autodetected): hpdftex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hpdftex.def
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)))
Writing index file manual.idx 
Writing glossary file manual.glo 

******************************************************
Stock height and width: 845.04684pt by 597.50787pt
Top and edge trims: 0pt and 0pt
Page height and width: 794.96999pt by 597.50787pt
Text height and width: 562pt by 396pt
Spine and edge margins: 90.3375pt and 111.17038pt
Upper and lower margins: 113.81102pt and 119.15897pt
Headheight and headsep: 12pt and 24pt
Footskip: 24pt
Columnsep and columnseprule: 10pt and 0pt
Marginparsep and marginparwidth: 17pt and 51pt
Sidecapsep and sidecapwidth: 7pt and 117pt
Sidebarhsep and sidebarwidth: 7pt and 117pt
Sidebarvsep and sidebartopsep: 12pt and 0pt
Sidebarheight: 596.39996pt
Sidefoothsep and sidefootwidth: 7pt and 117pt
Sidefootvsep and sidefootheight: 12pt and 596.39996pt
******************************************************

End manual.sty
)
Writing index file lines.idx 
(./manual.aux)
*geometry* driver: auto-detecting
*geometry* detected driver: pdftex
(/usr/share/texlive/texmf-dist/tex/context/base/supp-pdf.mkii
[Loading MPS to PDF converter (version 2006.09.02).]
) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(./manual.out) (./manual.out)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/epstopdf-base.sty
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/grfext.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/epstopdf-sys.cfg))
<cafe-logo.pdf, id=675, 296.10625pt x 344.28625pt> <use cafe-logo.pdf> [1{/var/
lib/texmf/fonts/map/pdftex/updmap/pdftex.map} <./cafe-logo.pdf>] (./manual.toc
[2] [3] [4] [5]) [6] [7]
Underfull \hbox (badness 10000) in paragraph at lines 151--153
[][]

Underfull \hbox (badness 10000) in paragraph at lines 151--153

[8]
Underfull \vbox (badness 10000) has occurred while \output is active [1]
[2] [3] [4] [5] [6] [7] [8] [9] [10]
Underfull \vbox (badness 10000) has occurred while \output is active [11]
[12]

LaTeX Font Warning: Font shape `OMS/cmtt/m/n' undefined
(Font)              using `OMS/cmsy/m/n' instead
(Font)              for symbol `textbraceleft' on input line 998.

[13] [14]
Underfull \vbox (badness 10000) has occurred while \output is active [15]
[16]
Underfull \vbox (badness 10000) has occurred while \output is active [17]
Underfull \vbox (badness 10000) has occurred while \output is active [18]
[19] [20] (/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd) [21]
Overfull \hbox (11.99506pt too wide) in paragraph at lines 1461--1461
[]     \OT1/cmtt/m/n/9 [Warning]: declaring a visible sort "S", there already b
e a sort[] 

Overfull \hbox (7.27011pt too wide) in paragraph at lines 1462--1462
[]         \OT1/cmtt/m/n/9 with the same name but of differenct type (visible/h
idden).[] 
[22] [23] [24] [25] [26] [27] [28] [29]
Underfull \vbox (badness 4582) has occurred while \output is active [30]
[31]
Underfull \vbox (badness 1648) has occurred while \output is active [32]
[33] [34]
Underfull \vbox (badness 4291) has occurred while \output is active [35]
[36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46]
Underfull \vbox (badness 6708) has occurred while \output is active [47]
[48] [49]
Underfull \vbox (badness 4072) has occurred while \output is active [50]
[51]
Underfull \vbox (badness 10000) has occurred while \output is active [52]
[53]
Underfull \vbox (badness 10000) has occurred while \output is active [54]
[55] [56] [57] [58] [59] [60] [61]
Underfull \vbox (badness 10000) has occurred while \output is active [62]
[63] [64]
Underfull \vbox (badness 10000) has occurred while \output is active [65]
Underfull \vbox (badness 10000) has occurred while \output is active [66]
[67]
Overfull \vbox (104.49998pt too high) has occurred while \output is active
[68] [69]
Underfull \vbox (badness 10000) has occurred while \output is active [70]
[71] [72] [73]
Underfull \vbox (badness 3514) has occurred while \output is active [74]
Underfull \vbox (badness 10000) has occurred while \output is active [75]
[76] [77] [78]
Underfull \vbox (badness 4913) has occurred while \output is active [79]
Underfull \vbox (badness 2547) has occurred while \output is active [80]
Underfull \vbox (badness 10000) has occurred while \output is active [81]

Package hyperref Warning: Token not allowed in a PDF string (PDFDocEncoding):
(hyperref)                removing `math shift' on input line 5315.


Package hyperref Warning: Token not allowed in a PDF string (PDFDocEncoding):
(hyperref)                removing `math shift' on input line 5315.

[82] [83]
Underfull \vbox (badness 4673) has occurred while \output is active [84]
Underfull \vbox (badness 7116) has occurred while \output is active [85]
[86] [87] [88] [89]
Overfull \hbox (1.241pt too wide) in paragraph at lines 5638--5642
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 5644--5649
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 5655--5659
 []$ 
[90] [91] [92] [93] [94] [95] [96] [97] [98]
Underfull \vbox (badness 10000) has occurred while \output is active [99]
Underfull \vbox (badness 10000) has occurred while \output is active [100]
Underfull \vbox (badness 10000) has occurred while \output is active [101]
Underfull \vbox (badness 10000) has occurred while \output is active [102]
[103]
Underfull \vbox (badness 10000) has occurred while \output is active [104]
[105] [106] [107] [108]
Underfull \vbox (badness 10000) has occurred while \output is active [109]
[110] [111] [112] [113]
Underfull \vbox (badness 4792) has occurred while \output is active [114]
[115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125]
Underfull \vbox (badness 8038) has occurred while \output is active [126]
[127] [128] [129] [130] [131] [132] [133] [134] [135]
Underfull \vbox (badness 10000) has occurred while \output is active [136]
[137] [138] [139] [140]
Underfull \vbox (badness 1360) has occurred while \output is active [141]
[142]
Underfull \vbox (badness 10000) has occurred while \output is active [143]
Underfull \vbox (badness 10000) has occurred while \output is active [144]
Underfull \vbox (badness 7851) has occurred while \output is active [145]
[146]
Underfull \vbox (badness 10000) has occurred while \output is active [147]
Underfull \vbox (badness 10000) has occurred while \output is active [148]
[149]
Overfull \hbox (1.241pt too wide) in paragraph at lines 9292--9297
 []$ 

Overfull \hbox (1.241pt too wide) in paragraph at lines 9299--9306
 []$ 
[150] [151]
Underfull \vbox (badness 10000) has occurred while \output is active [152]
[153] [154] [155] [156] [157] [158] [159] [160]
Underfull \vbox (badness 10000) has occurred while \output is active [161]
[162] [163] [164]
Underfull \vbox (badness 10000) has occurred while \output is active [165]
[166] [167] [168] [169] [170] [171]

LaTeX Font Warning: Font shape `OT1/cmss/m/sc' in size <10> not available
(Font)              Font shape `OT1/cmr/m/sc' tried instead on input line 10429
.

[172] [173]

LaTeX Font Warning: Font shape `OMS/cmss/m/n' undefined
(Font)              using `OMS/cmsy/m/n' instead
(Font)              for symbol `textbraceleft' on input line 10475.

[174] [175] [176] [177] [178]
Overfull \hbox (81.48405pt too wide) in paragraph at lines 10834--10891
[] []

Underfull \hbox (badness 10000) in paragraph at lines 10834--10891


Underfull \vbox (badness 10000) has occurred while \output is active [179]
[180]
bibitemlist
[181] (./manual.ind [182] [183] [184] [185] [186]) (./lines.ind) (./manual.aux)

LaTeX Font Warning: Some font shapes were not available, defaults substituted.

 )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbsy10.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cmextra/cmbsy9.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmbx10.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fonts/type1/pu
blic/amsfonts/cm/cmbx9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmcsc10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfont
s/cm/cmitt10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/
cmmi10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi6.
pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi7.pfb></u
sr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi9.pfb></usr/shar
e/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb></usr/share/texli
ve/texmf-dist/fonts/type1/public/amsfonts/cm/cmr12.pfb></usr/share/texlive/texm
f-dist/fonts/type1/public/amsfonts/cm/cmr6.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/typ
e1/public/amsfonts/cm/cmr8.pfb></usr/share/texlive/texmf-dist/fonts/type1/publi
c/amsfonts/cm/cmr9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfon
ts/cm/cmsl10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/
cmss10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss12
.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss17.pfb><
/usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss8.pfb></usr/sh
are/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss9.pfb></usr/share/tex
live/texmf-dist/fonts/type1/public/amsfonts/cm/cmssbx10.pfb></usr/share/texlive
/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr/share/texlive/texmf
-dist/fonts/type1/public/amsfonts/cm/cmsy6.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cm/cmsy7.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmsy9.pfb></usr/share/texlive/texmf-dist/fonts/type1/pub
lic/amsfonts/cm/cmti10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmti8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/
cm/cmti9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt
10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt8.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on manual.pdf (194 pages, 870371 bytes).
Transcript written on manual.log.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
make -C doc/RefCard interp.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/RefCard'
pdftex interp.tex
This is pdfTeX, Version 3.14159265-2.6-1.40.16 (TeX Live 2015/Debian) (preloaded format=pdftex)
 restricted \write18 enabled.
entering extended mode
(./interp.tex
Overfull \hbox (24.24734pt too wide) in alignment at lines 237--302
[] [] [] 
[1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}]
Overfull \hbox (2.21309pt too wide) in alignment at lines 346--355
[] [] 

Overfull \hbox (18.64302pt too wide) in alignment at lines 386--392
[] [] 
[2]
Overfull \hbox (1.94713pt too wide) in alignment at lines 602--608
[] [] 
[3]
Overfull \hbox (23.4056pt too wide) in alignment at lines 620--627
[] [] 
[4] )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbx10.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmbx8.pfb></usr/share/texlive/texmf-dist/fonts/typ
e1/public/amsfonts/cm/cmmi8.pfb></usr/share/texlive/texmf-dist/fonts/type1/publ
ic/amsfonts/cm/cmr8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfo
nts/cm/cmss10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm
/cmss8.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy8.
pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti8.pfb></u
sr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt8.pfb>
Output written on interp.pdf (4 pages, 120782 bytes).
Transcript written on interp.log.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/RefCard'
make -C doc/RefCard syntax.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/RefCard'
xelatex syntax
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./syntax.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/base/article.cls
Document Class: article 2014/09/29 v1.4h Standard LaTeX document class
(/usr/share/texlive/texmf-dist/tex/latex/base/size10.clo))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty))

Package hyperref Message: Driver (autodetected): hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
Style option: `fancybox' v1.4 <2010/05/15> (tvz)
) (/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
No file syntax.aux.
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))

Package hyperref Warning: Rerun to get /PageLabels entry.

(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)

LaTeX Warning: Reference `sec:selfterminating' on page 1 undefined on input lin
e 103.


LaTeX Warning: Reference `sec:module-decl' on page 1 undefined on input line 11
2.


LaTeX Warning: Reference `sec:view-decl' on page 1 undefined on input line 113.


LaTeX Warning: Reference `sec:eval' on page 1 undefined on input line 114.

*************************************************
* fontspec warning: "icu-feature-not-exist-in-font"
* 
* OpenType feature 'VerticalPosition=Superior' (+sups) not available for font
* 'FreeSerif/I' with script 'Latin' and language 'Default'.
*************************************************
*************************************************
* fontspec warning: "icu-feature-not-exist-in-font"
* 
* OpenType feature 'VerticalPosition=Superior' (+sups) not available for font
* 'FreeSerif/BI' with script 'Latin' and language 'Default'.
*************************************************

LaTeX Warning: Reference `sec:identifier' on page 1 undefined on input line 127
.


LaTeX Warning: Reference `sec:modexpr' on page 1 undefined on input line 133.


LaTeX Warning: Reference `sec:comments' on page 1 undefined on input line 142.


LaTeX Warning: Reference `sec:lex' on page 1 undefined on input line 152.


LaTeX Warning: Reference `sec:opsymbol' on page 1 undefined on input line 169.

[1] [2] [3] [4] [5]

LaTeX Warning: Reference `sec:selfterminating' on page 6 undefined on input lin
e 463.


LaTeX Warning: Reference `sec:cafeobj-syntax' on page 6 undefined on input line
 514.

[6] (./syntax.aux)

LaTeX Warning: There were undefined references.


LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right.

 )
Output written on syntax.pdf (6 pages).
Transcript written on syntax.log.
xelatex syntax
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./syntax.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/base/article.cls
Document Class: article 2014/09/29 v1.4h Standard LaTeX document class
(/usr/share/texlive/texmf-dist/tex/latex/base/size10.clo))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty))

Package hyperref Message: Driver (autodetected): hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
Style option: `fancybox' v1.4 <2010/05/15> (tvz)
) (/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty)) (./syntax.aux)
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
(./syntax.out) (./syntax.out) (./syntax.toc)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
[1]
*************************************************
* fontspec warning: "icu-feature-not-exist-in-font"
* 
* OpenType feature 'VerticalPosition=Superior' (+sups) not available for font
* 'FreeSerif/I' with script 'Latin' and language 'Default'.
*************************************************
*************************************************
* fontspec warning: "icu-feature-not-exist-in-font"
* 
* OpenType feature 'VerticalPosition=Superior' (+sups) not available for font
* 'FreeSerif/BI' with script 'Latin' and language 'Default'.
*************************************************
[2] [3] [4] [5] [6] (./syntax.aux)

LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right.

 )
Output written on syntax.pdf (6 pages).
Transcript written on syntax.log.
xelatex syntax
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./syntax.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/base/article.cls
Document Class: article 2014/09/29 v1.4h Standard LaTeX document class
(/usr/share/texlive/texmf-dist/tex/latex/base/size10.clo))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty))

Package hyperref Message: Driver (autodetected): hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
Style option: `fancybox' v1.4 <2010/05/15> (tvz)
) (/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty)) (./syntax.aux)
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
(./syntax.out) (./syntax.out) (./syntax.toc)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
[1]
*************************************************
* fontspec warning: "icu-feature-not-exist-in-font"
* 
* OpenType feature 'VerticalPosition=Superior' (+sups) not available for font
* 'FreeSerif/I' with script 'Latin' and language 'Default'.
*************************************************
*************************************************
* fontspec warning: "icu-feature-not-exist-in-font"
* 
* OpenType feature 'VerticalPosition=Superior' (+sups) not available for font
* 'FreeSerif/BI' with script 'Latin' and language 'Default'.
*************************************************
[2] [3] [4] [5] [6] (./syntax.aux) )
Output written on syntax.pdf (6 pages).
Transcript written on syntax.log.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/RefCard'
make -C doc/PigNose pnguide.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/PigNose'
xelatex pnguide
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./pnguide.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))) (./proof.sty)
 (/usr/share/texlive/texmf-dist/tex/latex/fancyvrb/fancyvrb.sty
Style option: `fancyvrb' v2.7a, with DG/SPQR fixes, and firstline=lastline fix 
<2008/02/07> (tvz))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd)))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
(/usr/share/texlive/texmf-dist/tex/latex/tools/indentfirst.sty)
(/usr/share/texlive/texmf-dist/tex/latex/tools/hhline.sty)
(/usr/share/texlive/texmf-dist/tex/latex/colortbl/colortbl.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/color.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver (autodetected): hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
No file pnguide.aux.
(/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label

Package hyperref Warning: Rerun to get /PageLabels entry.


LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/it' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 87.

<use  "pignose.pdf" >
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
[1]

LaTeX Warning: Reference `sec:distribution' on page ii undefined on input line 
98.


LaTeX Warning: Citation `CafeRep' on page ii undefined on input line 108.

[2] [3] (./part1.tex

LaTeX Warning: Citation `chang-lee' on page 1 undefined on input line 33.


LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/sc' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 39.


LaTeX Warning: Citation `otter' on page 1 undefined on input line 39.

) [1] (./part2.tex

LaTeX Warning: Reference `tab:platform' on page 2 undefined on input line 26.

[2] [3] [4] [5]

LaTeX Warning: Citation `cafeobj' on page 6 undefined on input line 367.


LaTeX Warning: Citation `CafeRep' on page 6 undefined on input line 368.

[6]) [7] (./part3.tex

LaTeX Warning: Reference `sec:resolution-principle' on page 8 undefined on inpu
t line 7.


LaTeX Warning: Citation `chang-lee' on page 8 undefined on input line 8.


LaTeX Warning: Reference `sec:desc-resolution' on page 8 undefined on input lin
e 9.


LaTeX Warning: Citation `chang-lee' on page 8 undefined on input line 28.


LaTeX Warning: Reference `sec:paramod' on page 8 undefined on input line 29.


LaTeX Warning: Reference `sec:binary-res' on page 8 undefined on input line 32.


LaTeX Warning: Reference `sec:hyper-res' on page 8 undefined on input line 33.


LaTeX Warning: Reference `sec:demod' on page 8 undefined on input line 35.


LaTeX Warning: Reference `sec:infer-process' on page 8 undefined on input line 
40.


LaTeX Warning: Reference `sec:builtin-fopl-clause' on page 8 undefined on input
 line 50.


LaTeX Warning: Reference `sec:fopl-syntax' on page 8 undefined on input line 51
.

[8]

LaTeX Warning: Reference `tab:builtin-pred' on page 9 undefined on input line 1
01.

[9]

LaTeX Warning: Reference `tab:builtin-pred' on page 10 undefined on input line 
136.


LaTeX Warning: Reference `sec:fopl-syntax' on page 10 undefined on input line 1
68.

[10]

LaTeX Warning: Reference `sec:demod' on page 11 undefined on input line 192.


LaTeX Warning: Reference `sec:bool-mod' on page 11 undefined on input line 198.


LaTeX Warning: Reference `sec:fopl-loading' on page 11 undefined on input line 
231.

[11]

LaTeX Warning: Reference `sec:new-construct' on page 12 undefined on input line
 247.


LaTeX Warning: Reference `tab:builtin-pred' on page 12 undefined on input line 
275.

[12] [13] [14] [15]

LaTeX Warning: Reference `sec:pn-flag' on page 16 undefined on input line 516.


LaTeX Warning: Reference `sec:option-parameters' on page 16 undefined on input 
line 531.


LaTeX Warning: Reference `sec:init-options' on page 16 undefined on input line 
546.


LaTeX Warning: Reference `sec:init-options' on page 16 undefined on input line 
563.

[16] [17]

LaTeX Warning: Reference `sec:lex-command' on page 18 undefined on input line 7
18.

[18] [19]
Overfull \vbox (36.36607pt too high) has occurred while \output is active
[20] [21]

LaTeX Warning: Reference `sec:proof-tree' on page 22 undefined on input line 87
7.

[22]

LaTeX Warning: Reference `sec:proof-tree' on page 23 undefined on input line 93
7.


LaTeX Warning: Citation `otter' on page 23 undefined on input line 964.


LaTeX Warning: Citation `chang-lee' on page 23 undefined on input line 966.


LaTeX Warning: Citation `chang-lee' on page 23 undefined on input line 987.

[23] [24]

LaTeX Warning: Reference `sec:loop-flags' on page 25 undefined on input line 10
97.


LaTeX Warning: Reference `sec:auto-mode' on page 25 undefined on input line 111
8.


LaTeX Warning: Reference `sec:inf-flags' on page 25 undefined on input line 112
1.

[25]

LaTeX Warning: Reference `sec:new-commands' on page 26 undefined on input line 
1169.


LaTeX Warning: Reference `sec:pn-flag' on page 26 undefined on input line 1171.


LaTeX Warning: Reference `sec:option-parameters' on page 26 undefined on input 
line 1171.


LaTeX Warning: Reference `sec:new-commands' on page 26 undefined on input line 
1186.

[26] [27]

LaTeX Warning: Reference `sec:misc-params' on page 28 undefined on input line 1
256.


LaTeX Warning: Reference `sec:auto-mode' on page 28 undefined on input line 127
5.


LaTeX Warning: Reference `sec:auto-mode' on page 28 undefined on input line 127
8.

[28] [29]

LaTeX Warning: Reference `sec:orient' on page 30 undefined on input line 1421.


LaTeX Warning: Reference `sec:orient-lrpo' on page 30 undefined on input line 1
422.

[30]

LaTeX Warning: Reference `sec:dynamic' on page 31 undefined on input line 1442.


LaTeX Warning: Reference `sec:dynamic-lrpo' on page 31 undefined on input line 
1442.


LaTeX Warning: Reference `sec:dynamic' on page 31 undefined on input line 1448.


LaTeX Warning: Reference `sec:dynamic' on page 31 undefined on input line 1456.


LaTeX Warning: Reference `sec:dynamic-lrpo' on page 31 undefined on input line 
1456.


LaTeX Warning: Reference `sec:lrpo' on page 31 undefined on input line 1488.

[31]

LaTeX Warning: Reference `sec:lex-order' on page 32 undefined on input line 150
2.


LaTeX Warning: Reference `sec:main-loop' on page 32 undefined on input line 151
9.


LaTeX Warning: Reference `sec:output-flags' on page 32 undefined on input line 
1530.

[32] [33] [34]

LaTeX Warning: Reference `sec:eq-flags' on page 35 undefined on input line 1726
.


Overfull \hbox (20.54579pt too wide) in paragraph at lines 1738--1771
[][] 
[35]

LaTeX Warning: Reference `sec:print-clause' on page 36 undefined on input line 
1794.

[36] [37] [38] [39]

LaTeX Warning: Reference `sec:lex-dep' on page 40 undefined on input line 2007.


LaTeX Warning: Reference `sec:dynamic' on page 40 undefined on input line 2017.


LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/bx/sc' undefined
(Font)              using `EU1/M+2pregular(0)/bx/n' instead on input line 2025.


[40] [41]) [42] (./part4.tex

LaTeX Warning: Reference `sec:model-check' on page 43 undefined on input line 5
4.

[43] [44] [45] [46]

LaTeX Warning: Reference `sec:sigmatch-example' on page 47 undefined on input l
ine 255.

[47] [48] [49]) [50] (./part5.tex [51] [52] [53] [54] [55] [56] [57]
Overfull \vbox (51.766pt too high) has occurred while \output is active
[58]) [59] (./appendix.tex [60]

LaTeX Warning: Reference `sec:system-init' on page 61 undefined on input line 6
3.


LaTeX Warning: Reference `sec:infer' on page 61 undefined on input line 76.


LaTeX Warning: Reference `sec:post-process' on page 61 undefined on input line 
76.


LaTeX Warning: Reference `sec:ending-process' on page 61 undefined on input lin
e 78.

[61]

LaTeX Warning: Reference `sec:pre-process' on page 62 undefined on input line 1
14.


LaTeX Warning: Reference `sec:post-process' on page 62 undefined on input line 
115.


LaTeX Warning: Reference `sec:pn-control-memory' on page 62 undefined on input 
line 127.


LaTeX Warning: Reference `sec:binary-res' on page 62 undefined on input line 13
6.


LaTeX Warning: Reference `sec:post-process' on page 62 undefined on input line 
138.


LaTeX Warning: Reference `sec:hyper-res' on page 62 undefined on input line 144
.


LaTeX Warning: Reference `sec:neg-hyper-res' on page 62 undefined on input line
 152.


LaTeX Warning: Reference `sec:paramod' on page 62 undefined on input line 162.

[62]

LaTeX Warning: Reference `sec:paramod' on page 63 undefined on input line 171.


LaTeX Warning: Reference `sec:proc-gen' on page 63 undefined on input line 201.


LaTeX Warning: Reference `sec:dynamic-demodulator' on page 63 undefined on inpu
t line 209.

[63]

LaTeX Warning: Reference `sec:orient-lrpo' on page 64 undefined on input line 2
42.


LaTeX Warning: Reference `sec:orient' on page 64 undefined on input line 244.


LaTeX Warning: Reference `sec:unit-deletion' on page 64 undefined on input line
 250.


LaTeX Warning: Reference `sec:factor-simplify' on page 64 undefined on input li
ne 255.


LaTeX Warning: Reference `sec:cl-tautology?' on page 64 undefined on input line
 261.


LaTeX Warning: Reference `sec:forward-subsume' on page 64 undefined on input li
ne 274.

[64]

LaTeX Warning: Reference `sec:pre-process' on page 65 undefined on input line 3
25.


LaTeX Warning: Reference `sec:pre-process' on page 65 undefined on input line 3
54.


LaTeX Warning: Reference `sec:back-demodulate' on page 65 undefined on input li
ne 363.

[65]

LaTeX Warning: Reference `sec:back-subsume' on page 66 undefined on input line 
367.


LaTeX Warning: Reference `sec:back-unit-deletion' on page 66 undefined on input
 line 379.

[66]

LaTeX Warning: Reference `sec:unit-conflict' on page 67 undefined on input line
 431.

[67]

LaTeX Warning: Reference `fig:binary-res' on page 68 undefined on input line 47
6.


LaTeX Warning: Citation `chang-lee' on page 68 undefined on input line 518.

[68]

LaTeX Warning: Citation `chang-lee' on page 69 undefined on input line 521.

[69]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/sl' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 618.

[70]

LaTeX Warning: Reference `fig:hyper-res' on page 71 undefined on input line 645
.

<use  "hyper-res.pdf" > [71]

LaTeX Warning: Reference `fig:paramod-rule' on page 72 undefined on input line 
686.

[72]

LaTeX Warning: Reference `sec:pre-process' on page 73 undefined on input line 7
91.

) [73] [74]
bibitemlist
[75] (./pnguide.aux (./part1.aux) (./part2.aux) (./part3.aux) (./part4.aux)
(./part5.aux) (./appendix.aux))

LaTeX Font Warning: Some font shapes were not available, defaults substituted.


LaTeX Warning: There were undefined references.


LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right.

 )
(see the transcript file for additional information)
Output written on pnguide.pdf (78 pages).
Transcript written on pnguide.log.
xelatex pnguide
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./pnguide.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))) (./proof.sty)
 (/usr/share/texlive/texmf-dist/tex/latex/fancyvrb/fancyvrb.sty
Style option: `fancyvrb' v2.7a, with DG/SPQR fixes, and firstline=lastline fix 
<2008/02/07> (tvz))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd)))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
(/usr/share/texlive/texmf-dist/tex/latex/tools/indentfirst.sty)
(/usr/share/texlive/texmf-dist/tex/latex/tools/hhline.sty)
(/usr/share/texlive/texmf-dist/tex/latex/colortbl/colortbl.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/color.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver (autodetected): hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(./pnguide.aux (./part1.aux) (./part2.aux) (./part3.aux) (./part4.aux)
(./part5.aux) (./appendix.aux)) (/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(./pnguide.out) (./pnguide.out)

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/it' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 87.

<use  "pignose.pdf" >
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
[1] [2] (./pnguide.toc [3] [4]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/sc' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 76.

[5]) [6] (./part1.tex) [1] (./part2.tex [2] [3] [4] [5] [6]) [7] (./part3.tex
[8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19]
Overfull \vbox (36.36607pt too high) has occurred while \output is active
[20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34]
Overfull \hbox (20.54579pt too wide) in paragraph at lines 1738--1771
[][] 
[35] [36] [37] [38] [39]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/bx/sc' undefined
(Font)              using `EU1/M+2pregular(0)/bx/n' instead on input line 2025.


[40] [41]) [42] (./part4.tex [43] [44] [45] [46] [47] [48] [49]) [50]
(./part5.tex [51] [52] [53] [54] [55] [56] [57]
Overfull \vbox (51.766pt too high) has occurred while \output is active
[58]) [59] (./appendix.tex [60] [61] [62] [63] [64] [65] [66] [67] [68]
[69]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/sl' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 618.

[70] <use  "hyper-res.pdf" > [71] [72]) [73] [74]
bibitemlist
[75] (./pnguide.aux (./part1.aux) (./part2.aux) (./part3.aux) (./part4.aux)
(./part5.aux) (./appendix.aux))

LaTeX Font Warning: Some font shapes were not available, defaults substituted.

 )
(see the transcript file for additional information)
Output written on pnguide.pdf (81 pages).
Transcript written on pnguide.log.
xelatex pnguide
This is XeTeX, Version 3.14159265-2.6-0.99992 (TeX Live 2015/Debian) (preloaded format=xelatex)
 restricted \write18 enabled.
entering extended mode
(./pnguide.tex
LaTeX2e <2015/01/01>
Babel <3.9l> and hyphenation patterns for 2 languages loaded.
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memoir.cls
Document Class: memoir 2015/04/23 v3.7d configurable book, report, article docu
ment class
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty)
(/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/etex-pkg/etex.sty)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mem10.clo)
(/usr/share/texlive/texmf-dist/tex/latex/memoir/mempatch.sty))
(/usr/share/texlive/texmf-dist/tex/latex/geometry/geometry.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/ifvtex.sty))
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/graphics.cfg)
(/usr/share/texlive/texmf-dist/tex/xelatex/xetex-def/xetex.def))) (./proof.sty)
 (/usr/share/texlive/texmf-dist/tex/latex/fancyvrb/fancyvrb.sty
Style option: `fancyvrb' v2.7a, with DG/SPQR fixes, and firstline=lastline fix 
<2008/02/07> (tvz))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3unicode-data.def)
(/usr/share/texlive/texmf-dist/tex/latex/l3kernel/l3xdvipdfmx.def))
(/usr/share/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-patches.sty)
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec-xetex.sty
(/usr/share/texlive/texmf-dist/tex/latex/base/fontenc.sty
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmr.fd))
(/usr/share/texlive/texmf-dist/tex/xelatex/xunicode/xunicode.sty
(/usr/share/texmf/tex/latex/tipa/t3enc.def
(/usr/share/texlive/texmf-dist/tex/latex/euenc/eu1lmss.fd)))
(/usr/share/texlive/texmf-dist/tex/latex/fontspec/fontspec.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xltxtra/xltxtra.sty
(/usr/share/texlive/texmf-dist/tex/latex/realscripts/realscripts.sty)
(/usr/share/texlive/texmf-dist/tex/latex/metalogo/metalogo.sty))
(/usr/share/texlive/texmf-dist/tex/latex/tools/indentfirst.sty)
(/usr/share/texlive/texmf-dist/tex/latex/tools/hhline.sty)
(/usr/share/texlive/texmf-dist/tex/latex/colortbl/colortbl.sty
(/usr/share/texlive/texmf-dist/tex/latex/graphics/color.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg)))
(/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/color.cfg))
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty))
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty)
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def)
(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg)
(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty))
(/usr/share/texlive/texmf-dist/tex/latex/memoir/memhfixc.sty)

Package hyperref Message: Driver (autodetected): hxetex.

(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hxetex.def
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/puenc.def)
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/stringenc.sty)
(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty))
(./pnguide.aux (./part1.aux) (./part2.aux) (./part3.aux) (./part4.aux)
(./part5.aux) (./appendix.aux)) (/usr/share/texmf/tex/latex/tipa/t3cmr.fd)
*geometry* driver: auto-detecting
*geometry* detected driver: xetex
(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty))
Redoing nameref's sectioning
Redoing nameref's label
(./pnguide.out) (./pnguide.out)

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/it' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 87.

<use  "pignose.pdf" >
(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/se-ascii-print.def)
[1] [2] (./pnguide.toc [3] [4]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/sc' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 76.

[5]) [6] (./part1.tex) [1] (./part2.tex [2] [3] [4] [5] [6]) [7] (./part3.tex
[8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19]
Overfull \vbox (36.36607pt too high) has occurred while \output is active
[20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34]
Overfull \hbox (20.54579pt too wide) in paragraph at lines 1738--1771
[][] 
[35] [36] [37] [38] [39]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/bx/sc' undefined
(Font)              using `EU1/M+2pregular(0)/bx/n' instead on input line 2025.


[40] [41]) [42] (./part4.tex [43] [44] [45] [46] [47] [48] [49]) [50]
(./part5.tex [51] [52] [53] [54] [55] [56] [57]
Overfull \vbox (51.766pt too high) has occurred while \output is active
[58]) [59] (./appendix.tex [60] [61] [62] [63] [64] [65] [66] [67] [68]
[69]

LaTeX Font Warning: Font shape `EU1/M+2pregular(0)/m/sl' undefined
(Font)              using `EU1/M+2pregular(0)/m/n' instead on input line 618.

[70] <use  "hyper-res.pdf" > [71] [72]) [73] [74]
bibitemlist
[75] (./pnguide.aux (./part1.aux) (./part2.aux) (./part3.aux) (./part4.aux)
(./part5.aux) (./appendix.aux))

LaTeX Font Warning: Some font shapes were not available, defaults substituted.

 )
(see the transcript file for additional information)
Output written on pnguide.pdf (81 pages).
Transcript written on pnguide.log.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/PigNose'
make -C doc/citp-manual citp.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/citp-manual'
make[2]: 'citp.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/citp-manual'
touch build-stamp
make[1]: Leaving directory '/«PKGBUILDDIR»'
 fakeroot debian/rules binary
dh_testdir
dh_testroot
dh_prep
DESTDIR=/«PKGBUILDDIR»/debian/cafeobj /usr/bin/make install
make[1]: Entering directory '/«PKGBUILDDIR»'
/usr/bin/make -C doc/refman reference-manual.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/refman'
make[2]: 'reference-manual.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/refman'
/usr/bin/make -C doc/manual manual.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/manual'
make[2]: 'manual.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
/usr/bin/make -C doc/RefCard interp.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/RefCard'
make[2]: 'interp.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/RefCard'
/usr/bin/make -C doc/RefCard syntax.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/RefCard'
make[2]: 'syntax.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/RefCard'
/usr/bin/make -C doc/PigNose pnguide.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/PigNose'
make[2]: 'pnguide.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/PigNose'
/usr/bin/make -C doc/citp-manual citp.pdf
make[2]: Entering directory '/«PKGBUILDDIR»/doc/citp-manual'
make[2]: 'citp.pdf' is up to date.
make[2]: Leaving directory '/«PKGBUILDDIR»/doc/citp-manual'
touch build-stamp
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/share/cafeobj-1.5/lib
/usr/bin/install -c -m 0644 		\
		./lib/lib/*.cafe	\
		/«PKGBUILDDIR»/debian/cafeobj/usr/share/cafeobj-1.5/lib
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/share/cafeobj-1.5/prelude
/usr/bin/install -c -m 0644 ./lib/prelude/*.bin 	\
		/«PKGBUILDDIR»/debian/cafeobj/usr/share/cafeobj-1.5/prelude
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/lib/cafeobj-1.5/
cp -a dumps/* /«PKGBUILDDIR»/debian/cafeobj/usr/lib/cafeobj-1.5/
chmod 0755 /«PKGBUILDDIR»/debian/cafeobj/usr/lib/cafeobj-1.5//*/*
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/bin
/usr/bin/install -c -m 0755 xbin/cafeobj /«PKGBUILDDIR»/debian/cafeobj/usr/bin
# man page
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/share/man/man1
/usr/bin/install -c -m 0644 doc/etc/cafeobj.1 /«PKGBUILDDIR»/debian/cafeobj/usr/share/man/man1
# doc files
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/share/doc/cafeobj
/usr/bin/install -c -m 0644 				\
	doc/manual/manual.pdf			\
	doc/PigNose/pnguide.pdf			\
	doc/RefCard/interp.pdf			\
	doc/RefCard/syntax.pdf			\
	doc/refman/reference-manual.pdf		\
	doc/citp-manual/citp.pdf		\
	doc/etc/cafe-citp.txt			\
	elisp/cafeobj-mode.el			\
	lib/icons/cafeobj-logo.png		\
	lib/icons/cafeobj-logo-small.png		\
	/«PKGBUILDDIR»/debian/cafeobj/usr/share/doc/cafeobj
/usr/bin/install -c -d /«PKGBUILDDIR»/debian/cafeobj/usr/share/doc/cafeobj/examples
/usr/bin/install -c -m 0644 doc/examples/*.mod 		\
	/«PKGBUILDDIR»/debian/cafeobj/usr/share/doc/cafeobj/examples
touch install-stamp
make[1]: Leaving directory '/«PKGBUILDDIR»'
# cafeobj-mode package
mkdir -p /«PKGBUILDDIR»/debian/cafeobj-mode/usr/share/emacs/site-lisp
cp elisp/cafeobj-mode.el /«PKGBUILDDIR»/debian/cafeobj-mode/usr/share/emacs/site-lisp
touch install-stamp
dh_testdir
dh_testroot
dh_installdocs README.md
dh_installchangelogs
dh_installemacsen -pcafeobj-mode
# do NOT strip otherwise the sbcl dump file is broken!
#dh_strip
dh_compress -X.pdf
dh_fixperms
dh_installdeb
dh_shlibdeps
dh_gencontrol
dpkg-gencontrol: warning: File::FcntlLock not available; using flock which is not NFS-safe
dpkg-gencontrol: warning: File::FcntlLock not available; using flock which is not NFS-safe
dh_gencontrol debug symbol wrapper: all non-arch-all packages for this build platform amd64: cafeobj 
dh_gencontrol debug symbol wrapper: packages to act on: cafeobj 
dh_gencontrol debug symbol wrapper: ignored packages: 
dh_gencontrol debug symbol wrapper: no debian/cafeobj-dbgsym, skipping package cafeobj
dh_md5sums
dh_builddeb
INFO: pkgstriptranslations version 122
pkgstriptranslations: processing cafeobj (in debian/cafeobj); do_strip: , oemstrip: 
pkgmaintainermangler: Maintainer field overridden to "Ubuntu Developers <ubuntu-devel-discuss@lists.ubuntu.com>"
pkgstripfiles: processing control file: debian/cafeobj/DEBIAN/control, package cafeobj, directory debian/cafeobj
** Processing: ./usr/share/doc/cafeobj/cafeobj-logo-small.png
205x100 pixels, 4x8 bits/pixel, RGB+alpha
Input IDAT size = 18119 bytes
Input file size = 18258 bytes

Trying:
  zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 15757
  zc = 9  zm = 8  zs = 1  f = 0  zc = 1  zm = 8  zs = 2  f = 0  zc = 9  zm = 8  zs = 3  f = 0  zc = 9  zm = 8  zs = 0  f = 1  zc = 9  zm = 8  zs = 1  f = 1  zc = 1  zm = 8  zs = 2  f = 1  zc = 9  zm = 8  zs = 3  f = 1  zc = 9  zm = 8  zs = 0  f = 2  zc = 9  zm = 8  zs = 1  f = 2  zc = 1  zm = 8  zs = 2  f = 2  zc = 9  zm = 8  zs = 3  f = 2  zc = 9  zm = 8  zs = 0  f = 3  zc = 9  zm = 8  zs = 1  f = 3  zc = 1  zm = 8  zs = 2  f = 3  zc = 9  zm = 8  zs = 3  f = 3  zc = 9  zm = 8  zs = 0  f = 4  zc = 9  zm = 8  zs = 1  f = 4  zc = 1  zm = 8  zs = 2  f = 4  zc = 9  zm = 8  zs = 3  f = 4  zc = 9  zm = 8  zs = 0  f = 5  zc = 9  zm = 8  zs = 1  f = 5  zc = 1  zm = 8  zs = 2  f = 5  zc = 9  zm = 8  zs = 3  f = 5                               
Selecting parameters:
  zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 15757

Output IDAT size = 15757 bytes (2362 bytes decrease)
Output file size = 15872 bytes (2386 bytes = 13.07% decrease)

       15872       14993  94% ./usr/share/doc/cafeobj/cafeobj-logo-small.png
       15872       14993  94%
** Processing: ./usr/share/doc/cafeobj/cafeobj-logo.png
1666x888 pixels, 4x8 bits/pixel, RGB+alpha
Input IDAT size = 199716 bytes
Input file size = 200119 bytes

Trying:
  zc = 9  zm = 8  zs = 0  f = 0  zc = 9  zm = 8  zs = 1  f = 0  zc = 1  zm = 8  zs = 2  f = 0  zc = 9  zm = 8  zs = 3  f = 0  zc = 9  zm = 8  zs = 0  f = 1		IDAT size = 194671
  zc = 9  zm = 8  zs = 1  f = 1  zc = 1  zm = 8  zs = 2  f = 1  zc = 9  zm = 8  zs = 3  f = 1  zc = 9  zm = 8  zs = 0  f = 2		IDAT size = 192547
  zc = 9  zm = 8  zs = 1  f = 2  zc = 1  zm = 8  zs = 2  f = 2  zc = 9  zm = 8  zs = 3  f = 2  zc = 9  zm = 8  zs = 0  f = 3  zc = 9  zm = 8  zs = 1  f = 3  zc = 1  zm = 8  zs = 2  f = 3  zc = 9  zm = 8  zs = 3  f = 3  zc = 9  zm = 8  zs = 0  f = 4  zc = 9  zm = 8  zs = 1  f = 4  zc = 1  zm = 8  zs = 2  f = 4  zc = 9  zm = 8  zs = 3  f = 4  zc = 9  zm = 8  zs = 0  f = 5  zc = 9  zm = 8  zs = 1  f = 5  zc = 1  zm = 8  zs = 2  f = 5  zc = 9  zm = 8  zs = 3  f = 5                               
Selecting parameters:
  zc = 9  zm = 8  zs = 0  f = 2		IDAT size = 192547

Output IDAT size = 192547 bytes (7169 bytes decrease)
Output file size = 192662 bytes (7457 bytes = 3.73% decrease)

      192662      192662 100% ./usr/share/doc/cafeobj/cafeobj-logo.png (Bigger 236539)
      192662      192662 100%
pkgstripfiles: PNG optimization for package cafeobj took 62 s
dpkg-deb: building package 'cafeobj' in '../cafeobj_1.5.4-2_amd64.deb'.
INFO: pkgstriptranslations version 122
pkgstriptranslations: processing cafeobj-mode (in debian/cafeobj-mode); do_strip: , oemstrip: 
pkgmaintainermangler: Maintainer field overridden to "Ubuntu Developers <ubuntu-devel-discuss@lists.ubuntu.com>"
pkgstripfiles: processing control file: debian/cafeobj-mode/DEBIAN/control, package cafeobj-mode, directory debian/cafeobj-mode
pkgstripfiles: PNG optimization for package cafeobj-mode took 0 s
dpkg-deb: building package 'cafeobj-mode' in '../cafeobj-mode_1.5.4-2_all.deb'.
 dpkg-genchanges -b -mLaunchpad Build Daemon <buildd@lgw01-53.buildd> >../cafeobj_1.5.4-2_amd64.changes
dpkg-genchanges: binary-only upload (no source code included)
 dpkg-source --after-build cafeobj-1.5.4
dpkg-buildpackage: binary-only upload (no source included)
────────────────────────────────────────────────────────────────────────────────
Build finished at 20151103-1721

Finished
────────

I: Built successfully

┌──────────────────────────────────────────────────────────────────────────────┐
│ Post Build Chroot                                                            │
└──────────────────────────────────────────────────────────────────────────────┘


┌──────────────────────────────────────────────────────────────────────────────┐
│ Changes                                                                      │
└──────────────────────────────────────────────────────────────────────────────┘


cafeobj_1.5.4-2_amd64.changes:
──────────────────────────────

Format: 1.8
Date: Mon, 02 Nov 2015 22:12:25 +0900
Source: cafeobj
Binary: cafeobj cafeobj-mode
Architecture: all amd64
Version: 1.5.4-2
Distribution: xenial-proposed
Urgency: medium
Maintainer: Launchpad Build Daemon <buildd@lgw01-53.buildd>
Changed-By: Norbert Preining <preining@debian.org>
Description:
 cafeobj    - new generation algebraic specification and programming language
 cafeobj-mode - Emacs major mode for editing scala source code
Changes:
 cafeobj (1.5.4-2) unstable; urgency=medium
 .
   * provide a separate cafeobj-mode package for the Emacs major mode
Checksums-Sha1:
 64401ffd28c1eda75214c8d08b26b409a227bc16 24020 cafeobj-mode_1.5.4-2_all.deb
 3051eff3bf00ef75f4449c16400fa249d7eb48b2 13453638 cafeobj_1.5.4-2_amd64.deb
Checksums-Sha256:
 4534517e11485dfb30d646e719a85631e854b25c242f209842dd242c8c4a2265 24020 cafeobj-mode_1.5.4-2_all.deb
 213e4f45d0dff9cc038502ebb17d6f720fc285ecd59d822eb2942b2441db1d34 13453638 cafeobj_1.5.4-2_amd64.deb
Files:
 26642afd877e66b65d932d17e717b6a1 24020 science optional cafeobj-mode_1.5.4-2_all.deb
 4a8adb26f1122c6d17d04408c7efb958 13453638 science optional cafeobj_1.5.4-2_amd64.deb

┌──────────────────────────────────────────────────────────────────────────────┐
│ Package contents                                                             │
└──────────────────────────────────────────────────────────────────────────────┘


cafeobj-mode_1.5.4-2_all.deb
────────────────────────────

 new debian package, version 2.0.
 size 24020 bytes: control archive=776 bytes.
      42 bytes,     1 lines      conffiles            
     663 bytes,    17 lines      control              
     314 bytes,     4 lines      md5sums              
 Package: cafeobj-mode
 Source: cafeobj
 Version: 1.5.4-2
 Architecture: all
 Maintainer: Ubuntu Developers <ubuntu-devel-discuss@lists.ubuntu.com>
 Original-Maintainer: Norbert Preining <preining@debian.org>
 Installed-Size: 118
 Depends: emacsen-common (>= 2.0.8)
 Recommends: cafeobj
 Section: science
 Priority: optional
 Homepage: http://www.cafeobj.org/
 Description: Emacs major mode for editing scala 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 2015-11-03 17:18 ./
drwxr-xr-x root/root         0 2015-11-03 17:18 ./etc/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./etc/emacs/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./etc/emacs/site-start.d/
-rw-r--r-- root/root       374 2015-11-02 13:12 ./etc/emacs/site-start.d/50cafeobj-mode.el
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/emacsen-common/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/emacsen-common/packages/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/emacsen-common/packages/compat/
-rw-r--r-- root/root         2 2015-11-02 13:12 ./usr/lib/emacsen-common/packages/compat/cafeobj-mode
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/doc/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/doc/cafeobj-mode/
-rw-r--r-- root/root       545 2015-11-02 13:12 ./usr/share/doc/cafeobj-mode/changelog.Debian.gz
-rw-r--r-- root/root      4876 2015-11-02 13:12 ./usr/share/doc/cafeobj-mode/copyright
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/emacs/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/emacs/site-lisp/
-rw-r--r-- root/root     96012 2015-11-03 17:18 ./usr/share/emacs/site-lisp/cafeobj-mode.el


cafeobj_1.5.4-2_amd64.deb
─────────────────────────

 new debian package, version 2.0.
 size 13453638 bytes: control archive=2742 bytes.
    1494 bytes,    31 lines      control              
    4452 bytes,    61 lines      md5sums              
 Package: cafeobj
 Version: 1.5.4-2
 Architecture: amd64
 Maintainer: Ubuntu Developers <ubuntu-devel-discuss@lists.ubuntu.com>
 Original-Maintainer: Norbert Preining <preining@debian.org>
 Installed-Size: 92342
 Depends: libc6 (>= 2.14), zlib1g (>= 1:1.1.4)
 Section: science
 Priority: optional
 Homepage: http://www.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 2015-11-03 17:18 ./
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/bin/
-rwxr-xr-x root/root      5442 2015-11-03 17:18 ./usr/bin/cafeobj
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/cafeobj-1.5/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/lib/cafeobj-1.5/sbcl/
-rwxr-xr-x root/root  92143664 2015-11-03 17:18 ./usr/lib/cafeobj-1.5/sbcl/cafeobj.sbcl
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/cafeobj-1.5/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/
-rw-r--r-- root/root      1785 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/2tuple.cafe
-rw-r--r-- root/root      1939 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/3tuple.cafe
-rw-r--r-- root/root      2103 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/4tuple.cafe
-rw-r--r-- root/root      2211 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/base_bool.cafe
-rw-r--r-- root/root      5561 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/bool.cafe
-rw-r--r-- root/root      3604 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/character.cafe
-rw-r--r-- root/root      2562 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/eql.cafe
-rw-r--r-- root/root      3506 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/float.cafe
-rw-r--r-- root/root     14031 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/fopl.cafe
-rw-r--r-- root/root      2994 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/identical.cafe
-rw-r--r-- root/root      2983 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/int.cafe
-rw-r--r-- root/root     15900 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/metalevel.cafe
-rw-r--r-- root/root      3032 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/nat.cafe
-rw-r--r-- root/root      4760 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/ntruth.cafe
-rw-r--r-- root/root      2769 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/nznat.cafe
-rw-r--r-- root/root      1635 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/qid.cafe
-rw-r--r-- root/root      2843 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/rat.cafe
-rw-r--r-- root/root     15349 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/rwl.cafe
-rw-r--r-- root/root      3497 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/string.cafe
-rw-r--r-- root/root      2407 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/sys_bool.cafe
-rw-r--r-- root/root      5287 2015-11-03 17:18 ./usr/share/cafeobj-1.5/lib/truth.cafe
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/cafeobj-1.5/prelude/
-rw-r--r-- root/root      2319 2015-11-03 17:18 ./usr/share/cafeobj-1.5/prelude/std.bin
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/doc/
drwxr-xr-x root/root         0 2015-11-03 17:19 ./usr/share/doc/cafeobj/
-rw-r--r-- root/root      2806 2015-10-19 06:02 ./usr/share/doc/cafeobj/README.md
-rw-r--r-- root/root      1591 2015-11-03 17:18 ./usr/share/doc/cafeobj/cafe-citp.txt.gz
-rw-r--r-- root/root     14993 2015-11-03 17:18 ./usr/share/doc/cafeobj/cafeobj-logo-small.png
-rw-r--r-- root/root    192662 2015-11-03 17:18 ./usr/share/doc/cafeobj/cafeobj-logo.png
-rw-r--r-- root/root     22649 2015-11-03 17:18 ./usr/share/doc/cafeobj/cafeobj-mode.el.gz
-rw-r--r-- root/root       545 2015-11-02 13:12 ./usr/share/doc/cafeobj/changelog.Debian.gz
-rw-r--r-- root/root    292043 2015-11-03 17:18 ./usr/share/doc/cafeobj/citp.pdf
-rw-r--r-- root/root      4876 2015-11-02 13:12 ./usr/share/doc/cafeobj/copyright
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/
-rw-r--r-- root/root      4634 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/atm.mod.gz
-rw-r--r-- root/root      3001 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/bag.mod
-rw-r--r-- root/root      1677 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/bank-account.mod.gz
-rw-r--r-- root/root      1628 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/blist.mod
-rw-r--r-- root/root      1476 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/bset.mod.gz
-rw-r--r-- root/root      2492 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/counter.mod
-rw-r--r-- root/root      1466 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/cws.mod.gz
-rw-r--r-- root/root      1529 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/debt-red.mod.gz
-rw-r--r-- root/root      1189 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/flag.mod
-rw-r--r-- root/root      3510 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/hss.mod
-rw-r--r-- root/root      1583 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/integer.mod
-rw-r--r-- root/root       958 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/list.mod
-rw-r--r-- root/root      1597 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/monoid.mod.gz
-rw-r--r-- root/root      1145 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/nat-omega.mod
-rw-r--r-- root/root      2407 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/nnat-hsa.mod
-rw-r--r-- root/root       569 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/nnat-rwl.mod
-rw-r--r-- root/root      1468 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/path.mod
-rw-r--r-- root/root      1578 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/sieve.mod
-rw-r--r-- root/root       738 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/simple-nat.mod
-rw-r--r-- root/root      1749 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/sorting.mod.gz
-rw-r--r-- root/root      3786 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/tel.mod
-rw-r--r-- root/root      1682 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/ubuffer.mod.gz
-rw-r--r-- root/root      1560 2015-11-03 17:18 ./usr/share/doc/cafeobj/examples/watch.mod.gz
-rw-r--r-- root/root    120782 2015-11-03 17:18 ./usr/share/doc/cafeobj/interp.pdf
-rw-r--r-- root/root    870371 2015-11-03 17:18 ./usr/share/doc/cafeobj/manual.pdf
-rw-r--r-- root/root    440556 2015-11-03 17:18 ./usr/share/doc/cafeobj/pnguide.pdf
-rw-r--r-- root/root    190281 2015-11-03 17:18 ./usr/share/doc/cafeobj/reference-manual.pdf
-rw-r--r-- root/root     51276 2015-11-03 17:18 ./usr/share/doc/cafeobj/syntax.pdf
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/man/
drwxr-xr-x root/root         0 2015-11-03 17:18 ./usr/share/man/man1/
-rw-r--r-- root/root      1420 2015-11-03 17:18 ./usr/share/man/man1/cafeobj.1.gz


┌──────────────────────────────────────────────────────────────────────────────┐
│ Post Build                                                                   │
└──────────────────────────────────────────────────────────────────────────────┘


┌──────────────────────────────────────────────────────────────────────────────┐
│ Cleanup                                                                      │
└──────────────────────────────────────────────────────────────────────────────┘

Not removing build depends: as requested
Keeping session: 

┌──────────────────────────────────────────────────────────────────────────────┐
│ Summary                                                                      │
└──────────────────────────────────────────────────────────────────────────────┘

Build Architecture: amd64
Build-Space: 225860
Build-Time: 217
Distribution: xenial-proposed
Host Architecture: amd64
Install-Time: 103
Job: cafeobj_1.5.4-2.dsc
Machine Architecture: amd64
Package: cafeobj
Package-Time: 322
Source-Version: 1.5.4-2
Space: 225860
Status: successful
Version: 1.5.4-2
────────────────────────────────────────────────────────────────────────────────
Finished at 20151103-1721
Build needed 00:05:22, 225860k disc space
RUN: /usr/share/launchpad-buildd/slavebin/scan-for-processes ['scan-for-processes', 'PACKAGEBUILD-8254940']
Scanning for processes to kill in build /home/buildd/build-PACKAGEBUILD-8254940/chroot-autobuild...
RUN: /usr/share/launchpad-buildd/slavebin/umount-chroot ['umount-chroot', 'PACKAGEBUILD-8254940']
Unmounting chroot for build PACKAGEBUILD-8254940...
RUN: /usr/share/launchpad-buildd/slavebin/remove-build ['remove-build', 'PACKAGEBUILD-8254940']
Removing build PACKAGEBUILD-8254940