Artifact cafeobj_1.6.0-2_arm64-2024-11-15T20:55:37Z

Metadata

bd_uninstallable: null
filename: cafeobj_1.6.0-2_arm64-2024-11-15T20:55:37Z.build
source: cafeobj
version: 1.6.0-2

File

cafeobj_1.6.0-2_arm64-2024-11-15T20:55:37Z.build

sbuild (Debian sbuild) 0.86.3~bpo12+1 (03 November 2024) on debusine-worker-arm64-demeter-07.freexian.com

+==============================================================================+
| cafeobj 1.6.0-2 (arm64)                      Fri, 15 Nov 2024 20:55:37 +0000 |
+==============================================================================+

Package: cafeobj
Version: 1.6.0-2
Source Version: 1.6.0-2
Distribution: sid
Machine Architecture: arm64
Host Architecture: arm64
Build Architecture: arm64
Build Type: binary

I: No tarballs found in /var/lib/debusine/worker/.cache/sbuild
Unpacking /var/lib/debusine/worker/system-images/957781/system.tar.xz to /tmp/tmp.sbuild._vCosON9bH...
I: NOTICE: Log filtering will replace 'sbuild-unshare-dummy-location' with '<<CHROOT>>'

+------------------------------------------------------------------------------+
| Chroot Setup Commands                                                        |
+------------------------------------------------------------------------------+


rm -f /etc/resolv.conf
----------------------


I: Finished running 'rm -f /etc/resolv.conf'.

Finished processing commands.
--------------------------------------------------------------------------------
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/dpkg-dbgsym_1.22.12~1.gbp82cafd_arm64.deb to /<<CHROOT>>...
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/dpkg_1.22.12~1.gbp82cafd_arm64.deb to /<<CHROOT>>...
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/dselect-dbgsym_1.22.12~1.gbp82cafd_arm64.deb to /<<CHROOT>>...
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/dselect_1.22.12~1.gbp82cafd_arm64.deb to /<<CHROOT>>...
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/libdpkg-dev_1.22.12~1.gbp82cafd_arm64.deb to /<<CHROOT>>...
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/dpkg-dev_1.22.12~1.gbp82cafd_all.deb to /<<CHROOT>>...
Copying /tmp/debusine-fetch-exec-upload-h19fspzq/libdpkg-perl_1.22.12~1.gbp82cafd_all.deb to /<<CHROOT>>...
I: NOTICE: Log filtering will replace 'build/cafeobj-ePk5eB/resolver-c8fX4J' with '<<RESOLVERDIR>>'

+------------------------------------------------------------------------------+
| Update chroot                                                                |
+------------------------------------------------------------------------------+

Get:1 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ InRelease
Ign:1 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ InRelease
Get:2 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ Release [606 B]
Get:2 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ Release [606 B]
Get:3 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ Release.gpg
Ign:3 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ Release.gpg
Get:4 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ Packages [9246 B]
Get:5 http://deb.debian.org/debian sid InRelease [202 kB]
Get:6 http://deb.debian.org/debian sid/main arm64 Packages [9951 kB]
Get:7 http://deb.debian.org/debian sid/main arm64 Components [4911 kB]
Fetched 15.1 MB in 2s (6388 kB/s)
Reading package lists...
Reading package lists...
Building dependency tree...
Reading state information...
Calculating upgrade...
The following packages will be upgraded:
  apt bsdextrautils bsdutils dpkg dpkg-dev libapt-pkg6.0t64 libaudit-common
  libaudit1 libblkid1 libbrotli1 libcap-ng0 libdpkg-perl libglib2.0-0t64
  libmount1 libpcre2-8-0 libseccomp2 libselinux1 libsemanage2 libsmartcols1
  libuuid1 libxml2 login mount util-linux
24 upgraded, 0 newly installed, 0 to remove and 0 not upgraded.
Need to get 7198 kB/10.7 MB of archives.
After this operation, 602 kB disk space will be freed.
Get:1 http://deb.debian.org/debian sid/main arm64 bsdutils arm64 1:2.40.2-11 [104 kB]
Get:2 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ dpkg 1.22.12~1.gbp82cafd [1513 kB]
Get:3 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ dpkg-dev 1.22.12~1.gbp82cafd [1337 kB]
Get:4 http://deb.debian.org/debian sid/main arm64 libapt-pkg6.0t64 arm64 2.9.11 [921 kB]
Get:5 file:/build/cafeobj-ePk5eB/resolver-nUKlLO/apt_archive ./ libdpkg-perl 1.22.12~1.gbp82cafd [647 kB]
Get:6 http://deb.debian.org/debian sid/main arm64 bsdextrautils arm64 2.40.2-11 [91.2 kB]
Get:7 http://deb.debian.org/debian sid/main arm64 libblkid1 arm64 2.40.2-11 [162 kB]
Get:8 http://deb.debian.org/debian sid/main arm64 libmount1 arm64 2.40.2-11 [190 kB]
Get:9 http://deb.debian.org/debian sid/main arm64 libsmartcols1 arm64 2.40.2-11 [135 kB]
Get:10 http://deb.debian.org/debian sid/main arm64 mount arm64 2.40.2-11 [153 kB]
Get:11 http://deb.debian.org/debian sid/main arm64 libuuid1 arm64 2.40.2-11 [35.7 kB]
Get:12 http://deb.debian.org/debian sid/main arm64 util-linux arm64 2.40.2-11 [1170 kB]
Get:13 http://deb.debian.org/debian sid/main arm64 libpcre2-8-0 arm64 10.44-2 [242 kB]
Get:14 http://deb.debian.org/debian sid/main arm64 libselinux1 arm64 3.7-3+b1 [72.1 kB]
Get:15 http://deb.debian.org/debian sid/main arm64 libseccomp2 arm64 2.5.5-1+b3 [46.8 kB]
Get:16 http://deb.debian.org/debian sid/main arm64 apt arm64 2.9.11 [1287 kB]
Get:17 http://deb.debian.org/debian sid/main arm64 libaudit-common all 1:4.0.2-2 [12.7 kB]
Get:18 http://deb.debian.org/debian sid/main arm64 libcap-ng0 arm64 0.8.5-3+b1 [17.0 kB]
Get:19 http://deb.debian.org/debian sid/main arm64 libaudit1 arm64 1:4.0.2-2 [54.2 kB]
Get:20 http://deb.debian.org/debian sid/main arm64 login arm64 1:4.16.0-2+really2.40.2-11 [80.0 kB]
Get:21 http://deb.debian.org/debian sid/main arm64 libbrotli1 arm64 1.1.0-2+b6 [297 kB]
Get:22 http://deb.debian.org/debian sid/main arm64 libglib2.0-0t64 arm64 2.82.2-3 [1411 kB]
Get:23 http://deb.debian.org/debian sid/main arm64 libsemanage2 arm64 3.7-2+b1 [84.5 kB]
Get:24 http://deb.debian.org/debian sid/main arm64 libxml2 arm64 2.12.7+dfsg+really2.9.14-0.2+b1 [630 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 7198 kB in 0s (47.8 MB/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 ... 17129 files and directories currently installed.)
Preparing to unpack .../bsdutils_1%3a2.40.2-11_arm64.deb ...
Unpacking bsdutils (1:2.40.2-11) over (1:2.40.2-10) ...
Setting up bsdutils (1:2.40.2-11) ...
(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 ... 17129 files and directories currently installed.)
Preparing to unpack .../libapt-pkg6.0t64_2.9.11_arm64.deb ...
Unpacking libapt-pkg6.0t64:arm64 (2.9.11) over (2.9.10) ...
Setting up libapt-pkg6.0t64:arm64 (2.9.11) ...
(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 ... 17129 files and directories currently installed.)
Preparing to unpack .../dpkg_1.22.12~1.gbp82cafd_arm64.deb ...
Unpacking dpkg (1.22.12~1.gbp82cafd) over (1.22.11) ...
Setting up dpkg (1.22.12~1.gbp82cafd) ...
(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 ... 17128 files and directories currently installed.)
Preparing to unpack .../bsdextrautils_2.40.2-11_arm64.deb ...
Unpacking bsdextrautils (2.40.2-11) over (2.40.2-10) ...
Preparing to unpack .../libblkid1_2.40.2-11_arm64.deb ...
Unpacking libblkid1:arm64 (2.40.2-11) over (2.40.2-10) ...
Setting up libblkid1:arm64 (2.40.2-11) ...
(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 ... 17124 files and directories currently installed.)
Preparing to unpack .../libmount1_2.40.2-11_arm64.deb ...
Unpacking libmount1:arm64 (2.40.2-11) over (2.40.2-10) ...
Setting up libmount1:arm64 (2.40.2-11) ...
(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 ... 17124 files and directories currently installed.)
Preparing to unpack .../libsmartcols1_2.40.2-11_arm64.deb ...
Unpacking libsmartcols1:arm64 (2.40.2-11) over (2.40.2-10) ...
Setting up libsmartcols1:arm64 (2.40.2-11) ...
(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 ... 17124 files and directories currently installed.)
Preparing to unpack .../mount_2.40.2-11_arm64.deb ...
Unpacking mount (2.40.2-11) over (2.40.2-10) ...
Preparing to unpack .../libuuid1_2.40.2-11_arm64.deb ...
Unpacking libuuid1:arm64 (2.40.2-11) over (2.40.2-10) ...
Setting up libuuid1:arm64 (2.40.2-11) ...
(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 ... 17124 files and directories currently installed.)
Preparing to unpack .../util-linux_2.40.2-11_arm64.deb ...
Unpacking util-linux (2.40.2-11) over (2.40.2-10) ...
Setting up util-linux (2.40.2-11) ...
(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 ... 17121 files and directories currently installed.)
Preparing to unpack .../libpcre2-8-0_10.44-2_arm64.deb ...
Unpacking libpcre2-8-0:arm64 (10.44-2) over (10.42-4+b2) ...
Setting up libpcre2-8-0:arm64 (10.44-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 ... 17120 files and directories currently installed.)
Preparing to unpack .../libselinux1_3.7-3+b1_arm64.deb ...
Unpacking libselinux1:arm64 (3.7-3+b1) over (3.7-3) ...
Setting up libselinux1:arm64 (3.7-3+b1) ...
(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 ... 17121 files and directories currently installed.)
Preparing to unpack .../libseccomp2_2.5.5-1+b3_arm64.deb ...
Unpacking libseccomp2:arm64 (2.5.5-1+b3) over (2.5.5-1+b2) ...
Setting up libseccomp2:arm64 (2.5.5-1+b3) ...
(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 ... 17121 files and directories currently installed.)
Preparing to unpack .../archives/apt_2.9.11_arm64.deb ...
Unpacking apt (2.9.11) over (2.9.10) ...
Setting up apt (2.9.11) ...
(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 ... 17118 files and directories currently installed.)
Preparing to unpack .../libaudit-common_1%3a4.0.2-2_all.deb ...
Unpacking libaudit-common (1:4.0.2-2) over (1:4.0.1-3) ...
Setting up libaudit-common (1:4.0.2-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 ... 17118 files and directories currently installed.)
Preparing to unpack .../libcap-ng0_0.8.5-3+b1_arm64.deb ...
Unpacking libcap-ng0:arm64 (0.8.5-3+b1) over (0.8.5-3) ...
Setting up libcap-ng0:arm64 (0.8.5-3+b1) ...
(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 ... 17119 files and directories currently installed.)
Preparing to unpack .../libaudit1_1%3a4.0.2-2_arm64.deb ...
Unpacking libaudit1:arm64 (1:4.0.2-2) over (1:4.0.1-3) ...
Setting up libaudit1:arm64 (1:4.0.2-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 ... 17119 files and directories currently installed.)
Preparing to unpack .../0-login_1%3a4.16.0-2+really2.40.2-11_arm64.deb ...
Unpacking login (1:4.16.0-2+really2.40.2-11) over (1:4.16.0-2+really2.40.2-10) ...
Preparing to unpack .../1-dpkg-dev_1.22.12~1.gbp82cafd_all.deb ...
Unpacking dpkg-dev (1.22.12~1.gbp82cafd) over (1.22.11) ...
Preparing to unpack .../2-libdpkg-perl_1.22.12~1.gbp82cafd_all.deb ...
Unpacking libdpkg-perl (1.22.12~1.gbp82cafd) over (1.22.11) ...
Preparing to unpack .../3-libbrotli1_1.1.0-2+b6_arm64.deb ...
Unpacking libbrotli1:arm64 (1.1.0-2+b6) over (1.1.0-2+b5) ...
Preparing to unpack .../4-libglib2.0-0t64_2.82.2-3_arm64.deb ...
Unpacking libglib2.0-0t64:arm64 (2.82.2-3) over (2.82.2-2) ...
Preparing to unpack .../5-libsemanage2_3.7-2+b1_arm64.deb ...
Unpacking libsemanage2:arm64 (3.7-2+b1) over (3.7-2) ...
Preparing to unpack .../6-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_arm64.deb ...
Unpacking libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) over (2.12.7+dfsg+really2.9.14-0.1) ...
Setting up bsdextrautils (2.40.2-11) ...
Setting up libbrotli1:arm64 (1.1.0-2+b6) ...
Setting up libglib2.0-0t64:arm64 (2.82.2-3) ...
No schema files found: doing nothing.
Setting up libdpkg-perl (1.22.12~1.gbp82cafd) ...
Setting up mount (2.40.2-11) ...
Setting up libsemanage2:arm64 (3.7-2+b1) ...
Setting up libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ...
Setting up login (1:4.16.0-2+really2.40.2-11) ...
Setting up dpkg-dev (1.22.12~1.gbp82cafd) ...
Processing triggers for man-db (2.13.0-1) ...
Processing triggers for libc-bin (2.40-3) ...

+------------------------------------------------------------------------------+
| Fetch source files                                                           |
+------------------------------------------------------------------------------+


Local sources
-------------

/tmp/debusine-fetch-exec-upload-h19fspzq/cafeobj_1.6.0-2.dsc exists in /tmp/debusine-fetch-exec-upload-h19fspzq; copying to chroot
I: NOTICE: Log filtering will replace 'build/cafeobj-ePk5eB/cafeobj-1.6.0' with '<<PKGBUILDDIR>>'
I: NOTICE: Log filtering will replace 'build/cafeobj-ePk5eB' with '<<BUILDDIR>>'

+------------------------------------------------------------------------------+
| Install package build dependencies                                           |
+------------------------------------------------------------------------------+


Setup apt archive
-----------------

Merged Build-Depends: debhelper (>= 10), sbcl, build-essential, fakeroot
Filtered Build-Depends: debhelper (>= 10), sbcl, build-essential, fakeroot
dpkg-deb: warning: root directory has unusual owner or group 998:999.
Hint: either pass --root-owner-group, see dpkg-build-api(7) or add an explicit 'Rules-Requires-Root: no' in debian/control.
dpkg-deb: warning: ignoring 1 warning about the control file(s)
dpkg-deb: building package 'sbuild-build-depends-main-dummy' in '/<<RESOLVERDIR>>/apt_archive/sbuild-build-depends-main-dummy.deb'.
Ign:1 copy:/<<RESOLVERDIR>>/apt_archive ./ InRelease
Get:2 copy:/<<RESOLVERDIR>>/apt_archive ./ Release [609 B]
Ign:3 copy:/<<RESOLVERDIR>>/apt_archive ./ Release.gpg
Get:4 copy:/<<RESOLVERDIR>>/apt_archive ./ Sources [617 B]
Get:5 copy:/<<RESOLVERDIR>>/apt_archive ./ Packages [649 B]
Fetched 1875 B in 0s (171 kB/s)
Reading package lists...
Get:1 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ InRelease
Ign:1 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ InRelease
Get:2 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release [606 B]
Get:2 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release [606 B]
Get:3 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release.gpg
Ign:3 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release.gpg
Reading package lists...
Reading package lists...

Install main build dependencies (apt-based resolver)
----------------------------------------------------

Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following additional packages will be installed:
  autoconf automake autopoint autotools-dev build-essential cpp cpp-14
  cpp-14-aarch64-linux-gnu cpp-aarch64-linux-gnu debhelper dh-autoreconf
  dh-strip-nondeterminism dwz fakeroot g++ g++-14 g++-14-aarch64-linux-gnu
  g++-aarch64-linux-gnu gcc gcc-14 gcc-14-aarch64-linux-gnu
  gcc-aarch64-linux-gnu libasan8 libc-dev-bin libc6-dev libcc1-0 libcrypt-dev
  libdebhelper-perl libelf1t64 libfakeroot libfile-stripnondeterminism-perl
  libgcc-14-dev libhwasan0 libisl23 libitm1 liblsan0 libmpc3 libmpfr6
  libstdc++-14-dev libtool libtsan2 libubsan1 linux-libc-dev m4 po-debconf
  rpcsvc-proto sbcl
Suggested packages:
  autoconf-archive gnu-standards autoconf-doc cpp-doc gcc-14-locales
  cpp-14-doc dh-make gcc-14-doc gcc-multilib manpages-dev flex bison gdb
  gcc-doc gdb-aarch64-linux-gnu libc-devtools glibc-doc libstdc++-14-doc
  libtool-doc gfortran | fortran95-compiler gcj-jdk m4-doc libmail-box-perl
  sbcl-doc sbcl-source slime
Recommended packages:
  manpages manpages-dev libarchive-cpio-perl libltdl-dev libmail-sendmail-perl
  binfmt-support | systemd
The following NEW packages will be installed:
  autoconf automake autopoint autotools-dev build-essential cpp cpp-14
  cpp-14-aarch64-linux-gnu cpp-aarch64-linux-gnu debhelper dh-autoreconf
  dh-strip-nondeterminism dwz fakeroot g++ g++-14 g++-14-aarch64-linux-gnu
  g++-aarch64-linux-gnu gcc gcc-14 gcc-14-aarch64-linux-gnu
  gcc-aarch64-linux-gnu libasan8 libc-dev-bin libc6-dev libcc1-0 libcrypt-dev
  libdebhelper-perl libelf1t64 libfakeroot libfile-stripnondeterminism-perl
  libgcc-14-dev libhwasan0 libisl23 libitm1 liblsan0 libmpc3 libmpfr6
  libstdc++-14-dev libtool libtsan2 libubsan1 linux-libc-dev m4 po-debconf
  rpcsvc-proto sbcl sbuild-build-depends-main-dummy
0 upgraded, 48 newly installed, 0 to remove and 0 not upgraded.
Need to get 69.8 MB of archives.
After this operation, 279 MB of additional disk space will be used.
Get:1 copy:/<<RESOLVERDIR>>/apt_archive ./ sbuild-build-depends-main-dummy 0.invalid.0 [884 B]
Get:2 http://deb.debian.org/debian sid/main arm64 m4 arm64 1.4.19-4 [277 kB]
Get:3 http://deb.debian.org/debian sid/main arm64 autoconf all 2.72-3 [493 kB]
Get:4 http://deb.debian.org/debian sid/main arm64 autotools-dev all 20220109.1 [51.6 kB]
Get:5 http://deb.debian.org/debian sid/main arm64 automake all 1:1.16.5-1.3 [823 kB]
Get:6 http://deb.debian.org/debian sid/main arm64 autopoint all 0.22.5-2 [723 kB]
Get:7 http://deb.debian.org/debian sid/main arm64 libc-dev-bin arm64 2.40-3 [50.9 kB]
Get:8 http://deb.debian.org/debian sid/main arm64 linux-libc-dev all 6.11.7-1 [2454 kB]
Get:9 http://deb.debian.org/debian sid/main arm64 libcrypt-dev arm64 1:4.4.36-5 [122 kB]
Get:10 http://deb.debian.org/debian sid/main arm64 rpcsvc-proto arm64 1.4.3-1+b1 [60.5 kB]
Get:11 http://deb.debian.org/debian sid/main arm64 libc6-dev arm64 2.40-3 [1591 kB]
Get:12 http://deb.debian.org/debian sid/main arm64 libisl23 arm64 0.27-1 [601 kB]
Get:13 http://deb.debian.org/debian sid/main arm64 libmpfr6 arm64 4.2.1-1+b2 [680 kB]
Get:14 http://deb.debian.org/debian sid/main arm64 libmpc3 arm64 1.3.1-1+b3 [50.5 kB]
Get:15 http://deb.debian.org/debian sid/main arm64 cpp-14-aarch64-linux-gnu arm64 14.2.0-8 [9166 kB]
Get:16 http://deb.debian.org/debian sid/main arm64 cpp-14 arm64 14.2.0-8 [1284 B]
Get:17 http://deb.debian.org/debian sid/main arm64 cpp-aarch64-linux-gnu arm64 4:14.2.0-1 [4832 B]
Get:18 http://deb.debian.org/debian sid/main arm64 cpp arm64 4:14.2.0-1 [1568 B]
Get:19 http://deb.debian.org/debian sid/main arm64 libcc1-0 arm64 14.2.0-8 [42.2 kB]
Get:20 http://deb.debian.org/debian sid/main arm64 libitm1 arm64 14.2.0-8 [24.2 kB]
Get:21 http://deb.debian.org/debian sid/main arm64 libasan8 arm64 14.2.0-8 [2579 kB]
Get:22 http://deb.debian.org/debian sid/main arm64 liblsan0 arm64 14.2.0-8 [1161 kB]
Get:23 http://deb.debian.org/debian sid/main arm64 libtsan2 arm64 14.2.0-8 [2386 kB]
Get:24 http://deb.debian.org/debian sid/main arm64 libubsan1 arm64 14.2.0-8 [1039 kB]
Get:25 http://deb.debian.org/debian sid/main arm64 libhwasan0 arm64 14.2.0-8 [1442 kB]
Get:26 http://deb.debian.org/debian sid/main arm64 libgcc-14-dev arm64 14.2.0-8 [2365 kB]
Get:27 http://deb.debian.org/debian sid/main arm64 gcc-14-aarch64-linux-gnu arm64 14.2.0-8 [17.7 MB]
Get:28 http://deb.debian.org/debian sid/main arm64 gcc-14 arm64 14.2.0-8 [519 kB]
Get:29 http://deb.debian.org/debian sid/main arm64 gcc-aarch64-linux-gnu arm64 4:14.2.0-1 [1440 B]
Get:30 http://deb.debian.org/debian sid/main arm64 gcc arm64 4:14.2.0-1 [5136 B]
Get:31 http://deb.debian.org/debian sid/main arm64 libstdc++-14-dev arm64 14.2.0-8 [2267 kB]
Get:32 http://deb.debian.org/debian sid/main arm64 g++-14-aarch64-linux-gnu arm64 14.2.0-8 [10.1 MB]
Get:33 http://deb.debian.org/debian sid/main arm64 g++-14 arm64 14.2.0-8 [20.2 kB]
Get:34 http://deb.debian.org/debian sid/main arm64 g++-aarch64-linux-gnu arm64 4:14.2.0-1 [1200 B]
Get:35 http://deb.debian.org/debian sid/main arm64 g++ arm64 4:14.2.0-1 [1332 B]
Get:36 http://deb.debian.org/debian sid/main arm64 build-essential arm64 12.12 [4624 B]
Get:37 http://deb.debian.org/debian sid/main arm64 libdebhelper-perl all 13.20 [89.7 kB]
Get:38 http://deb.debian.org/debian sid/main arm64 libtool all 2.4.7-8 [517 kB]
Get:39 http://deb.debian.org/debian sid/main arm64 dh-autoreconf all 20 [17.1 kB]
Get:40 http://deb.debian.org/debian sid/main arm64 libfile-stripnondeterminism-perl all 1.14.0-1 [19.5 kB]
Get:41 http://deb.debian.org/debian sid/main arm64 dh-strip-nondeterminism all 1.14.0-1 [8448 B]
Get:42 http://deb.debian.org/debian sid/main arm64 libelf1t64 arm64 0.192-4 [189 kB]
Get:43 http://deb.debian.org/debian sid/main arm64 dwz arm64 0.15-1+b1 [102 kB]
Get:44 http://deb.debian.org/debian sid/main arm64 po-debconf all 1.0.21+nmu1 [248 kB]
Get:45 http://deb.debian.org/debian sid/main arm64 debhelper all 13.20 [915 kB]
Get:46 http://deb.debian.org/debian sid/main arm64 libfakeroot arm64 1.36-1 [29.1 kB]
Get:47 http://deb.debian.org/debian sid/main arm64 fakeroot arm64 1.36-1 [74.4 kB]
Get:48 http://deb.debian.org/debian sid/main arm64 sbcl arm64 2:2.4.10-2 [8824 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 69.8 MB in 1s (95.9 MB/s)
Selecting previously unselected package m4.
(Reading database ... 17121 files and directories currently installed.)
Preparing to unpack .../00-m4_1.4.19-4_arm64.deb ...
Unpacking m4 (1.4.19-4) ...
Selecting previously unselected package autoconf.
Preparing to unpack .../01-autoconf_2.72-3_all.deb ...
Unpacking autoconf (2.72-3) ...
Selecting previously unselected package autotools-dev.
Preparing to unpack .../02-autotools-dev_20220109.1_all.deb ...
Unpacking autotools-dev (20220109.1) ...
Selecting previously unselected package automake.
Preparing to unpack .../03-automake_1%3a1.16.5-1.3_all.deb ...
Unpacking automake (1:1.16.5-1.3) ...
Selecting previously unselected package autopoint.
Preparing to unpack .../04-autopoint_0.22.5-2_all.deb ...
Unpacking autopoint (0.22.5-2) ...
Selecting previously unselected package libc-dev-bin.
Preparing to unpack .../05-libc-dev-bin_2.40-3_arm64.deb ...
Unpacking libc-dev-bin (2.40-3) ...
Selecting previously unselected package linux-libc-dev.
Preparing to unpack .../06-linux-libc-dev_6.11.7-1_all.deb ...
Unpacking linux-libc-dev (6.11.7-1) ...
Selecting previously unselected package libcrypt-dev:arm64.
Preparing to unpack .../07-libcrypt-dev_1%3a4.4.36-5_arm64.deb ...
Unpacking libcrypt-dev:arm64 (1:4.4.36-5) ...
Selecting previously unselected package rpcsvc-proto.
Preparing to unpack .../08-rpcsvc-proto_1.4.3-1+b1_arm64.deb ...
Unpacking rpcsvc-proto (1.4.3-1+b1) ...
Selecting previously unselected package libc6-dev:arm64.
Preparing to unpack .../09-libc6-dev_2.40-3_arm64.deb ...
Unpacking libc6-dev:arm64 (2.40-3) ...
Selecting previously unselected package libisl23:arm64.
Preparing to unpack .../10-libisl23_0.27-1_arm64.deb ...
Unpacking libisl23:arm64 (0.27-1) ...
Selecting previously unselected package libmpfr6:arm64.
Preparing to unpack .../11-libmpfr6_4.2.1-1+b2_arm64.deb ...
Unpacking libmpfr6:arm64 (4.2.1-1+b2) ...
Selecting previously unselected package libmpc3:arm64.
Preparing to unpack .../12-libmpc3_1.3.1-1+b3_arm64.deb ...
Unpacking libmpc3:arm64 (1.3.1-1+b3) ...
Selecting previously unselected package cpp-14-aarch64-linux-gnu.
Preparing to unpack .../13-cpp-14-aarch64-linux-gnu_14.2.0-8_arm64.deb ...
Unpacking cpp-14-aarch64-linux-gnu (14.2.0-8) ...
Selecting previously unselected package cpp-14.
Preparing to unpack .../14-cpp-14_14.2.0-8_arm64.deb ...
Unpacking cpp-14 (14.2.0-8) ...
Selecting previously unselected package cpp-aarch64-linux-gnu.
Preparing to unpack .../15-cpp-aarch64-linux-gnu_4%3a14.2.0-1_arm64.deb ...
Unpacking cpp-aarch64-linux-gnu (4:14.2.0-1) ...
Selecting previously unselected package cpp.
Preparing to unpack .../16-cpp_4%3a14.2.0-1_arm64.deb ...
Unpacking cpp (4:14.2.0-1) ...
Selecting previously unselected package libcc1-0:arm64.
Preparing to unpack .../17-libcc1-0_14.2.0-8_arm64.deb ...
Unpacking libcc1-0:arm64 (14.2.0-8) ...
Selecting previously unselected package libitm1:arm64.
Preparing to unpack .../18-libitm1_14.2.0-8_arm64.deb ...
Unpacking libitm1:arm64 (14.2.0-8) ...
Selecting previously unselected package libasan8:arm64.
Preparing to unpack .../19-libasan8_14.2.0-8_arm64.deb ...
Unpacking libasan8:arm64 (14.2.0-8) ...
Selecting previously unselected package liblsan0:arm64.
Preparing to unpack .../20-liblsan0_14.2.0-8_arm64.deb ...
Unpacking liblsan0:arm64 (14.2.0-8) ...
Selecting previously unselected package libtsan2:arm64.
Preparing to unpack .../21-libtsan2_14.2.0-8_arm64.deb ...
Unpacking libtsan2:arm64 (14.2.0-8) ...
Selecting previously unselected package libubsan1:arm64.
Preparing to unpack .../22-libubsan1_14.2.0-8_arm64.deb ...
Unpacking libubsan1:arm64 (14.2.0-8) ...
Selecting previously unselected package libhwasan0:arm64.
Preparing to unpack .../23-libhwasan0_14.2.0-8_arm64.deb ...
Unpacking libhwasan0:arm64 (14.2.0-8) ...
Selecting previously unselected package libgcc-14-dev:arm64.
Preparing to unpack .../24-libgcc-14-dev_14.2.0-8_arm64.deb ...
Unpacking libgcc-14-dev:arm64 (14.2.0-8) ...
Selecting previously unselected package gcc-14-aarch64-linux-gnu.
Preparing to unpack .../25-gcc-14-aarch64-linux-gnu_14.2.0-8_arm64.deb ...
Unpacking gcc-14-aarch64-linux-gnu (14.2.0-8) ...
Selecting previously unselected package gcc-14.
Preparing to unpack .../26-gcc-14_14.2.0-8_arm64.deb ...
Unpacking gcc-14 (14.2.0-8) ...
Selecting previously unselected package gcc-aarch64-linux-gnu.
Preparing to unpack .../27-gcc-aarch64-linux-gnu_4%3a14.2.0-1_arm64.deb ...
Unpacking gcc-aarch64-linux-gnu (4:14.2.0-1) ...
Selecting previously unselected package gcc.
Preparing to unpack .../28-gcc_4%3a14.2.0-1_arm64.deb ...
Unpacking gcc (4:14.2.0-1) ...
Selecting previously unselected package libstdc++-14-dev:arm64.
Preparing to unpack .../29-libstdc++-14-dev_14.2.0-8_arm64.deb ...
Unpacking libstdc++-14-dev:arm64 (14.2.0-8) ...
Selecting previously unselected package g++-14-aarch64-linux-gnu.
Preparing to unpack .../30-g++-14-aarch64-linux-gnu_14.2.0-8_arm64.deb ...
Unpacking g++-14-aarch64-linux-gnu (14.2.0-8) ...
Selecting previously unselected package g++-14.
Preparing to unpack .../31-g++-14_14.2.0-8_arm64.deb ...
Unpacking g++-14 (14.2.0-8) ...
Selecting previously unselected package g++-aarch64-linux-gnu.
Preparing to unpack .../32-g++-aarch64-linux-gnu_4%3a14.2.0-1_arm64.deb ...
Unpacking g++-aarch64-linux-gnu (4:14.2.0-1) ...
Selecting previously unselected package g++.
Preparing to unpack .../33-g++_4%3a14.2.0-1_arm64.deb ...
Unpacking g++ (4:14.2.0-1) ...
Selecting previously unselected package build-essential.
Preparing to unpack .../34-build-essential_12.12_arm64.deb ...
Unpacking build-essential (12.12) ...
Selecting previously unselected package libdebhelper-perl.
Preparing to unpack .../35-libdebhelper-perl_13.20_all.deb ...
Unpacking libdebhelper-perl (13.20) ...
Selecting previously unselected package libtool.
Preparing to unpack .../36-libtool_2.4.7-8_all.deb ...
Unpacking libtool (2.4.7-8) ...
Selecting previously unselected package dh-autoreconf.
Preparing to unpack .../37-dh-autoreconf_20_all.deb ...
Unpacking dh-autoreconf (20) ...
Selecting previously unselected package libfile-stripnondeterminism-perl.
Preparing to unpack .../38-libfile-stripnondeterminism-perl_1.14.0-1_all.deb ...
Unpacking libfile-stripnondeterminism-perl (1.14.0-1) ...
Selecting previously unselected package dh-strip-nondeterminism.
Preparing to unpack .../39-dh-strip-nondeterminism_1.14.0-1_all.deb ...
Unpacking dh-strip-nondeterminism (1.14.0-1) ...
Selecting previously unselected package libelf1t64:arm64.
Preparing to unpack .../40-libelf1t64_0.192-4_arm64.deb ...
Unpacking libelf1t64:arm64 (0.192-4) ...
Selecting previously unselected package dwz.
Preparing to unpack .../41-dwz_0.15-1+b1_arm64.deb ...
Unpacking dwz (0.15-1+b1) ...
Selecting previously unselected package po-debconf.
Preparing to unpack .../42-po-debconf_1.0.21+nmu1_all.deb ...
Unpacking po-debconf (1.0.21+nmu1) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../43-debhelper_13.20_all.deb ...
Unpacking debhelper (13.20) ...
Selecting previously unselected package libfakeroot:arm64.
Preparing to unpack .../44-libfakeroot_1.36-1_arm64.deb ...
Unpacking libfakeroot:arm64 (1.36-1) ...
Selecting previously unselected package fakeroot.
Preparing to unpack .../45-fakeroot_1.36-1_arm64.deb ...
Unpacking fakeroot (1.36-1) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../46-sbcl_2%3a2.4.10-2_arm64.deb ...
Unpacking sbcl (2:2.4.10-2) ...
Selecting previously unselected package sbuild-build-depends-main-dummy.
Preparing to unpack .../47-sbuild-build-depends-main-dummy_0.invalid.0_arm64.deb ...
Unpacking sbuild-build-depends-main-dummy (0.invalid.0) ...
Setting up libfile-stripnondeterminism-perl (1.14.0-1) ...
Setting up po-debconf (1.0.21+nmu1) ...
Setting up libdebhelper-perl (13.20) ...
Setting up linux-libc-dev (6.11.7-1) ...
Setting up m4 (1.4.19-4) ...
Setting up libfakeroot:arm64 (1.36-1) ...
Setting up libelf1t64:arm64 (0.192-4) ...
Setting up fakeroot (1.36-1) ...
update-alternatives: using /usr/bin/fakeroot-sysv to provide /usr/bin/fakeroot (fakeroot) in auto mode
Setting up autotools-dev (20220109.1) ...
Setting up rpcsvc-proto (1.4.3-1+b1) ...
Setting up libmpfr6:arm64 (4.2.1-1+b2) ...
Setting up libmpc3:arm64 (1.3.1-1+b3) ...
Setting up autopoint (0.22.5-2) ...
Setting up autoconf (2.72-3) ...
Setting up libubsan1:arm64 (14.2.0-8) ...
Setting up dh-strip-nondeterminism (1.14.0-1) ...
Setting up sbcl (2:2.4.10-2) ...
Setting up dwz (0.15-1+b1) ...
Setting up libhwasan0:arm64 (14.2.0-8) ...
Setting up libcrypt-dev:arm64 (1:4.4.36-5) ...
Setting up libasan8:arm64 (14.2.0-8) ...
Setting up libtsan2:arm64 (14.2.0-8) ...
Setting up libisl23:arm64 (0.27-1) ...
Setting up libc-dev-bin (2.40-3) ...
Setting up libcc1-0:arm64 (14.2.0-8) ...
Setting up liblsan0:arm64 (14.2.0-8) ...
Setting up libitm1:arm64 (14.2.0-8) ...
Setting up automake (1:1.16.5-1.3) ...
update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode
Setting up cpp-14-aarch64-linux-gnu (14.2.0-8) ...
Setting up libc6-dev:arm64 (2.40-3) ...
Setting up libgcc-14-dev:arm64 (14.2.0-8) ...
Setting up libstdc++-14-dev:arm64 (14.2.0-8) ...
Setting up cpp-aarch64-linux-gnu (4:14.2.0-1) ...
Setting up cpp-14 (14.2.0-8) ...
Setting up cpp (4:14.2.0-1) ...
Setting up gcc-14-aarch64-linux-gnu (14.2.0-8) ...
Setting up gcc-aarch64-linux-gnu (4:14.2.0-1) ...
Setting up g++-14-aarch64-linux-gnu (14.2.0-8) ...
Setting up gcc-14 (14.2.0-8) ...
Setting up g++-aarch64-linux-gnu (4:14.2.0-1) ...
Setting up g++-14 (14.2.0-8) ...
Setting up libtool (2.4.7-8) ...
Setting up gcc (4:14.2.0-1) ...
Setting up dh-autoreconf (20) ...
Setting up g++ (4:14.2.0-1) ...
update-alternatives: using /usr/bin/g++ to provide /usr/bin/c++ (c++) in auto mode
Setting up build-essential (12.12) ...
Setting up debhelper (13.20) ...
Setting up sbuild-build-depends-main-dummy (0.invalid.0) ...
Processing triggers for man-db (2.13.0-1) ...
Processing triggers for libc-bin (2.40-3) ...

+------------------------------------------------------------------------------+
| Check architectures                                                          |
+------------------------------------------------------------------------------+

Arch check ok (arm64 included in any all)

+------------------------------------------------------------------------------+
| Build environment                                                            |
+------------------------------------------------------------------------------+

Kernel: Linux 6.1.0-27-cloud-arm64 #1 SMP Debian 6.1.115-1 (2024-11-01) arm64 (aarch64)
Toolchain package versions: binutils_2.43.1-5 dpkg-dev_1.22.12~1.gbp82cafd g++-14_14.2.0-8 gcc-14_14.2.0-8 libc6-dev_2.40-3 libstdc++-14-dev_14.2.0-8 libstdc++6_14.2.0-8 linux-libc-dev_6.11.7-1
Package versions: appstream_1.0.3-1+b1 apt_2.9.11 autoconf_2.72-3 automake_1:1.16.5-1.3 autopoint_0.22.5-2 autotools-dev_20220109.1 base-files_13.5 base-passwd_3.6.5 bash_5.2.32-1+b2 binutils_2.43.1-5 binutils-aarch64-linux-gnu_2.43.1-5 binutils-common_2.43.1-5 bsdextrautils_2.40.2-11 bsdutils_1:2.40.2-11 build-essential_12.12 bzip2_1.0.8-6 ca-certificates_20240203 coreutils_9.5-1+b1 cpp_4:14.2.0-1 cpp-14_14.2.0-8 cpp-14-aarch64-linux-gnu_14.2.0-8 cpp-aarch64-linux-gnu_4:14.2.0-1 dash_0.5.12-9+b1 debconf_1.5.87 debhelper_13.20 debian-archive-keyring_2023.4 debianutils_5.20+b1 dh-autoreconf_20 dh-strip-nondeterminism_1.14.0-1 diffstat_1.66-1+b1 diffutils_1:3.10-1+b1 dpkg_1.22.12~1.gbp82cafd dpkg-dev_1.22.12~1.gbp82cafd dwz_0.15-1+b1 e2fsprogs_1.47.1-1+b1 fakeroot_1.36-1 file_1:5.45-3+b1 findutils_4.10.0-3 g++_4:14.2.0-1 g++-14_14.2.0-8 g++-14-aarch64-linux-gnu_14.2.0-8 g++-aarch64-linux-gnu_4:14.2.0-1 gcc_4:14.2.0-1 gcc-14_14.2.0-8 gcc-14-aarch64-linux-gnu_14.2.0-8 gcc-14-base_14.2.0-8 gcc-aarch64-linux-gnu_4:14.2.0-1 gettext_0.22.5-2 gettext-base_0.22.5-2 gpg_2.2.45-2 gpgconf_2.2.45-2 gpgv_2.2.45-2 grep_3.11-4+b1 groff-base_1.23.0-5 gzip_1.12-1.1+b1 hostname_3.25 init-system-helpers_1.67 intltool-debian_0.35.0+20060710.6 iso-codes_4.17.0-1 libacl1_2.3.2-2+b1 libaliased-perl_0.34-3 libappstream5_1.0.3-1+b1 libapt-pkg-perl_0.1.40+b6 libapt-pkg6.0t64_2.9.11 libarchive-zip-perl_1.68-1 libasan8_14.2.0-8 libassuan9_3.0.1-2 libatomic1_14.2.0-8 libattr1_1:2.5.2-2 libaudit-common_1:4.0.2-2 libaudit1_1:4.0.2-2 libb-hooks-endofscope-perl_0.28-1 libb-hooks-op-check-perl_0.22-3+b2 libberkeleydb-perl_0.66-1 libbinutils_2.43.1-5 libblkid1_2.40.2-11 libbrotli1_1.1.0-2+b6 libbsd0_0.12.2-2 libbz2-1.0_1.0.8-6 libc-bin_2.40-3 libc-dev-bin_2.40-3 libc6_2.40-3 libc6-dev_2.40-3 libcap-ng0_0.8.5-3+b1 libcap2_1:2.66-5+b1 libcapture-tiny-perl_0.48-2 libcc1-0_14.2.0-8 libcgi-pm-perl_4.66-1 libclass-data-inheritable-perl_0.10-1 libclass-inspector-perl_1.36-3 libclass-method-modifiers-perl_2.15-1 libclass-xsaccessor-perl_1.19-4+b4 libclone-perl_0.47-1+b1 libcom-err2_1.47.1-1+b1 libconfig-tiny-perl_2.30-1 libconst-fast-perl_0.014-2 libcpanel-json-xs-perl_4.38-1+b1 libcrypt-dev_1:4.4.36-5 libcrypt1_1:4.4.36-5 libctf-nobfd0_2.43.1-5 libctf0_2.43.1-5 libcurl3t64-gnutls_8.11.0-1 libdata-dpath-perl_0.60-1 libdata-messagepack-perl_1.02-1+b4 libdata-optlist-perl_0.114-1 libdata-validate-domain-perl_0.15-1 libdata-validate-ip-perl_0.31-1 libdata-validate-uri-perl_0.07-3 libdb5.3t64_5.3.28+dfsg2-9 libdebconfclient0_0.273 libdebhelper-perl_13.20 libdevel-callchecker-perl_0.009-1+b1 libdevel-size-perl_0.84-1+b1 libdevel-stacktrace-perl_2.0500-1 libdpkg-perl_1.22.12~1.gbp82cafd libdynaloader-functions-perl_0.004-1 libelf1t64_0.192-4 libemail-address-xs-perl_1.05-1+b4 libencode-locale-perl_1.05-3 libexception-class-perl_1.45-1 libext2fs2t64_1.47.1-1+b1 libfakeroot_1.36-1 libffi8_3.4.6-1 libfile-basedir-perl_0.09-2 libfile-find-rule-perl_0.34-3 libfile-listing-perl_6.16-1 libfile-sharedir-perl_1.118-3 libfile-stripnondeterminism-perl_1.14.0-1 libfont-ttf-perl_1.06-2 libgcc-14-dev_14.2.0-8 libgcc-s1_14.2.0-8 libgcrypt20_1.11.0-6 libgdbm-compat4t64_1.24-2 libgdbm6t64_1.24-2 libglib2.0-0t64_2.82.2-3 libgmp10_2:6.3.0+dfsg-2+b2 libgnutls30t64_3.8.8-2 libgomp1_14.2.0-8 libgpg-error0_1.50-4 libgprofng0_2.43.1-5 libgssapi-krb5-2_1.21.3-3 libhogweed6t64_3.10-1+b1 libhtml-form-perl_6.12-1 libhtml-html5-entities-perl_0.004-3 libhtml-parser-perl_3.83-1+b1 libhtml-tagset-perl_3.24-1 libhtml-tokeparser-simple-perl_3.16-4 libhtml-tree-perl_5.07-3 libhttp-cookies-perl_6.11-1 libhttp-date-perl_6.06-1 libhttp-message-perl_7.00-2 libhttp-negotiate-perl_6.01-2 libhwasan0_14.2.0-8 libicu72_72.1-5+b1 libidn2-0_2.3.7-2+b1 libimport-into-perl_1.002005-2 libio-html-perl_1.004-3 libio-interactive-perl_1.025-1 libio-socket-ssl-perl_2.089-1 libio-string-perl_1.08-4 libipc-run3-perl_0.049-1 libipc-system-simple-perl_1.30-2 libisl23_0.27-1 libiterator-perl_0.03+ds1-2 libiterator-util-perl_0.02+ds1-2 libitm1_14.2.0-8 libjansson4_2.14-2+b3 libjson-maybexs-perl_1.004008-1 libk5crypto3_1.21.3-3 libkeyutils1_1.6.3-4 libkrb5-3_1.21.3-3 libkrb5support0_1.21.3-3 libldap-2.5-0_2.5.18+dfsg-3+b1 liblist-compare-perl_0.55-2 liblist-someutils-perl_0.59-1 liblist-utilsby-perl_0.12-2 liblsan0_14.2.0-8 liblwp-mediatypes-perl_6.04-2 liblwp-protocol-https-perl_6.14-1 liblz1_1.15~pre2-1 liblz4-1_1.9.4-3+b1 liblzma5_5.6.3-1+b1 liblzo2-2_2.10-3+b1 libmagic-mgc_1:5.45-3+b1 libmagic1t64_1:5.45-3+b1 libmarkdown2_2.2.7-2+b1 libmd0_1.1.0-2+b1 libmldbm-perl_2.05-4 libmodule-implementation-perl_0.09-2 libmodule-runtime-perl_0.016-2 libmoo-perl_2.005005-1 libmoox-aliases-perl_0.001006-2 libmount1_2.40.2-11 libmouse-perl_2.5.11-1+b1 libmpc3_1.3.1-1+b3 libmpfr6_4.2.1-1+b2 libnamespace-clean-perl_0.27-2 libnet-domain-tld-perl_1.75-4 libnet-http-perl_6.23-1 libnet-ipv6addr-perl_1.02-1 libnet-netmask-perl_2.0002-2 libnet-ssleay-perl_1.94-2 libnetaddr-ip-perl_4.079+dfsg-2+b4 libnettle8t64_3.10-1+b1 libnghttp2-14_1.64.0-1 libnghttp3-9_1.4.0-1+b1 libngtcp2-16_1.6.0-1 libngtcp2-crypto-gnutls8_1.6.0-1 libnumber-compare-perl_0.03-3 libp11-kit0_0.25.5-2+b1 libpackage-stash-perl_0.40-1 libpam-modules_1.5.3-7+b1 libpam-modules-bin_1.5.3-7+b1 libpam-runtime_1.5.3-7 libpam0g_1.5.3-7+b1 libparams-classify-perl_0.015-2+b4 libparams-util-perl_1.102-3+b1 libpath-tiny-perl_0.146-1 libpcre2-8-0_10.44-2 libperl5.40_5.40.0-7 libperlio-gzip-perl_0.20-1+b4 libperlio-utf8-strict-perl_0.010-1+b3 libpipeline1_1.5.8-1 libproc-processtable-perl_0.636-1+b3 libpsl5t64_0.21.2-1.1+b1 libreadline8t64_8.2-5 libregexp-wildcards-perl_1.05-3 librole-tiny-perl_2.002004-1 librtmp1_2.4+20151223.gitfa8646d.1-2+b5 libsasl2-2_2.1.28+dfsg1-8 libsasl2-modules-db_2.1.28+dfsg1-8 libseccomp2_2.5.5-1+b3 libselinux1_3.7-3+b1 libsemanage-common_3.7-2 libsemanage2_3.7-2+b1 libsepol2_3.7-1 libsereal-decoder-perl_5.004+ds-1+b3 libsereal-encoder-perl_5.004+ds-1+b3 libsframe1_2.43.1-5 libsmartcols1_2.40.2-11 libsort-versions-perl_1.62-3 libsqlite3-0_3.46.1-1 libss2_1.47.1-1+b1 libssh2-1t64_1.11.1-1 libssl3t64_3.3.2-2 libstdc++-14-dev_14.2.0-8 libstdc++6_14.2.0-8 libstemmer0d_2.2.0-4+b2 libstrictures-perl_2.000006-1 libsub-exporter-perl_0.990-1 libsub-exporter-progressive-perl_0.001013-3 libsub-identify-perl_0.14-3+b3 libsub-install-perl_0.929-1 libsub-name-perl_0.27-1+b3 libsub-quote-perl_2.006008-1 libsyntax-keyword-try-perl_0.30-1+b1 libsystemd0_257~rc1-4 libtasn1-6_4.19.0-3+b3 libterm-readkey-perl_2.38-2+b4 libtext-glob-perl_0.11-3 libtext-levenshteinxs-perl_0.03-5+b4 libtext-markdown-discount-perl_0.16-1+b3 libtext-xslate-perl_3.5.9-2+b1 libtime-duration-perl_1.21-2 libtime-moment-perl_0.44-2+b4 libtimedate-perl_2.3300-2 libtinfo6_6.5-2+b1 libtool_2.4.7-8 libtry-tiny-perl_0.32-1 libtsan2_14.2.0-8 libubsan1_14.2.0-8 libuchardet0_0.0.8-1+b2 libudev1_257~rc1-4 libunicode-utf8-perl_0.62-2+b3 libunistring5_1.2-1+b1 liburi-perl_5.30-1 libuuid1_2.40.2-11 libvariable-magic-perl_0.64-1+b1 libwww-mechanize-perl_2.19-1 libwww-perl_6.77-1 libwww-robotrules-perl_6.02-1 libxml-libxml-perl_2.0207+dfsg+really+2.0134-5+b1 libxml-namespacesupport-perl_1.12-2 libxml-sax-base-perl_1.09-3 libxml-sax-perl_1.02+dfsg-3 libxml2_2.12.7+dfsg+really2.9.14-0.2+b1 libxmlb2_0.3.21-1 libxs-parse-keyword-perl_0.46-1+b1 libxxhash0_0.8.2-2+b2 libyaml-0-2_0.2.5-1+b2 libyaml-libyaml-perl_0.902.0+ds-2+b1 libzstd1_1.5.6+dfsg-1+b1 lintian_2.120.0 linux-libc-dev_6.11.7-1 login_1:4.16.0-2+really2.40.2-11 login.defs_1:4.16.0-4 logsave_1.47.1-1+b1 lzop_1.04-2+b1 m4_1.4.19-4 make_4.3-4.1+b1 man-db_2.13.0-1 mawk_1.3.4.20240905-1 mount_2.40.2-11 ncurses-base_6.5-2 ncurses-bin_6.5-2+b1 netbase_6.4 openssl_3.3.2-2 openssl-provider-legacy_3.3.2-2 passwd_1:4.16.0-4 patch_2.7.6-7+b1 patchutils_0.4.2-1+b1 perl_5.40.0-7 perl-base_5.40.0-7 perl-modules-5.40_5.40.0-7 perl-openssl-defaults_7+b2 plzip_1.11-2 po-debconf_1.0.21+nmu1 readline-common_8.2-5 rpcsvc-proto_1.4.3-1+b1 sbcl_2:2.4.10-2 sbuild-build-depends-main-dummy_0.invalid.0 sed_4.9-2+b1 sensible-utils_0.0.24 shared-mime-info_2.4-5+b1 sysvinit-utils_3.11-1 t1utils_1.41-4+b1 tar_1.35+dfsg-3+b1 tzdata_2024b-3 ucf_3.0043+nmu1 unzip_6.0-28+b1 util-linux_2.40.2-11 xz-utils_5.6.3-1+b1 zlib1g_1:1.3.dfsg+really1.3.1-1+b1

+------------------------------------------------------------------------------+
| Build                                                                        |
+------------------------------------------------------------------------------+


Unpack source
-------------

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

Format: 3.0 (quilt)
Source: cafeobj
Binary: cafeobj, cafeobj-mode
Architecture: any all
Version: 1.6.0-2
Maintainer: Norbert Preining <norbert@preining.info>
Homepage: http://cafeobj.org/
Standards-Version: 4.5.0
Vcs-Browser: https://github.com/CafeOBJ/cafeobj
Vcs-Git: https://github.com/CafeOBJ/cafeobj.git
Build-Depends: debhelper (>= 10), sbcl
Package-List:
 cafeobj deb science optional arch=any
 cafeobj-mode deb science optional arch=all
Checksums-Sha1:
 0e154b4b1b61c871491882b14911548e1dc65f5d 8468232 cafeobj_1.6.0.orig.tar.gz
 9d3fe7ed9c6091f97e44ed16ba722eb4fe52b97e 6832 cafeobj_1.6.0-2.debian.tar.xz
Checksums-Sha256:
 ab97d3cf22d8556524c86540cbb11d4e2eb1ba38cb0198eb068a4493b745d560 8468232 cafeobj_1.6.0.orig.tar.gz
 3151920bbd74a69c881d41d437a3618ff9e5ebb6213456e87a9f05a81fc0c302 6832 cafeobj_1.6.0-2.debian.tar.xz
Files:
 100d2b48686f9a80506235d9e2bc7528 8468232 cafeobj_1.6.0.orig.tar.gz
 48d8b00182a0898965ad7fc4f3c671c5 6832 cafeobj_1.6.0-2.debian.tar.xz

-----BEGIN PGP SIGNATURE-----

iQEzBAEBCgAdFiEE68ws0vrA2voQX53I2A4JsIcUAGYFAl5MSfIACgkQ2A4JsIcU
AGZBoQf/SRDc5bQKbXx+w1hnrNWLCDKs36KgKEq6vygNtmZUu00oCizw3Sy6YrlU
jwdDuZ8RV2jNQKYBaI9lDOJLRbyCmx+Uc79VeR9xoeX5Kzw7IurTtkRhHDth4vvX
Gd0glSxtOVefvw8jwxll3/iqd5oGmvnQzc5CZRXrWPD32TSupjKgmh3h5chLFKU8
9VYTVWqf1aVlRVgh+Qygf8M038AsKbbWw3v59jReFrljnhEYJu7n95tPk+OXmRkT
mcR9YnFbUkN3pwIFwtcSDNZeui/TOZStdmlAwa3RIX0zLcK5A59m/jYflCXTnKt3
Aeeogv+SdW9EfG7AKmyE5iGHkAGF1Q==
=TxBv
-----END PGP SIGNATURE-----

gpgv: Signature made Tue Feb 18 20:32:50 2020 UTC
gpgv:                using RSA key EBCC2CD2FAC0DAFA105F9DC8D80E09B087140066
gpgv: Can't check signature: No public key
dpkg-source: warning: cannot verify inline signature for ./cafeobj_1.6.0-2.dsc: no acceptable signature found
dpkg-source: info: extracting cafeobj in /<<PKGBUILDDIR>>
dpkg-source: info: unpacking cafeobj_1.6.0.orig.tar.gz
dpkg-source: info: unpacking cafeobj_1.6.0-2.debian.tar.xz
dpkg-source: info: using patch list from debian/patches/series
dpkg-source: info: applying armhf-remove-buildopts

Check disk space
----------------

Sufficient free space for build

User Environment
----------------

APT_CONFIG=/var/lib/sbuild/apt.conf
HOME=/sbuild-nonexistent
LANG=en_US.UTF-8
LC_ALL=C.UTF-8
LOGNAME=debusine-worker
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
SHELL=/bin/sh
USER=debusine-worker

dpkg-buildpackage
-----------------

Command: dpkg-buildpackage -us -uc -b -rfakeroot
dpkg-buildpackage: info: source package cafeobj
dpkg-buildpackage: info: source version 1.6.0-2
dpkg-buildpackage: info: source distribution unstable
dpkg-buildpackage: info: source changed by Norbert Preining <norbert@preining.info>
 dpkg-source --before-build .
dpkg-buildpackage: info: host architecture arm64
 debian/rules clean
dh_testdir
dh_testroot
[ ! -f Makefile ] || /usr/bin/make distclean
rm -f install-arch-stamp install-indep-stamp
rm -f build-arch-stamp build-indep-stamp
rm -rf /<<PKGBUILDDIR>>/tmpcache
dh_clean
 debian/rules binary
touch build-indep-stamp
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-indep-stamp
dh_testdir
dh_testroot
dh_installdocs README.md
dh_installchangelogs
dh_installemacsen
dh_compress -X.pdf
dh_fixperms
dh_installdeb
dh_gencontrol
dh_md5sums
dh_builddeb
dpkg-deb: building package 'cafeobj-mode' in '../cafeobj-mode_1.6.0-2_all.deb'.
dh_testdir
./configure --prefix=/usr --with-lisp=sbcl
checking for a BSD-compatible install... /usr/bin/install -c
checking for gcl... no
checking for lisp... no
checking for sbcl... /usr/bin/sbcl
checking for alisp... no
checking for clisp... no
checking for ccl... no
checking for ccl64... no
checking whether make sets $(MAKE)... yes
checking for a thread-safe mkdir -p... /usr/bin/mkdir -p
configure: Building for the following lisp interpreters:  sbcl
checking for emacs... no
checking for xemacs... no
checking where .elc files should go... ${datadir}/emacs/site-lisp
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether gcc accepts -g... yes
checking for gcc option to accept ISO C89... none needed
checking how to run the C preprocessor... gcc -E
checking for grep that handles long lines and -e... /usr/bin/grep
checking for egrep... /usr/bin/grep -E
checking for ANSI C header files... yes
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking size of long... 8
configure: creating ./config.status
config.status: creating Makefile
config.status: creating make-cafeobj.lisp
config.status: creating version.lisp
config.status: creating xbin/cafeobj.in
config.status: creating doc/refman/Makefile
config.status: creating doc/manual/Makefile
config.status: creating doc/RefCard/Makefile
config.status: creating doc/PigNose/Makefile
config.status: creating doc/citp-manual/Makefile
config.status: creating doc/namespace/Makefile
config.status: creating doc/etc/Makefile
config.status: creating doc/search/Makefile
#./configure --prefix=/usr --with-lisp=sbcl --enable-rebuild-doc
# remove prebuild documentation pdf and rebuild them
#rm -f doc/manual/manual.pdf
#rm -f doc/refman/reference-manual.pdf
#rm -f doc/PigNose/pnguide.pdf
#rm -f doc/RefCard/interp.pdf
#rm -f doc/RefCard/syntax.pdf
#rm -f doc/namespace/namespace.pdf
make build
make[1]: Entering directory '/<<PKGBUILDDIR>>'
mkdir -p dumps/sbcl/
sbcl --dynamic-space-size 4096 < make-cafeobj.lisp
This is SBCL 2.4.10.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 :ARENA-ALLOCATOR :ARM64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF
 :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES
 :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE :SBCL
 :UNIX)
* NIL
* ; in: DEFUN MAKE-EXEC-IMAGE
;     (SETQ *CHAOS-NEW* T)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::*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
* 
** making CafeOBJ (STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD EVAL
WARNING:
   System definition file #P"/<<PKGBUILDDIR>>/sysdef.asd"
   contains definition for system "chaosx". Please only define "sysdef" and
   secondary systems with a name starting with "sysdef/" (e.g. "sysdef/test")
   in that file.
WARNING:
   System definition file
   #P"/<<PKGBUILDDIR>>/cl-ppcre/cl-ppcre.asd" contains
   definition for system "cl-ppcre-test". Please only define "cl-ppcre" and
   secondary systems with a name starting with "cl-ppcre/" (e.g.
   "cl-ppcre/test") in that file.
WARNING: System definition file #P"/<<PKGBUILDDIR>>/cl-ppcre/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
.)
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/packages.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/packages-tmpGHU3ALSV.fasl
; compilation finished in 0:00:00.004
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/specials.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/specials-tmpAAURSO1.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/util.lisp" (written 15 NOV 2018 12:48:56 AM):

; 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 (OR NULL (SIMPLE-ARRAY * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL).

; in: DEFUN COMPLEMENT*
;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/util-tmp5GEXGEG5.fasl
; compilation finished in 0:00:00.036
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/errors.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/errors-tmpAR3FSGEY.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/charset.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/charset.lisp
; in: DEFUN MIX
;     (+ CL-PPCRE::CODE CL-PPCRE::HASH)
; 
; note: forced to do full call
;       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
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.

; in: DEFUN COMPUTE-INDEX
;     (LENGTH VECTOR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.

;     (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a (OR FLOAT
;                               (RATIONAL (-35184372088830)
;                                         (35184372088830))), not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR FLOAT
;                                   (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM.
;       The result is a (VALUES
;                        (OR FLOAT (RATIONAL (-35184372088829) (35184372088831)))
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (OR FLOAT
;                                   (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The result is a (VALUES
;                        (OR FLOAT (RATIONAL (-35184372088829) (35184372088831)))
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

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

;     (>= CL-PPCRE::NEW-SIZE 371370)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (* 2 CL-PPCRE::NEW-SIZE)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN MAP-CHARSET
;     (DECF CL-PPCRE::N)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM.
;       The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES
;                                                                                  FIXNUM
;                                                                                  &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE
;                                                                       64).
;       The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   64)
;                                                                                  &OPTIONAL).
;       etc.

; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION
;     (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET)
;           CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
;           CL-PPCRE::END
;           CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF 
; ==>
;   (>= CL-PPCRE::CODE #:LIM0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET)
;           CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
;           CL-PPCRE::END
;           CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF 
; ==>
;   (>= CL-PPCRE::CODE #:LIM0)
; 
; note: forced to do full call
;       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.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/charset-tmpJAIDFZTC.fasl
; compilation finished in 0:00:00.032
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/charmap.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/charmap.lisp
; in: DEFUN MAKE-CHARMAP
;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION
;     (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
;           CL-PPCRE::END
;           CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
;           CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF 
; ==>
;   (>= CL-PPCRE::CODE #:LIM0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
;                                                        CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
;           CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
;           CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF 
; ==>
;   (< CL-PPCRE::CODE #:LIM16)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
;           CL-PPCRE::END
;           CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
;           CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF 
; ==>
;   (>= CL-PPCRE::CODE #:LIM0)
; 
; note: forced to do full call
;       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.

;     (1- CL-PPCRE::END)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
;                                                        CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
;           CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
;           CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF 
; ==>
;   (< CL-PPCRE::CODE #:LIM16)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/charmap-tmp8V3J6PE9.fasl
; compilation finished in 0:00:00.040
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/chartest.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/chartest.lisp
; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION
;     (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE)
;           CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
;           CL-PPCRE::END
;           CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF 
; ==>
;   (>= CL-PPCRE::CODE #:LIM0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE)
;           CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
;           CL-PPCRE::END
;           CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF 
; ==>
;   (>= CL-PPCRE::CODE #:LIM0)
; 
; note: forced to do full call
;       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.

; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION
;     (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
; 
; note: unable to
;   convert division by 2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
; 
; note: unable to
;   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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
; 
; note: unable to
;   convert division by 2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.

;     (- CL-PPCRE::END CL-PPCRE::START)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

;     (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET)
;         (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2))
; 
; note: forced to do >-FIXNUM-INTEGER (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 full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

;     (<= (HASH-TABLE-COUNT HASH-TABLE)
;         (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2))
; 
; note: forced to do >-FIXNUM-INTEGER (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a INTEGER, not a FIXNUM.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/chartest-tmp9V47YWQF.fasl
; compilation finished in 0:00:00.016
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/lexer.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/lexer.lisp
; in: DEFUN NEXT-CHAR
;     (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
;                                     "Comment group not closed.")
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN UNESCAPE-CHAR
;     (CHAR-UPCASE CL-PPCRE::NEXT-CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

; in: DECLAIM (INLINE UNGET-TOKEN)
;     (DECLAIM (INLINE CL-PPCRE::UNGET-TOKEN))
; ==>
;   (SB-C::%PROCLAIM '(INLINE CL-PPCRE::UNGET-TOKEN) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CL-PPCRE::UNGET-TOKEN to be INLINE, but 1 call to it was previously
;   compiled. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/lexer-tmp9BN22RMA.fasl
; compilation finished in 0:00:00.156
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "cl-ppcre" "lexer">
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/parser.lisp" (written 15 NOV 2018 12:48:56 AM):

; 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.")
; 
; note: doing signed word to integer coercion (cost 20)


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/parser-tmp1CXFJSK9.fasl
; compilation finished in 0:00:00.028
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/regex-class.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
;     (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

;     (LENGTH (CL-PPCRE::STR CL-PPCRE::STR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/regex-class-tmpX4BRKI0R.fasl
; compilation finished in 0:00:00.020
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/regex-class-util.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD CASE-MODE (STR T)
;     (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFMETHOD EVERYTHINGP (SEQ)
;     (LENGTH CL-PPCRE::CLEANED-ELEMENTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFMETHOD EVERYTHINGP (ALTERNATION)
;     (LENGTH CL-PPCRE::CHOICES)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFMETHOD EVERYTHINGP (REPETITION)
;     (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1))
;                               (COMPLEX (SINGLE-FLOAT 1.0 1.0))
;                               (COMPLEX
;                                (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1))
;                               (COMPLEX (SINGLE-FLOAT 1.0 1.0))
;                               (COMPLEX
;                                (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1))
;                               (COMPLEX (SINGLE-FLOAT 1.0 1.0))
;                               (COMPLEX
;                                (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX
;                                                                     SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1))
;                               (COMPLEX (SINGLE-FLOAT 1.0 1.0))
;                               (COMPLEX
;                                (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX
;                                                                     DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1))
;                                   (COMPLEX (SINGLE-FLOAT 1.0 1.0))
;                                   (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1))
;                                   (COMPLEX (SINGLE-FLOAT 1.0 1.0))
;                                   (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.

; in: DEFMETHOD REGEX-LENGTH (SEQ)
;     (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
;                                                           CL-PPCRE::SEQ)
;           CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH
;                                          CL-PPCRE::SUB-REGEX)
;           IF (NOT CL-PPCRE::LEN)
;           DO ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:SUM6 CL-PPCRE::LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD REGEX-LENGTH (ALTERNATION)
;     (/= 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 SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

; in: DEFMETHOD REGEX-LENGTH (BRANCH)
;     (EQL CL-PPCRE::THEN-LENGTH
;          (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (NOT NULL), not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFMETHOD REGEX-LENGTH (REPETITION)
;     (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second 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.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.

;     (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ)
;     (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
;                                                           CL-PPCRE::SEQ)
;           CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
;                                          CL-PPCRE::SUB-REGEX)
;           CL-PPCRE::SUM CL-PPCRE::LEN)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:SUM6 CL-PPCRE::LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION)
;     (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES
;                                                           CL-PPCRE::ALTERNATION)
;           CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
;                                          CL-PPCRE::SUB-REGEX)
;           CL-PPCRE::MINIMIZE CL-PPCRE::LEN)
; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY 
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF 
; ==>
;   (< #:MINMAXTMP10 #:MINMAX9)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH)
;     (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH))
;          (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION)
;     (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
;        (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T)
;     (/= 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 SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

; 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: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (NOT NULL), not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T)
;     (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T)
;     (1+ CL-PPCRE::START-POS)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T)
;     (1+ CL-PPCRE::START-POS)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-OFFSETS (STR T)
;     (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T)
;     (+ CL-PPCRE::START-POS CL-PPCRE::LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/regex-class-util-tmpQ371UGST.fasl
; compilation finished in 0:00:00.120
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/convert.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/convert.lisp
; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION
;     (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (CHAR-DOWNCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (CHAR-UPCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (CHAR-DOWNCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (CHAR-UPCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (CHAR-DOWNCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-UPCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (CHAR-DOWNCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-UPCASE CHAR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

;     (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST-FUNCTION is not known to be a function

; in: DEFUN MAYBE-SPLIT-REPETITION
;     (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN MAYBE-ACCUMULATE
;     (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
;                   (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
;                      (CL-PPCRE::LEN CL-PPCRE::STR)))
;             (CL-PPCRE::STR CL-PPCRE::STR)
;           (CL-PPCRE::SKIP CL-PPCRE::STR) T)
; --> SETF LET* 
; ==>
;   (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
;   The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
;   The second argument is a SEQUENCE, not a (OR NULL
;                                                (SIMPLE-ARRAY CHARACTER (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (OR NULL
;                                               (SIMPLE-ARRAY CHARACTER (*))).
;   The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).

;     (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS
;                 (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER
;                 :FILL-POINTER T :ADJUSTABLE T)
; 
; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).

;     (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
;             (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
;                (CL-PPCRE::LEN CL-PPCRE::STR)))
; --> FUNCALL 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T)
;     (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T)
;     (ZEROP LENGTH)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T)
;     (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T)
;     (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL
;                               CHARACTER), not a SIMPLE-BASE-STRING.
;   The second argument is a (OR STRING (AND SYMBOL (NOT NULL))
;                                CHARACTER), not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                CHARACTER (*)).
;   The second argument is a (OR STRING (AND SYMBOL (NOT NULL))
;                                CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)).

;     (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 full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES
;           CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0
;           WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
;           CL-PPCRE::COLLECT ...)
; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (1- CL-PPCRE::BACKREF-NUMBER)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN CONVERT
;     (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/convert-tmp2OWI3Q7U.fasl
; compilation finished in 0:00:00.232
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/optimize.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/optimize.lisp
; in: DEFMETHOD GATHER-STRINGS (SEQ)
;     (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR
;                 :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL).

;     (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT))
; --> THE 
; ==>
;   (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFMETHOD START-ANCHORED-P (REPETITION)
;     (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFMETHOD START-ANCHORED-P (REGEX)
;     (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFMETHOD END-STRING-AUX (SEQ)
;     (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS
;                 (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START))
;                 :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).

;     (CHAR CL-PPCRE::STR CL-PPCRE::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T)
;     (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES
;                                                        CL-PPCRE::ALTERNATION)
;           CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE
;                               CL-PPCRE::CURRENT-MIN-REST))
; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY 
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF 
; ==>
;   (< #:MINMAXTMP11 #:MINMAX10)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T)
;     (MIN
;      (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)
;       CL-PPCRE::CURRENT-MIN-REST)
;      (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
;       CL-PPCRE::CURRENT-MIN-REST))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFMETHOD COMPUTE-MIN-REST (STR T)
;     (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T)
;     (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T)
;     (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
;        (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ CL-PPCRE::CURRENT-MIN-REST
;        (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
;           (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T)
;     (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T)
;     (1+ CL-PPCRE::CURRENT-MIN-REST)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/optimize-tmp9KKTJMYV.fasl
; compilation finished in 0:00:00.064
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/closures.lisp" (written 15 NOV 2018 12:48:56 AM):

; 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))
; 
; 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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T)
;     (FUNCALL 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)

; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T)
;     (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS
;                                          (SCHAR CL-PPCRE::*STRING*
;                                                 CL-PPCRE::START-POS))
;       (LAMBDA (CL-PPCRE::START-POS)
;         (DECLARE (FIXNUM CL-PPCRE::START-POS))
;         (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
;              (CL-PPCRE::CHAR-CLASS-TEST)
;              (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS)))))
; --> LET LAMBDA FUNCTION AND IF IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFMETHOD CREATE-MATCHER-AUX (STR T)
;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS
;      CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; --> LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (LENGTH CL-PPCRE::END-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS
;      CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (FUNCALL 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)

; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T)
;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS
;      CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T)
;     (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   FN is not known to be a function

;     (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   NEXT-FN is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/closures-tmpJU0JWO19.fasl
; compilation finished in 0:00:00.072
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/repetition-closures.lisp" (written 15 NOV 2018 12:48:56 AM):

; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK 
; --> TAGBODY WHEN IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                               (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                               CL-PPCRE::LEN)
; --> LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                               (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                               CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   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))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       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))
; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       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))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
;                           (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
;                                          (SCHAR CL-PPCRE::*STRING*
;                                                 CL-PPCRE::CURR-POS))
;       (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
;                                          (SCHAR CL-PPCRE::*STRING*
;                                                 CL-PPCRE::CURR-POS))
;       (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
;                           (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                                (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                                CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0
;           (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL)
; --> SETF LET* FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
;     (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
;                                          (SCHAR CL-PPCRE::*STRING*
;                                                 CL-PPCRE::CURR-POS))
;       (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                               (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                               CL-PPCRE::LEN)
; --> LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                               (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                               CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
;                           (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                                (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                                CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                                (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                                CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
;                           (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       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 CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163709 13835058055282163712)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -13835058055282163709
;                                 13835058055282163712), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LAMBDA FUNCTION LET 1+ 
; ==>
;   1
; 
; note: forced to do -/SIGNED=>INTEGER (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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163710 13835058055282163711)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163710
;                                13835058055282163711), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
;                                          (SCHAR CL-PPCRE::*STRING*
;                                                 CL-PPCRE::CURR-POS))
;       (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 
; --> MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
;                           (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
;                                (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
;                                CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
;      (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0
;           (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL)
; --> SETF LET* FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; in:
;      DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T)
;     (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
;                                          (SCHAR CL-PPCRE::*STRING*
;                                                 CL-PPCRE::CURR-POS))
;       (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
;        (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION 
; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
;                               0 CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0
;           (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL)
; --> SETF LET* FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

;     (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.

; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T)
;     (ZEROP CL-PPCRE::MAXIMUM)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second 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.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second 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.
;   The second argument is a T, not a DOUBLE-FLOAT.

;     (PLUSP CL-PPCRE::MIN-LEN)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (PLUSP CL-PPCRE::LEN)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (PLUSP CL-PPCRE::MIN-LEN)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

;     (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.

;     (PLUSP CL-PPCRE::MIN-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (PLUSP CL-PPCRE::LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (PLUSP CL-PPCRE::MIN-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/repetition-closures-tmpZX2WN8N4.fasl
; compilation finished in 0:00:00.140
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/scanner.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
;     (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF 
; --> AND IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

;     (LENGTH CL-PPCRE::PATTERN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS
;             :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN CREATE-CHAR-SEARCHER
;     (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF 
; ==>
;   (CHAR-EQUAL (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.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; in: DEFUN CREATE-SCANNER-AUX
;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
;       (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
;           (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
;       (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
;         (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
;           (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
;       (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
;         (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
;           (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
;       (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
;         (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
;                (FUNCTION CL-PPCRE::END-STRING-TEST))
;       (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;             (LOCALLY
;              (DECLARE #)
;              (WHEN # #)
;              (LET #
;                #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
;                (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
;       (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;             (LOCALLY
;              (DECLARE #)
;              (WHEN # #)
;              (LET #
;                #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF 
; --> NOT 
; ==>
;   1
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
;   The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a CHARACTER, not a BASE-CHAR.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
;       (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
;           (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
;       (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
;         (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
;           (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
;       (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
;         (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
;       (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;       (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
;           (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
;       (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
;         (RETURN-FROM CL-PPCRE:SCAN NIL))
;       CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
;                (FUNCTION CL-PPCRE::END-STRING-TEST))
;       (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;             (LOCALLY
;              (DECLARE #)
;              (WHEN # #)
;              (LET #
;                #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CL-PPCRE::INSERT-ADVANCE-FN
;      (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
;       (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
;                (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
;       (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
;             (LOCALLY
;              (DECLARE #)
;              (WHEN # #)
;              (LET #
;                #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF < 
; ==>
;   (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                              &OPTIONAL).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF AND IF 
; ==>
;   (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;      CL-PPCRE::*END-POS*)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       etc.

; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY 
; --> PROGN LET COND IF IF INCF SETQ THE 
; ==>
;   (+ 1 CL-PPCRE::*END-STRING-POS*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
; 
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; 
; note: doing signed word to integer coercion (cost 20) from TRY-POS


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/scanner-tmpOU81XRV0.fasl
; compilation finished in 0:00:00.264
; compiling file "/<<PKGBUILDDIR>>/cl-ppcre/api.lisp" (written 15 NOV 2018 12:48:56 AM):

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

; in: DEFMETHOD CREATE-SCANNER (T)
;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFMETHOD SCAN (STRING T)
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)
;              (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;              CL-PPCRE::START CL-PPCRE::END)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

; in: DEFMETHOD SCAN #'T
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

; in: DEFMETHOD SCAN (T T)
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)
;              (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;              CL-PPCRE::START CL-PPCRE::END)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

; in: DEFUN SCAN-TO-STRINGS
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (MAP 'VECTOR
;          (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
;            (IF CL-PPCRE::REG-START
;                (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING
;                         CL-PPCRE::REG-START CL-PPCRE::REG-END)
;                NIL))
;          CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFMACRO DO-SCANS
;     (DEFMACRO CL-PPCRE:DO-SCANS
;               (
;                (CL-PPCRE::MATCH-START
;                 CL-PPCRE::MATCH-END
;                 CL-PPCRE::REG-STARTS
;                 CL-PPCRE::REG-ENDS
;                 CL-PPCRE::REGEX
;                 CL-PPCRE::TARGET-STRING
;                 &OPTIONAL
;                 CL-PPCRE::RESULT-FORM
;                 &KEY
;                 CL-PPCRE::START
;                 CL-PPCRE::END)
;                &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV)
;       #<(SIMPLE-ARRAY CHARACTER
;          (495)) Iterates over TARGET-STRING and tries to match REGEX as often as
;   possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and
;   REG-ENDS bound to the four return values of each match in turn.  ... {100DC77EBF}>
;       (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING)
;         (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END
;                                       CL-PPCRE::%REGEX CL-PPCRE::SCANNER)
;           (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER))
;           `(BLOCK NIL
;              (LET* #
;                #
;                #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END
;                                                      REG-STARTS REG-ENDS REGEX
;                                                      TARGET-STRING &OPTIONAL
;                                                      RESULT-FORM &KEY START END)

; in: DEFMACRO DO-MATCHES
;     (DEFMACRO CL-PPCRE:DO-MATCHES
;               (
;                (CL-PPCRE::MATCH-START
;                 CL-PPCRE::MATCH-END
;                 CL-PPCRE::REGEX
;                 CL-PPCRE::TARGET-STRING
;                 &OPTIONAL
;                 CL-PPCRE::RESULT-FORM
;                 &KEY
;                 CL-PPCRE::START
;                 CL-PPCRE::END)
;                &BODY CL-PPCRE::BODY)
;       #<(SIMPLE-ARRAY CHARACTER
;          (477)) Iterates over TARGET-STRING and tries to match REGEX as often as
;   possible evaluating BODY with MATCH-START and MATCH-END bound to the
;   start/end positions of each match in turn.  After the last match,
;   ... {100E07134F}>
;       (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;         `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END
;                              ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS
;                              ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING
;                              ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END
;                              ,CL-PPCRE::END)
;            ,@CL-PPCRE::BODY)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX
;                                                      TARGET-STRING &OPTIONAL
;                                                      RESULT-FORM &KEY START END)

; in: DEFMACRO DO-MATCHES-AS-STRINGS
;     (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS
;               (
;                (CL-PPCRE::MATCH-VAR
;                 CL-PPCRE::REGEX
;                 CL-PPCRE::TARGET-STRING
;                 &OPTIONAL
;                 CL-PPCRE::RESULT-FORM
;                 &KEY
;                 CL-PPCRE::START
;                 CL-PPCRE::END
;                 CL-PPCRE::SHAREDP)
;                &BODY CL-PPCRE::BODY)
;       #<(SIMPLE-ARRAY CHARACTER
;          (569)) Iterates over TARGET-STRING and tries to match REGEX as often as
;   possible evaluating BODY with MATCH-VAR bound to the substring of
;   TARGET-STRING corresponding to each match in turn.  After the last
;   ma... {100E1DCD0F}>
;       (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING)
;         (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                                       CL-PPCRE::SUBSTR-FN)
;           `(LET (#)
;              (CL-PPCRE:DO-MATCHES #
;                #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX
;                                                      TARGET-STRING &OPTIONAL
;                                                      RESULT-FORM &KEY START END
;                                                      SHAREDP)

; in: DEFMACRO DO-REGISTER-GROUPS
;     (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS
;               (CL-PPCRE::VAR-LIST
;                (CL-PPCRE::REGEX
;                 CL-PPCRE::TARGET-STRING
;                 &OPTIONAL
;                 CL-PPCRE::RESULT-FORM
;                 &KEY
;                 CL-PPCRE::START
;                 CL-PPCRE::END
;                 CL-PPCRE::SHAREDP)
;                &BODY CL-PPCRE::BODY)
;       #<(SIMPLE-ARRAY CHARACTER
;          (820)) Iterates over TARGET-STRING and tries to match REGEX as often as
;   possible evaluating BODY with the variables in VAR-LIST bound to the
;   corresponding register groups for each match in turn, i.e. each
;   va... {100E3BA38F}>
;       (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING)
;         (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START
;                                       CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS
;                                       CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX)
;           `(LET (#)
;              (CL-PPCRE:DO-SCANS #
;                #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING
;                                                            &OPTIONAL RESULT-FORM
;                                                            &KEY START END SHAREDP)

; in: DEFUN ALL-MATCHES
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                           CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING
;                           (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START
;                           :END CL-PPCRE::END)
;       (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST)
;       (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST))
; --> LET BLOCK LET* OR LET IF 
; ==>
;   (LENGTH #:TARGET-STRING3)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND 
; --> IF THE COERCE 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

; --> 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 SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

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

; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 
; ==>
;   (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN ALL-MATCHES-AS-STRINGS
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX
;                                      CL-PPCRE::TARGET-STRING
;                                      (NREVERSE CL-PPCRE::RESULT-LIST) :START
;                                      CL-PPCRE::START :END CL-PPCRE::END :SHAREDP
;                                      CL-PPCRE::SHAREDP)
;       (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST))
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF 
; ==>
;   (LENGTH #:TARGET-STRING7)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE 
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK 
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE 
; --> IF 
; ==>
;   (= #:MATCH-START2 #:MATCH-END3)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

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

; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK 
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE 
; --> IF 
; ==>
;   (= #:MATCH-START2 #:MATCH-END3)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK 
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE 
; --> IF 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN SPLIT
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                         CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
;                         CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
;                         CL-PPCRE::END)
;       (UNLESS
;           (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;                (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
;         (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
;         (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
;         (WHEN CL-PPCRE::WITH-REGISTERS-P
;           (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
;                 CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
;                 IF CL-PPCRE::REG-START
;                 DO ...))
;         (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* OR LET IF 
; ==>
;   (LENGTH #:TARGET-STRING1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF 
; --> THE COERCE 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

;     (= 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 SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
;           CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
;           IF CL-PPCRE::REG-START
;           DO ...)
; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

;     (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                         CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
;                         CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
;                         CL-PPCRE::END)
;       (UNLESS
;           (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;                (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
;         (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
;         (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
;         (WHEN CL-PPCRE::WITH-REGISTERS-P
;           (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
;                 CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
;                 IF CL-PPCRE::REG-START
;                 DO ...))
;         (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 
; ==>
;   (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   1
; 
; note: unable to
;   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 SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

;     (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

;     (INCF CL-PPCRE::COUNTER)
; --> THE 
; ==>
;   (+ 1 CL-PPCRE::COUNTER)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                         CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
;                         CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
;                         CL-PPCRE::END)
;       (UNLESS
;           (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;                (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
;         (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
;         (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
;         (WHEN CL-PPCRE::WITH-REGISTERS-P
;           (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
;                 CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
;                 IF CL-PPCRE::REG-START
;                 DO ...))
;         (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 
; ==>
;   (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN STRING-CASE-MODIFIER
;     (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR CL-PPCRE::STR CL-PPCRE::TO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING)
;     (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START
;                  CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END)
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (< CL-PPCRE::FROM CL-PPCRE::MATCH-START)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (1-
;      (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START
;                     :JUNK-ALLOWED T))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.

;     (< CL-PPCRE::TOKEN 0)
; 
; note: forced to do <-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.

; 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)
; 
; note: unable to open code because: can't determine sequence argument type

;     (APPLY CL-PPCRE::TOKEN
;            (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
;                               CL-PPCRE::MATCH-END)
;            (MAP 'LIST
;                 (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
;                   (AND CL-PPCRE::REG-START
;                        (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
;                                           CL-PPCRE::REG-START
;                                           CL-PPCRE::REG-END)))
;                 CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TOKEN is 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)
; 
; note: unable to open code because: can't determine sequence argument type

;     (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START
;              CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;              CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TOKEN is not known to be a function

;     (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
;                        CL-PPCRE::REG-END)
; --> MAKE-ARRAY 
; ==>
;   (- CL-PPCRE::END CL-PPCRE::START)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
; 
; note: forced to do <-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.

;     (1+ CL-PPCRE::TOKEN)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
;                        CL-PPCRE::MATCH-END)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       etc.

; --> MAKE-ARRAY 
; ==>
;   (- CL-PPCRE::END CL-PPCRE::START)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN REGEX-REPLACE
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN REGEX-REPLACE-ALL
;     (LENGTH CL-PPCRE::TARGET-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                         CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
;                         CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
;                         CL-PPCRE::END)
;       (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
;       (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
;       (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
;       (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> BLOCK LET* OR LET IF 
; ==>
;   (LENGTH #:TARGET-STRING1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF 
; --> THE COERCE 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST
;                               (AND (NOT SIMPLE-BASE-STRING)
;                                    (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
;                                                                        (SIMPLE-ARRAY
;                                                                         * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST
;                                (AND (NOT SIMPLE-BASE-STRING)
;                                     (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR)
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
;                                                                     SIMPLE-BASE-STRING
;                                                                     NULL).

; --> 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 SINGLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   1
; 
; note: unable to
;   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.

;     (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
;                         CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
;                         CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
;                         CL-PPCRE::END)
;       (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
;       (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
;       (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
;       (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 
; ==>
;   (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       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 DOUBLE-FLOAT.

; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN REGEX-APROPOS-LIST
;     (DEFUN CL-PPCRE:REGEX-APROPOS-LIST
;            (CL-PPCRE::REGEX
;             &OPTIONAL CL-PPCRE::PACKAGES
;             &KEY (CL-PPCRE::CASE-INSENSITIVE T))
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       #<(SIMPLE-ARRAY CHARACTER
;          (221)) Similar to the standard function APROPOS-LIST but returns a list of
;   all symbols which match the regular expression REGEX.  If
;   CASE-INSENSITIVE is true and REGEX isn't already a scanner, a
;   case-insensi... {1003941CDF}>
;       (LET ((CL-PPCRE::COLLECTOR 'NIL))
;         (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
;                                                       CL-PPCRE::CASE-INSENSITIVE
;                                                       CL-PPCRE::COLLECTOR)
;           (PUSH SYMBOL CL-PPCRE::COLLECTOR))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST
;         (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY
;                          (CL-PPCRE::CASE-INSENSITIVE T))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (221)) Similar to the standard function APROPOS-LIST but returns a list of
; all symbols which match the regular expression REGEX.  If
; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a
; case-insensi... {1003941CDF}>
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (BLOCK CL-PPCRE:REGEX-APROPOS-LIST
;         (LET ((CL-PPCRE::COLLECTOR 'NIL))
;           (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
;                                                         CL-PPCRE::CASE-INSENSITIVE
;                                                         CL-PPCRE::COLLECTOR)
;             (PUSH SYMBOL CL-PPCRE::COLLECTOR)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES
;                                                            &KEY
;                                                            (CASE-INSENSITIVE T))

; in: DEFUN REGEX-APROPOS
;     (DEFUN CL-PPCRE:REGEX-APROPOS
;            (CL-PPCRE::REGEX
;             &OPTIONAL CL-PPCRE::PACKAGES
;             &KEY (CL-PPCRE::CASE-INSENSITIVE T))
;       #<(SIMPLE-ARRAY CHARACTER
;          (216)) Similar to the standard function APROPOS but returns a list of all
;   symbols which match the regular expression REGEX.  If CASE-INSENSITIVE
;   is true and REGEX isn't already a scanner, a case-insensitive ... {1003D939FF}>
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
;                                                     CL-PPCRE::CASE-INSENSITIVE)
;         (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
;       (VALUES))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS
;         (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY
;                          (CL-PPCRE::CASE-INSENSITIVE T))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (216)) Similar to the standard function APROPOS but returns a list of all
; symbols which match the regular expression REGEX.  If CASE-INSENSITIVE
; is true and REGEX isn't already a scanner, a case-insensitive ... {1003D939FF}>
;       (DECLARE
;        (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
;       (BLOCK CL-PPCRE:REGEX-APROPOS
;         (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
;                                                       CL-PPCRE::CASE-INSENSITIVE)
;           (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
;         (VALUES)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES
;                                                            &KEY
;                                                            (CASE-INSENSITIVE T))


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cl-ppcre/api-tmpY2ML9CFA.fasl
; compilation finished in 0:00:00.268
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "cl-ppcre" "api">
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
;   printed 641 notes
STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD EVAL
WARNING: System definition file #P"/<<PKGBUILDDIR>>/sysdef.asd" contains definition for system "chaosx". Please only define "sysdef" and secondary systems with a name starting with "sysdef/" (e.g. "sysdef/test") in that file.
; compiling file "/<<PKGBUILDDIR>>/chaos-package.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos-package-tmpX2JYJDQE.fasl
; compilation finished in 0:00:00.004
; compiling file "/<<PKGBUILDDIR>>/version.lisp" (written 15 NOV 2024 08:56:34 PM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/version-tmpOPCILR65.fasl
; compilation finished in 0:00:00.004
; compiling file "/<<PKGBUILDDIR>>/comlib/globals.lisp" (written 17 JAN 2019 06:56:23 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/globals-tmpRV9F8A9A.fasl
; compilation finished in 0:00:00.056
; compiling file "/<<PKGBUILDDIR>>/comlib/macros.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/macros-tmpK2ZAJT4I.fasl
; compilation finished in 0:00:00.036
; compiling file "/<<PKGBUILDDIR>>/comlib/print-utils.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/comlib/print-utils.lisp
; in: DEFUN PRINT-TO-RIGHT
;     (- (1- CHAOS::.TERMINAL-WIDTH.) (CHAOS::FILECOL STREAM) CHAOS::*PRINT-INDENT*
;        (THE FIXNUM (LENGTH STRING)))
; 
; note: forced to do -/SIGNED=>INTEGER (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4611686018427387834 4611686018427387973), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775737 9223372036854775877)
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -4611686018427387834 4611686018427387973), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775737 9223372036854775877)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -9223372036854775737 9223372036854775877), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223407221226864568 9223372036854775877)
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775737 9223372036854775877), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The result is a (VALUES
;                        (INTEGER -9223407221226864568 9223372036854775877)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (DOTIMES
;         (CHAOS::X
;          (- (1- CHAOS::.TERMINAL-WIDTH.) (CHAOS::FILECOL STREAM)
;             CHAOS::*PRINT-INDENT* (THE FIXNUM (LENGTH STRING))))
;       (DECLARE (TYPE FIXNUM CHAOS::X))
;       (PRINC CHAOS::FILL-CHAR STREAM))
; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do <-FIXNUM-INTEGER (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a (INTEGER -9223407221226864568
;                                 9223372036854775877), not a FIXNUM.

; in: DEFUN PRINT-TO-LEFT
;     (- (1- CHAOS::*PRINT-LINE-LIMIT*) CHAOS::*PRINT-INDENT*
;        (CHAOS::FILECOL STREAM) (LENGTH STRING))
; 
; note: forced to do -/SIGNED=>INTEGER (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -13835058055282163711 13835058055282163710)
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835058055282163711 13835058055282163710)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -13835058055282163711
;                                13835058055282163710), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -13835093239654252542 13835058055282163710)
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -13835058055282163711
;                                13835058055282163710), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -13835093239654252542 13835058055282163710)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (DOTIMES
;         (CHAOS::X
;          (- (1- CHAOS::*PRINT-LINE-LIMIT*) CHAOS::*PRINT-INDENT*
;             (CHAOS::FILECOL STREAM) (LENGTH STRING)))
;       (DECLARE (TYPE FIXNUM CHAOS::X))
;       (PRINC CHAOS::FILL-CHAR STREAM))
; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do <-FIXNUM-INTEGER (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a (INTEGER -13835093239654252542
;                                 13835058055282163710), not a FIXNUM.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/print-utils-tmpUX5S4ADN.fasl
; compilation finished in 0:00:00.016
; compiling file "/<<PKGBUILDDIR>>/comlib/message.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/comlib/message.lisp
; in: DEFUN SET-VERBOSE-LVL
;     (<= CHAOS::LVL 3)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; in: DEFUN SET-VERBOSE-OFF
;     (ZEROP CHAOS::*MSG-LVL*)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN SET-EXPORT-OFF
;     (= CHAOS::*MSG-LVL* 2)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN SET-QUIET-OFF
;     (= CHAOS::*MSG-LVL* 3)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN OUTPUT-MSG
;     (>= (CHAOS::GET-MSG-LEVEL CHAOS::ID) CHAOS::*MSG-LVL*)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

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

;     (>= (CHAOS::GET-MSG-LEVEL CHAOS::ID) CHAOS::*MSG-LVL*)
; 
; note: forced to do full call
;       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.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/message-tmp10401X32.fasl
; compilation finished in 0:00:00.048
; compiling file "/<<PKGBUILDDIR>>/comlib/error.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/error-tmpZ7CBRM0G.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/comlib/misc.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/comlib/misc.lisp
; in: DEFUN OB-COMPARE
;     (< CHAOS::X CHAOS::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT RATIO), not a SINGLE-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 (OR FLOAT RATIO), not a DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (< CHAOS::Y CHAOS::X)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
;   The second argument is a (OR FLOAT RATIO), not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
;   The second argument is a (OR FLOAT RATIO), not a RATIONAL.

;     (LENGTH CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE
;                               (AND (NOT BASE-STRING) (NOT (VECTOR CHARACTER))
;                                    VECTOR)), not a VECTOR.

;     (LENGTH CHAOS::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (ELT CHAOS::X CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE
;                               (AND (NOT BASE-STRING) (NOT (VECTOR CHARACTER))
;                                    VECTOR)), not a (SIMPLE-ARRAY * (*)).

;     (ELT CHAOS::Y CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (< CHAOS::X CHAOS::Y)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR FLOAT RATIO), not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR FLOAT RATIO), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (< CHAOS::Y CHAOS::X)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a (OR FLOAT RATIO), not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a (OR FLOAT RATIO), not a DOUBLE-FLOAT.

;     (< (THE INTEGER CHAOS::X) (THE INTEGER CHAOS::Y))
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (< (THE INTEGER CHAOS::Y) (THE INTEGER CHAOS::X))
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN READ-CHAR-WAIT
;     (< (+ CHAOS::START CHAOS::TIMEOUT) (CHAOS::INTERNAL-REAL-TIME-IN-SECONDS))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (+ CHAOS::START CHAOS::TIMEOUT)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL 0 2305843009213693951/1000000), not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (RATIONAL 0 2305843009213693951/1000000), not a (UNSIGNED-BYTE
;                                                                                64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (< (+ CHAOS::START CHAOS::TIMEOUT) (CHAOS::INTERNAL-REAL-TIME-IN-SECONDS))
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a (RATIONAL 0 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The second argument is a (RATIONAL 0 2305843009213693951/1000000), not a (UNSIGNED-BYTE
;                                                                                 64).
;       etc.

; in: DEFUN ELAPSED-TIME-IN-SECONDS
;     (- CHAOS::NOW CHAOS::BASE)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.

;     (COERCE (/ (- CHAOS::NOW CHAOS::BASE) INTERNAL-TIME-UNITS-PER-SECOND) 'FLOAT)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 64).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 64).

; in: DEFUN TIME-IN-SECONDS
;     (COERCE (/ CHAOS::SUM INTERNAL-TIME-UNITS-PER-SECOND) 'FLOAT)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 64).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 64).

; in: DEFUN LIST2ARRAY
;     (MAKE-ARRAY (LENGTH LIST) :INITIAL-CONTENTS LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/misc-tmp9OZEQ0G2.fasl
; compilation finished in 0:00:00.092
; compiling file "/<<PKGBUILDDIR>>/comlib/string.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/string-tmpB2JTL1W9.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/comlib/list.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/list-tmpP3BI68WQ.fasl
; compilation finished in 0:00:00.004
; compiling file "/<<PKGBUILDDIR>>/comlib/dag.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/dag-tmpQDARA81Z.fasl
; compilation finished in 0:00:00.048
; compiling file "/<<PKGBUILDDIR>>/comlib/fsys.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/comlib/fsys.lisp
; in: DEFUN SUPPLY-SUFFIXES
;     (MAPCAR #'PATHNAME
;             (MAPCAR
;              #'(LAMBDA (CHAOS::X)
;                  (CONCATENATE 'STRING (NAMESTRING CHAOS::PATH)
;                               (NAMESTRING CHAOS::X)))
;              CHAOS::SUFFIXES))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING PATHNAME SYNONYM-STREAM
;                               FILE-STREAM), not a PATHNAME.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING PATHNAME SYNONYM-STREAM
;                               FILE-STREAM), not a STRING.

; in: DEFUN CHAOS-GET-RELATIVE-PATH
;     (PATHNAME CHAOS::FILE-PATH)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYNONYM-STREAM FILE-STREAM), not a STRING.

; in: DEFUN CHAOS-PRINT-DIRECTORY-STACK
;     (FORMAT STREAM "~%~a" CHAOS::*CHAOS-DIRECTORY-STACK*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN CHAOS-PUSHD
;     (LENGTH CHAOS::*CHAOS-DIRECTORY-STACK*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN CHAOS-INPUT-FILE
;     (APPLY CHAOS::PROC CHAOS::ARGS)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (>= (FILE-WRITE-DATE CHAOS::BIN-FNAME) (FILE-WRITE-DATE CHAOS::FNAME))
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN PR-SEARCH-PATH
;     (FORMAT STREAM "libpath = ~{~a~^:~}" CHAOS::*CHAOS-LIBPATH*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/fsys-tmpYEMMM7SE.fasl
; compilation finished in 0:00:00.112
; compiling file "/<<PKGBUILDDIR>>/comlib/tree-display.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/comlib/tree-display.lisp
; in: DEFUN AUGMENT-TREE
;     (FUNCALL CHAOS::LEAF? CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF? is not known to be a function

;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

;     (FUNCALL CHAOS::LEAF-INFO CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-INFO is not known to be a function

;     (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   INT-NODE-CHILDREN is not known to be a function

;     (FUNCALL CHAOS::INT-NODE-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   INT-NODE-NAME is not known to be a function

;     (* (- (THE FIXNUM (LENGTH (THE LIST CHAOS::CHILDREN))) 1) CHAOS::TREE-SPACING)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -1 274877906942), not a (UNSIGNED-BYTE
;                                                                 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ (* (- (THE FIXNUM (LENGTH #)) 1) CHAOS::TREE-SPACING)
;        (THE FIXNUM (APPLY #'+ (MAPCAR #'CHAOS::AUGM-TREE-WIDTH CHAOS::CHILDREN))))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ (- CHAOS::WIDTH (THE FIXNUM (CHAOS::AUGM-TREE-WIDTH CHAOS::LAST-CHILD)))
;        (+ (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::FIRST-CHILD))
;           (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::LAST-CHILD))))
; 
; note: forced to do +/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372036854775806), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -18446744073709551615 18446744073709551613)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (TRUNCATE
;      (+ (- 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))))
;      2.0)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a (OR
;                                (INTEGER -18446744073709551615
;                                 -4611686018427387905)
;                                (INTEGER 4611686018427387904
;                                 18446744073709551613)), not a (UNSIGNED-BYTE 64).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a (OR
;                                (INTEGER -18446744073709551615
;                                 -4611686018427387905)
;                                (INTEGER 4611686018427387904
;                                 18446744073709551613)), not a (SIGNED-BYTE 64).

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

; in: DEFUN TRAVERSE-TREE-CHECKING-DUPS
;     (FUNCALL CHAOS::LEAF? CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF? is not known to be a function

;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

;     (FUNCALL CHAOS::LEAF-INFO CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-INFO is not known to be a function

;     (FUNCALL CHAOS::INT-NODE-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   INT-NODE-NAME is not known to be a function

;     (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   INT-NODE-CHILDREN is not known to be a function

; in: DEFUN AUGMENT-TREE-AS-GRAPH-AUX
;     (FUNCALL CHAOS::INT-NODE-CHILDREN CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   INT-NODE-CHILDREN is not known to be a function

;     (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -1 274877906942), not a (UNSIGNED-BYTE
;                                                                 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ (* (- (THE FIXNUM (LENGTH CHAOS::CHILDREN)) 1) CHAOS::TREE-SPACING)
;        (THE FIXNUM (APPLY #'+ (MAPCAR #'CHAOS::AUGM-TREE-WIDTH CHAOS::CHILDREN))))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ (- CHAOS::WIDTH (THE FIXNUM (CHAOS::AUGM-TREE-WIDTH CHAOS::LAST-CHILD)))
;        (+ (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::FIRST-CHILD))
;           (THE FIXNUM (CHAOS::AUGM-TREE-ROOT CHAOS::LAST-CHILD))))
; 
; note: forced to do +/SIGNED=>INTEGER (cost 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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE
;                                                                                          64).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372036854775806), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (INTEGER -18446744073709551615 18446744073709551613)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (TRUNCATE
;      (+ (- 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))))
;      2.0)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a (OR
;                                (INTEGER -18446744073709551615
;                                 -4611686018427387905)
;                                (INTEGER 4611686018427387904
;                                 18446744073709551613)), not a (UNSIGNED-BYTE 64).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a (OR
;                                (INTEGER -18446744073709551615
;                                 -4611686018427387905)
;                                (INTEGER 4611686018427387904
;                                 18446744073709551613)), not a (SIGNED-BYTE 64).

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

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

;     (+ CHAOS::LPAD CHAOS::ROOT1)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ CHAOS::ROOT CHAOS::TREE-SPACING CHAOS::RIGHT)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ CHAOS::ROOT 1)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (- CHAOS::WIDTH (+ CHAOS::ROOT 1))
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (+ CHAOS::RIGHT CHAOS::RPAD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       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


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/tree-display-tmp73HU0RPK.fasl
; compilation finished in 0:00:00.080
; compiling file "/<<PKGBUILDDIR>>/comlib/lex.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/comlib/lex.lisp
; in: DEFUN LEX-SHOW-DELIMITERS
;     (FORMAT STREAM "~%~S : ~S" (CODE-CHAR CHAOS::X) CHAOS::SYNTAX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN !SET-SINGLE-READER
;     (STRING CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SIMPLE-STRING CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SIMPLE-STRING CHARACTER), not a STRING.

; in: DEFUN STR-MATCH?
;     (STRING= (THE SIMPLE-STRING CHAOS::X)
;              (IF (STRINGP CHAOS::Y)
;                  (THE SIMPLE-STRING CHAOS::Y)
;                  (STRING-DOWNCASE (STRING (THE SYMBOL CHAOS::Y)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN READER-GET-CHAR
;     (INCF CHAOS::.NEWLINE-COUNT.)
; --> THE 
; ==>
;   (+ 1 CHAOS::.NEWLINE-COUNT.)
; 
; note: unable to
;   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 SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (INCF CHAOS::.NEWLINE-COUNT.)
; --> THE 
; ==>
;   (+ 1 CHAOS::.NEWLINE-COUNT.)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (> CHAOS::.NEWLINE-COUNT. 2)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN READ-LEXICON
;     (STRING CHAOS::.READER-CH.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN READER-SUPPRESS-CH
;     (STRING CHAOS::.READER-CH.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN READ-SYM
;     (STRING CHAOS::.READER-CH.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN !FORCE-SINGLE-READER
;     (CHAR (THE STRING CHAOS::X) 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

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

; in: DEFUN !UNSET-SINGLE-READER
;     (CHAR (THE STRING CHAOS::X) 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/lex-tmpIO5N7K88.fasl
; compilation finished in 0:00:00.120
; compiling file "/<<PKGBUILDDIR>>/comlib/reader.lisp" (written 15 NOV 2018 12:48:56 AM):

; 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 CHARACTER SYMBOL), not a (OR STRING SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CHARACTER SYMBOL), not a SYMBOL.

;     (STRING= (THE SIMPLE-STRING CHAOS::X)
;              (IF (STRINGP CHAOS::Y)
;                  (THE SIMPLE-STRING CHAOS::Y)
;                  (THE SIMPLE-STRING (STRING-DOWNCASE (STRING CHAOS::Y)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN GENERAL-READ-STRING-MATCHES
;     (FUNCALL (CADR CHAOS::Y) CHAOS::X)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN GENERAL-READ-SHOW-CONTEXT
;     (EQUAL CHAOS::*READER-STARTING-POSITION* (FILE-POSITION *STANDARD-INPUT*))
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a (OR UNSIGNED-BYTE BOOLEAN), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The second argument is a (OR UNSIGNED-BYTE BOOLEAN), not a (UNSIGNED-BYTE
;                                                                   64).
;       etc.

; in: DEFUN GENERAL-READ-PRINT-SCHEMA
;     (EQL CHAOS::CONTROL-D CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a ATOM, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a ATOM, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a ATOM, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The second argument is a ATOM, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/reader-tmpCM21U60Z.fasl
; compilation finished in 0:00:00.076
; compiling file "/<<PKGBUILDDIR>>/comlib/let-over-lambda.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/comlib/let-over-lambda-tmp9DT7SEFG.fasl
; compilation finished in 0:00:00.108
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bterm.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bterm-tmp8065ESJT.fasl
; compilation finished in 0:00:00.240
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/defterm.lisp" (written 17 JAN 2019 06:56:23 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

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

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

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

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

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

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


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/defterm-tmp7S8Z6FGF.fasl
; compilation finished in 0:00:00.260
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bobject.lisp" (written 04 MAR 2019 06:26:47 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bobject-tmpSIT3QPKP.fasl
; compilation finished in 0:00:00.248
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/absntax.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/absntax-tmpE0PA0714.fasl
; compilation finished in 0:00:00.756
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/script.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/script-tmpJRWHHVG0.fasl
; compilation finished in 0:00:00.868
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/op-theory.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/op-theory-tmp4WZVROCX.fasl
; compilation finished in 0:00:00.080
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bmodexp.lisp" (written 04 MAR 2019 06:39:10 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bmodexp-tmpA0I3UKX8.fasl
; compilation finished in 0:00:00.160
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bmodule2.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/bmodule2.lisp
; in: DEFUN EQUAL-TOP-LEVEL
;     (STRING= CHAOS::X CHAOS::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a (OR STRING SYMBOL
;                                CHARACTER), not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                 CHARACTER (*)).

;     (EQL CHAOS::X CHAOS::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (AND ATOM (NOT (VECTOR CHARACTER))
;                                (NOT BASE-STRING)), not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (AND ATOM (NOT (VECTOR CHARACTER))
;                                (NOT BASE-STRING)), not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (AND ATOM (NOT (VECTOR CHARACTER))
;                                    (NOT BASE-STRING)), not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (AND ATOM (NOT (VECTOR CHARACTER))
;                                    (NOT BASE-STRING)), not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bmodule2-tmp267Y2N80.fasl
; compilation finished in 0:00:00.212
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bview2.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/bview2.lisp
; in: DEFUN SAME-TOP-LEVEL
;     (EVERY #'EQL CHAOS::ME1 CHAOS::ME2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second 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.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The second argument is a T, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bview2-tmpOUPE5FSJ.fasl
; compilation finished in 0:00:00.024
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/parse-modexp.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/parse-modexp.lisp
; in: DEFUN PARSE-OPERATOR-REFERENCE
;     (POSITION #\. CHAOS::MOD-REF)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (LENGTH CHAOS::MOD-REF)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ CHAOS::MOD-REF (1+ CHAOS::POS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/parse-modexp-tmpIGHCU6ZA.fasl
; compilation finished in 0:00:00.064
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/normodexp.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/normodexp-tmpBO0TUGLK.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bsort.lisp" (written 17 JAN 2019 06:56:23 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bsort-tmpIIXPIQNW.fasl
; compilation finished in 0:00:00.264
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/boperator.lisp" (written 10 DEC 2019 02:26:49 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/boperator.lisp
; in: DEFUN PRINT-METHOD-OBJECT
;     (FORMAT STREAM ":op[~a]" (CHAOS::METHOD-NAME CHAOS::OBJ))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN MAKE-METHOD-ID-SYMBOL
;     (FIND-IF #'(LAMBDA (CHAOS::X) (STRING= CHAOS::X "_")) (CAR CHAOS::NAM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (STRING= CHAOS::X "_")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                CHARACTER (*)).

; in: DEFUN METHOD-IS-RESTRICTION-OF
;     (BREAK "HiGo")
; 
; note: deleting unreachable code

; in: DEFUN MAKE-OPERATOR-INTERNAL
;     (INCF CHAOS::T-CNT)
; --> THE 
; ==>
;   (+ 1 CHAOS::T-CNT)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/boperator-tmpOHM494YR.fasl
; compilation finished in 0:00:00.388
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/baxioms.lisp" (written 17 JAN 2019 06:56:23 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/baxioms-tmpOVFB07XF.fasl
; compilation finished in 0:00:00.112
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/bmacro.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/bmacro-tmpG6VFGMYP.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/gen-eval.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/gen-eval.lisp
; in: DEFUN EVAL-AST
;     (FBOUNDP (CAR CHAOS::AST))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS SYMBOL), not a SYMBOL.

;     (STRING CHAOS::MODULE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND SYMBOL (NOT NULL))
;                               CHARACTER), not a (OR STRING SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND SYMBOL (NOT NULL))
;                               CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND SYMBOL (NOT NULL))
;                               CHARACTER), not a STRING.

;     (FUNCALL CHAOS::EVALUATOR CHAOS::AST)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   EVALUATOR is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   EVALUATOR is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   EVALUATOR is not known to be a function

;     (FBOUNDP (CAR CHAOS::AST))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS SYMBOL), not a SYMBOL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/gen-eval-tmp4QIPRMOF.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/meta.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/meta.lisp
; in: DEFUN DO-APPLY!!
;     (CHAOS::CREATE-SYSTEM-OBJECT-TERM NIL)
; 
; note: deleting unreachable code


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/meta-tmpGW0QV22K.fasl
; compilation finished in 0:00:00.072
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/gen-print.lisp" (written 30 SEP 2019 05:33:23 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN BCONST-PRINT-STRING
;     (FUNCALL
;      (CHAOS::BSORT-TERM-PRINTER
;        (CHAOS::TERM-SORT
;          CHAOS::TERM))
;      CHAOS::VAL)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN IS-SELF-TERMINATING
;     (CHAR CHAOS::TOK 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFUN TERM-PRINT1
;     (STRING CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL)
;                               CHARACTER), not a (OR STRING SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL)
;                               CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL)
;                               CHARACTER), not a STRING.

; in: DEFUN TERM-PRINT2
;     (STRING CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL)
;                               CHARACTER), not a (OR STRING SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL)
;                               CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (AND (NOT (MEMBER T)) SYMBOL)
;                               CHARACTER), not a STRING.

;     (* CHAOS::X 15)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER * 274877906943), not a FIXNUM.
;       The result is a (VALUES
;                        (OR (INTEGER 15 4123168604145) (INTEGER * -15)
;                            (INTEGER 0 0))
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER * 274877906943), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (OR (INTEGER 15 4123168604145) (INTEGER * -15)
;                            (INTEGER 0 0))
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (1- CHAOS::X)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER * 274877906943), not a FIXNUM.
;       The result is a (VALUES (INTEGER * 274877906942) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER * 274877906943), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER * 274877906942) &OPTIONAL), not a (VALUES
;                                                                           (UNSIGNED-BYTE
;                                                                            64)
;                                                                           &OPTIONAL).
;       etc.

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

;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

;     (IF SORT
;         (CHAOS::SORT-ID SORT)
;         "unknown")
; 
; note: deleting unreachable code

; in: DEFUN PRINT-CHAOS-OBJECT
;     (FUNCALL CHAOS::PRINTER CHAOS::OBJECT STREAM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

;     (FORMAT STREAM "~%-- delcrations -------------------")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a NULL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/gen-print-tmp2K9J0HSR.fasl
; compilation finished in 0:00:00.100
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/context.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/context.lisp
; in: DEFUN IS-SPECIAL-LET-VARIABLE?
;     (EQUAL "$$" (SUBSEQ (THE SIMPLE-STRING CHAOS::NAME) 0 2))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (SIMPLE-STRING 2), not a (SIMPLE-ARRAY CHARACTER
;                                                      (*)).

; in: DEFUN GET-BOUND-VALUE
;     (EQUAL CHAOS::LET-SYM "$$term")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

;     (EQUAL CHAOS::LET-SYM "$$subterm")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/context-tmpP44I4E0Y.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/term-utils.lisp" (written 17 JAN 2019 06:56:23 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/term-utils.lisp
; in: DEFUN SUBSTITUTION-CAN
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        (CAR CHAOS::X)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN UPDATE-LOWEST-PARSE
;     (FUNCALL
;      (CHAOS::BSORT-TERM-PREDICATE
;        CHAOS::S)
;      CHAOS::VAL)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN TERM-EQUATIONAL-EQUAL
;     (CHAOS::E-EQUAL-IN-THEORY
;       (CHAOS::METHOD-THEORY
;         CHAOS::F1)
;       CHAOS::T1
;       CHAOS::T2)
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN COPY-LIST-TERM-USING-LIST-VAR
;     (ASSOC CHAOS::TERM CHAOS::LIST-NEW-VAR :TEST CHAOS::TEST)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TEST is not known to be a function

; in: DEFUN REPLACE-VARIABLES-WITH-TOC
;     (FORMAT T WARN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a STRING, not a SIMPLE-STRING.

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

; in: DEFUN SUBSTITUTION-IMAGE
;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL
;      (CHAOS::CHAOS-FORM-EXPR
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN SUBSTITUTION-IMAGE!
;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL
;      (CHAOS::CHAOS-FORM-EXPR
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN SUBSTITUTION-IMAGE-CP
;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL
;      (CHAOS::CHAOS-FORM-EXPR
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN SUBSTITUTION-IMAGE-SIMPLIFYING
;     (FUNCALL
;      (CHAOS::CHAOS-FORM-EXPR
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/term-utils-tmp63LQ7EX6.fasl
; compilation finished in 0:00:00.476
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/find.lisp" (written 17 JAN 2019 06:56:23 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/find.lisp
; in: DEFUN FIND-BUILTIN-METHOD-IN
;     (FUNCALL (CAR CHAOS::SORT-INFO) CHAOS::OPNM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL (CAR CHAOS::SI) CHAOS::OPNM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN FIND-PARAMETERIZED-SUBMODULE
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (EQUAL CHAOS::NAME
;                 (CHAOS::PARAMETER-ARG-NAME
;                   CHAOS::X)))
;      CHAOS::PARAMS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/find-tmp86F1A8FB.fasl
; compilation finished in 0:00:00.136
; compiling file "/<<PKGBUILDDIR>>/chaos/primitives/print-object.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/primitives/print-object.lisp
; in: DEFUN PRINT-MODEXP
;     (FUNCALL CHAOS::PRINTER CHAOS::ME STREAM CHAOS::SIMPLE CHAOS::NO-PARAM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

;     (FUNCALL CHAOS::PRINTER CHAOS::ME STREAM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

; in: DEFUN PRINT-VIEW-IN-CAFEOBJ-MODE
;     (FUNCALL CHAOS::PRINTER CHAOS::VW STREAM CHAOS::SIMPLE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

; in: DEFUN PRINT-RULE-LABELS
;     (MAPCAR #'STRING LABELS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PRINT-RULE
;     (LENGTH CHAOS::EXTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/primitives/print-object-tmpH7D4HL98.fasl
; compilation finished in 0:00:00.272
; compiling file "/<<PKGBUILDDIR>>/chaos/term-parser/parse-macro.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/term-parser/parse-macro.lisp
; in: DEFUN EXPAND-MACRO
;     (1+ CHAOS::*DEBUG-MARCO-NEST*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (1+ CHAOS::*DEBUG-MARCO-NEST*)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/term-parser/parse-macro-tmpCDM7YXYI.fasl
; compilation finished in 0:00:00.024
; compiling file "/<<PKGBUILDDIR>>/chaos/term-parser/parse-engine.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN SIMPLE-COPY-TERM-SHARING-VARIABLES
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN GET-QUALIFIED-OP-PATTERN
;     (POSITION #\_ CHAOS::EXPR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR LIST STRING (SIMPLE-ARRAY * (*))
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR LIST
;                                                                        VECTOR).

;     (SUBSEQ CHAOS::EXPR 0 CHAOS::POS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (SIMPLE-ARRAY * (*)) CONS
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (SIMPLE-ARRAY * (*)) CONS
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (SIMPLE-ARRAY * (*)) CONS
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ CHAOS::EXPR (1+ CHAOS::POS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (SIMPLE-ARRAY * (*)) CONS
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (SIMPLE-ARRAY * (*)) CONS
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING (SIMPLE-ARRAY * (*)) CONS
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN GET-INFO-ON-TOKEN
;     (FUNCALL CHAOS::TOKEN-PRED CHAOS::TOKEN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TOKEN-PRED is not known to be a function

; in: DEFUN DICTIONARY-MAKE-BUILTIN-CONSTANT
;     (FUNCALL
;      (CHAOS::BSORT-TERM-CREATOR
;        CHAOS::BSORT)
;      CHAOS::TOKEN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/term-parser/parse-engine-tmpLM57P5P.fasl
; compilation finished in 0:00:00.276
; compiling file "/<<PKGBUILDDIR>>/chaos/term-parser/parse-top.lisp" (written 10 DEC 2019 02:30:56 AM):

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

; in: DEFUN PARSE-SHOW-DIFF
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (1+ CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN UPDATE-PARSE-INFORMATION
;     (STRING (CAR CHAOS::VAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/term-parser/parse-top-tmpZE69DN33.fasl
; compilation finished in 0:00:00.080
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-utils.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-utils-tmpG8099TO3.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-system.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-system-tmpTASQCYAW.fasl
; compilation finished in 0:00:00.112
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-state.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/e-match/match-state.lisp
; in: DEFUN NEXT-MATCH-STATE
;     (CHAOS::THEORY-STATE-MATCH-NEXT-STATE
;       CHAOS::THEORY-INFO
;       CHAOS::TH-MATCH-STATE)
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CHAOS::THEORY-STATE-MATCH-INITIALIZE
;       CHAOS::THEORY-INFO
;       CHAOS::SYS-TO-SOLVE
;       (CHAOS::MATCH-SYSTEM-ENV
;         CHAOS::NEW-M-SYS))
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-state-tmp35U57IV6.fasl
; compilation finished in 0:00:00.028
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-e.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-e-tmpTZOONXRW.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-idem.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-idem-tmpWN0UKDSV.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-z.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-z-tmpBF3HHBTQ.fasl
; compilation finished in 0:00:00.020
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-a.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-a-tmpGYUNPZCY.fasl
; compilation finished in 0:00:00.072
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-c.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-c-tmpD68Q8WCA.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-az.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/e-match/match-az.lisp
; in: DEFUN MATCH-ASSOCIATIVITY-ID-SET-EQ-STATE
;     (MAKE-ARRAY (THE FIXNUM (LENGTH CHAOS::SUB1)) :INITIAL-CONTENTS CHAOS::SUB1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (MAKE-ARRAY (THE FIXNUM (LENGTH CHAOS::SUB2)) :INITIAL-CONTENTS CHAOS::SUB2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

; in: DEFUN MATCH-AZ-STATE-INITIALIZE
;     (CHAOS::MATCH-ASSOCIATIVITY-ID-SET-EQ-STATE CHAOS::SUB1 CHAOS::SUB2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-az-tmp7MK9KM9C.fasl
; compilation finished in 0:00:00.056
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-cz.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-cz-tmpJJ71X849.fasl
; compilation finished in 0:00:00.016
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-ac.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/e-match/match-ac.lisp
; in: DEFUN AC-SOLUTION-FROM-STATE
;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-C-SOL CHAOS::J)
;       CHAOS::TERM-CODE)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a (OR (INTEGER -4611686018427387904 -4096)
;                                    (INTEGER 2 4611686018427387903)
;                                    (INTEGER 0 0)), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-F-SOL CHAOS::J)
;       CHAOS::TERM-CODE)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a (OR (INTEGER -4611686018427387904 -4096)
;                                    (INTEGER 2 4611686018427387903)
;                                    (INTEGER 0 0)), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-C-SOL CHAOS::J)
;       CHAOS::TERM-CODE)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a (OR (INTEGER -4611686018427387904 -4096)
;                                    (INTEGER 2 4611686018427387903)
;                                    (INTEGER 0 0)), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-F-SOL CHAOS::J)
;       CHAOS::TERM-CODE)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a (OR (INTEGER -4611686018427387904 -4096)
;                                    (INTEGER 2 4611686018427387903)
;                                    (INTEGER 0 0)), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN AC-NEXT-STATE-SUB
;     (CHAOS::AC-ROTATE-LEFT
;       CHAOS::RHS-C-SOL
;       CHAOS::M)
; --> SB-KERNEL:%SVSET 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */(* /) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-C-SOL CHAOS::M)
;       (SVREF CHAOS::RHS-C-COMPAT CHAOS::M))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-C-SOL CHAOS::M)
;       CHAOS::LHS-R-MASK)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-OR
;       CHAOS::TEMP
;       (SVREF CHAOS::RHS-C-SOL CHAOS::S))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN MATCH-AC-STATE-INITIALIZE
;     (MAKE-ARRAY CHAOS::LHS-F-COUNT :INITIAL-CONTENTS CHAOS::LHS-F-LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (MAKE-ARRAY CHAOS::RHS-C-COUNT :INITIAL-CONTENTS CHAOS::RHS-C-LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (MAKE-ARRAY CHAOS::RHS-F-COUNT :INITIAL-CONTENTS CHAOS::RHS-F-LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (CHAOS::AC-NOTE-REPEATS
;       CHAOS::RHS-F-MS
;       CHAOS::RHS-F-R
;       CHAOS::R-M
;       CHAOS::R-GCD)
; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE 
; ==>
;   (GCD CHAOS::R-GCD CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::AC-NOTE-REPEATS
;       CHAOS::RHS-C-MS
;       CHAOS::RHS-C-R
;       CHAOS::R-M
;       CHAOS::R-GCD)
; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE 
; ==>
;   (GCD CHAOS::R-GCD CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::AC-NOTE-REPEATS
;       CHAOS::LHS-V-MS
;       CHAOS::LHS-V-R
;       CHAOS::L-M
;       CHAOS::L-GCD)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::AC-NOTE-REPEATS
;       CHAOS::LHS-F-MS
;       CHAOS::LHS-F-R
;       CHAOS::L-M
;       CHAOS::L-GCD)
; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE 
; ==>
;   (GCD CHAOS::L-GCD CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::MAKE-OR
;       CHAOS::TEMP
;       (SVREF CHAOS::RHS-C-SOL CHAOS::S))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN MATCH-AC-NEXT-STATE
;     (CHAOS::AC-ROTATE-LEFT
;       CHAOS::RHS-F-SOL
;       CHAOS::N)
; --> SB-KERNEL:%SVSET 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */(* /) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-F-SOL CHAOS::N)
;       (SVREF CHAOS::RHS-F-COMPAT CHAOS::N))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-AND
;       (SVREF CHAOS::RHS-F-SOL CHAOS::N)
;       CHAOS::LHS-R-MASK)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (CHAOS::MAKE-OR
;       CHAOS::TEMP
;       (SVREF CHAOS::RHS-F-SOL CHAOS::S))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-ac-tmp1VUK6SR2.fasl
; compilation finished in 0:00:01.956
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match-acz.lisp" (written 17 JAN 2019 06:56:23 AM):

; file: /<<PKGBUILDDIR>>/chaos/e-match/match-acz.lisp
; in: DEFUN MATCH-ACZ-STATE-INITIALIZE
;     (MAKE-ARRAY CHAOS::LHS-F-COUNT :INITIAL-CONTENTS CHAOS::LHS-F-LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (MAKE-ARRAY CHAOS::RHS-C-COUNT :INITIAL-CONTENTS CHAOS::RHS-C-LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (MAKE-ARRAY CHAOS::RHS-F-COUNT :INITIAL-CONTENTS CHAOS::RHS-F-LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a LIST, not a (OR NULL (SIMPLE-ARRAY * (*))).

;     (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::RHS-F-MS CHAOS::RHS-F-R CHAOS::R-M
;                                    CHAOS::R-GCD)
; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE 
; ==>
;   (GCD CHAOS::R-GCD CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::RHS-C-MS CHAOS::RHS-C-R CHAOS::R-M
;                                    CHAOS::R-GCD)
; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE 
; ==>
;   (GCD CHAOS::R-GCD CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::LHS-V-MS CHAOS::LHS-V-R CHAOS::L-V-M
;                                    CHAOS::L-GCD)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::MATCH-ACZ-NOTE-REPEATS CHAOS::LHS-F-MS CHAOS::LHS-F-R CHAOS::L-F-M
;                                    CHAOS::L-GCD)
; --> DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET SETQ THE 
; ==>
;   (GCD CHAOS::L-GCD CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                             (INTEGER 1 4611686018427387903)).
;   The second argument is a FIXNUM, not a (OR (INTEGER -4611686018427387904 -1)
;                                              (INTEGER 1 4611686018427387903)).

;     (CHAOS::EXPT2
;       (+ (THE FIXNUM CHAOS::LHS-V-COUNT) (THE FIXNUM CHAOS::LHS-F-COUNT)))
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &OPTIONAL).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (-
;      (CHAOS::EXPT2
;        (+ (THE FIXNUM CHAOS::LHS-V-COUNT) (THE FIXNUM CHAOS::LHS-F-COUNT)))
;      2)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 2), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 2), not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN MATCH-ACZ-NEXT-STATE-SUB
;     (CHAOS::MATCH-ACZ-ROTATE-LEFT CHAOS::RHS-C-SOL CHAOS::M)
; --> SB-KERNEL:%SVSET 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */(* /) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN MATCH-ACZ-NEXT-STATE-AUX
;     (CHAOS::MATCH-ACZ-ROTATE-LEFT CHAOS::RHS-F-SOL CHAOS::N)
; --> SB-KERNEL:%SVSET 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */(* /) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (* 2 (SVREF CHAOS::RHS-F-SOL CHAOS::N))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */(* /) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CHAOS::MATCH-ACZ-ROTATE-LEFT CHAOS::RHS-F-SOL CHAOS::N)
; --> SB-KERNEL:%SVSET 
; ==>
;   1
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (* 2 (SVREF CHAOS::RHS-F-SOL CHAOS::N))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-acz-tmpR2FIHSUG.fasl
; compilation finished in 0:00:01.312
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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))
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN FIRST-MATCH-WITH-THEORY
;     (CHAOS::THEORY-STATE-MATCH-INITIALIZE
;       CHAOS::THEORY-INFO
;       CHAOS::SYS
;       (CHAOS::MATCH-SYSTEM-ENV
;         CHAOS::M-SYS))
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match-tmp8PYELRKX.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/chaos/e-match/match2.lisp" (written 15 NOV 2018 12:48:55 AM):

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


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/e-match/match2-tmpEHTOKYT0.fasl
; compilation finished in 0:00:00.064
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/sort.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/construct/sort.lisp
; in: DEFUN ADD-SORT-TO-MODULE
;     (CHAOS::MARK-NEED-PARSING-PREPARATION
;       MOD)
; --> LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN GLB-SORT
;     (LENGTH CHAOS::MEET)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN GLB-SORT-NAME
;     (STRING CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

;     (SORT
;      (MAPCAN
;       #'(LAMBDA (CHAOS::S)
;           (IF (CHAOS::AND-SORT-P CHAOS::S)
;               (MAPCAR #'# #)
;               (LIST #)))
;       CHAOS::SORTS)
;      #'(LAMBDA (CHAOS::X CHAOS::Y)
;          (STRING< (THE SIMPLE-STRING (STRING CHAOS::X))
;                   (THE SIMPLE-STRING (STRING CHAOS::Y)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (MAPCAR #'STRING (DELETE-DUPLICATES CHAOS::COMPO-NAMES :TEST #'EQ))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN LUB-SORT
;     (LENGTH CHAOS::JOIN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN GENERATE-ERR-SORTS
;     (CHAOS::MAKE-ERR-SORT-NAME
;       CHAOS::SAME-COMPO)
; --> FORMAT SORT FUNCTION STRING< 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-STRING.
;   The second argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-STRING.

; in: DEFUN DECLARE-SORT-IN-MODULE
;     (CHAOS::SET-NEEDS-PARSE
;       CHAOS::MODULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-SUBSORT-IN-MODULE
;     (CHAOS::SET-NEEDS-PARSE
;       MOD)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/sort-tmpS6U1VHI9.fasl
; compilation finished in 0:00:00.092
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/operator.lisp" (written 04 MAR 2019 07:13:56 AM):

; 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 LIST VECTOR).

; in: DEFUN CHECK-OVERLOADING-WITH-BUILTIN
;     (FUNCALL CHAOS::TOKEN-PRED CHAOS::OPSTR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TOKEN-PRED is not known to be a function

; in: DEFUN ADD-OPERATOR-DECLARATION-TO-MODULE
;     (CHAOS::MARK-NEED-PARSING-PREPARATION
;       MOD)
; --> LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN SETUP-ERROR-OPERATOR
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (AND (EQUAL CHAOS::METHOD-NAME (CHAOS::METHOD-NAME CHAOS::X))
;               (CHAOS::SORT-LIST=
;                 CHAOS::ARITY
;                 (CHAOS::METHOD-ARITY CHAOS::X))
;               (CHAOS::SORT=
;                 CHAOS::ERR-COARITY
;                 (CHAOS::METHOD-COARITY CHAOS::X))))
;      CHAOS::PRE-ERRS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN COMPUTE-ERROR-METHOD-FORM
;     (INCF CHAOS::ARG-NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::ARG-NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/operator-tmpVTFK6ZJW.fasl
; compilation finished in 0:00:00.260
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/variable.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/construct/variable.lisp
; in: DEFUN CHECK-VAR-NAME-OVERLOADING-WITH-BUILTIN
;     (FUNCALL CHAOS::TOKEN-PRED CHAOS::VAR-NAME)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TOKEN-PRED is not known to be a function

; in: DEFUN DECLARE-VARIABLE-IN-MODULE
;     (CHAR CHAOS::VAR-NAME 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

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

; in: DEFUN DECLARE-PCONST-IN-MODULE
;     (STRING CHAOS::VAR-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CHARACTER SYMBOL), not a (OR STRING SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CHARACTER SYMBOL), not a SYMBOL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/variable-tmp75WVSJEW.fasl
; compilation finished in 0:00:00.040
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/match-method.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/match-method-tmpBU5UM3S4.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/axiom.lisp" (written 17 JAN 2019 06:56:23 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN CONVERT-CHAOS-EXPR
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::V))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN INVOKE-GENERAL-LISP-FUN
;     (APPLY CHAOS::FUN CHAOS::BINDINGS)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   FUN is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/axiom-tmpOBHVA3CD.fasl
; compilation finished in 0:00:00.108
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/gen-rule.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/construct/gen-rule.lisp
; in: DEFUN CREATE-RULE-NAME
;     (INCF (CHAOS::MODULE-CONTEXT-$$RULE-COUNTER (CHAOS::MODULE-CONTEXT MOD)))
; ==>
;   (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHAOS::MODULE-DYN-CONTEXT #:OBJ) 10))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/gen-rule-tmpJ6ELVFLF.fasl
; compilation finished in 0:00:00.096
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/rwl.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/rwl-tmpULDB0RG.fasl
; compilation finished in 0:00:00.028
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/beh.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/construct/beh.lisp
; in: DEFUN TRY-BEH-PROOF-IN
;     (CHAOS::SET-NEEDS-RULE
;       CHAOS::PROOF-MOD)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::SET-NEEDS-RULE
;       CHAOS::MODULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/beh-tmpUTZ0UUTE.fasl
; compilation finished in 0:00:00.088
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/module.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/construct/module.lisp
; in: DEFUN PREPARE-FOR-PARSING
;     (FUNCALL CHAOS::HOOK-FUN CHAOS::MODULE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CHAOS::NEED-PARSING-PREPARATION
;       CHAOS::MODULE)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::MARK-MODULE-READY-FOR-PARSING
;       CHAOS::MODULE)
; --> LET SB-KERNEL:THE* MAX MAX 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN COMPILE-MODULE
;     (CHAOS::NEED-REWRITING-PREPARATION
;       CHAOS::MODULE)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/module-tmpOOSRA8PZ.fasl
; compilation finished in 0:00:00.036
; compiling file "/<<PKGBUILDDIR>>/chaos/construct/trs.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/construct/trs.lisp
; in: DEFUN GET-MODULE-TRS
;     (CHAOS::NEED-REWRITING-PREPARATION
;       CHAOS::MODULE)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN MAKE-TRS-MODULE-NAME-INTERNAL
;     (INCF CHAOS::_TRS_MODULE_NAMES_)
; --> 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: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN MAKE-TRS-OP-NAME
;     (STRING
;      (OR
;       (CDR
;        (CHAOS::ASSQ
;          CHAOS::ERR-SORT
;          CHAOS::SORT-NAME-MAP))
;       (CHAOS::SORT-ID CHAOS::ERR-SORT)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (LENGTH CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR CHAOS::NAME CHAOS::POS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFUN FIX-TRS-IDS
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X) (AND (CONSP CHAOS::X) (OR (EQ # :ID) (EQ # :IDR))))
;      CHAOS::INFO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN TRS-REV-OP-NAME
;     (STRING CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CHARACTER SYMBOL), not a (OR STRING SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CHARACTER SYMBOL), not a SYMBOL.

; in: DEFUN RE-PRINT-TRS-TERM
;     (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TRS-TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN GET-TRS-AXIOM
;     (STRING (CAR CHAOS::LABEL))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/construct/trs-tmpDMIL0RVK.fasl
; compilation finished in 0:00:00.124
; compiling file "/<<PKGBUILDDIR>>/chaos/decafe/mutils.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/decafe/mutils-tmp8MR9IMIO.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/decafe/modmorph.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/decafe/modmorph.lisp
; in: DEFUN MODMORPH-PREPARE-FOR-PARSING
;     (CHAOS::MARK-MODULE-READY-FOR-PARSING
;       MOD)
; --> LET SB-KERNEL:THE* MAX MAX 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN MODMORPH-FIND-ERROR-METHOD
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (AND (CHAOS::METHOD-P (CAR CHAOS::X))
;               (EQUAL
;                (CHAOS::METHOD-SYMBOL
;                  #)
;                CHAOS::NAME)
;               (= (THE FIXNUM #) CHAOS::ALEN)))
;      CHAOS::OPMAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN MAKE-ANON-VIEW-NAME
;     (INCF CHAOS::*X-ANON-VIEW-NAME*)
; --> THE 
; ==>
;   (+ 1 CHAOS::*X-ANON-VIEW-NAME*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN MODMORPH-RECREATE-TERM
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (AND
;           (EQUAL CHAOS::VAR-NAME
;                  (CHAOS::VARIABLE-NAME
;                    CHAOS::X))
;           (CHAOS::SORT=
;             CHAOS::IMG-SORT
;             (CHAOS::VARIABLE-SORT
;               CHAOS::X))))
;      CHAOS::*MODMORPH-LOCAL-VARS*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/decafe/modmorph-tmpJQDKAVAY.fasl
; compilation finished in 0:00:00.176
; compiling file "/<<PKGBUILDDIR>>/chaos/decafe/mrmap.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 LIST VECTOR).

; in: DEFUN IMAGE-RENAME-OP
;     (FIND-IF #'(LAMBDA (CHAOS::Y) (EQUAL CHAOS::X (CAR CHAOS::Y))) CHAOS::REN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN IMAGE-RENAME-PARAM
;     (FIND-IF #'(LAMBDA (CHAOS::Y) (EQUAL CHAOS::X (CAR CHAOS::Y))) CHAOS::REN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN INVERSE-IMAGE-RENAME-SORT
;     (FIND-IF
;      #'(LAMBDA (CHAOS::Y) (CHAOS::RMAP-SORT-MATCH CHAOS::X (CAR CHAOS::Y)))
;      CHAOS::REN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN *IMAGE-RENAME-SORT
;     (FIND-IF
;      #'(LAMBDA (CHAOS::Y)
;          (CHAOS::SORT=
;            CHAOS::X
;            (CAR CHAOS::Y)))
;      MAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN *IMAGE-RENAME-METHOD
;     (FIND-IF #'(LAMBDA (CHAOS::Y) (EQ CHAOS::X (CAR CHAOS::Y))) MAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN IS-RENAME-INJECTIVE
;     (FIND-IF
;      #'(LAMBDA (CHAOS::Y)
;          (AND (NOT (EQ CHAOS::X CHAOS::Y)) (EQUAL (CAR CHAOS::X) (CAR CHAOS::Y))
;               (NOT (EQUAL # #))))
;      CHAOS::REN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (FIND-IF
;      #'(LAMBDA (CHAOS::Y)
;          (AND (NOT (EQ CHAOS::X CHAOS::Y)) (NOT (EQUAL # #))
;               (EQUAL (CADR CHAOS::X) (CADR CHAOS::Y))))
;      CHAOS::REN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/decafe/mrmap-tmp3I8CEEQY.fasl
; compilation finished in 0:00:00.064
; compiling file "/<<PKGBUILDDIR>>/chaos/decafe/meval.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/decafe/meval-tmpA3RHFLWZ.fasl
; compilation finished in 0:00:00.032
; compiling file "/<<PKGBUILDDIR>>/chaos/decafe/view.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 LIST VECTOR).

; in: DEFUN *FIND-SORT-IN-MAP
;     (FIND-IF
;      #'(LAMBDA (CHAOS::Y)
;          (CHAOS::SORT=
;            CHAOS::X
;            (CAR CHAOS::Y)))
;      MAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN *FIND-METHOD-IN-MAP
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (IF (CHAOS::OPERATOR-METHOD-P
;                (CAR CHAOS::X))
;              (EQ CHAOS::METHOD (CAR CHAOS::X))
;              (EQ CHAOS::METHOD
;                  (CHAOS::TERM-HEAD
;                    #))))
;      CHAOS::OP-MAPPING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN SPLIT-STR
;     (LENGTH CHAOS::STR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ CHAOS::STR CHAOS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (CHAR CHAOS::STR CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFUN FIND-METHOD-MAPPED
;     (LENGTH CHAOS::ARITY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN FIND-SORT-IMAGE*
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (CHAOS::SORT=
;            SORT
;            (CAR CHAOS::X)))
;      CHAOS::SORT-MAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/decafe/view-tmpYZIB7VXO.fasl
; compilation finished in 0:00:00.104
; compiling file "/<<PKGBUILDDIR>>/chaos/decafe/mimport.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/decafe/mimport.lisp
; in: DEFUN INCORPORATE-MODULE-COPYING
;     (CHAOS::USING-RECREATE-TERM (CHAOS::TERM)
;      (COND
;       ((CHAOS::TERM-IS-BUILTIN-CONSTANT?
;          CHAOS::TERM)
;        (CHAOS::MAKE-BCONST-TERM (CHAOS::USING-FIND-SORT-ERR #)
;                                 (CHAOS::TERM-BUILTIN-VALUE
;                                   CHAOS::TERM)))
;       ((CHAOS::TERM-IS-VARIABLE?
;          CHAOS::TERM)
;        (LET (# #)
;          (LET #
;            #)))
;       ((CHAOS::TERM-IS-LISP-FORM?
;          CHAOS::TERM)
;        CHAOS::TERM)
;       (T
;        (LET (#)
;          (LET #
;            #
;            #)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

;     (CHAOS::USING-IMPORT-SUBS (CHAOS::SMOD)
;      (DOLIST (CHAOS::S (REVERSE (CHAOS::MODULE-DIRECT-SUBMODULES CHAOS::SMOD)))
;        (CHAOS::USING-IMPORT-SUB (CAR CHAOS::S) (CDR CHAOS::S))))
; 
; note: Return value count mismatch prevents known return from these functions:
;   USING-IMPORT-SUBS

;     (CHAOS::USING-FIND-SORT-ERR (CHAOS::S)
;      (LET ((SORT (CDR #)))
;        (COND (SORT SORT)
;              ((CHAOS::ERR-SORT-P CHAOS::S) (SETQ #)
;               (IF SORT
;                   #
;                   #))
;              (T CHAOS::S))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/decafe/mimport-tmpR8PK79V8.fasl
; compilation finished in 0:00:00.084
; compiling file "/<<PKGBUILDDIR>>/chaos/cafein/rengine.lisp" (written 17 JAN 2019 06:56:23 AM):

; file: /<<PKGBUILDDIR>>/chaos/cafein/rengine.lisp
; in: DEFUN LONGEST-TERM-ID
;     (LENGTH CHAOS::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN !APPLY-ONE-RULE
;     (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GLOBAL-STATE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   NEXT-MATCH-METHOD is not known to be a function

;     (FUNCALL
;      (OR
;       (THE SYMBOL
;            (CHAOS::RULE-FIRST-MATCH-METHOD
;              CHAOS::RULE))
;       (PROGN
;        (WHEN CHAOS::*CHAOS-VERBOSE*
;          (CHAOS::WITH-OUTPUT-CHAOS-WARNING
;            NIL
;            #
;            #
;            #))
;        (CHAOS::COMPUTE-RULE-METHOD CHAOS::RULE)
;        (SYMBOL-FUNCTION (THE SYMBOL #))))
;      (CHAOS::RULE-LHS
;        CHAOS::RULE)
;      CHAOS::TERM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN APPLY-RULE
;     (OR (CHAOS::APPLY-A-EXTENSIONS CHAOS::RULE CHAOS::TERM CHAOS::TOP)
;         CHAOS::IS-APPLIED)
; --> IF 
; ==>
;   CHAOS::IS-APPLIED
; 
; note: deleting unreachable code

;     (OR (CHAOS::APPLY-AC-EXTENSION CHAOS::RULE CHAOS::TERM CHAOS::TOP)
;         CHAOS::IS-APPLIED)
; --> IF 
; ==>
;   CHAOS::IS-APPLIED
; 
; note: deleting unreachable code

; in: DEFUN CAFEIN-STEPPER
;     (FIND-IF #'(LAMBDA (ELT) (MEMBER CHAOS::KEY (CAR ELT) :TEST #'EQUAL))
;              CHAOS::CAFEIN-STEPPER-PROCS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (FUNCALL (CDR CHAOS::PROC) CHAOS::INP)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (LET ((CHAOS::INP (CHAOS::GET-STEP-COMMAND)))
;         (UNLESS (LISTP CHAOS::INP) (RETURN-FROM CHAOS::NEXT-LOOP))
;         (WHEN
;             (MEMBER (CAR CHAOS::INP) '("eof" "q" ":q" "quit" ":quit" CHAOS::EOF)
;                     :TEST #'EQUAL)
;           (CHAOS::STEP-OFF)
;           (RETURN-FROM CHAOS::CAFEIN-STEPPER NIL))
;         (LET* ((CHAOS::KEY #) (CHAOS::PROC #))
;           (IF CHAOS::PROC
;               (FUNCALL # CHAOS::INP)
;               (PROGN #)))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (LET ((CHAOS::INP #))
;           (UNLESS (LISTP CHAOS::INP) (RETURN-FROM CHAOS::NEXT-LOOP))
;           (WHEN (MEMBER # '# :TEST #'EQUAL)
;             (CHAOS::STEP-OFF)
;             (RETURN-FROM CHAOS::CAFEIN-STEPPER NIL))
;           (LET* (# #)
;             (IF CHAOS::PROC
;                 #
;                 #)))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN GET-STEP-COMMAND
;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (WHEN CHAOS::TOP-LEVEL?
;           (FORMAT T "~%STEP[~D]? " CHAOS::*RULE-COUNT*)
;           (FORCE-OUTPUT))
;         (CHAOS::READER 'CHAOS::STEP-COMMANDS CHAOS::*STEP-COMMANDS*)))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (WHEN CHAOS::TOP-LEVEL?
;         (FORMAT T "~%STEP[~D]? " CHAOS::*RULE-COUNT*)
;         (FORCE-OUTPUT))
;       (CHAOS::READER 'CHAOS::STEP-COMMANDS CHAOS::*STEP-COMMANDS*))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN APPLY-SORT-MEMB-INTERNAL
;     (1+ CHAOS::.SORT-MEMB-NESTING.)
; 
; note: unable to
;   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 SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (1+ CHAOS::.SORT-MEMB-NESTING.)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (> CHAOS::.SORT-MEMB-NESTING. CHAOS::.SORT-MEMB-NESTING-LIMIT.)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/cafein/rengine-tmpN1ZVB1HZ.fasl
; compilation finished in 0:00:00.208
; compiling file "/<<PKGBUILDDIR>>/chaos/cafein/cbred.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/cafein/cbred.lisp
; in: DEFUN CBRED-MAKE-NEW-VARIABLE
;     (INCF CHAOS::VARNUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::VARNUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN NEXT-CRULE-LABEL
;     (INCF CHAOS::.CRULE-LABEL-NUM.)
; --> 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: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN FIND-OCC
;     (FUNCALL CHAOS::PREDICATE CHAOS::TERM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PREDICATE is not known to be a function

;     (1+ CHAOS::NUM-IF)
; 
; note: unable to
;   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: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/cafein/cbred-tmpZGRRPISB.fasl
; compilation finished in 0:00:00.084
; compiling file "/<<PKGBUILDDIR>>/chaos/cafein/reducer.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/cafein/reducer.lisp
; in: DEFUN GENERATE-STATISTICS-FORM
;     (ZEROP (CHAOS::NUMBER-MEMO-HITS))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN GENERATE-STATISTICS-FORM-REWRITING-ONLY
;     (ZEROP (CHAOS::NUMBER-MEMO-HITS))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/cafein/reducer-tmpFNKDE5XP.fasl
; compilation finished in 0:00:00.048
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/regcheck.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 LIST VECTOR).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/regcheck-tmpRJTU435C.fasl
; compilation finished in 0:00:00.056
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/regularize.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/tools/regularize.lisp
; in: DEFUN REGULARIZE-SIGNATURE
;     (CHAOS::MARK-NEED-PARSING-PREPARATION
;       CHAOS::MODULE)
; --> LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/regularize-tmpI9WG87JK.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/describe.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN SHOW-MODULE-IN-CAFEOBJ-SYNTAX
;     (STRING
;      (CHAOS::PARAMETER-IMPORTED-MODE
;        CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (EQUAL "protecting" CHAOS::MODE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

;     (DELETE-IF
;      #'(LAMBDA (CHAOS::X) (CHAOS::IGNORE-FROM-IMPORT-LIST (CAR CHAOS::X)))
;      CHAOS::SUBS)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN PRINT-OUT-SORT
;     (FUNCALL CHAOS::PRINTER CHAOS::S MOD)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

;     (FUNCALL CHAOS::PRINTER CHAOS::SUPER MOD)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

;     (FUNCALL CHAOS::PRINTER CHAOS::SUB MOD)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRINTER is not known to be a function

; in: DEFUN PRINT-SUBMODULE-LIST
;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PRINT-MODULE-SUBMODULES
;     (STRING (CDR CHAOS::SB))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PRINT-MODULE-PARAMETERS
;     (STRING
;      (CHAOS::PARAMETER-IMPORTED-MODE
;        CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PRINT-MODULE-VARIABLES
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::V))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/describe-tmpYDE6I9E6.fasl
; compilation finished in 0:00:00.088
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/sort-tree.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/tools/sort-tree.lisp
; in: DEFUN !PRINT-SORT-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

; in: DEFUN !PRINT-MODULE-SORT-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/sort-tree-tmp319UV2V8.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/module-tree.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/tools/module-tree.lisp
; in: DEFUN !PRINT-MODULE-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

; in: DEFUN PRINT-MODEXP-TREE
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::TREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

; in: DEFUN D-MODULE-TREE*
;     (FORMAT STREAM "~a: " CHAOS::NUM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (INCF CHAOS::Y-NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::Y-NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/module-tree-tmpLYQINFYS.fasl
; compilation finished in 0:00:00.044
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/show.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/tools/show.lisp
; in: DEFUN SHOW-SELECTION-STACK
;     (1- CHAOS::DEPTH)
; 
; note: forced to do full call
;       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
;                                                                       &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 64)
;                                                                &OPTIONAL).
;       etc.

;     (DOTIMES (CHAOS::I (1- CHAOS::DEPTH)) (PRINC "    "))
; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       etc.

; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (INCF CHAOS::DEPTH)
; --> THE 
; ==>
;   (+ 1 CHAOS::DEPTH)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN PRINT-PENDING
;     (- CHAOS::DEPTH 1)
; 
; note: forced to do full call
;       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
;                                                                       &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 64)
;                                                                &OPTIONAL).
;       etc.

;     (DOTIMES (CHAOS::I (- CHAOS::DEPTH 1)) (PRINC "   "))
; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       etc.

; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (DOTIMES (CHAOS::I CHAOS::DEPTH) (PRINC "   "))
; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       etc.

; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       etc.

; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (INCF CHAOS::DEPTH)
; --> THE 
; ==>
;   (+ 1 CHAOS::DEPTH)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN PRINT-RULES
;     (INCF CHAOS::I)
; --> THE 
; ==>
;   (+ 1 CHAOS::I)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN SHOW-PARAM
;     (1+ CHAOS::NO)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/show-tmpGA31XWNO.fasl
; compilation finished in 0:00:00.048
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/set.lisp" (written 18 OCT 2019 12:45:43 AM):

; 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 VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL CHAOS::ON-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   ON-PROC is not known to be a function

;     (FUNCALL CHAOS::OFF-PROC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   OFF-PROC is not known to be a function

;     (FUNCALL
;      (CHAOS::CHAOS-SWITCH-SET-PROC
;        CHAOS::SW)
;      CHAOS::DAT)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN SHOW-MODES
;     (LENGTH CHAOS::OPT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN CHAOS-SET-CEXEC-LIMIT
;     (LENGTH (CAR CHAOS::VALUE))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN CHAOS-SET-PRINT-DEPTH
;     (LENGTH (CAR CHAOS::VALUE))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/set-tmp5HT23M6C.fasl
; compilation finished in 0:00:00.048
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/op-check.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/tools/op-check.lisp
; in: DEFUN CHECK-METHOD-COHERENCY
;     (INCF CHAOS::CON-COUNT)
; --> THE 
; ==>
;   (+ 1 CHAOS::CON-COUNT)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN CHECK-DEF-RHS
;     (< 1 CHAOS::.OP-FOUND.)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN CHECK-DEF-RHS*
;     (INCF CHAOS::.OP-FOUND.)
; --> THE 
; ==>
;   (+ 1 CHAOS::.OP-FOUND.)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (LENGTH CHAOS::OCCURRENCE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (>= CHAOS::CONTEXT-DEPTH (LENGTH CHAOS::OCCURRENCE))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (1+ CHAOS::X)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (INCF CHAOS::.OP-FOUND.)
; --> THE 
; ==>
;   (+ 1 CHAOS::.OP-FOUND.)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (1+ CHAOS::X)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN CHECK-METHOD-CONGRUENCY
;     (<= (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R) (LENGTH CHAOS::OCC-L))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (- (LENGTH CHAOS::OCC-R) CHAOS::NUM-IF-R)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN SUBSTITUTION-IMAGE2
;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        CHAOS::TERM)
;      CHAOS::SIGMA)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/op-check-tmpA60KLDKY.fasl
; compilation finished in 0:00:00.100
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/compat.lisp" (written 15 NOV 2018 12:48:55 AM):

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

;     (EVERY
;      #'(LAMBDA (CHAOS::X CHAOS::Y)
;          (CHAOS::SORT<=
;            CHAOS::X
;            CHAOS::Y))
;      CHAOS::ARITY (CHAOS::METHOD-ARITY CHAOS::METH))
; 
; note: unable to open code because: can't determine sequence argument type


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/compat-tmpD801X3GJ.fasl
; compilation finished in 0:00:00.016
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/help.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/help-tmpGOW1GC70.fasl
; compilation finished in 0:00:00.016
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/inspect.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/tools/inspect.lisp
; in: DEFUN DESCRIBE-NAME
;     (CHAR CHAOS::PRINT-NAME 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (FORMAT STREAM "~%** [~a] -----------------------------------------"
;             (STRING-UPCASE CHAOS::.CURRENT-CHAR-INDEX.))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~%~A~10T"
;             (IF (SYMBOLP CHAOS::NAME)
;                 (STRING CHAOS::NAME)
;                 CHAOS::NAME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~%No object with name ~A found." CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-PARAMETERS
;     (FORMAT STREAM "- parameter theory ~A(type ~S)" CHAOS::NAME
;             (TYPE-OF CHAOS::NAME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM ", declared in ~A" CHAOS::CONTEXT-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-SUBMODULES
;     (FORMAT STREAM "- direct sub-module")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM ", alias of module ")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "- parameter theory")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "- indirect sub-module")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM ", alias of module ")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM ", declared in ~A" CHAOS::CONTEXT-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM ", renamed (original name = ~a)."
;             (WITH-OUTPUT-TO-STRING (CHAOS::STR)
;               (CHAOS::PRINT-MOD-NAME CHAOS::OBJ CHAOS::STR T)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-SORTS
;     (FORMAT STREAM "- hidden sort declared in ~a" CHAOS::CONTEXT-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "- sort declared in ~a" CHAOS::CONTEXT-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

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

;     (FORMAT STREAM "  the name must be qualified for disambiguation: ~A.~A"
;             (STRING CHAOS::NAME) CHAOS::QNAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

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

;     (FORMAT STREAM "  the name must be qualified for disambiguation: ~A.~A"
;             (STRING CHAOS::NAME) (CAR CHAOS::A-NAME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "  the name must be qualified for disambiguation,")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "  but the module name is not simple one:")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-OPERATORS
;     (FORMAT STREAM "- operator:")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-AXIOMS
;     (FORMAT STREAM "- axiom declared in ~a" CHAOS::CONTEXT-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-VARIABLES
;     (FORMAT STREAM "- variable of sort ~a"
;             (WITH-OUTPUT-TO-STRING (CHAOS::STR)
;               (CHAOS::PRINT-SORT-NAME
;                (CHAOS::VARIABLE-SORT
;                  CHAOS::OBJ)
;                MOD CHAOS::STR)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN INSPECT-SHOW-UNKNOWNS
;     (FORMAT STREAM "- unknown object ~s" CHAOS::OBJ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/inspect-tmpPQ1X28TL.fasl
; compilation finished in 0:00:00.024
; compiling file "/<<PKGBUILDDIR>>/chaos/tools/sensible.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tools/sensible-tmpE92ECU7O.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/eval/eval-mod.lisp" (written 15 NOV 2018 12:48:55 AM):

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

;     (SUBSEQ (CAR CHAOS::TOKS) 0 3)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ (CAR CHAOS::TOKS) 3)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN EVAL-MOD-EXT
;     (1- CHAOS::NO)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 64)
;                                                                &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/eval/eval-mod-tmp8S0II570.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/chaos/eval/eval-ast.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/eval/eval-ast.lisp
; in: DEFUN DECLARE-SORT
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-BSORT
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-OPERATOR
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::MARK-NEED-PARSING-PREPARATION
;       CHAOS::*CURRENT-MODULE*)
; --> LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-OPERATOR-ATTRIBUTES
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-VARIABLE
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-PCONST
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-AXIOM-NOW
;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DECLARE-AXIOM
;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN EVAL-MACRO
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN PROCESS-LABELS
;     (DELETE "," CHAOS::X :TEST #'EQUAL)
; 
; note: unable to
;   convert to EQ test
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

;     (FIND #\. CHAOS::L)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (CHAR CHAOS::L 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/eval/eval-ast-tmpJE88A12F.fasl
; compilation finished in 0:00:00.228
; compiling file "/<<PKGBUILDDIR>>/chaos/eval/eval-ast2.lisp" (written 24 OCT 2019 08:53:43 AM):

; file: /<<PKGBUILDDIR>>/chaos/eval/eval-ast2.lisp
; in: DEFUN EVAL-LISP-FORM
;     (FBOUNDP (CAR CHAOS::FORM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS SYMBOL), not a SYMBOL.

; in: DEFUN SET-REWRITE-COUNT-LIMIT
;     (> CHAOS::NUM 0)
; 
; note: forced to do >-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.

; in: DEFUN GET-INT-OR-NULL
;     (LENGTH (CAR CHAOS::VALUE))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN DUMP-USER-MODULE
;     (FORMAT STREAM "~&(eval-ast-if-need-no-error '~s)" CHAOS::DECL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN RESTORE-SYSTEM
;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (LET ((CHAOS::*CHAOS-QUIET* (NOT CHAOS::*CHAOS-VERBOSE*)))
;         (IF (PROBE-FILE CHAOS::FILE)
;             (PROGN (LOAD CHAOS::FILE) (FORMAT T "~%done restoring."))
;             (CHAOS::WITH-OUTPUT-CHAOS-ERROR
;               ('CHAOS::NO-FILE)
;               (FORMAT T "No such file ~a" CHAOS::FILE)))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (LET ((CHAOS::*CHAOS-QUIET* #))
;           (IF (PROBE-FILE CHAOS::FILE)
;               (PROGN # #)
;               (CHAOS::WITH-OUTPUT-CHAOS-ERROR
;                 #
;                 #)))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN LOAD-PRELUDE*
;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (LET ((CHAOS::*DRIBBLE-AST* T) (CHAOS::*AST-LOG* NIL) (CHAOS::F NIL))
;         (SETQ CHAOS::F
;                 (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::FILE :PROC CHAOS::PROCESSOR
;                                          :LOAD-PATH # :ERRORP CHAOS::ERRORP))
;         (IF (AND CHAOS::*SYSTEM-STANDARD-PRELUDE* (NOT CHAOS::OVERRIDE))
;             (SETQ CHAOS::*SYSTEM-STANDARD-PRELUDE* #)
;             (SETQ CHAOS::*SYSTEM-STANDARD-PRELUDE* #))
;         CHAOS::F))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (LET ((CHAOS::*DRIBBLE-AST* T) (CHAOS::*AST-LOG* NIL) (CHAOS::F NIL))
;           (SETQ CHAOS::F #)
;           (IF (AND CHAOS::*SYSTEM-STANDARD-PRELUDE* #)
;               (SETQ #)
;               (SETQ #))
;           CHAOS::F)))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN EVAL-REQUIRE-COMMAND
;     (FUNCALL CHAOS::PROC CHAOS::FILE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PROC is not known to be a function

;     (FUNCALL CHAOS::PROC
;              (FORMAT NIL "~{~A~^/~}" (CL-PPCRE:SPLIT "::" CHAOS::FEATURE)))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PROC is not known to be a function

; in: DEFUN EVAL-DRIBBLE
;     (FORMAT T "could not open file ~a." CHAOS::FILE)
; 
; note: deleting unreachable code

; in: DEFUN SHOW-DESCRIBE
;     (LENGTH (CADR CHAOS::DAT))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (1- CHAOS::NO)
; 
; note: forced to do full call
;       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
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.

; 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 full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

;     (FLOAT (/ (- CHAOS::*RUN-TIME* CHAOS::SYS) INTERNAL-TIME-UNITS-PER-SECOND))
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 64).
;       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 full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

;     (FLOAT (/ (- CHAOS::*REAL-TIME* REAL) INTERNAL-TIME-UNITS-PER-SECOND))
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 64).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 64).

; in: DEFUN EVAL-CBRED
;     (ZEROP CHAOS::*TERM-MEMO-HASH-HIT*)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN !INPUT-FILE
;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (CHAOS::EVAL-AST
;          (CHAOS::%INPUT* CHAOS::FILE CHAOS::*CHAOS-LIBPATH*
;                          'CHAOS::PROCESS-CAFEOBJ-INPUT '(".bin" ".cafe" ".mod")
;                          NIL))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (CHAOS::EVAL-AST
;        (CHAOS::%INPUT* CHAOS::FILE CHAOS::*CHAOS-LIBPATH*
;                        'CHAOS::PROCESS-CAFEOBJ-INPUT '(".bin" ".cafe" ".mod")
;                        NIL)))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN CAFEOBJ-EVAL-PRELUDE-PROC
;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (CHAOS::EVAL-AST CHAOS::AST))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/eval/eval-ast2-tmpA5FNLPLT.fasl
; compilation finished in 0:00:00.240
; compiling file "/<<PKGBUILDDIR>>/chaos/eval/chaos-top.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/eval/chaos-top-tmpHKCV9TP8.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/chaos/boot/preproc.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/chaos/boot/preproc.lisp
; in: DEFUN PRINT-CHARACTER
;     (PRINC "'\\s'")
; 
; note: deleting unreachable code


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/boot/preproc-tmpZ18MA7XE.fasl
; compilation finished in 0:00:00.088
; compiling file "/<<PKGBUILDDIR>>/chaos/boot/prelude.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/boot/prelude-tmp6LQJ9T0C.fasl
; compilation finished in 0:00:00.040
; compiling file "/<<PKGBUILDDIR>>/chaos/boot/builtins.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/boot/builtins-tmpTX7OA81T.fasl
; compilation finished in 0:00:00.024

-- defining module* TRIV done.
-- defining module! TRUTH-VALUE done.
-- defining module! NZNAT-VALUE done.
-- defining module! NAT-VALUE done.
-- defining module! INT-VALUE done.
-- defining module! RAT-VALUE done.
-- defining module! FLOAT-VALUE done.
-- defining module! ID done.
-- defining module! CHAR-VALUE done.
-- defining module! STRING-VALUE done.
; compiling file "/<<PKGBUILDDIR>>/chaos/tram/tram.lisp" (written 15 NOV 2018 12:48:56 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN RE-MAKE-TRAM-TOK-SEQ
;     (STRING CHAOS::SYM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/tram/tram-tmpWOTC3PB7.fasl
; compilation finished in 0:00:00.200
; compiling file "/<<PKGBUILDDIR>>/chaos/psup/psup.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-GET-MODULE-SORTS
;     (STRING (CDR CHAOS::S))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-GET-SORT-GRAPH*
;     (STRING (CAR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CADR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CAR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CADR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-MAKE-METHOD-INFO
;     (STRING (CAR CHAOS::MINFO))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CADDR CHAOS::MINFO))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (MAPCAR #'STRING (CADR CHAOS::MINFO))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-MAP-CHAOS-OP-TO-TRS
;     (STRING (CHAOS::MAP-CHAOS-OP-TO-TRS CHAOS::METHOD CHAOS::TRS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN TRS-TERM-TO-PSUP-TERM
;     (STRING SORT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-PARSE-VARS
;     (LENGTH CHAOS::DECL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN PSUP-RE-MAKE-VARIABLE-FORM
;     (STRING (CHAOS::TRS-TERM-HEAD CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CHAOS::TRS-TERM-SORT CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-MAKE-TERM-FORM
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN TRS-TERM-TO-PSUP
;     (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CHAOS::TRS-TERM-HEAD CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CHAOS::TRS-TERM-SORT CHAOS::TERM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PSUP-MAKE-AXIOM-INFO
;     (STRING (CHAOS::TRS-AXIOM-LABEL CHAOS::AX))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/chaos/psup/psup-tmpHQE95SAC.fasl
; compilation finished in 0:00:00.092
; compiling file "/<<PKGBUILDDIR>>/thstuff/parse-apply.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/thstuff/parse-apply.lisp
; in: DEFUN PARSE-RULE-SPEC
;     (CHAR CHAOS::TOK 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (POSITION-IF #'(LAMBDA (CHAOS::X) (CHAR= #\. CHAOS::X)) CHAOS::TOK)
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/parse-apply-tmpO87FP9NR.fasl
; compilation finished in 0:00:00.144
; compiling file "/<<PKGBUILDDIR>>/thstuff/basics.lisp" (written 15 NOV 2018 12:48:56 AM):

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

; in: DEFUN COMPUTE-OCCUR-SELECTION
;     (<= 0 CHAOS::I)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (<= CHAOS::I
;         (LENGTH
;          (CHAOS::TERM-SUBTERMS
;            CHAOS::CUR)))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (REAL 0), not a DOUBLE-FLOAT.

;     (ZEROP CHAOS::I)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (RATIONAL 0 274877906943)
;                               (SINGLE-FLOAT 0.0 2.748779e11)
;                               (DOUBLE-FLOAT 0.0d0
;                                2.74877906943d11)), not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (RATIONAL 0 274877906943)
;                               (SINGLE-FLOAT 0.0 2.748779e11)
;                               (DOUBLE-FLOAT 0.0d0
;                                2.74877906943d11)), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1- CHAOS::I)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (RATIONAL 0 274877906943)
;                                   (SINGLE-FLOAT 0.0 2.748779e11)
;                                   (DOUBLE-FLOAT 0.0d0 2.74877906943d11)), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (OR (RATIONAL 0 274877906943)
;                                   (SINGLE-FLOAT 0.0 2.748779e11)
;                                   (DOUBLE-FLOAT 0.0d0 2.74877906943d11)), not a (UNSIGNED-BYTE
;                                                                                  64).
;       etc.

; in: DEFUN COMPUTE-SUBSEQ-SELECTION
;     (<= CHAOS::M CHAOS::N)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (<= 1 CHAOS::M1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (LENGTH CHAOS::LST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (<= CHAOS::N1 (LENGTH CHAOS::LST))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (< 1 CHAOS::M1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (REAL 1), not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (REAL 1), not a DOUBLE-FLOAT.

;     (LENGTH CHAOS::LST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (< CHAOS::N1 (LENGTH CHAOS::LST))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (RATIONAL * 35184372088831)
;                               (SINGLE-FLOAT * 3.5184372e13)
;                               (DOUBLE-FLOAT *
;                                3.5184372088831d13)), not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (RATIONAL * 35184372088831)
;                               (SINGLE-FLOAT * 3.5184372e13)
;                               (DOUBLE-FLOAT *
;                                3.5184372088831d13)), not a DOUBLE-FLOAT.

;     (1+ CHAOS::N)
; 
; 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.

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

;     (1- CHAOS::M1)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (1- CHAOS::N1)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (<= CHAOS::M CHAOS::N)
; 
; note: forced to do full call
;       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.

;     (< 1 CHAOS::M1)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (REAL 1), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (REAL 1), not a (UNSIGNED-BYTE 64).
;       etc.

;     (< CHAOS::N1 (LENGTH CHAOS::LST))
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (RATIONAL * 35184372088831)
;                                   (SINGLE-FLOAT * 3.5184372e13)
;                                   (DOUBLE-FLOAT * 3.5184372088831d13)), not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a (OR (RATIONAL * 35184372088831)
;                                   (SINGLE-FLOAT * 3.5184372e13)
;                                   (DOUBLE-FLOAT * 3.5184372088831d13)), not a (UNSIGNED-BYTE
;                                                                                64).
;       etc.

;     (1+ CHAOS::N)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN COMPUTE-SUBSET-SELECTION
;     (LENGTH CHAOS::LST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (1- CHAOS::I)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN COMPUTE-VARIABLE-SUBSTITUTION
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::AVAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN GET-SUBTERM-POS
;     (>= CHAOS::RP 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (1- CHAOS::P)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN FIND-MATCHING-RULES
;     (1+ CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/basics-tmpP6A3E92I.fasl
; compilation finished in 0:00:00.076
; compiling file "/<<PKGBUILDDIR>>/thstuff/eval-match.lisp" (written 17 JAN 2019 06:56:23 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN FIND-REWRITE-RULES-ALL
;     (STRING CHAOS::LABEL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN PERFORM-MATCH
;     (FUNCALL CHAOS::FIRST-MATCH-METH CHAOS::PATTERN CHAOS::REAL-TARGET)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   FIRST-MATCH-METH is not known to be a function

;     (FUNCALL CHAOS::NEXT-MATCH-METH CHAOS::GLOBAL-STATE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   NEXT-MATCH-METH is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   NEXT-MATCH-METH is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/eval-match-tmpUSHT8RIL.fasl
; compilation finished in 0:00:00.028
; compiling file "/<<PKGBUILDDIR>>/thstuff/eval-apply.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/thstuff/eval-apply.lisp
; in: DEFUN APPLY-ONE-RULE-NO-SIMPLIFY
;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        (CHAOS::RULE-RHS
;          CHAOS::RULE))
;      SUBST)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GLOBAL-STATE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   NEXT-MATCH-METHOD is not known to be a function

;     (FUNCALL
;      (CHAOS::RULE-FIRST-MATCH-METHOD
;        CHAOS::RULE)
;      (CHAOS::RULE-LHS
;        CHAOS::RULE)
;      CHAOS::TERM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL
;      (CHAOS::LISP-FORM-FUNCTION
;        (CHAOS::RULE-RHS
;          CHAOS::RULE))
;      SUBST)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/eval-apply-tmp7YCPD44Y.fasl
; compilation finished in 0:00:00.040
; compiling file "/<<PKGBUILDDIR>>/thstuff/cexec.lisp" (written 10 DEC 2019 06:00:23 AM):

; file: /<<PKGBUILDDIR>>/thstuff/cexec.lisp
; in: DEFUN SHOW-RWL-SCH-GRAPH
;     (FORMAT T "no context module...")
; 
; note: deleting unreachable code

; in: DEFUN TERM-HASH-EQUAL
;     (SXHASH CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a NUMBER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SYMBOL.

; in: DEFUN CEXEC-HASH-TERM
;     (CHAOS::TERM-HASH-EQUAL
;      (CHAOS::TERM-BUILTIN-VALUE
;        CHAOS::TERM))
; --> BLOCK LOGAND 
; ==>
;   (SXHASH CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a NUMBER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SYMBOL.

; in: DEFUN CEXEC-LOOP-CHECK
;     (LENGTH CHAOS::ENTRY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN CEXEC-TERM-1
;     (MAPCAR #'1+ (CHAOS::RULE-PAT-POS CHAOS::RULE-PAT))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/cexec-tmpQXR7SNXD.fasl
; compilation finished in 0:00:00.356
; compiling file "/<<PKGBUILDDIR>>/thstuff/case.lisp" (written 15 NOV 2018 12:48:56 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/case-tmp6FLI1OC3.fasl
; compilation finished in 0:00:00.012
; compiling file "/<<PKGBUILDDIR>>/thstuff/proof-struct.lisp" (written 16 DEC 2019 07:35:07 AM):

; file: /<<PKGBUILDDIR>>/thstuff/proof-struct.lisp
; in: DEFUN PR-TACTIC
;     (FORMAT STREAM "[~a]" (CHAOS::TACTIC-NAME CHAOS::TACTIC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN GET-BUILTIN-TACTIC
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (STRING-EQUAL CHAOS::NAME (SYMBOL-NAME (CHAOS::TACTIC-NAME CHAOS::X))))
;      CHAOS::.ALL-BUILTIN-TACTICS.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN PR-TACTIC-SEQ
;     (FORMAT STREAM "( ~{~a~^ ~a ~} )"
;             (MAPCAR #'(LAMBDA (CHAOS::X) (CHAOS::TACTIC-NAME CHAOS::X))
;                     CHAOS::TACTICS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN PR-TACTIC-CTF
;     (FORMAT STREAM ":ctf")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN PR-TACTIC-CSP
;     (FORMAT STREAM ":csp")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN PR-TACTIC-INIT
;     (FORMAT STREAM ":init")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "[~a]" (SECOND (CHAOS::TACTIC-INIT-KIND CHAOS::OBJ)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN FIND-CITP-FLAG-INDEX
;     (CHAOS::CITP-FLAG-NAME
;       CHAOS::X)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (STRING= CHAOS::NAME
;              (CHAOS::CITP-FLAG-NAME
;                CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN PRINT-CITP-FLAG
;     (= CHAOS::INDEX CHAOS::CITP-ALL)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN PR-CITP-FLAG-INTERNAL
;     (CHAOS::CITP-FLAG-NAME
;       CHAOS::INDEX)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::CITP-FLAG
;       CHAOS::INDEX)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN HELP-CITP-FLAG
;     (CHAOS::CITP-FLAG-STRUCT
;       CHAOS::INDEX)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN INITIALIZE-CITP-FLAG
;     (SETF (CHAOS::CITP-FLAG-NAME
;             CHAOS::CITP-ALL)
;             "citp-all"
;           (CHAOS::CITP-FLAG-NAME
;             CHAOS::CITP-VERBOSE)
;             "citp-verbose"
;           (CHAOS::CITP-FLAG-NAME
;             CHAOS::CITP-SHOW-RWL)
;             "citp-show-rwl"
;           (CHAOS::CITP-FLAG-NAME
;             CHAOS::CITP-SPOILER)
;             "citp-spoiler"
;           (CHAOS::CITP-FLAG-NAME
;             CHAOS::CITP-PRINT-MESSAGE)
;             "citp-print-message"
;           (CHAOS::CITP-FLAG-NAME
;             CHAOS::CITP-NORMALIZE-INIT)
;             "citp-normalize-init"
;           ...)
; --> SETF LET THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG
;             CHAOS::CITP-PRINT-MESSAGE)
;             T)
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG
;             CHAOS::CITP-NORMALIZE-INIT)
;             T)
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG
;             CHAOS::CITP-NORMALIZE-LHS)
;             T)
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG-HOOK
;             CHAOS::CITP-VERBOSE)
;             #'(LAMBDA (CHAOS::NAME CHAOS::VALUE)
;                 (DECLARE (IGNORE CHAOS::NAME))
;                 (SETF CHAOS::*CITP-VERBOSE* CHAOS::VALUE)))
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG-HOOK
;             CHAOS::CITP-SHOW-RWL)
;             #'(LAMBDA (CHAOS::NAME CHAOS::VALUE)
;                 (DECLARE (IGNORE CHAOS::NAME))
;                 (SETF CHAOS::*CITP-SHOW-RWL* CHAOS::VALUE)))
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG-HOOK
;             CHAOS::CITP-SPOILER)
;             #'(LAMBDA (CHAOS::NAME CHAOS::VALUE)
;                 (DECLARE (IGNORE CHAOS::NAME))
;                 (SETF CHAOS::*CITP-SPOILER* CHAOS::VALUE)))
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN USE-SENTENCES-IN-GOAL
;     (LENGTH CHAOS::NEW-AXS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN EMBED-SENTENCES-IN-MODULE
;     (LENGTH CHAOS::NEW-AXS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN MAKE-PTREE-GOAL-NAME
;     (EQUAL CHAOS::P-NAME "root")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN PR-PTREE
;     (INCF CHAOS::NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN DEFAULT-CONSTRUCTOR-ORDER
;     (SORT CHAOS::CONSTRUCTORS
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (LET ((CHAOS::AX #) (CHAOS::AY #))
;                 (IF (< CHAOS::AX CHAOS::AY)
;                     T
;                     (IF #
;                         NIL
;                         #)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (< CHAOS::AX CHAOS::AY)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (> CHAOS::AX CHAOS::AY)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (< CHAOS::AX CHAOS::AY)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (> CHAOS::AX CHAOS::AY)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN ORDER-CONSTRUCTORS
;     (POSITION :* CHAOS::ORDER-SPEC)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR CONS VECTOR
;                                SB-KERNEL:EXTENDED-SEQUENCE), not a (OR LIST
;                                                                        VECTOR).

;     (SUBSEQ CHAOS::ORDER-SPEC 0 CHAOS::POS-STAR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ CHAOS::ORDER-SPEC (1+ CHAOS::POS-STAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN SHOW-CONSTRUCTOR-ORDER
;     (INCF CHAOS::NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN SET-CONSTRUCTOR-ORDER
;     (SORT CHAOS::OVERS
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (LET ((CHAOS::X-NUM #) (CHAOS::Y-NUM #))
;                 (DECLARE (TYPE FIXNUM CHAOS::X-NUM CHAOS::Y-NUM))
;                 (< CHAOS::X-NUM CHAOS::Y-NUM))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFUN MAKE-IND-CONST-NAME
;     (STRING CHAOS::NAME-PREFIX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN FIND-GOAL-NODE
;     (STRING= (CHAOS::GOAL-NAME CHAOS::GOAL) CHAOS::NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN SELECT-NEXT-GOAL
;     (STRING= CHAOS::GOAL-NAME ".")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN PRINT-DISCHARGED-SENTENCES
;     (LENGTH CHAOS::DISCHARGED)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN !PRINT-PROOF-VERTICAL
;     (FUNCALL CHAOS::LEAF-NAME CHAOS::NODE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   LEAF-NAME is not known to be a function

; in: DEFUN DESCRIBE-PROOF-TREE
;     (+ CHAOS::*PROOF-INDENT* CHAOS::*PRINT-INDENT*)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/proof-struct-tmpWBK8JTS9.fasl
; compilation finished in 0:00:00.388
; compiling file "/<<PKGBUILDDIR>>/thstuff/apply-tactic.lisp" (written 20 JAN 2020 01:13:27 AM):

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

; in: DEFUN SENTENCE-IS-SATISFIED
;     (SETQ CHAOS::RESULT :CT)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; in: DEFUN AXIOM-IS-AN-INSTANCE-OF
;     (FUNCALL
;      (CHAOS::RULE-FIRST-MATCH-METHOD
;        CHAOS::CX)
;      (CHAOS::RULE-LHS
;        CHAOS::CX)
;      (CHAOS::RULE-LHS
;        CHAOS::AX))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

;     (FUNCALL CHAOS::NEXT-MATCH-METHOD CHAOS::GS)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   NEXT-MATCH-METHOD is not known to be a function

; in: DEFUN GET-REAL-TARGET-VARIABLE
;     (FIND-IF
;      #'(LAMBDA (CHAOS::M)
;          (AND
;           (CHAOS::SORT=
;             (CHAOS::VARIABLE-SORT
;               CHAOS::M)
;             (CHAOS::VARIABLE-SORT
;               CHAOS::INDVAR))
;           (EQUAL
;            (CHAOS::VARIABLE-NAME
;              CHAOS::M)
;            (CHAOS::VARIABLE-NAME
;              CHAOS::INDVAR))))
;      CHAOS::AXIOM-VARIABLES)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; in: DEFUN MAKE-STEP-CONSTRUCTOR-TERM
;     (ZEROP (CDR CHAOS::VAR-ASSOC))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (INCF (CDR CHAOS::VAR-ASSOC))
; ==>
;   (+ 1 (CDR #:VAR-ASSOC20))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

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

;     (INCF (CDR CHAOS::VAR-ASSOC))
; ==>
;   (+ 1 (CDR #:VAR-ASSOC22))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; ==>
;   (+ 1 (CDR #:VAR-ASSOC20))
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (INCF CHAOS::N)
; --> THE 
; ==>
;   (+ 1 CHAOS::N)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN FIND-GTERM-MATCHING-CONDITIONALS
;     (SETF (AREF CHAOS::.DUPLICATED. CHAOS::IDX)
;             (REMOVE-DUPLICATES CHAOS::REJECTED :TEST
;                                #'CHAOS::TERM-EQUATIONAL-EQUAL))
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

; in: DEFUN FIND-SUB-CASE-IN
;     (FIND CHAOS::X CHAOS::XC :TEST #'CHAOS::TERM-EQUATIONAL-EQUAL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (LENGTH CHAOS::XC)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN CASE-IS-VALID
;     (AREF CHAOS::.DUPLICATED. CHAOS::IDX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

; in: DEFUN NORMALIZE-CASES
;     (LENGTH CHAOS::.DUPLICATED.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF CHAOS::.DUPLICATED. CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

;     (DELETE CHAOS::C CHAOS::ALL-CASES :TEST #'CHAOS::TERM-EQUATIONAL-EQUAL)
; 
; note: unable to
;   convert to EQ test
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

; in: DEFUN GENERATE-CASES
;     (LENGTH CHAOS::RV-COMBS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN RULE-IS-FOR-CASE
;     (STRING CHAOS::LB)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN RULE-IS-CASE-GENERATED
;     (STRING CHAOS::LB)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN GET-TARGET-AXIOM
;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN MAKE-AXIOM-INSTANCE
;     (CHAOS::MAKE-PROPER-LABEL (CHAOS::LABEL)
;      (IF (STRINGP CHAOS::LABEL)
;          (INTERN CHAOS::LABEL)
;          CHAOS::LABEL))
; 
; note: Return type not fixed values, so can't use known return convention:
;   (VALUES (AND (NOT (VECTOR CHARACTER)) (NOT BASE-STRING)) &OPTIONAL
;           (MEMBER NIL :INHERITED :EXTERNAL :INTERNAL))

; in: DEFUN INSTANCIATE-AXIOM-IN-GOAL
;     (CHAOS::CITP-FLAG
;       CHAOS::CITP-NORMALIZE-INIT)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::CITP-FLAG
;       CHAOS::CITP-NORMALIZE-LHS)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PR-CPP
;     (FORMAT STREAM "~%Critical Pair ---------")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN GENERATE-CRITICAL-PAIRS
;     (SORT CHAOS::SUBS #'CHAOS::LRPO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFUN REDUCE-IN-GOAL
;     (STRING CHAOS::MODE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN MAKE-CTF-CONSTRUCTOR-PATTERN
;     (ZEROP (CDR CHAOS::PN))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (INCF (CDR CHAOS::PN))
; ==>
;   (+ 1 (CDR #:PN5))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ 1 (CDR #:PN7))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ 1 (CDR #:PN5))
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; ==>
;   (+ 1 (CDR #:PN7))
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN DO-APPLY-CTF-TO-EQUATION
;     (CHAOS::ADD-ASSUMPTION (CHAOS::GOAL CHAOS::LHS CHAOS::RHS)
;      (LET (CHAOS::N-AXIOM)
;        (MULTIPLE-VALUE-BIND (CHAOS::N-LHS CHAOS::N-RHS TYPE)
;            (CHAOS::SIMPLIFY-BOOLEAN-AXIOM CHAOS::LHS CHAOS::RHS)
;          (COND (CHAOS::N-LHS # # # #) (T #)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; in: DEFUN APPLY-CTF
;     (LENGTH CHAOS::NEXT-GOALS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN APPLY-CSP
;     (LENGTH CHAOS::NEXT-GOALS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN APPLY-TACTIC
;     (FUNCALL (CHAOS::TACTIC-EXECUTOR CHAOS::TACTIC) CHAOS::PTREE-NODE
;              CHAOS::TACTIC)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/apply-tactic-tmpUVEUD2ZN.fasl
; compilation finished in 0:00:00.308
; compiling file "/<<PKGBUILDDIR>>/thstuff/citp.lisp" (written 16 DEC 2019 07:35:07 AM):

; 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 VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ CHAOS::NAME 0 4)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN CITP-PARSE-SPOILER
;     (SETF (CHAOS::CITP-FLAG
;             CHAOS::CITP-SPOILER)
;             CHAOS::VALUE)
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PARSE-TERM-IN-CONTEXT
;     (ELT TYPE 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

; in: DEFUN EVAL-CITP-VERBOSE
;     (STRING-EQUAL CHAOS::TOKEN ".")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                CHARACTER (*)).

; in: DEFUN EVAL-CITP-NORMALIZE
;     (STRING-EQUAL CHAOS::TOKEN ".")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                CHARACTER (*)).

; in: DEFUN CITP-EVAL-SET
;     (CHAOS::CITP-FLAG
;       CHAOS::CITP-PRINT-MESSAGE)
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (= CHAOS::CITP-ALL CHAOS::INDEX)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (SETF (CHAOS::CITP-FLAG
;             CHAOS::X)
;             CHAOS::VALUE)
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::CITP-FLAG
;             CHAOS::INDEX)
;             CHAOS::VALUE)
; --> THE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::CITP-FLAG-HOOK
;       CHAOS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (10)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (FUNCALL
;      (CHAOS::CITP-FLAG-HOOK
;        CHAOS::INDEX)
;      CHAOS::NAME CHAOS::VALUE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN ADD-METHOD-THEORY
;     (CHAOS::SET-NEEDS-PARSE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/citp-tmpOWNJOEU.fasl
; compilation finished in 0:00:00.188
; compiling file "/<<PKGBUILDDIR>>/thstuff/bterm-inspector.lisp" (written 15 NOV 2018 12:48:56 AM):

; file: /<<PKGBUILDDIR>>/thstuff/bterm-inspector.lisp
; in: DEFUN PRINT-BTERM
;     (FORMAT STREAM "(~d) " (INCF CHAOS::NUM))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a NULL.

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

; in: DEFUN MAKE-TF-COMBINATION
;     (EXPT 2 CHAOS::C)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &OPTIONAL).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN ASSIGN-TF
;     (LENGTH CHAOS::LIST-VARS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (EXPT 2 CHAOS::COLUMNS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &OPTIONAL).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (DOTIMES (CHAOS::R CHAOS::ROWS)
;       (LET ((SUBST NIL))
;         (DOTIMES (CHAOS::C CHAOS::COLUMNS) (PUSH (CONS # #) SUBST))
;         (PUSH (NREVERSE SUBST) CHAOS::L-SUBST)))
; --> BLOCK LET TAGBODY UNLESS IF >= 
; ==>
;   1
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       etc.

; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

;     (INCF CHAOS::NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN PRINT-BTERM-SUBSTITUTION
;     (SORT (CHAOS::TERM-PVARIABLES CHAOS::TERM-REPRESENTATION)
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (STRING<
;                (STRING
;                 (CHAOS::VARIABLE-NAME
;                   CHAOS::X))
;                (STRING
;                 (CHAOS::VARIABLE-NAME
;                   CHAOS::Y)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

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

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

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

;     (STRING<
;      (STRING
;       (CHAOS::VARIABLE-NAME
;         CHAOS::X))
;      (STRING
;       (CHAOS::VARIABLE-NAME
;         CHAOS::Y)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
;   The second argument is a STRING, not a SIMPLE-STRING.

; in: DEFUN PRINT-BTERM-WITH-SUBST
;     (STRING
;      (CHAOS::VARIABLE-PRINT-NAME
;        CHAOS::VAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PRINT-BTERM-GRINDING
;     (STRING
;      (CHAOS::VARIABLE-PRINT-NAME
;        CHAOS::VAR))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (STRING (CAR CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

;     (STRING< (STRING (CAR CHAOS::X)) (STRING (CAR CHAOS::Y)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
;   The second argument is a STRING, not a SIMPLE-STRING.

; in: DEFUN RESOLVE-BTERM-BY-WF
;     (LENGTH CHAOS::VARS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (LENGTH CHAOS::BASES)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (NTHCDR (+ 1 CHAOS::J CHAOS::I) CHAOS::VARS)
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN BINSPECT-INTRO-PREDICATES
;     (STRING
;      (CHAOS::VARIABLE-PRINT-NAME
;        CHAOS::V))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (CHAOS::SET-NEEDS-PARSE
;       CHAOS::MODULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN MAKE-PRED-ORDERED-PAIRS
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

;     (STRING<
;      (STRING
;       (CHAOS::VARIABLE-NAME
;         CHAOS::X))
;      (STRING
;       (CHAOS::VARIABLE-NAME
;         CHAOS::Y)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
;   The second argument is a STRING, not a SIMPLE-STRING.

; in: DEFUN MAKE-PRED-COMBINATIONS
;     (STRING
;      (CHAOS::VARIABLE-NAME
;        CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

;     (STRING<
;      (STRING
;       (CHAOS::VARIABLE-NAME
;         CHAOS::X))
;      (STRING
;       (CHAOS::VARIABLE-NAME
;         CHAOS::Y)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
;   The second argument is a STRING, not a SIMPLE-STRING.

; in: DEFUN REPORT-BGUESS-RESULT
;     (INCF CHAOS::DEPTH)
; --> THE 
; ==>
;   (+ 1 CHAOS::DEPTH)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (LENGTH CHAOS::SOLUTIONS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR
;                               SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (INCF CHAOS::DEPTH)
; --> THE 
; ==>
;   (+ 1 CHAOS::DEPTH)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

;     (INCF CHAOS::NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN DO-BGUESS
;     (STRING
;      (CHAOS::VARIABLE-PRINT-NAME
;        (CAR CHAOS::COMB)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

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

; in: DEFUN BRESOLVE
;     (< 0 CHAOS::LIMIT)
; 
; note: forced to do >-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.

; in: DEFUN FIND-VARIABLE-IN-ABST-BTERM
;     (STRING= CHAOS::NAME
;              (CHAOS::VARIABLE-PRINT-NAME
;                (CAR CHAOS::SUB)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a (OR STRING SYMBOL
;                                CHARACTER), not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                 CHARACTER (*)).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/thstuff/bterm-inspector-tmpVT5BMTA5.fasl
; compilation finished in 0:00:00.108
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/types.lisp" (written 17 JAN 2019 06:56:23 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/types.lisp
; in: DEFUN LITERALS-TO-TERM
;     (IF (CDR CHAOS::RES)
;         (SETQ CHAOS::RES
;                 (CHAOS::MAKE-RIGHT-ASSOC-NORMAL-FORM-WITH-SORT-CHECK
;                  CHAOS::*FOPL-OR* (NREVERSE CHAOS::RES)))
;         (SETQ CHAOS::RES (CAR CHAOS::RES)))
; 
; note: deleting unreachable code

;     (LET ((CHAOS::RES NIL))
;       (DECLARE (TYPE (OR NULL CHAOS::TERM) CHAOS::RES))
;       (DO* ((CHAOS::LITS CHAOS::LIT-LIST (CDR CHAOS::LITS))
;             (CHAOS::L (CAR CHAOS::LITS) (CAR CHAOS::LITS)))
;            ((NULL CHAOS::LITS))
;         (DECLARE (TYPE CHAOS::LITERAL CHAOS::L))
;         (IF (CHAOS::LITERAL-SIGN CHAOS::L)
;             (PUSH (CHAOS::MAKE-TERM-WITH-SORT-CHECK CHAOS::*FOPL-NEG* #)
;                   CHAOS::RES)
;             (PUSH (CHAOS::LITERAL-ATOM CHAOS::L) CHAOS::RES)))
;       (IF (CDR CHAOS::RES)
;           (SETQ CHAOS::RES
;                   (CHAOS::MAKE-RIGHT-ASSOC-NORMAL-FORM-WITH-SORT-CHECK
;                    CHAOS::*FOPL-OR* #))
;           (SETQ CHAOS::RES (CAR CHAOS::RES)))
;       CHAOS::RES)
; 
; note: deleting unreachable code


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/types-tmpN3CFVWZF.fasl
; compilation finished in 0:00:00.168
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/glob.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/glob.lisp
; in: EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-SECONDS)
;             "max-seconds")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-SECONDS)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-SECONDS)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-GEN)
;             "max-gen")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-GEN)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-GEN)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-KEPT)
;             "max-kept")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-KEPT)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-KEPT)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-GIVEN)
;             "max-given")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-GIVEN)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-GIVEN)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-WEIGHT)
;             "max-weight")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-WEIGHT)
;             MOST-NEGATIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-WEIGHT)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::PICK-GIVEN-RATIO)
;             "pick-given-ratio")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::PICK-GIVEN-RATIO)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::PICK-GIVEN-RATIO)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::DEMOD-LIMIT)
;             "demod-limit")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::DEMOD-LIMIT)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::DEMOD-LIMIT)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-PROOFS)
;             "max-proofs")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-PROOFS)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-PROOFS)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::NEG-WEIGHT)
;             "neg-weight")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::NEG-WEIGHT)
;             MOST-NEGATIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::NEG-WEIGHT)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::STATS-LEVEL)
;             "stats-level")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::STATS-LEVEL)
;             0)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::STATS-LEVEL)
;             4)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::CHANGE-LIMIT-AFTER)
;             "change-limit-after")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::CHANGE-LIMIT-AFTER)
;             0)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::CHANGE-LIMIT-AFTER)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::NEW-MAX-WEIGHT)
;             "new-max-weight")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::NEW-MAX-WEIGHT)
;             MOST-NEGATIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::NEW-MAX-WEIGHT)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-ANSWERS)
;             "max-answers")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-ANSWERS)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-ANSWERS)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::DYNAMIC-DEMOD-DEPTH)
;             "dynamic-demod-depth")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::DYNAMIC-DEMOD-DEPTH)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::DYNAMIC-DEMOD-DEPTH)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::DYNAMIC-DEMOD-RHS)
;             "dynamic-demod-rhs")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::DYNAMIC-DEMOD-RHS)
;             MOST-NEGATIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::DYNAMIC-DEMOD-RHS)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-SOS)
;             "max-sos")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-SOS)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-SOS)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::INV-CHECK-MAX-DEPTH)
;             "inv-check-max-depth")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::INV-CHECK-MAX-DEPTH)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::INV-CHECK-MAX-DEPTH)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::CONTROL-MEMORY-POINT)
;             "control-memory-point")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::CONTROL-MEMORY-POINT)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::CONTROL-MEMORY-POINT)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-NAME
;             CHAOS::MAX-LITERALS)
;             "max-literals")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MIN
;             CHAOS::MAX-LITERALS)
;             -1)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER-MAX
;             CHAOS::MAX-LITERALS)
;             MOST-POSITIVE-FIXNUM)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG-NAME
;             CHAOS::SOS-QUEUE)
;             "sos-queue")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::SOS-STACK)
;             "sos-stack")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::INPUT-SOS-FIRST)
;             "input-sos-first")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-GIVEN)
;             "print-given")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-LISTS-AT-END)
;             "print-lists-at-end")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::BINARY-RES)
;             "binary-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::HYPER-RES)
;             "hyper-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NEG-HYPER-RES)
;             "neg-hyper-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::UR-RES)
;             "ur-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-INTO)
;             "para-into")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-FROM)
;             "para-from")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEMOD-INF)
;             "demod-inf")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-FROM-LEFT)
;             "para-from-left")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-FROM-RIGHT)
;             "para-from-right")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-INTO-LEFT)
;             "para-into-left")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-INTO-RIGHT)
;             "para-into-right")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-FROM-VARS)
;             "para-from-vars")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-INTO-VARS)
;             "para-into-vars")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-FROM-UNITS-ONLY)
;             "para-from-units-only")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-INTO-UNITS-ONLY)
;             "para-into-units-only")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-SKIP-SKOLEM)
;             "para-skip-skolem")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-ONES-RULE)
;             "para-ones-rules")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PARA-ALL)
;             "para-all")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::UNIT-DELETION)
;             "unit-deletion")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DELETE-IDENTICAL-NESTED-SKOLEM)
;             "delete-identical-nested-skolem")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::SORT-LITERALS)
;             "sort-literals")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::FOR-SUB)
;             "for-sub")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::BACK-SUB)
;             "back-sub")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::FACTOR)
;             "factor")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::ORDER-EQ)
;             "order-eq")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::EQ-UNITS-BOTH-WAYS)
;             "eq-units-both-ways")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DYNAMIC-DEMOD)
;             "dynamic-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DYNAMIC-DEMOD-ALL)
;             "dynamic-demod-all")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DYNAMIC-DEMOD-LEX-DEP)
;             "dynamic-demod-lex-dep")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::BACK-DEMOD)
;             "back-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::KB)
;             "kb")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::LRPO)
;             "lrpo")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::LEX-ORDER-VARS)
;             "lex-order-vars")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::SIMPLIFY-FOL)
;             "simplify-fol")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NEW-VARIABLE-NAME)
;             "new-variable-name")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PROCESS-INPUT)
;             "process-input")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::QUIET)
;             "quiet")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::VERY-VERBOSE)
;             "very-verbose")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-KEPT)
;             "print-kept")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-PROOFS)
;             "print-proofs")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-NEW-DEMOD)
;             "print-new-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-BACK-DEMOD)
;             "print-back-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-BACK-SUB)
;             "print-back-sub")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::ORDER-HYPER)
;             "order-hyper")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PROPOSITIONAL)
;             "propositional")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::AUTO)
;             "auto")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::HYPER-SYMMETRY-KLUDGE)
;             "hyper-symmetry-kludge")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DISCARD-NON-ORIENTABLE-EQ)
;             "discard-non-orientable-eq")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DISCARD-XX-RESOLVABLE)
;             "discard-xx-resolvable")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::BACK-UNIT-DELETION)
;             "back-unit-deletion")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::AUTO2)
;             "auto2")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::AUTO1)
;             "auto1")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::AUTO3)
;             "auto3")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-INFER)
;             "debug-infer")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-BINARY-RES)
;             "debug-binary-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-HYPER-RES)
;             "debug-hyper-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-NEG-HYPER-RES)
;             "debug-neg-hyper-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-UR-RES)
;             "debug-ur-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-PARA-FROM)
;             "debug-para-from")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-PARA-INTO)
;             "debug-para-into")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::UNIVERSAL-SYMMETRY)
;             "universal-symmetry")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::CONTROL-MEMORY)
;             "control-memory")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-STATS)
;             "print-stats")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PRINT-MESSAGE)
;             "print-message")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::UNIFY-HEAVY)
;             "unify-heavy")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::TRACE-DEMOD)
;             "trace-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-REFINE)
;             "debug-refine")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NO-DEMOD)
;             "no-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NO-BACK-DEMOD)
;             "no-back-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::KB2)
;             "kb2")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NO-NEW-DEMOD)
;             "no-new-demod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PROP-RES)
;             "prop-res")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NO-JUNK)
;             "no-junk")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::NO-CONFUSION)
;             "no-confusion")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::META-PARAMOD)
;             "meta-paramod")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-HOOK
;             CHAOS::META-PARAMOD)
;             'CHAOS::PN-SET-TF-FLAG)
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-INV-CHECK)
;             "debug-inv-check")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DIST-CONST)
;             "dist-const")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-DIST-CONST)
;             "debug-dist-const")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::RANDOMIZE-SOS)
;             "randomize-sos")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::DEBUG-SOS)
;             "debug-sos")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::PUT-GOAL-IN-SOS)
;             "put-goal-in-sos")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::CHECK-INIT-ALWAYS)
;             "check-init-always")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a 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-NAME
;             CHAOS::KB3)
;             "kb3")
; --> LET* AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/glob-tmpNK27C0R1.fasl
; compilation finished in 0:00:00.132
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/proof-sys.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/proof-sys.lisp
; in: DEFUN UPDATE-MODULE-PROOF-SYSTEM
;     (DEFUN CHAOS::UPDATE-MODULE-PROOF-SYSTEM (MOD &OPTIONAL CHAOS::DO-ANYWAY)
;       (DECLARE (TYPE CHAOS::MODULE MOD))
;       (LET ((CHAOS::CLEAR-PASSIVE NIL))
;         (WHEN
;             (CHAOS::NEED-REWRITING-PREPARATION
;               MOD)
;           (CHAOS::COMPILE-MODULE MOD)
;           (SETQ CHAOS::CLEAR-PASSIVE T)
;           (SETQ CHAOS::DO-ANYWAY T))
;         (UNLESS
;             (CHAOS::MODULE-PROOF-SYSTEM
;               MOD)
;           (SETQ CHAOS::DO-ANYWAY T))
;         (LET ((CHAOS::PSYSTEM #))
;           (WHEN CHAOS::CLEAR-PASSIVE (SETF #))
;           (CHAOS::RESET-CLAUSE-DB CHAOS::PSYSTEM)
;           (CHAOS::MODULE-AXIOMS->CLAUSE CHAOS::PSYSTEM)
;           (CHAOS::PREPARE-FOR-PARSING MOD)
;           CHAOS::PSYSTEM)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CHAOS::UPDATE-MODULE-PROOF-SYSTEM
;         (MOD &OPTIONAL CHAOS::DO-ANYWAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (TYPE CHAOS::MODULE MOD))
;       (BLOCK CHAOS::UPDATE-MODULE-PROOF-SYSTEM
;         (LET ((CHAOS::CLEAR-PASSIVE NIL))
;           (WHEN
;               (CHAOS::NEED-REWRITING-PREPARATION
;                 MOD)
;             (CHAOS::COMPILE-MODULE MOD)
;             (SETQ #)
;             (SETQ #))
;           (UNLESS
;               (CHAOS::MODULE-PROOF-SYSTEM
;                 MOD)
;             (SETQ #))
;           (LET (#)
;             (WHEN CHAOS::CLEAR-PASSIVE #)
;             (CHAOS::RESET-CLAUSE-DB CHAOS::PSYSTEM)
;             (CHAOS::MODULE-AXIOMS->CLAUSE CHAOS::PSYSTEM)
;             (CHAOS::PREPARE-FOR-PARSING MOD)
;             CHAOS::PSYSTEM))))
; 
; caught STYLE-WARNING:
;   The variable DO-ANYWAY is assigned but never read.

;     (CHAOS::NEED-REWRITING-PREPARATION
;       MOD)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/proof-sys-tmp3BPE71HR.fasl
; compilation finished in 0:00:00.012
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "chaosx" "BigPink" "codes" "proof-sys">
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/syntax.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/syntax.lisp
; in: DEFUN CHECK-FOPL-SYNTAX-AUX
;     (CHAOS::CHECK-VAR-DECL (CHAOS::VAR-DECL)
;      (COND
;       ((CHAOS::TERM-IS-VARIABLE?
;          CHAOS::VAR-DECL)
;        T)
;       ((AND
;         (CHAOS::TERM-IS-APPLICATION-FORM?
;           CHAOS::VAR-DECL)
;         (CHAOS::TERM-SUBTERMS
;           CHAOS::VAR-DECL))
;        (LET (#)
;          (OR # #)))
;       (T
;        (IF CHAOS::REPORT-ERROR
;            (CHAOS::WITH-OUTPUT-CHAOS-ERROR
;              #
;              #
;              #)
;            NIL))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/syntax-tmp758YUXMV.fasl
; compilation finished in 0:00:00.036
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/index.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/index.lisp
; in: DEFUN NLIST-PUSH
;     (INCF (CAR CHAOS::NLIST))
; ==>
;   (+ 1 (CAR #:NLIST1))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN DTREE-FETCH
;     (>= CHAOS::VAR-N CHAOS::BEST-N)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (+ CHAOS::VAR-N-IN
;        (CHAOS::NLIST-N
;          CHAOS::VAR-NLIST))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

;     (>= CHAOS::VAR-N CHAOS::BEST-N)
; 
; note: forced to do full call
;       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.

; in: DEFUN DTREE-ATOM-FETCH
;     (<
;      (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 SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (INCF CHAOS::VAR-N
;           (CHAOS::NLIST-N
;             CHAOS::ATOM-NLIST))
; --> THE 
; ==>
;   (+
;    (CHAOS::NLIST-N
;      CHAOS::ATOM-NLIST)
;    CHAOS::VAR-N)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       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
;                                                                &OPTIONAL).
;       etc.

;     (<
;      (INCF CHAOS::VAR-N
;            (CHAOS::NLIST-N
;              CHAOS::ATOM-NLIST))
;      CHAOS::BEST-N)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN DTREE-DELETE
;     (DELETE CHAOS::VALUE (CDR CHAOS::NLIST) :COUNT 1 :TEST CHAOS::TEST)
; 
; note: unable to
;   convert to EQ test
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

;     (DECF (CAR CHAOS::NLIST))
; --> SB-IMPL::XSUBTRACT BLOCK 
; ==>
;   (- SB-IMPL::B SB-IMPL::A)
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN INDEX-ALL-LITERALS
;     (CHAOS::PN-FLAG
;       CHAOS::BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN UN-INDEX-ALL-LITERALS
;     (CHAOS::PN-FLAG
;       CHAOS::BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN UN-INDEX-ALL-LITERALS-SLOW
;     (CHAOS::PN-FLAG
;       CHAOS::BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN INDEX-CLASH-LITERALS
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN UN-INDEX-CLASH-LITERALS
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN UN-INDEX-CLASH-LITERALS-SLOW
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN IS-PARAMOD-INSERT
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN IS-PARAMOD-DELETE
;     (DELETE CHAOS::LITERAL CHAOS::ENT :TEST
;             #'(LAMBDA (CHAOS::X CHAOS::Y)
;                 (EQ CHAOS::X (CHAOS::PARAMOD-LITERAL CHAOS::Y))))
; 
; note: unable to
;   convert to EQ test
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (DELETE CHAOS::LITERAL CHAOS::ENT :TEST
;             #'(LAMBDA (CHAOS::X CHAOS::Y)
;                 (EQ CHAOS::X (CHAOS::PARAMOD-LITERAL CHAOS::Y))))
; 
; note: unable to
;   convert to EQ test
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

; in: DEFUN IS-PARAMOD-FETCH-CONCAT
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN ADD-EQ-LITERAL
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-VARS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-SKIP-SKOLEM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN ADD-EQ-LITERAL-TO-TABLE
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-UNITS-ONLY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-LEFT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-RIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN DELETE-EQ-LITERAL-FROM-TABLE
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-LEFT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-RIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN DELETE-EQ-LITERAL-ATOM-FROM-TABLE
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/index-tmpGMQXK1HK.fasl
; compilation finished in 0:00:00.128
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/butils.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/butils.lisp
; in: DEFUN PN-MAKE-NEW-VARIABLE
;     (CHAOS::PN-FLAG
;       CHAOS::NEW-VARIABLE-NAME)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN ID-NESTED-SKOLEMS
;     (RETURN-FROM CHAOS::ID-NESTED-SKOLEMS T)
; 
; note: deleting unreachable code

; in: DEFUN INIT-PN-OPTIONS
;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PARA-FROM-LEFT)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PARA-FROM-RIGHT)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PARA-INTO-LEFT)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PARA-INTO-RIGHT)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::FOR-SUB)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::BACK-SUB)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-KEPT)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-STATS)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-GIVEN)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-BACK-SUB)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-NEW-DEMOD)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-BACK-DEMOD)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::BACK-UNIT-DELETION)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::SIMPLIFY-FOL)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-PROOFS)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::NEW-VARIABLE-NAME)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-MESSAGE)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::ORDER-HYPER)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PUT-GOAL-IN-SOS)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::CHECK-INIT-ALWAYS)
;             T)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::NO-JUNK)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::NO-CONFUSION)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::META-PARAMOD)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::RANDOMIZE-SOS)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::DEMOD-LIMIT)
;             1000)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-WEIGHT)
;             MOST-POSITIVE-FIXNUM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-GIVEN)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-SOS)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-SECONDS)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::NEG-WEIGHT)
;             0)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-KEPT)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-GEN)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-LITERALS)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-PROOFS)
;             1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::STATS-LEVEL)
;             2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::PICK-GIVEN-RATIO)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::CHANGE-LIMIT-AFTER)
;             0)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::NEW-MAX-WEIGHT)
;             MOST-POSITIVE-FIXNUM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-ANSWERS)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::DYNAMIC-DEMOD-DEPTH)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::DYNAMIC-DEMOD-RHS)
;             1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::INV-CHECK-MAX-DEPTH)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::CONTROL-MEMORY-POINT)
;             20)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::X)
;             -1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::X)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN FIND-PN-FLAG-INDEX
;     (CHAOS::PN-FLAG-NAME
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (STRING= CHAOS::NAME
;              (CHAOS::PN-FLAG-NAME
;                CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN FIND-PN-PARAMETER-INDEX
;     (CHAOS::PN-PARAMETER-NAME
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (STRING= CHAOS::NAME
;              (CHAOS::PN-PARAMETER-NAME
;                CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN SAVE-PN-FLAGS
;     (CHAOS::PN-FLAG
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN RESTORE-PN-FLAGS
;     (SETF (CHAOS::PN-FLAG
;             CHAOS::X)
;             (AREF ARRAY CHAOS::X))
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN SAVE-PN-PARAMETERS
;     (CHAOS::PN-PARAMETER
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN RESTORE-PN-PARAMETERS
;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::X)
;             (AREF ARRAY CHAOS::X))
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN FIND-OPTION-SET
;     (FIND-IF
;      #'(LAMBDA (CHAOS::X)
;          (STRING= CHAOS::NAME (CHAOS::OPTION-SET-NAME CHAOS::X)))
;      CHAOS::*PN-OPTION-SET*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (STRING= CHAOS::NAME (CHAOS::OPTION-SET-NAME CHAOS::X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN SAVE-OPTION-SET
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN RESTORE-OPTION-SET
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PR-LIST-OF-FLAG
;     (SORT CHAOS::FLAGS
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (DECLARE (TYPE FIXNUM CHAOS::X CHAOS::Y))
;               (STRING<
;                (THE SIMPLE-STRING
;                     (CHAOS::PN-FLAG-NAME
;                       CHAOS::X))
;                (THE SIMPLE-STRING
;                     (CHAOS::PN-FLAG-NAME
;                       CHAOS::Y)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (CHAOS::PN-FLAG-NAME
;       CHAOS::FLAG)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::FLAG)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG-NAME
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG-NAME
;       CHAOS::Y)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PR-LIST-OF-PARAM
;     (SORT CHAOS::PARAMS
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (DECLARE (TYPE FIXNUM CHAOS::X CHAOS::Y))
;               (STRING<
;                (THE SIMPLE-STRING
;                     (CHAOS::PN-PARAMETER-NAME
;                       CHAOS::X))
;                (THE SIMPLE-STRING
;                     (CHAOS::PN-PARAMETER-NAME
;                       CHAOS::Y)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (CHAOS::PN-PARAMETER-NAME
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER-MIN
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER-MAX
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER-NAME
;       CHAOS::X)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER-NAME
;       CHAOS::Y)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN AUTO-CHANGE-FLAG
;     (CHAOS::PN-FLAG
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG-NAME
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::INDEX)
;             CHAOS::VALUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN DEPENDENT-FLAGS
;     (CHAOS::PN-FLAG
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN AUTO-CHANGE-PARAM
;     (CHAOS::PN-PARAMETER
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER-NAME
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::INDEX)
;             CHAOS::VALUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN MOVE-FROM-USABLE-TO-SOS
;     (FUNCALL CHAOS::PRED CHAOS::C)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PRED is not known to be a function

; in: DEFUN PN-CONTROL-MEMORY
;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-SOS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (= CHAOS::.NEXT-CONTROL-POINT.
;        (CHAOS::PN-STAT
;          CHAOS::CL-GIVEN))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (CHAOS::PN-PARAMETER
;       CHAOS::CONTROL-MEMORY-POINT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-WEIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-WEIGHT)
;             CHAOS::I)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (* CHAOS::N 20)
; 
; note: forced to do */SIGNED=>INTEGER (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES
;                        (OR (INTEGER 20 92233720368547758060)
;                            (INTEGER -92233720368547758080 -20) (INTEGER 0 0))
;                        &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES
;                        (OR (INTEGER 20 92233720368547758060)
;                            (INTEGER -92233720368547758080 -20) (INTEGER 0 0))
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (<= (* CHAOS::N 20) CHAOS::SIZE)
; 
; note: forced to do >-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (INTEGER 20 92233720368547758060)
;                                   (INTEGER -92233720368547758080 -20)
;                                   (INTEGER 0 0)), not a FIXNUM.

;     (SETQ CHAOS::.NEXT-CONTROL-POINT.
;             (+
;              (CHAOS::PN-STAT
;                CHAOS::CL-GIVEN)
;              (CHAOS::PN-PARAMETER
;                CHAOS::CONTROL-MEMORY-POINT)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of SET

; in: DEFUN PN-RUN-TIME
;     (CHAOS::CLOCK-STOP
;       CHAOS::PN-GLOBAL-RUN-TIME)
; --> IF PROGN INCF LET* + 
; ==>
;   (- (GET-INTERNAL-REAL-TIME) (CHAOS::PN-CLOCK-CURR CHAOS::CLOCK))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.

; --> IF PROGN INCF LET* 
; ==>
;   (+ (- (GET-INTERNAL-REAL-TIME) (CHAOS::PN-CLOCK-CURR CHAOS::CLOCK))
;      (CHAOS::PN-CLOCK-ACCUM #:CLOCK1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
;                                                                 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 64)
;                                                          &OPTIONAL).
;       etc.

; in: DEFUN CHECK-PN-STOP
;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-GIVEN)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-GEN)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-SECONDS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-KEPT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (>= CHAOS::SECONDS (FLOAT CHAOS::MAX-SECONDS?))
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.

; in: DEFUN CHECK-FOR-PROOF
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-PROOFS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-PROOFS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN REPORT-CLAUSE-SET-PROPS
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PN-AUTOMATIC-SETTINGS-1
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PN-AUTOMATIC-SETTINGS-2
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PN-AUTOMATIC-SETTINGS-3
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PRINT-PN-STAT-DETAIL
;     (CHAOS::PN-FLAG
;       CHAOS::BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PROP-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::FACTOR)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEMOD-INF)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::UR-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BACK-UNIT-DELETION)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN INFER-CLEAN-UP
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-LISTS-AT-END)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-STATS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::STATS-LEVEL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PRINT-PN-TIMES
;     (CHAOS::PN-FLAG
;       CHAOS::BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BACK-UNIT-DELETION)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PRINT-PN-TIMES-BRIEF
;     (CHAOS::PN-FLAG
;       CHAOS::BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/butils-tmp49Q238TW.fasl
; compilation finished in 0:00:00.288
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/unify.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/unify.lisp
; in: DEFUN UNIFY
;     (CHAOS::PN-FLAG
;       CHAOS::UNIFY-HEAVY)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PN-MATCH
;     (CHAOS::PN-FLAG
;       CHAOS::UNIFY-HEAVY)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/unify-tmpMXPMJ5KG.fasl
; compilation finished in 0:00:00.020
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/clause.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/clause.lisp
; in: DEFUN COMPARE-LITERAL
;     (CHAOS::PN-FLAG
;       CHAOS::PROPOSITIONAL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN NEW-CLAUSE
;     (INCF (CHAOS::PSYSTEM-CLAUSE-COUNTER CHAOS::PSYS))
; ==>
;   (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHAOS::PSYSTEM #:OBJ) 10))
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN UNIT-DELETION
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN FIND-LIGHTEST-CLAUSE
;     (CHAOS::PN-FLAG
;       CHAOS::RANDOMIZE-SOS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-SOS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN FIND-GIVEN-CLAUSE
;     (CHAOS::PN-FLAG
;       CHAOS::SOS-QUEUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::SOS-STACK)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::PICK-GIVEN-RATIO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN WEIGHT-CLAUSE
;     (CHAOS::PN-PARAMETER
;       CHAOS::NEG-WEIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN MAP-REST
;     (AREF CHAOS::.MAP-ARRAY. CHAOS::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

;     (SETF (AREF CHAOS::.MAP-ARRAY. CHAOS::I) T)
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

;     (SETF (AREF CHAOS::.MAP-ARRAY. CHAOS::I) NIL)
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

; in: DEFUN SUBSUME?
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN FORWARD-SUBSUME
;     (CHAOS::PN-FLAG
;       CHAOS::PROPOSITIONAL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::FACTOR)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN BACK-SUBSUME
;     (CHAOS::PN-FLAG
;       CHAOS::FACTOR)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN UNIT-CONFLICT
;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-PROOFS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PN-DISTINCT-CONSTANTS
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-DIST-CONST)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/clause-tmpB69313KI.fasl
; compilation finished in 0:00:00.088
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/formula.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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)
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN UNIQUE-ALL-VARIABLES
;     (CHAOS::UNIQUE (CHAOS::F) (DECLARE (TYPE CHAOS::TERM CHAOS::F))
;      (LET ((TYPE (CHAOS::FOPL-SENTENCE-TYPE CHAOS::F)))
;        (DECLARE (TYPE SYMBOL TYPE))
;        (WHEN CHAOS::*DEBUG-FORMULA*
;          (FORMAT T "~%>[unique-all-variables]: ~a" TYPE)
;          (CHAOS::TERM-PRINT CHAOS::F))
;        (CASE TYPE
;          (:ATOM)
;          ((:NOT :AND :OR :EQ :BEQ) (DOLIST # #))
;          (OTHERWISE
;           (IF #
;               #
;               #)
;           (CHAOS::UNIQUE #)))
;        (WHEN CHAOS::*DEBUG-FORMULA*
;          (FORMAT T "~%<[unique-var..]:")
;          (CHAOS::TERM-PRINT CHAOS::F))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; in: DEFUN CONJ-NORMAL-FORM
;     (CHAOS::PN-FLAG
;       CHAOS::SIMPLIFY-FOL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN DISTRIBUTE-OR
;     (CHAOS::PN-FLAG
;       CHAOS::SIMPLIFY-FOL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (FIND-IF #'(LAMBDA (CHAOS::X) (EQ :AND (CHAOS::FOPL-SENTENCE-TYPE CHAOS::X)))
;              CHAOS::ARGS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (DELETE CHAOS::AND-FORM CHAOS::ARGS)
; 
; note: unable to
;   convert to EQ test
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.

;     (CHAOS::PN-FLAG
;       CHAOS::SIMPLIFY-FOL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN GEN-SUBSUME-PROP
;     (1+ CHAOS::*DEBUG-SUBSUME-PROP-NEST*)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       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 &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/formula-tmp9ZT99EEA.fasl
; compilation finished in 0:00:00.216
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/modconv.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/modconv.lisp
; in: DEFUN PN-SET-TF-FLAG
;     (CHAOS::PN-FLAG
;       CHAOS::META-PARAMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN MODULE-AXIOMS->CLAUSE
;     (CHAOS::PN-FLAG
;       CHAOS::NO-JUNK)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-CONFUSION)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/modconv-tmpW045U8V2.fasl
; compilation finished in 0:00:00.068
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/weight.lisp" (written 15 NOV 2018 12:48:55 AM):

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

; in: DEFUN DUMP-OP-LEX-TABLE
;     (< (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 SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (SORT CHAOS::ENTRIES
;           #'(LAMBDA (CHAOS::X CHAOS::Y) (< (CDR CHAOS::X) (CDR CHAOS::Y))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (< (CDR CHAOS::X) (CDR CHAOS::Y))
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN OP-LEX-COMPARE
;     (STRING= CHAOS::N1 CHAOS::N2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN ORDER-LEX-OP
;     (STRING= CHAOS::N1 CHAOS::N2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).

; in: DEFUN MAKE-LEXICAL-PREC-TABLE
;     (SORT CHAOS::MLIST #'CHAOS::ORDER-LEX-OP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFUN TERM-LEX-ORDER-VARS
;     (< CHAOS::VN2 CHAOS::VN1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-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 DOUBLE-FLOAT.
;   The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN LEX-CHECK
;     (CHAOS::PN-FLAG
;       CHAOS::LEX-ORDER-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/weight-tmp6XOIRI3N.fasl
; compilation finished in 0:00:00.168
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/lrpo.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/lrpo.lisp
; in: DEFUN PN-ORIENT-TERM-PAIR
;     (CHAOS::PN-FLAG
;       CHAOS::LRPO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/lrpo-tmp9ZHTLHSG.fasl
; compilation finished in 0:00:00.020
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/resolve.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/resolve.lisp
; in: DEFUN BUILD-HYPER
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN CLASH-ONE
;     (FUNCALL CHAOS::CLAUSE-PRED CHAOS::CLASH-CLAUSE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   CLAUSE-PRED is not known to be a function

;     (CHAOS::PN-FLAG
;       CHAOS::ORDER-HYPER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN HYPER-CLASH!
;     (LET ((CHAOS::CLASHES NIL)
;           (CHAOS::LIST-RESOLVENT NIL)
;           (CHAOS::BACKUP NIL)
;           (CHAOS::C-END NIL))
;       (DECLARE (TYPE (OR NULL CHAOS::CLASH) CHAOS::CLASHES)
;                (TYPE LIST CHAOS::LIST-RESOLVENT)
;                (TYPE (OR NULL CHAOS::CLASH) CHAOS::C-END))
;       (LOOP
;        (IF (NOT CHAOS::BACKUP)
;            (IF (OR # #)
;                (LET #
;                  #
;                  #
;                  #
;                  #
;                  #
;                  #
;                  #)
;                (PROGN # # #))
;            (IF (OR # #)
;                (RETURN-FROM CHAOS::HYPER-CLASH! CHAOS::LIST-RESOLVENT)
;                (PROGN # # #)))
;        (UNLESS CHAOS::BACKUP
;          (IF (CHAOS::CLASH-EVALUABLE CHAOS::CLASHES)
;              (IF #
;                  #
;                  #)
;              (UNLESS # #))))
;       CHAOS::LIST-RESOLVENT)
; 
; note: deleting unreachable code

; in: DEFUN HYPER-RESOLUTION
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::ORDER-HYPER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN NEG-HYPER-RESOLUTION
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::ORDER-HYPER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN UR-RESOLUTION
;     (INCF CHAOS::J)
; --> THE 
; ==>
;   (+ 1 CHAOS::J)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN BINARY-RESOLUTION
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN NEXT-FACTOR
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/resolve-tmpRW73Q691.fasl
; compilation finished in 0:00:00.068
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/paramod.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/paramod.lisp
; in: DEFUN APPLY-SUBST-2
;     (INCF CHAOS::POS)
; --> THE 
; ==>
;   (+ 1 CHAOS::POS)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN BUILD-BIN-PARA
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PARA-INTO-TERMS-ALPHA
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-LEFT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-RIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PARA-FROM-ALPHA
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-UNITS-ONLY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PARAMODULATION-FROM
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-UNITS-ONLY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-LEFT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-RIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-VARS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PARA-INTO-TERMS
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-LEFT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-RIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PARAMODULATION-INTO
;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-UNITS-ONLY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/paramod-tmp4TM0ME1F.fasl
; compilation finished in 0:00:00.036
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/demod.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/demod.lisp
; in: DEFUN DYNAMIC-DEMODULATOR
;     (CHAOS::PN-FLAG
;       CHAOS::LRPO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DYNAMIC-DEMOD-ALL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::DYNAMIC-DEMOD-RHS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::DYNAMIC-DEMOD-DEPTH)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DYNAMIC-DEMOD-LEX-DEP)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::LRPO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DYNAMIC-DEMOD-ALL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN DEMOD-REPLACE-TERM
;     (CHAOS::PN-PARAMETER
;       CHAOS::DEMOD-LIMIT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::TRACE-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN APPLY-ONE-DEMODULATOR*
;     (CHAOS::DEMOD-REPLACE-TERM CHAOS::TERM CHAOS::CONTR)
; --> BLOCK WHEN IF <= CHAOS::PN-PARAMETER CHAOS::PN-PARAM-VALUE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> BLOCK WHEN IF CHAOS::PN-FLAG CHAOS::PIGNOSE-FLAG-VALUE AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::LRPO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN DEMOD-METHOD-REWRITE-STRATEGY
;     (AREF CHAOS::.DEMOD-STRAT. CHAOS::NUM-ARGS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.

; in: DEFUN BACK-DEMODULATE
;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/demod-tmpU2IL9N4.fasl
; compilation finished in 0:00:00.060
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/infer.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/infer.lisp
; in: DEFUN INFER-MAIN
;     (CHAOS::PN-FLAG
;       CHAOS::AUTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-GIVEN)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::CHANGE-LIMIT-AFTER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::NEW-MAX-WEIGHT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-WEIGHT)
;             CHAOS::NEW-LIMIT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-STATS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN INFER
;     (CHAOS::PN-FLAG
;       CHAOS::CONTROL-MEMORY)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PROP-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::UR-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEMOD-INF)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN POST-PROCESS
;     (CHAOS::PN-FLAG
;       CHAOS::EQ-UNITS-BOTH-WAYS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::ORDER-EQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-NEW-DEMOD)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BACK-SUB)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-BACK-SUB)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BACK-UNIT-DELETION)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::FACTOR)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-BACK-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN POST-PROC-ALL
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PRE-PROCESS
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-KEPT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NO-NEW-DEMOD)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DYNAMIC-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEMOD-INF)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-NEW-DEMOD)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-PROOFS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-STATS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PROC-GEN
;     (CHAOS::PN-FLAG
;       CHAOS::VERY-VERBOSE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DIST-CONST)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::ORDER-EQ)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::LRPO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DISCARD-NON-ORIENTABLE-EQ)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::UNIT-DELETION)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::FACTOR)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-LITERALS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DISCARD-XX-RESOLVABLE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-WEIGHT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::VERY-VERBOSE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DELETE-IDENTICAL-NESTED-SKOLEM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::SORT-LITERALS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::ORDER-EQ)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::FOR-SUB)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::VERY-VERBOSE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::QUIET)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INFER)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PREPARE-INFERENCE
;     (CHAOS::PN-FLAG
;       CHAOS::UNIVERSAL-SYMMETRY)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PROCESS-INPUT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-LISTS-AT-END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-LISTS-AT-END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-LISTS-AT-END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::INPUT-SOS-FIRST)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (1- (CHAOS::NEXT-CLAUSE-NUM))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 64)
;                                                         &OPTIONAL).
;       etc.

; in: DEFUN CHECK-PN-OPTIONS
;     (CHAOS::PN-FLAG
;       CHAOS::BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::UR-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEMOD-INF)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-RIGHT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM-LEFT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-RIGHT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO-LEFT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-ONES-RULE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::KB)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::KB2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::KB3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::LRPO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::DEMOD-LIMIT)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-LITERALS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::MAX-PROOFS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER
;       CHAOS::PICK-GIVEN-RATIO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::SOS-STACK)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::SOS-QUEUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::SOS-STACK)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::SOS-QUEUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/infer-tmpOPW41KDL.fasl
; compilation finished in 0:00:00.080
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/sigmatch.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 LIST VECTOR).


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/sigmatch-tmpIPVWLON2.fasl
; compilation finished in 0:00:00.032
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/refine.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/refine.lisp
; in: DEFUN CHECK-REFINE
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-REFINE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::PRINT-MESSAGE)
;             NIL)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-PROOFS)
;             1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/refine-tmpO0LCOIDS.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/commands.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (CHAR (FIRST CHAOS::INPUT) 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFUN PIGNOSE-PROCESS-GOAL-PROC
;     (STRING (SECOND CHAOS::LHS))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

;     (CHAR (FIRST CHAOS::INPUT) 0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; in: DEFUN EVAL-FAX
;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN EVAL-SOS
;     (SORT (CHAOS::PSYSTEM-SOS CHAOS::PSYS)
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (< (CHAOS::CLAUSE-ID CHAOS::X) (CHAOS::CLAUSE-ID CHAOS::Y))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (SORT (CHAOS::PSYSTEM-USABLE CHAOS::PSYS)
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (< (CHAOS::CLAUSE-ID CHAOS::X) (CHAOS::CLAUSE-ID CHAOS::Y))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (SORT (CHAOS::PSYSTEM-PASSIVE CHAOS::PSYS)
;           #'(LAMBDA (CHAOS::X CHAOS::Y)
;               (< (CHAOS::CLAUSE-ID CHAOS::X) (CHAOS::CLAUSE-ID CHAOS::Y))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFUN DO-RESOLVE
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-STATS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN EVAL-PN-SET-FLAG
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-FLAG
;             CHAOS::INDEX)
;             CHAOS::VALUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG-HOOK
;       CHAOS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (FUNCALL
;      (CHAOS::PN-FLAG-HOOK
;        CHAOS::INDEX)
;      CHAOS::VALUE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; in: DEFUN EVAL-PN-ASSIGN
;     (CHAOS::PN-PARAMETER-MIN
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-PARAMETER-MAX
;       CHAOS::INDEX)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-MESSAGE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::INDEX)
;             CHAOS::VALUE)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (< CHAOS::VALUE MIN)
; 
; note: forced to do <-INTEGER-FIXNUM (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 >-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.

; in: DEFUN PERFORM-DEMODULATION*
;     (ZEROP CHAOS::*TERM-MEMO-HASH-HIT*)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/commands-tmpP264WQ6O.fasl
; compilation finished in 0:00:00.452
; compiling file "/<<PKGBUILDDIR>>/BigPink/codes/inv.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/BigPink/codes/inv.lisp
; in: DEFUN MAKE-INV-CHECK-CONTEXT
;     (CHAOS::PN-FLAG
;       CHAOS::DEBUG-INV-CHECK)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN MAKE-PN-INV-CHECK-PAT
;     (FORMAT CHAOS::PRINT-MSG "~%~a: " MAKE-CONDITION)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T) STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T) STREAM), not a (MEMBER T).

;     (FORMAT CHAOS::PRINT-MSG "~%goal: ")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T) STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MEMBER T) STREAM), not a (MEMBER T).

; in: DEFUN SETUP-INV-CHECK-DB
;     (CHAOS::PN-FLAG
;       CHAOS::AUTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN PERFORM-INV-CHECK
;     (CHAOS::PN-FLAG
;       CHAOS::AUTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO2)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::AUTO3)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::BINARY-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::NEG-HYPER-RES)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-FROM)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::PARA-INTO)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::DEMOD-INF)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAOS::PN-PARAMETER
;             CHAOS::MAX-PROOFS)
;             1)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::SET-NEEDS-RULE)
; --> SETF LET SB-KERNEL:THE* MIN MIN 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN DO-INVARIANCE-CHECK
;     (CHAOS::PN-PARAMETER
;       CHAOS::INV-CHECK-MAX-DEPTH)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (30)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAOS::PN-FLAG
;       CHAOS::CHECK-INIT-ALWAYS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF CHAOS::LOOPS)
; --> THE 
; ==>
;   (+ 1 CHAOS::LOOPS)
; 
; note: forced to do full call
;       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
;                                                                       &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -1), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 64)
;                                                                &OPTIONAL).
;       etc.

;     (INCF CHAOS::NUM)
; --> THE 
; ==>
;   (+ 1 CHAOS::NUM)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.

; in: DEFUN PN-CHECK-INVARIANCE
;     (CHAOS::PN-FLAG
;       CHAOS::PRINT-STATS)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (100)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/BigPink/codes/inv-tmpESC43OCR.fasl
; compilation finished in 0:00:00.136
; compiling file "/<<PKGBUILDDIR>>/cafeobj/cafeobjvar.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/cafeobjvar-tmpWCAM54ZJ.fasl
; compilation finished in 0:00:00.000
; compiling file "/<<PKGBUILDDIR>>/cafeobj/creader.lisp" (written 16 DEC 2019 07:35:07 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/creader-tmpVTMW561L.fasl
; compilation finished in 0:00:00.020
; compiling file "/<<PKGBUILDDIR>>/cafeobj/oldoc.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/cafeobj/oldoc.lisp
; in: DEFUN PRINT-ONLINE-DOCUMENT
;     (FORMAT STREAM "~%*** key    : ~a" (CHAOS::OLDOC-KEY CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&red-title  : ~a" (CHAOS::OLDOC-RTITLE CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&title      : ~a" (CHAOS::OLDOC-TITLE CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&mdkey      : ~a" (CHAOS::OLDOC-MDKEY CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&main       : ~a" (CHAOS::OLDOC-MAIN CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&example    : ~a" (CHAOS::OLDOC-EXAMPLE CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&names      : ~a" (CHAOS::OLDOC-NAMES CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&related    : ~a" (CHAOS::OLDOC-RELATED CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&cache      : ~a" (CHAOS::OLDOC-CACHE CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~&cateogry   : ~a" (CHAOS::OLDOC-CATEGORY CHAOS::DOC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN OLDOC-FIND-DOC-ENTRY
;     (LENGTH CHAOS::REDSS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH CHAOS::N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ CHAOS::N 0 CHAOS::REDSSLEN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN OLDOC-PARSE-TO-WORDS
;     (STRING-EQUAL CHAOS::X "")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                CHARACTER (*)).

;     (STRING-TRIM "\"'" CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-STRING.

; in: DEFUN OLDOC-SEARCH-ALL
;     (SEARCH CHAOS::X CHAOS::Y)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
;   The second argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
;   The second argument is a SEQUENCE, not a VECTOR.

;     (APPLY CHAOS::X (LIST CHAOS::FULLSS))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   X is not known to be a function

; in: DEFUN FORMAT-MARKDOWN
;     (FUNCALL CHAOS::.MD-REPLACE-BQ.
;              (FUNCALL CHAOS::.MD-REPLACE-TILDE.
;                       (FUNCALL CHAOS::.MD-REMOVE-CODE-SIGN.
;                                (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;                                         (FUNCALL CHAOS::.MD-REMOVE-LINK. #)))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REPLACE-BQ. is not known to be a function

;     (FUNCALL CHAOS::.MD-REPLACE-TILDE.
;              (FUNCALL CHAOS::.MD-REMOVE-CODE-SIGN.
;                       (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;                                (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                                         (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH.
;                                                  CHAOS::STR)))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REPLACE-TILDE. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-CODE-SIGN.
;              (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;                       (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                                (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH.
;                                         CHAOS::STR))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-CODE-SIGN. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;              (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                       (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-LINK2. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK.
;              (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-LINK. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-HASH-HASH. is not known to be a function

; in: DEFUN OLDOC-REDUCE-STRING
;     (FUNCALL CHAOS::.MD-REMOVE-BQ.
;              (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;                       (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                                (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH.
;                                         CHAOS::STR))))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-BQ. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK2.
;              (FUNCALL CHAOS::.MD-REMOVE-LINK.
;                       (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-LINK2. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-LINK.
;              (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-LINK. is not known to be a function

;     (FUNCALL CHAOS::.MD-REMOVE-HASH-HASH. CHAOS::STR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .MD-REMOVE-HASH-HASH. is not known to be a function

; in: DEFUN EXPORT-REFMAN
;     (SORT CHAOS::DATA #'CHAOS::REFMAN-SORT :KEY #'CAR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFUN SHOW-UNDOCUMENTED
;     (SORT CHAOS::DOCS #'STRING<= :KEY #'CHAOS::OLDOC-KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (FUNCALL CHAOS::.TODO. CHAOS::STR)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   .TODO. is not known to be a function

; in: DEFUN OLDOC-LIST-CATEGORIES
;     (1+ CHAOS::N)
; 
; note: forced to do full call
;       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
;                                                                     &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (UNSIGNED-BYTE 64)
;                                                              &OPTIONAL).
;       etc.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/oldoc-tmpUNNGT9CF.fasl
; compilation finished in 0:00:00.732
; compiling file "/<<PKGBUILDDIR>>/cafeobj/define.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/cafeobj/define.lisp
; in: DEFUN PRINT-COMDE
;     (FORMAT STREAM "~%** key         : ~a" (CHAOS::COMDE-KEY CHAOS::ME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~%   type        : ~a" (CHAOS::COMDE-TYPE CHAOS::ME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~%   category    : ~a" (CHAOS::COMDE-CATEGORY CHAOS::ME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~%   parser      : ~a" (CHAOS::COMDE-PARSER CHAOS::ME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

;     (FORMAT STREAM "~%   evaluator   : ~a" (CHAOS::COMDE-EVALUATOR CHAOS::ME))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; in: DEFUN SHOW-TOP-ENTRIES
;     (SORT CHAOS::KEYS #'STRING<=)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFUN SHOW-DECL-ENTRIES
;     (SORT CHAOS::KEYS #'STRING<=)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; in: DEFMACRO DEFINE
;     (FBOUNDP CHAOS::PARSER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS SYMBOL), not a SYMBOL.

;     (FBOUNDP CHAOS::EVALUATOR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS SYMBOL), not a SYMBOL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/define-tmp4L3W83SU.fasl
; compilation finished in 0:00:00.040
; compiling file "/<<PKGBUILDDIR>>/cafeobj/trans-com.lisp" (written 15 NOV 2018 12:48:55 AM):

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

; in: DEFUN PARSE-PUSHD-COMMAND
;     (LENGTH CHAOS::INP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN PARSE-POPD-COMMAND
;     (LENGTH CHAOS::INP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN PARSE-CONTINUE-COMMAND
;     (> CHAOS::NUM 0)
; 
; note: forced to do >-INTEGER-FIXNUM (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/trans-com-tmpGE7QNNEE.fasl
; compilation finished in 0:00:00.044
; compiling file "/<<PKGBUILDDIR>>/cafeobj/trans-decl.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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 LIST VECTOR).

; in: DEFUN PROCESS-AXIOM-FORM
;     (STRING CHAOS::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
;                                                                   SYMBOL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.

; in: DEFUN PARSE-MODULE-ELEMENT
;     (FUNCALL CHAOS::PARSER CHAOS::E)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PARSER is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/trans-decl-tmp9B0UZGT4.fasl
; compilation finished in 0:00:00.072
; compiling file "/<<PKGBUILDDIR>>/cafeobj/trans-form.lisp" (written 15 NOV 2018 12:48:55 AM):

; 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")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a NULL.

;     (FORMAT CHAOS::PORT "~&;;; creation date = ~a" (CHAOS::GET-TIME-STRING))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a NULL.

;     (FORMAT CHAOS::PORT "~%;;; source file   = ~a" CHAOS::IN-FILE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a NULL.

;     (FORMAT CHAOS::PORT "~&(in-package :chaos)~%")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a STREAM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a (MEMBER T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STREAM BOOLEAN), not a NULL.


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/trans-form-tmpAJ5U325P.fasl
; compilation finished in 0:00:00.008
; compiling file "/<<PKGBUILDDIR>>/cafeobj/command-top.lisp" (written 15 NOV 2018 12:48:55 AM):

; file: /<<PKGBUILDDIR>>/cafeobj/command-top.lisp
; in: DEFUN CAFEOBJ-PROCESS-ARGS
;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (SETQ CHAOS::*CAFEOBJ-LOAD-INIT-FILE* T)
;       (SETQ CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES* NIL)
;       (SETQ CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE* NIL)
;       (LET* ((CHAOS::ARGS (CHAOS::GET-ARG-STRING))
;              (CHAOS::ARGC (LENGTH CHAOS::ARGS)))
;         (DECLARE (TYPE LIST CHAOS::ARGS))
;         (WHEN (< 0 CHAOS::ARGC)
;           (LET (#)
;             (CHAOS::WHILE
;               #
;               #))))
;       (LET ((CHAOS::*CHAOS-QUIET* T))
;         (WHEN
;             (AND CHAOS::*CAFEOBJ-BATCH*
;                  (NULL CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*))
;           (RETURN-FROM CHAOS::CAFEOBJ-PROCESS-ARGS NIL))
;         (IF CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE*
;             (PROGN (FORMAT T "~%-- loading prelude") (SETQ #))
;             (UNLESS CHAOS::*CAFEOBJ-STANDARD-PRELUDE-PATH*
;               (FORMAT T "~%-- loading standard prelude")
;               (SETQ #)))
;         (WHEN CHAOS::*CAFEOBJ-SECONDARY-PRELUDE-FILE*
;           (FORMAT T "~%-- appending prelude")
;           (SETQ CHAOS::*CAFEOBJ-SECONDARY-PRELUDE-PATH* #))
;         (CHAOS::LOAD-PRELUDE "site-init" 'CHAOS::PROCESS-CAFEOBJ-INPUT T)))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (SETQ CHAOS::*CAFEOBJ-LOAD-INIT-FILE* T)
;         (SETQ CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES* NIL)
;         (SETQ CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE* NIL)
;         (LET* ((CHAOS::ARGS #) (CHAOS::ARGC #))
;           (DECLARE (TYPE LIST CHAOS::ARGS))
;           (WHEN (< 0 CHAOS::ARGC)
;             (LET #
;               #)))
;         (LET ((CHAOS::*CHAOS-QUIET* T))
;           (WHEN (AND CHAOS::*CAFEOBJ-BATCH* #)
;             (RETURN-FROM CHAOS::CAFEOBJ-PROCESS-ARGS NIL))
;           (IF CHAOS::*CAFEOBJ-INITIAL-PRELUDE-FILE*
;               (PROGN # #)
;               (UNLESS CHAOS::*CAFEOBJ-STANDARD-PRELUDE-PATH* # #))
;           (WHEN CHAOS::*CAFEOBJ-SECONDARY-PRELUDE-FILE*
;             (FORMAT T "~%-- appending prelude")
;             (SETQ #))
;           (CHAOS::LOAD-PRELUDE "site-init" 'CHAOS::PROCESS-CAFEOBJ-INPUT T))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN CAFEOBJ-WHAT-IS
;     (FORMAT T CHAOS::DESCRIPTION)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR STRING FUNCTION), not a SIMPLE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR STRING FUNCTION), not a FUNCTION.

; in: DEFUN GET-COMMAND-DESCRIPTION
;     (STRING= CHAOS::LEVEL "??")
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
;                                                                CHARACTER (*)).

; in: DEFUN CAFEOBJ-INPUT
;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (IF CHAOS::*CAFEOBJ-BATCH*
;             (LET (#)
;               (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC
;                                        :LOAD-PATH CHAOS::LOAD-PATH :SUFFIX '#))
;             (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC :LOAD-PATH
;                                      CHAOS::LOAD-PATH :SUFFIX
;                                      '(".cafe" ".mod")))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (IF CHAOS::*CAFEOBJ-BATCH*
;           (LET ((*PRINT-CASE* :DOWNCASE))
;             (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC :LOAD-PATH
;                                      CHAOS::LOAD-PATH :SUFFIX '(".cafe" ".mod")))
;           (CHAOS::CHAOS-INPUT-FILE :FILE CHAOS::F :PROC CHAOS::PROC :LOAD-PATH
;                                    CHAOS::LOAD-PATH :SUFFIX '(".cafe" ".mod"))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

; in: DEFUN CAFEOBJ-PROBE-FILE
;     (<= (FILE-WRITE-DATE CHAOS::SRC) (FILE-WRITE-DATE CHAOS::BIN))
; 
; note: forced to do full call
;       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.
;       unable to do inline (unsigned-byte 64) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       etc.

; in: DEFUN CAFEOBJ-EVALUATE-COMMAND
;     (FUNCALL CHAOS::PARSER CHAOS::INP)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   PARSER is not known to be a function

;     (FUNCALL CHAOS::EVALUATOR CHAOS::PFORM)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   EVALUATOR is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/command-top-tmpAOF1CYAS.fasl
; compilation finished in 0:00:00.068
; compiling file "/<<PKGBUILDDIR>>/cafeobj/commands.lisp" (written 20 JAN 2020 04:55:35 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/commands-tmpIXCQTSHA.fasl
; compilation finished in 0:00:00.156
; compiling file "/<<PKGBUILDDIR>>/cafeobj/declarations.lisp" (written 15 NOV 2018 12:48:55 AM):

; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/declarations-tmp5E6VIEMS.fasl
; compilation finished in 0:00:00.028
; compiling file "/<<PKGBUILDDIR>>/cafeobj/cafeobj-top.lisp" (written 17 JAN 2019 06:56:23 AM):

; file: /<<PKGBUILDDIR>>/cafeobj/cafeobj-top.lisp
; in: DEFUN PROCESS-INIT-FILES-HANDLING-EXCEPTIONS
;     (CHAOS::WITH-CHAOS-ERROR
;       NIL
;       (CHAOS::CAFEOBJ-INIT-FILES)
;       (DOLIST (CHAOS::F (REVERSE CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*))
;         (CHAOS::CAFEOBJ-INPUT CHAOS::F)))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function

;     (CHAOS::WITH-CHAOS-TOP-ERROR
;       NIL
;       (CHAOS::WITH-CHAOS-ERROR
;         NIL
;         (CHAOS::CAFEOBJ-INIT-FILES)
;         (DOLIST (CHAOS::F (REVERSE CHAOS::*CAFEOBJ-INITIAL-LOAD-FILES*))
;           (CHAOS::CAFEOBJ-INPUT CHAOS::F))))
; --> LET IF LET IF FUNCALL 
; ==>
;   1
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   STD-PROC is not known to be a function


; wrote /<<PKGBUILDDIR>>/tmpcache/common-lisp/sbcl-2.4.10.debian-linux-arm64/<<PKGBUILDDIR>>/cafeobj/cafeobj-top-tmpI0PODGVV.fasl
; compilation finished in 0:00:00.044
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2414 notes
[undoing binding stack and other enclosing state... done]
[performing final GC... done]
[saving current Lisp image into ./dumps/sbcl/cafeobj.sbcl:
writing 6000 bytes from the static space at 0x2f0100000
writing 37748736 bytes from the dynamic space at 0x1000000000
writing 9629424 bytes from the read-only space at 0xfff6d0000
writing 0 bytes from the text space at (nil)
done]
chmod +x dumps/sbcl/cafeobj.sbcl
cat ./xbin/cafeobj.in | \
sed -e 's:@FIRSTCHOICE@:sbcl:g' \
-e 's:@LIBPATH@:lib/cafeobj-1.6:g' \
-e 's:@SHAREPATH@:share/cafeobj-1.6:g' >./xbin/cafeobj
touch build-stamp
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
touch build-arch-stamp
dh_testdir
dh_testroot
dh_prep
DESTDIR=/<<PKGBUILDDIR>>/debian/cafeobj /usr/bin/make install
make[1]: Entering directory '/<<PKGBUILDDIR>>'
/usr/bin/install -c -d /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/cafeobj-1.6/lib
/usr/bin/install -c -m 0644 		\
		./lib/lib/*.cafe	\
		/<<PKGBUILDDIR>>/debian/cafeobj/usr/share/cafeobj-1.6/lib
/usr/bin/install -c -d /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/cafeobj-1.6/prelude
/usr/bin/install -c -m 0644 ./lib/prelude/*.bin 	\
		/<<PKGBUILDDIR>>/debian/cafeobj/usr/share/cafeobj-1.6/prelude
/usr/bin/install -c -d /<<PKGBUILDDIR>>/debian/cafeobj/usr/lib/cafeobj-1.6
cp -a dumps/* /<<PKGBUILDDIR>>/debian/cafeobj/usr/lib/cafeobj-1.6
chmod 0755 /<<PKGBUILDDIR>>/debian/cafeobj/usr/lib/cafeobj-1.6/*/*
/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/binspect/binspect.pdf doc/citp-manual/citp.pdf doc/manual/manual.pdf doc/namespace/namespace.pdf doc/PigNose/pnguide.pdf doc/RefCard/interp.pdf doc/RefCard/syntax.pdf doc/refman/reference-manual.pdf doc/search/search-predicate.pdf				\
	doc/etc/cafe-citp.txt			\
	elisp/cafeobj-mode.el			\
	lib/icons/cafeobj-logo.png		\
	lib/icons/cafeobj-logo-small.png		\
	/<<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
# emacs lisp file installation
/usr/bin/install -c -d /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/emacs/site-lisp
/usr/bin/install -c -m 0644 elisp/cafeobj-mode.el /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/emacs/site-lisp
# end of installation routines
touch install-stamp
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
# make install does also install the cafeobj-mode.el, remove it
rm /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/emacs/site-lisp/cafeobj-mode.el
rmdir /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/emacs/site-lisp/
rmdir /<<PKGBUILDDIR>>/debian/cafeobj/usr/share/emacs
touch install-arch-stamp
dh_testdir
dh_testroot
dh_installdocs README.md
dh_installchangelogs
# do NOT strip otherwise the sbcl dump file is broken!
#dh_strip
dh_compress -X.pdf
dh_fixperms
dh_installdeb
dh_shlibdeps
dpkg-shlibdeps: warning: diversions involved - output may be incorrect
 diversion by libc6 from: /lib/ld-linux-aarch64.so.1
dpkg-shlibdeps: warning: diversions involved - output may be incorrect
 diversion by libc6 to: /lib/ld-linux-aarch64.so.1.usr-is-merged
dpkg-shlibdeps: warning: package could avoid a useless dependency if debian/cafeobj/usr/lib/cafeobj-1.6/sbcl/cafeobj.sbcl was not linked against ld-linux-aarch64.so.1 (it uses none of the library's symbols)
dh_gencontrol
dh_md5sums
dh_builddeb
dpkg-deb: building package 'cafeobj' in '../cafeobj_1.6.0-2_arm64.deb'.
 dpkg-genbuildinfo --build=binary -O../cafeobj_1.6.0-2_arm64.buildinfo
 dpkg-genchanges --build=binary -O../cafeobj_1.6.0-2_arm64.changes
dpkg-genchanges: info: binary-only upload (no source code included)
 dpkg-source --after-build .
dpkg-buildpackage: info: binary-only upload (no source included)
--------------------------------------------------------------------------------
Build finished at 2024-11-15T20:57:08Z

Finished
--------

I: Built successfully

+------------------------------------------------------------------------------+
| Changes                                                                      |
+------------------------------------------------------------------------------+


cafeobj_1.6.0-2_arm64.changes:
------------------------------

Format: 1.8
Date: Wed, 19 Feb 2020 05:27:40 +0900
Source: cafeobj
Binary: cafeobj cafeobj-mode
Architecture: all arm64
Version: 1.6.0-2
Distribution: sid
Urgency: medium
Maintainer: Norbert Preining <norbert@preining.info>
Changed-By: Norbert Preining <norbert@preining.info>
Description:
 cafeobj    - new generation algebraic specification and programming language
 cafeobj-mode - Emacs major mode for editing CafeOBJ source code
Changes:
 cafeobj (1.6.0-2) unstable; urgency=medium
 .
   * add watch file
Checksums-Sha1:
 c37866d3525541bb3efe8d677444cea532760407 24960 cafeobj-mode_1.6.0-2_all.deb
 3d2750db9f11348ddac4c98ebb6aafd790eaab90 4867 cafeobj_1.6.0-2_arm64.buildinfo
 cd77a975850d89b5e81816daea8bcc75df0ef078 11888512 cafeobj_1.6.0-2_arm64.deb
Checksums-Sha256:
 4124b952c2ec53abf3486a197fc74804b09b15cef67672f41d30013b71108a5c 24960 cafeobj-mode_1.6.0-2_all.deb
 06b6378cf546ffb1adecdbe8e2a985b0830085cbfb643aa3abb04e913f365b70 4867 cafeobj_1.6.0-2_arm64.buildinfo
 ff80b1479cdba44eb84930e7adccb722f2a594601842ce64c15f7ce5fbfd50e4 11888512 cafeobj_1.6.0-2_arm64.deb
Files:
 2d68d336a099924de136196a0ab59ea5 24960 science optional cafeobj-mode_1.6.0-2_all.deb
 62a0caf4ddeff0a839206c819484baf4 4867 science optional cafeobj_1.6.0-2_arm64.buildinfo
 2279956f7055b2bb51b5799e4168e9c9 11888512 science optional cafeobj_1.6.0-2_arm64.deb

+------------------------------------------------------------------------------+
| Buildinfo                                                                    |
+------------------------------------------------------------------------------+

Format: 1.0
Source: cafeobj
Binary: cafeobj cafeobj-mode
Architecture: all arm64
Version: 1.6.0-2
Checksums-Md5:
 2d68d336a099924de136196a0ab59ea5 24960 cafeobj-mode_1.6.0-2_all.deb
 2279956f7055b2bb51b5799e4168e9c9 11888512 cafeobj_1.6.0-2_arm64.deb
Checksums-Sha1:
 c37866d3525541bb3efe8d677444cea532760407 24960 cafeobj-mode_1.6.0-2_all.deb
 cd77a975850d89b5e81816daea8bcc75df0ef078 11888512 cafeobj_1.6.0-2_arm64.deb
Checksums-Sha256:
 4124b952c2ec53abf3486a197fc74804b09b15cef67672f41d30013b71108a5c 24960 cafeobj-mode_1.6.0-2_all.deb
 ff80b1479cdba44eb84930e7adccb722f2a594601842ce64c15f7ce5fbfd50e4 11888512 cafeobj_1.6.0-2_arm64.deb
Build-Origin: Debian
Build-Architecture: arm64
Build-Date: Fri, 15 Nov 2024 20:57:08 +0000
Build-Path: /<<PKGBUILDDIR>>
Build-Tainted-By:
 merged-usr-via-aliased-dirs
Installed-Build-Depends:
 autoconf (= 2.72-3),
 automake (= 1:1.16.5-1.3),
 autopoint (= 0.22.5-2),
 autotools-dev (= 20220109.1),
 base-files (= 13.5),
 base-passwd (= 3.6.5),
 bash (= 5.2.32-1+b2),
 binutils (= 2.43.1-5),
 binutils-aarch64-linux-gnu (= 2.43.1-5),
 binutils-common (= 2.43.1-5),
 bsdextrautils (= 2.40.2-11),
 bsdutils (= 1:2.40.2-11),
 build-essential (= 12.12),
 bzip2 (= 1.0.8-6),
 coreutils (= 9.5-1+b1),
 cpp (= 4:14.2.0-1),
 cpp-14 (= 14.2.0-8),
 cpp-14-aarch64-linux-gnu (= 14.2.0-8),
 cpp-aarch64-linux-gnu (= 4:14.2.0-1),
 dash (= 0.5.12-9+b1),
 debconf (= 1.5.87),
 debhelper (= 13.20),
 debianutils (= 5.20+b1),
 dh-autoreconf (= 20),
 dh-strip-nondeterminism (= 1.14.0-1),
 diffutils (= 1:3.10-1+b1),
 dpkg (= 1.22.12~1.gbp82cafd),
 dpkg-dev (= 1.22.12~1.gbp82cafd),
 dwz (= 0.15-1+b1),
 file (= 1:5.45-3+b1),
 findutils (= 4.10.0-3),
 g++ (= 4:14.2.0-1),
 g++-14 (= 14.2.0-8),
 g++-14-aarch64-linux-gnu (= 14.2.0-8),
 g++-aarch64-linux-gnu (= 4:14.2.0-1),
 gcc (= 4:14.2.0-1),
 gcc-14 (= 14.2.0-8),
 gcc-14-aarch64-linux-gnu (= 14.2.0-8),
 gcc-14-base (= 14.2.0-8),
 gcc-aarch64-linux-gnu (= 4:14.2.0-1),
 gettext (= 0.22.5-2),
 gettext-base (= 0.22.5-2),
 grep (= 3.11-4+b1),
 groff-base (= 1.23.0-5),
 gzip (= 1.12-1.1+b1),
 hostname (= 3.25),
 init-system-helpers (= 1.67),
 intltool-debian (= 0.35.0+20060710.6),
 libacl1 (= 2.3.2-2+b1),
 libarchive-zip-perl (= 1.68-1),
 libasan8 (= 14.2.0-8),
 libatomic1 (= 14.2.0-8),
 libattr1 (= 1:2.5.2-2),
 libaudit-common (= 1:4.0.2-2),
 libaudit1 (= 1:4.0.2-2),
 libbinutils (= 2.43.1-5),
 libblkid1 (= 2.40.2-11),
 libbz2-1.0 (= 1.0.8-6),
 libc-bin (= 2.40-3),
 libc-dev-bin (= 2.40-3),
 libc6 (= 2.40-3),
 libc6-dev (= 2.40-3),
 libcap-ng0 (= 0.8.5-3+b1),
 libcap2 (= 1:2.66-5+b1),
 libcc1-0 (= 14.2.0-8),
 libcrypt-dev (= 1:4.4.36-5),
 libcrypt1 (= 1:4.4.36-5),
 libctf-nobfd0 (= 2.43.1-5),
 libctf0 (= 2.43.1-5),
 libdb5.3t64 (= 5.3.28+dfsg2-9),
 libdebconfclient0 (= 0.273),
 libdebhelper-perl (= 13.20),
 libdpkg-perl (= 1.22.12~1.gbp82cafd),
 libelf1t64 (= 0.192-4),
 libfile-stripnondeterminism-perl (= 1.14.0-1),
 libgcc-14-dev (= 14.2.0-8),
 libgcc-s1 (= 14.2.0-8),
 libgdbm-compat4t64 (= 1.24-2),
 libgdbm6t64 (= 1.24-2),
 libgmp10 (= 2:6.3.0+dfsg-2+b2),
 libgomp1 (= 14.2.0-8),
 libgprofng0 (= 2.43.1-5),
 libhwasan0 (= 14.2.0-8),
 libicu72 (= 72.1-5+b1),
 libisl23 (= 0.27-1),
 libitm1 (= 14.2.0-8),
 libjansson4 (= 2.14-2+b3),
 liblsan0 (= 14.2.0-8),
 liblzma5 (= 5.6.3-1+b1),
 libmagic-mgc (= 1:5.45-3+b1),
 libmagic1t64 (= 1:5.45-3+b1),
 libmd0 (= 1.1.0-2+b1),
 libmount1 (= 2.40.2-11),
 libmpc3 (= 1.3.1-1+b3),
 libmpfr6 (= 4.2.1-1+b2),
 libpam-modules (= 1.5.3-7+b1),
 libpam-modules-bin (= 1.5.3-7+b1),
 libpam-runtime (= 1.5.3-7),
 libpam0g (= 1.5.3-7+b1),
 libpcre2-8-0 (= 10.44-2),
 libperl5.40 (= 5.40.0-7),
 libpipeline1 (= 1.5.8-1),
 libseccomp2 (= 2.5.5-1+b3),
 libselinux1 (= 3.7-3+b1),
 libsframe1 (= 2.43.1-5),
 libsmartcols1 (= 2.40.2-11),
 libssl3t64 (= 3.3.2-2),
 libstdc++-14-dev (= 14.2.0-8),
 libstdc++6 (= 14.2.0-8),
 libsystemd0 (= 257~rc1-4),
 libtinfo6 (= 6.5-2+b1),
 libtool (= 2.4.7-8),
 libtsan2 (= 14.2.0-8),
 libubsan1 (= 14.2.0-8),
 libuchardet0 (= 0.0.8-1+b2),
 libudev1 (= 257~rc1-4),
 libunistring5 (= 1.2-1+b1),
 libuuid1 (= 2.40.2-11),
 libxml2 (= 2.12.7+dfsg+really2.9.14-0.2+b1),
 libzstd1 (= 1.5.6+dfsg-1+b1),
 linux-libc-dev (= 6.11.7-1),
 m4 (= 1.4.19-4),
 make (= 4.3-4.1+b1),
 man-db (= 2.13.0-1),
 mawk (= 1.3.4.20240905-1),
 ncurses-base (= 6.5-2),
 ncurses-bin (= 6.5-2+b1),
 openssl-provider-legacy (= 3.3.2-2),
 patch (= 2.7.6-7+b1),
 perl (= 5.40.0-7),
 perl-base (= 5.40.0-7),
 perl-modules-5.40 (= 5.40.0-7),
 po-debconf (= 1.0.21+nmu1),
 rpcsvc-proto (= 1.4.3-1+b1),
 sbcl (= 2:2.4.10-2),
 sed (= 4.9-2+b1),
 sensible-utils (= 0.0.24),
 sysvinit-utils (= 3.11-1),
 tar (= 1.35+dfsg-3+b1),
 util-linux (= 2.40.2-11),
 xz-utils (= 5.6.3-1+b1),
 zlib1g (= 1:1.3.dfsg+really1.3.1-1+b1)
Environment:
 DEB_BUILD_OPTIONS="parallel=8"
 LANG="en_US.UTF-8"
 LC_ALL="C.UTF-8"
 SOURCE_DATE_EPOCH="1582057660"


+------------------------------------------------------------------------------+
| Package contents                                                             |
+------------------------------------------------------------------------------+


cafeobj-mode_1.6.0-2_all.deb
----------------------------

 new Debian package, version 2.0.
 size 24960 bytes: control archive=832 bytes.
      42 bytes,     1 lines      conffiles
     584 bytes,    16 lines      control
     385 bytes,     5 lines      md5sums
 Package: cafeobj-mode
 Source: cafeobj
 Version: 1.6.0-2
 Architecture: all
 Maintainer: Norbert Preining <norbert@preining.info>
 Installed-Size: 121
 Depends: emacsen-common (>= 2.0.8)
 Recommends: cafeobj
 Section: science
 Priority: optional
 Homepage: http://cafeobj.org/
 Description: Emacs major mode for editing CafeOBJ source code
  cafeobj-mode provides syntax highlighting and indentation for CafeOBJ
  source code inside emacs.  Included is the ability to interact with a
  CafeOBJ interpreter inside emacs and to send expressions from CafeOBJ
  source files to the running interpreter.

drwxr-xr-x root/root         0 2020-02-18 20:27 ./
drwxr-xr-x root/root         0 2020-02-18 20:27 ./etc/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./etc/emacs/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./etc/emacs/site-start.d/
-rw-r--r-- root/root       527 2020-02-18 20:27 ./etc/emacs/site-start.d/50cafeobj-mode.el
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/emacsen-common/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/emacsen-common/packages/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/emacsen-common/packages/compat/
-rw-r--r-- root/root         2 2020-02-18 20:27 ./usr/lib/emacsen-common/packages/compat/cafeobj-mode
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/doc/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/doc/cafeobj-mode/
-rw-r--r-- root/root      2919 2020-01-20 04:57 ./usr/share/doc/cafeobj-mode/README.md
-rw-r--r-- root/root       350 2020-02-18 20:27 ./usr/share/doc/cafeobj-mode/changelog.Debian.gz
-rw-r--r-- root/root      4858 2020-02-18 20:27 ./usr/share/doc/cafeobj-mode/copyright
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/emacs/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/emacs/site-lisp/
-rw-r--r-- root/root     96113 2020-02-18 20:27 ./usr/share/emacs/site-lisp/cafeobj-mode.el


cafeobj_1.6.0-2_arm64.deb
-------------------------

 new Debian package, version 2.0.
 size 11888512 bytes: control archive=2748 bytes.
    1413 bytes,    30 lines      control
    4739 bytes,    65 lines      md5sums
 Package: cafeobj
 Version: 1.6.0-2
 Architecture: arm64
 Maintainer: Norbert Preining <norbert@preining.info>
 Installed-Size: 49707
 Depends: libc6 (>= 2.38), libzstd1 (>= 1.5.5)
 Section: science
 Priority: optional
 Homepage: http://cafeobj.org/
 Description: new generation algebraic specification and programming language
  CafeOBJ is a most advanced formal specification language which
  inherits many advanced features (e.g. flexible mix-fix syntax,
  powerful and clear typing system with ordered sorts, parameteric
  modules and views for instantiating the parameters, and module
  expressions, etc.) from OBJ (or more exactly OBJ3) algebraic
  specification language.
  .
  CafeOBJ is a language for writing formal (i.e. mathematical)
  specifications of models for wide varieties of software and systems,
  and verifying properties of them. CafeOBJ implements equational logic
  by rewriting and can be used as a powerful interactive theorem proving
  system. Specifiers can write proof scores also in CafeOBJ and doing
  proofs by executing the proof scores.
  .
  CafeOBJ has state-of-art rigorous logical semantics based on
  institutions. The CafeOBJ cube shows the structure of the various
  logics underlying the combination of the various paradigms implemented
  by the language. Proof scores in CafeOBJ are also based on institution
  based rigorous semantics, and can be constructed using a complete set
  of proof rules.

drwxr-xr-x root/root         0 2020-02-18 20:27 ./
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/bin/
-rwxr-xr-x root/root      5442 2020-02-18 20:27 ./usr/bin/cafeobj
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/cafeobj-1.6/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/lib/cafeobj-1.6/sbcl/
-rwxr-xr-x root/root  47978128 2020-02-18 20:27 ./usr/lib/cafeobj-1.6/sbcl/cafeobj.sbcl
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/cafeobj-1.6/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/
-rw-r--r-- root/root      1785 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/2tuple.cafe
-rw-r--r-- root/root      1939 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/3tuple.cafe
-rw-r--r-- root/root      2103 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/4tuple.cafe
-rw-r--r-- root/root      2211 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/base_bool.cafe
-rw-r--r-- root/root       446 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/bool+.cafe
-rw-r--r-- root/root      3993 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/bool.cafe
-rw-r--r-- root/root      3705 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/character.cafe
-rw-r--r-- root/root      2622 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/eql.cafe
-rw-r--r-- root/root      3600 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/float.cafe
-rw-r--r-- root/root     14031 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/fopl.cafe
-rw-r--r-- root/root      3077 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/identical.cafe
-rw-r--r-- root/root      3073 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/int.cafe
-rw-r--r-- root/root     15900 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/metalevel.cafe
-rw-r--r-- root/root      3131 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/nat.cafe
-rw-r--r-- root/root      4823 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/ntruth.cafe
-rw-r--r-- root/root      2863 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/nznat.cafe
-rw-r--r-- root/root      1635 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/qid.cafe
-rw-r--r-- root/root      2933 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/rat.cafe
-rw-r--r-- root/root     15409 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/rwl.cafe
-rw-r--r-- root/root      3593 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/string.cafe
-rw-r--r-- root/root      2407 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/sys_bool.cafe
-rw-r--r-- root/root      5351 2020-02-18 20:27 ./usr/share/cafeobj-1.6/lib/truth.cafe
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/cafeobj-1.6/prelude/
-rw-r--r-- root/root      2343 2020-02-18 20:27 ./usr/share/cafeobj-1.6/prelude/std.bin
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/doc/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/doc/cafeobj/
-rw-r--r-- root/root      2919 2020-01-20 04:57 ./usr/share/doc/cafeobj/README.md
-rw-r--r-- root/root     82094 2020-02-18 20:27 ./usr/share/doc/cafeobj/binspect.pdf
-rw-r--r-- root/root      1591 2020-02-18 20:27 ./usr/share/doc/cafeobj/cafe-citp.txt.gz
-rw-r--r-- root/root     18258 2020-02-18 20:27 ./usr/share/doc/cafeobj/cafeobj-logo-small.png
-rw-r--r-- root/root    200119 2020-02-18 20:27 ./usr/share/doc/cafeobj/cafeobj-logo.png
-rw-r--r-- root/root     22665 2020-02-18 20:27 ./usr/share/doc/cafeobj/cafeobj-mode.el.gz
-rw-r--r-- root/root       347 2020-02-18 20:27 ./usr/share/doc/cafeobj/changelog.Debian.gz
-rw-r--r-- root/root    213061 2020-02-18 20:27 ./usr/share/doc/cafeobj/citp.pdf
-rw-r--r-- root/root      4858 2020-02-18 20:27 ./usr/share/doc/cafeobj/copyright
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/
-rw-r--r-- root/root      4634 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/atm.mod.gz
-rw-r--r-- root/root      3001 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/bag.mod
-rw-r--r-- root/root      1677 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/bank-account.mod.gz
-rw-r--r-- root/root      1628 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/blist.mod
-rw-r--r-- root/root      1476 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/bset.mod.gz
-rw-r--r-- root/root      2492 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/counter.mod
-rw-r--r-- root/root      1466 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/cws.mod.gz
-rw-r--r-- root/root      1529 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/debt-red.mod.gz
-rw-r--r-- root/root      1189 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/flag.mod
-rw-r--r-- root/root      3510 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/hss.mod
-rw-r--r-- root/root      1583 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/integer.mod
-rw-r--r-- root/root       958 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/list.mod
-rw-r--r-- root/root      1597 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/monoid.mod.gz
-rw-r--r-- root/root      1145 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/nat-omega.mod
-rw-r--r-- root/root      2407 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/nnat-hsa.mod
-rw-r--r-- root/root       569 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/nnat-rwl.mod
-rw-r--r-- root/root      1468 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/path.mod
-rw-r--r-- root/root      1578 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/sieve.mod
-rw-r--r-- root/root       738 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/simple-nat.mod
-rw-r--r-- root/root      1749 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/sorting.mod.gz
-rw-r--r-- root/root      3786 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/tel.mod
-rw-r--r-- root/root      1682 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/ubuffer.mod.gz
-rw-r--r-- root/root      1560 2020-02-18 20:27 ./usr/share/doc/cafeobj/examples/watch.mod.gz
-rw-r--r-- root/root    120999 2020-02-18 20:27 ./usr/share/doc/cafeobj/interp.pdf
-rw-r--r-- root/root   1029319 2020-02-18 20:27 ./usr/share/doc/cafeobj/manual.pdf
-rw-r--r-- root/root    146514 2020-02-18 20:27 ./usr/share/doc/cafeobj/namespace.pdf
-rw-r--r-- root/root    440944 2020-02-18 20:27 ./usr/share/doc/cafeobj/pnguide.pdf
-rw-r--r-- root/root    180781 2020-02-18 20:27 ./usr/share/doc/cafeobj/reference-manual.pdf
-rw-r--r-- root/root    130631 2020-02-18 20:27 ./usr/share/doc/cafeobj/search-predicate.pdf
-rw-r--r-- root/root    122162 2020-02-18 20:27 ./usr/share/doc/cafeobj/syntax.pdf
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/man/
drwxr-xr-x root/root         0 2020-02-18 20:27 ./usr/share/man/man1/
-rw-r--r-- root/root      1420 2020-02-18 20:27 ./usr/share/man/man1/cafeobj.1.gz


lintian
-------


Setup apt archive
-----------------

Merged Build-Depends: lintian
Filtered Build-Depends: lintian
dpkg-deb: warning: root directory has unusual owner or group 998:999.
Hint: either pass --root-owner-group, see dpkg-build-api(7) or add an explicit 'Rules-Requires-Root: no' in debian/control.
dpkg-deb: warning: ignoring 1 warning about the control file(s)
dpkg-deb: building package 'sbuild-build-depends-lintian-dummy' in '/<<RESOLVERDIR>>/apt_archive/sbuild-build-depends-lintian-dummy.deb'.
Ign:1 copy:/<<RESOLVERDIR>>/apt_archive ./ InRelease
Get:2 copy:/<<RESOLVERDIR>>/apt_archive ./ Release [615 B]
Ign:3 copy:/<<RESOLVERDIR>>/apt_archive ./ Release.gpg
Get:4 copy:/<<RESOLVERDIR>>/apt_archive ./ Sources [1199 B]
Get:5 copy:/<<RESOLVERDIR>>/apt_archive ./ Packages [1261 B]
Fetched 3075 B in 0s (260 kB/s)
Reading package lists...
Get:1 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ InRelease
Ign:1 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ InRelease
Get:2 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release [606 B]
Get:2 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release [606 B]
Get:3 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release.gpg
Ign:3 file:/<<BUILDDIR>>/resolver-nUKlLO/apt_archive ./ Release.gpg
Reading package lists...
Reading package lists...

Install lintian 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-lintian-dummy
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 852 B of archives.
After this operation, 0 B of additional disk space will be used.
Get:1 copy:/<<RESOLVERDIR>>/apt_archive ./ sbuild-build-depends-lintian-dummy 0.invalid.0 [852 B]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 852 B in 0s (0 B/s)
Selecting previously unselected package sbuild-build-depends-lintian-dummy.
(Reading database ... 22608 files and directories currently installed.)
Preparing to unpack .../sbuild-build-depends-lintian-dummy_0.invalid.0_arm64.deb ...
Unpacking sbuild-build-depends-lintian-dummy (0.invalid.0) ...
Setting up sbuild-build-depends-lintian-dummy (0.invalid.0) ...
Running lintian...
W: cafeobj changes: distribution-and-changes-mismatch sid unstable
W: cafeobj: hardening-no-pie [usr/lib/cafeobj-1.6/sbcl/cafeobj.sbcl]

I: Lintian run was successful.

+------------------------------------------------------------------------------+
| Post Build                                                                   |
+------------------------------------------------------------------------------+


+------------------------------------------------------------------------------+
| Cleanup                                                                      |
+------------------------------------------------------------------------------+

Purging /<<BUILDDIR>>
Not cleaning session: cloned chroot in use

+------------------------------------------------------------------------------+
| Summary                                                                      |
+------------------------------------------------------------------------------+

Build Architecture: arm64
Build Type: binary
Build-Space: 135928
Build-Time: 39
Distribution: sid
Host Architecture: arm64
Install-Time: 18
Job: /tmp/debusine-fetch-exec-upload-h19fspzq/cafeobj_1.6.0-2.dsc
Lintian: warn
Machine Architecture: arm64
Package: cafeobj
Package-Time: 91
Source-Version: 1.6.0-2
Space: 135928
Status: successful
Version: 1.6.0-2
--------------------------------------------------------------------------------
Finished at 2024-11-15T20:57:08Z
Build needed 00:01:31, 135928k disk space

Relations

Relation	Type	Name
relates-to	Source package	cafeobj_1.6.0-2
relates-to	Binary package	dpkg-dbgsym_1.22.12~1.gbp82cafd_arm64
relates-to	Binary package	dpkg_1.22.12~1.gbp82cafd_arm64
relates-to	Binary package	dselect-dbgsym_1.22.12~1.gbp82cafd_arm64
relates-to	Binary package	dselect_1.22.12~1.gbp82cafd_arm64
relates-to	Binary package	libdpkg-dev_1.22.12~1.gbp82cafd_arm64
relates-to	Binary package	dpkg-dev_1.22.12~1.gbp82cafd_all
relates-to	Binary package	libdpkg-perl_1.22.12~1.gbp82cafd_all
relates-to	Binary package	cafeobj_1.6.0-2_arm64
relates-to	Binary packages	cafeobj_1.6.0-2
relates-to	Binary package	cafeobj-mode_1.6.0-2_all
relates-to	Binary packages	cafeobj_1.6.0-2