pgloader →
3.6.2-1 →
armhf → 2020-07-20 19:02:13
sbuild (Debian sbuild) 0.71.0 (24 Aug 2016) on bm-wb-01
+==============================================================================+
| pgloader 3.6.2-1 (armhf) Mon, 20 Jul 2020 18:12:29 +0000 |
+==============================================================================+
Package: pgloader
Version: 3.6.2-1
Source Version: 3.6.2-1
Distribution: bullseye-staging
Machine Architecture: armhf
Host Architecture: armhf
Build Architecture: armhf
I: NOTICE: Log filtering will replace 'var/run/schroot/mount/bullseye-staging-armhf-sbuild-37f62e97-f3c2-4768-bdf7-f66542d1b357' with '<<CHROOT>>'
+------------------------------------------------------------------------------+
| Update chroot |
+------------------------------------------------------------------------------+
Get:1 http://172.17.0.1/private bullseye-staging InRelease [11.3 kB]
Get:2 http://172.17.0.1/private bullseye-staging/main Sources [11.8 MB]
Get:3 http://172.17.0.1/private bullseye-staging/main armhf Packages [12.9 MB]
Fetched 24.6 MB in 31s (798 kB/s)
Reading package lists...
+------------------------------------------------------------------------------+
| Fetch source files |
+------------------------------------------------------------------------------+
Check APT
---------
Checking available source versions...
Download source files with APT
------------------------------
Reading package lists...
NOTICE: 'pgloader' packaging is maintained in the 'Git' version control system at:
https://github.com/dimitri/pgloader.git
Please use:
git clone https://github.com/dimitri/pgloader.git
to retrieve the latest (possibly unreleased) updates to the package.
Need to get 3729 kB of source archives.
Get:1 http://172.17.0.1/private bullseye-staging/main pgloader 3.6.2-1 (dsc) [2728 B]
Get:2 http://172.17.0.1/private bullseye-staging/main pgloader 3.6.2-1 (tar) [3717 kB]
Get:3 http://172.17.0.1/private bullseye-staging/main pgloader 3.6.2-1 (diff) [9072 B]
Fetched 3729 kB in 0s (11.3 MB/s)
Download complete and in download only mode
I: NOTICE: Log filtering will replace 'build/pgloader-s4g5Cn/pgloader-3.6.2' with '<<PKGBUILDDIR>>'
I: NOTICE: Log filtering will replace 'build/pgloader-s4g5Cn' with '<<BUILDDIR>>'
+------------------------------------------------------------------------------+
| Install build-essential |
+------------------------------------------------------------------------------+
Setup apt archive
-----------------
Merged Build-Depends: build-essential, fakeroot
Filtered Build-Depends: build-essential, fakeroot
dpkg-deb: building package 'sbuild-build-depends-core-dummy' in '/<<BUILDDIR>>/resolver-p8N2ch/apt_archive/sbuild-build-depends-core-dummy.deb'.
dpkg-scanpackages: warning: Packages in archive but missing from override file:
dpkg-scanpackages: warning: sbuild-build-depends-core-dummy
dpkg-scanpackages: info: Wrote 1 entries to output Packages file.
gpg: keybox '/<<BUILDDIR>>/resolver-p8N2ch/gpg/pubring.kbx' created
gpg: /<<BUILDDIR>>/resolver-p8N2ch/gpg/trustdb.gpg: trustdb created
gpg: key 35506D9A48F77B2E: public key "Sbuild Signer (Sbuild Build Dependency Archive Key) <buildd-tools-devel@lists.alioth.debian.org>" imported
gpg: Total number processed: 1
gpg: imported: 1
gpg: key 35506D9A48F77B2E: "Sbuild Signer (Sbuild Build Dependency Archive Key) <buildd-tools-devel@lists.alioth.debian.org>" not changed
gpg: key 35506D9A48F77B2E: secret key imported
gpg: Total number processed: 1
gpg: unchanged: 1
gpg: secret keys read: 1
gpg: secret keys imported: 1
gpg: using "Sbuild Signer" as default secret key for signing
Ign:1 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release [957 B]
Get:3 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release.gpg [370 B]
Ign:3 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release.gpg
Get:4 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Sources [349 B]
Get:5 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Packages [432 B]
Fetched 2108 B in 1s (2692 B/s)
Reading package lists...
W: copy:///<<BUILDDIR>>/resolver-p8N2ch/apt_archive/./Release.gpg: The key(s) in the keyring /etc/apt/trusted.gpg.d/sbuild-build-depends-archive.gpg are ignored as the file is not readable by user '_apt' executing apt-key.
W: GPG error: copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release: The following signatures couldn't be verified because the public key is not available: NO_PUBKEY 35506D9A48F77B2E
Reading package lists...
Install core build dependencies (apt-based resolver)
----------------------------------------------------
Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following packages were automatically installed and are no longer required:
bsdextrautils libpam-cap netbase
Use 'apt autoremove' to remove them.
The following NEW packages will be installed:
sbuild-build-depends-core-dummy
0 upgraded, 1 newly installed, 0 to remove and 4 not upgraded.
Need to get 852 B of archives.
After this operation, 0 B of additional disk space will be used.
Get:1 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ sbuild-build-depends-core-dummy 0.invalid.0 [852 B]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 852 B in 0s (12.4 kB/s)
Selecting previously unselected package sbuild-build-depends-core-dummy.
(Reading database ... 12307 files and directories currently installed.)
Preparing to unpack .../sbuild-build-depends-core-dummy_0.invalid.0_armhf.deb ...
Unpacking sbuild-build-depends-core-dummy (0.invalid.0) ...
Setting up sbuild-build-depends-core-dummy (0.invalid.0) ...
+------------------------------------------------------------------------------+
| Check architectures |
+------------------------------------------------------------------------------+
Arch check ok (armhf included in any all)
+------------------------------------------------------------------------------+
| Install package build dependencies |
+------------------------------------------------------------------------------+
Setup apt archive
-----------------
Merged Build-Depends: buildapp (>= 1.5), cl-abnf, cl-alexandria, cl-asdf (>= 3.0.3), cl-asdf-finalizers, cl-asdf-system-connections, cl-bordeaux-threads (>= 0.8.3), cl-cffi (>= 1:0.12.0), cl-command-line-arguments, cl-csv (>= 20180712), cl-db3 (>= 20200212), cl-drakma, cl-esrap, cl-fad, cl-flexi-streams, cl-interpol, cl-ixf, cl-local-time, cl-log, cl-lparallel, cl-markdown, cl-md5, cl-metabang-bind, cl-mssql, cl-mustache, cl-plus-ssl (>= 20190204), cl-postmodern, cl-ppcre, cl-py-configparser, cl-qmynd, cl-quri, cl-simple-date, cl-split-sequence, cl-sqlite, cl-trivial-backtrace, cl-trivial-utf-8, cl-unicode, cl-usocket, cl-utilities, cl-uuid, cl-yason, cl-zs3, debhelper-compat (= 13), gawk, help2man, python3-sphinx-rtd-theme, python3-sphinx, sbcl (>= 1.1.13), tzdata
Filtered Build-Depends: buildapp (>= 1.5), cl-abnf, cl-alexandria, cl-asdf (>= 3.0.3), cl-asdf-finalizers, cl-asdf-system-connections, cl-bordeaux-threads (>= 0.8.3), cl-cffi (>= 1:0.12.0), cl-command-line-arguments, cl-csv (>= 20180712), cl-db3 (>= 20200212), cl-drakma, cl-esrap, cl-fad, cl-flexi-streams, cl-interpol, cl-ixf, cl-local-time, cl-log, cl-lparallel, cl-markdown, cl-md5, cl-metabang-bind, cl-mssql, cl-mustache, cl-plus-ssl (>= 20190204), cl-postmodern, cl-ppcre, cl-py-configparser, cl-qmynd, cl-quri, cl-simple-date, cl-split-sequence, cl-sqlite, cl-trivial-backtrace, cl-trivial-utf-8, cl-unicode, cl-usocket, cl-utilities, cl-uuid, cl-yason, cl-zs3, debhelper-compat (= 13), gawk, help2man, python3-sphinx-rtd-theme, python3-sphinx, sbcl (>= 1.1.13), tzdata
dpkg-deb: building package 'sbuild-build-depends-pgloader-dummy' in '/<<BUILDDIR>>/resolver-p8N2ch/apt_archive/sbuild-build-depends-pgloader-dummy.deb'.
dpkg-scanpackages: warning: Packages in archive but missing from override file:
dpkg-scanpackages: warning: sbuild-build-depends-core-dummy sbuild-build-depends-pgloader-dummy
dpkg-scanpackages: info: Wrote 2 entries to output Packages file.
gpg: using "Sbuild Signer" as default secret key for signing
Ign:1 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release [963 B]
Get:3 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release.gpg [370 B]
Ign:3 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release.gpg
Get:4 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Sources [863 B]
Get:5 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Packages [942 B]
Fetched 3138 B in 1s (3899 B/s)
Reading package lists...
W: copy:///<<BUILDDIR>>/resolver-p8N2ch/apt_archive/./Release.gpg: The key(s) in the keyring /etc/apt/trusted.gpg.d/sbuild-build-depends-archive.gpg are ignored as the file is not readable by user '_apt' executing apt-key.
W: GPG error: copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ Release: The following signatures couldn't be verified because the public key is not available: NO_PUBKEY 35506D9A48F77B2E
Reading package lists...
Install pgloader build dependencies (apt-based resolver)
--------------------------------------------------------
Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following packages were automatically installed and are no longer required:
libpam-cap netbase
Use 'apt autoremove' to remove them.
The following additional packages will be installed:
autoconf automake autopoint autotools-dev buildapp ca-certificates cl-abnf
cl-alexandria cl-anaphora cl-asdf cl-asdf-finalizers
cl-asdf-system-connections cl-babel cl-base64 cl-bordeaux-threads cl-cffi
cl-chipz cl-chunga cl-closer-mop cl-closure-common cl-command-line-arguments
cl-containers cl-csv cl-cxml cl-db3 cl-drakma cl-dynamic-classes cl-esrap
cl-fad cl-flexi-streams cl-garbage-pools cl-ieee-floats cl-interpol
cl-ironclad cl-iterate cl-ixf cl-kmrcl cl-local-time cl-log cl-lparallel
cl-markdown cl-md5 cl-metabang-bind cl-metatilities-base cl-mssql
cl-mustache cl-named-readtables cl-parse-number cl-plus-ssl cl-postgres
cl-postmodern cl-ppcre cl-puri cl-py-configparser cl-qmynd cl-quri cl-rt
cl-s-sql cl-simple-date cl-split-sequence cl-sqlite cl-trivial-backtrace
cl-trivial-features cl-trivial-garbage cl-trivial-gray-streams
cl-trivial-utf-8 cl-unicode cl-usocket cl-utilities cl-uuid cl-yason cl-zs3
debhelper dh-autoreconf dh-strip-nondeterminism docutils-common dwz file
fonts-font-awesome fonts-lato freetds-common freetds-dev gawk gettext
gettext-base groff-base help2man intltool-debian libarchive-zip-perl
libcroco3 libct4 libdebhelper-perl libelf1 libexpat1 libffi-dev
libfile-stripnondeterminism-perl libglib2.0-0 libgssapi-krb5-2 libicu67
libjs-jquery libjs-modernizr libjs-sphinxdoc libjs-underscore libk5crypto3
libkeyutils1 libkrb5-3 libkrb5support0 liblocale-gettext-perl libmagic-mgc
libmagic1 libmpdec2 libpipeline1 libpython3-stdlib libpython3.8-minimal
libpython3.8-stdlib libsigsegv2 libsub-override-perl libsybdb5 libtool
libuchardet0 libxml2 m4 man-db mime-support node-jquery openssl pkg-config
po-debconf python-babel-localedata python3 python3-alabaster python3-babel
python3-certifi python3-chardet python3-distutils python3-docutils
python3-idna python3-imagesize python3-jinja2 python3-lib2to3
python3-markupsafe python3-minimal python3-packaging python3-pkg-resources
python3-pygments python3-pyparsing python3-requests python3-roman
python3-six python3-sphinx python3-sphinx-rtd-theme python3-tz
python3-urllib3 python3.8 python3.8-minimal sbcl sensible-utils sgml-base
sphinx-common sphinx-rtd-theme-common xml-core zlib1g-dev
Suggested packages:
autoconf-archive gnu-standards autoconf-doc cl-launch dh-make gawk-doc
gettext-doc libasprintf-dev libgettextpo-dev groff krb5-doc krb5-user
libtool-doc gfortran | fortran95-compiler gcj-jdk m4-doc apparmor less
www-browser libmail-box-perl python3-doc python3-tk python3-venv
docutils-doc fonts-linuxlibertine | ttf-linux-libertine texlive-lang-french
texlive-latex-base texlive-latex-recommended python-jinja2-doc
python3-setuptools python-pygments-doc ttf-bitstream-vera
python-pyparsing-doc python3-cryptography python3-openssl python3-socks
python-requests-doc dvipng fonts-freefont-otf imagemagick-6.q16 latexmk
libjs-mathjax python3-stemmer sphinx-doc texlive-fonts-recommended
texlive-latex-extra texlive-plain-generic python3.8-venv python3.8-doc
binfmt-support sbcl-doc sbcl-source slime sgml-base-doc
Recommended packages:
cl-fiveam cl-ptester curl | wget | lynx libarchive-cpio-perl libglib2.0-data
shared-mime-info xdg-user-dirs javascript-common krb5-locales libltdl-dev
libmail-sendmail-perl libpaper-utils python3-pil binfmt-support
The following NEW packages will be installed:
autoconf automake autopoint autotools-dev buildapp ca-certificates cl-abnf
cl-alexandria cl-anaphora cl-asdf cl-asdf-finalizers
cl-asdf-system-connections cl-babel cl-base64 cl-bordeaux-threads cl-cffi
cl-chipz cl-chunga cl-closer-mop cl-closure-common cl-command-line-arguments
cl-containers cl-csv cl-cxml cl-db3 cl-drakma cl-dynamic-classes cl-esrap
cl-fad cl-flexi-streams cl-garbage-pools cl-ieee-floats cl-interpol
cl-ironclad cl-iterate cl-ixf cl-kmrcl cl-local-time cl-log cl-lparallel
cl-markdown cl-md5 cl-metabang-bind cl-metatilities-base cl-mssql
cl-mustache cl-named-readtables cl-parse-number cl-plus-ssl cl-postgres
cl-postmodern cl-ppcre cl-puri cl-py-configparser cl-qmynd cl-quri cl-rt
cl-s-sql cl-simple-date cl-split-sequence cl-sqlite cl-trivial-backtrace
cl-trivial-features cl-trivial-garbage cl-trivial-gray-streams
cl-trivial-utf-8 cl-unicode cl-usocket cl-utilities cl-uuid cl-yason cl-zs3
debhelper dh-autoreconf dh-strip-nondeterminism docutils-common dwz file
fonts-font-awesome fonts-lato freetds-common freetds-dev gawk gettext
gettext-base groff-base help2man intltool-debian libarchive-zip-perl
libcroco3 libct4 libdebhelper-perl libelf1 libexpat1 libffi-dev
libfile-stripnondeterminism-perl libglib2.0-0 libgssapi-krb5-2 libicu67
libjs-jquery libjs-modernizr libjs-sphinxdoc libjs-underscore libk5crypto3
libkeyutils1 libkrb5-3 libkrb5support0 liblocale-gettext-perl libmagic-mgc
libmagic1 libmpdec2 libpipeline1 libpython3-stdlib libpython3.8-minimal
libpython3.8-stdlib libsigsegv2 libsub-override-perl libsybdb5 libtool
libuchardet0 libxml2 m4 man-db mime-support node-jquery openssl pkg-config
po-debconf python-babel-localedata python3 python3-alabaster python3-babel
python3-certifi python3-chardet python3-distutils python3-docutils
python3-idna python3-imagesize python3-jinja2 python3-lib2to3
python3-markupsafe python3-minimal python3-packaging python3-pkg-resources
python3-pygments python3-pyparsing python3-requests python3-roman
python3-six python3-sphinx python3-sphinx-rtd-theme python3-tz
python3-urllib3 python3.8 python3.8-minimal sbcl
sbuild-build-depends-pgloader-dummy sensible-utils sgml-base sphinx-common
sphinx-rtd-theme-common xml-core zlib1g-dev
0 upgraded, 163 newly installed, 0 to remove and 4 not upgraded.
Need to get 61.3 MB of archives.
After this operation, 260 MB of additional disk space will be used.
Get:1 copy:/<<BUILDDIR>>/resolver-p8N2ch/apt_archive ./ sbuild-build-depends-pgloader-dummy 0.invalid.0 [1224 B]
Get:2 http://172.17.0.1/private bullseye-staging/main armhf liblocale-gettext-perl armhf 1.07-4 [18.1 kB]
Get:3 http://172.17.0.1/private bullseye-staging/main armhf libuchardet0 armhf 0.0.7-1 [65.0 kB]
Get:4 http://172.17.0.1/private bullseye-staging/main armhf groff-base armhf 1.22.4-5 [783 kB]
Get:5 http://172.17.0.1/private bullseye-staging/main armhf libpipeline1 armhf 1.5.2-2 [29.6 kB]
Get:6 http://172.17.0.1/private bullseye-staging/main armhf man-db armhf 2.9.3-2 [1269 kB]
Get:7 http://172.17.0.1/private bullseye-staging/main armhf fonts-lato all 2.0-2 [2698 kB]
Get:8 http://172.17.0.1/private bullseye-staging/main armhf libsigsegv2 armhf 2.12-2 [32.3 kB]
Get:9 http://172.17.0.1/private bullseye-staging/main armhf gawk armhf 1:5.0.1+dfsg-1 [540 kB]
Get:10 http://172.17.0.1/private bullseye-staging/main armhf libpython3.8-minimal armhf 3.8.4-1 [752 kB]
Get:11 http://172.17.0.1/private bullseye-staging/main armhf libexpat1 armhf 2.2.9-1 [71.5 kB]
Get:12 http://172.17.0.1/private bullseye-staging/main armhf python3.8-minimal armhf 3.8.4-1 [1627 kB]
Get:13 http://172.17.0.1/private bullseye-staging/main armhf python3-minimal armhf 3.8.2-3 [37.6 kB]
Get:14 http://172.17.0.1/private bullseye-staging/main armhf mime-support all 3.64 [37.8 kB]
Get:15 http://172.17.0.1/private bullseye-staging/main armhf libmpdec2 armhf 2.4.2-3 [68.1 kB]
Get:16 http://172.17.0.1/private bullseye-staging/main armhf libpython3.8-stdlib armhf 3.8.4-1 [1599 kB]
Get:17 http://172.17.0.1/private bullseye-staging/main armhf python3.8 armhf 3.8.4-1 [420 kB]
Get:18 http://172.17.0.1/private bullseye-staging/main armhf libpython3-stdlib armhf 3.8.2-3 [20.8 kB]
Get:19 http://172.17.0.1/private bullseye-staging/main armhf python3 armhf 3.8.2-3 [63.7 kB]
Get:20 http://172.17.0.1/private bullseye-staging/main armhf sgml-base all 1.30 [15.1 kB]
Get:21 http://172.17.0.1/private bullseye-staging/main armhf sensible-utils all 0.0.12+nmu1 [16.0 kB]
Get:22 http://172.17.0.1/private bullseye-staging/main armhf libmagic-mgc armhf 1:5.38-5 [262 kB]
Get:23 http://172.17.0.1/private bullseye-staging/main armhf libmagic1 armhf 1:5.38-5 [113 kB]
Get:24 http://172.17.0.1/private bullseye-staging/main armhf file armhf 1:5.38-5 [67.0 kB]
Get:25 http://172.17.0.1/private bullseye-staging/main armhf gettext-base armhf 0.19.8.1-10 [117 kB]
Get:26 http://172.17.0.1/private bullseye-staging/main armhf m4 armhf 1.4.18-4 [185 kB]
Get:27 http://172.17.0.1/private bullseye-staging/main armhf autoconf all 2.69-11.1 [341 kB]
Get:28 http://172.17.0.1/private bullseye-staging/main armhf autotools-dev all 20180224.1 [77.0 kB]
Get:29 http://172.17.0.1/private bullseye-staging/main armhf automake all 1:1.16.2-3 [801 kB]
Get:30 http://172.17.0.1/private bullseye-staging/main armhf autopoint all 0.19.8.1-10 [435 kB]
Get:31 http://172.17.0.1/private bullseye-staging/main armhf sbcl armhf 2:2.0.6-2 [7686 kB]
Get:32 http://172.17.0.1/private bullseye-staging/main armhf buildapp armhf 1.5.6-2 [7243 kB]
Get:33 http://172.17.0.1/private bullseye-staging/main armhf openssl armhf 1.1.1g-1 [811 kB]
Get:34 http://172.17.0.1/private bullseye-staging/main armhf ca-certificates all 20200601 [158 kB]
Get:35 http://172.17.0.1/private bullseye-staging/main armhf cl-abnf all 20150608-1 [10.5 kB]
Get:36 http://172.17.0.1/private bullseye-staging/main armhf cl-alexandria all 20200125.gitfab0e59-1 [206 kB]
Get:37 http://172.17.0.1/private bullseye-staging/main armhf cl-anaphora all 20190828.git018590d-1 [7724 B]
Get:38 http://172.17.0.1/private bullseye-staging/main armhf cl-asdf all 2:3.3.4-1 [1266 kB]
Get:39 http://172.17.0.1/private bullseye-staging/main armhf cl-asdf-finalizers all 20170403-1 [9404 B]
Get:40 http://172.17.0.1/private bullseye-staging/main armhf cl-asdf-system-connections all 20170124-1 [4844 B]
Get:41 http://172.17.0.1/private bullseye-staging/main armhf cl-trivial-features all 20200115.git9d1d659-1 [10.1 kB]
Get:42 http://172.17.0.1/private bullseye-staging/main armhf cl-trivial-gray-streams all 20180909.gitebd59b1-1 [10.1 kB]
Get:43 http://172.17.0.1/private bullseye-staging/main armhf cl-babel all 20200116.gitaeed2d1-1 [123 kB]
Get:44 http://172.17.0.1/private bullseye-staging/main armhf cl-rt all 20090812.gita6a7503-1 [13.2 kB]
Get:45 http://172.17.0.1/private bullseye-staging/main armhf cl-kmrcl all 1.109-1 [49.5 kB]
Get:46 http://172.17.0.1/private bullseye-staging/main armhf cl-base64 all 3.3.4-1 [8378 B]
Get:47 http://172.17.0.1/private bullseye-staging/main armhf cl-bordeaux-threads all 0.8.7-1 [21.4 kB]
Get:48 http://172.17.0.1/private bullseye-staging/main armhf libglib2.0-0 armhf 2.64.3-2 [1158 kB]
Get:49 http://172.17.0.1/private bullseye-staging/main armhf pkg-config armhf 0.29.2-1 [61.5 kB]
Get:50 http://172.17.0.1/private bullseye-staging/main armhf libffi-dev armhf 3.3-4 [57.9 kB]
Get:51 http://172.17.0.1/private bullseye-staging/main armhf zlib1g-dev armhf 1:1.2.11.dfsg-2 [184 kB]
Get:52 http://172.17.0.1/private bullseye-staging/main armhf cl-cffi all 1:0.22.1-1 [1678 kB]
Get:53 http://172.17.0.1/private bullseye-staging/main armhf cl-chipz all 20190121.git0f6c9ea-1 [37.2 kB]
Get:54 http://172.17.0.1/private bullseye-staging/main armhf cl-chunga all 20200403.gitcb333cd-1 [19.4 kB]
Get:55 http://172.17.0.1/private bullseye-staging/main armhf cl-closer-mop all 2:20190127.git22858cb-1 [25.5 kB]
Get:56 http://172.17.0.1/private bullseye-staging/main armhf cl-closure-common all 20101107-1 [24.8 kB]
Get:57 http://172.17.0.1/private bullseye-staging/main armhf cl-command-line-arguments all 20151218-1 [9274 B]
Get:58 http://172.17.0.1/private bullseye-staging/main armhf cl-metatilities-base all 20170403-1 [51.7 kB]
Get:59 http://172.17.0.1/private bullseye-staging/main armhf cl-containers all 20170403-1 [114 kB]
Get:60 http://172.17.0.1/private bullseye-staging/main armhf cl-iterate all 20180228-1 [45.8 kB]
Get:61 http://172.17.0.1/private bullseye-staging/main armhf cl-ppcre all 20190407.git1ca0cd9-2 [113 kB]
Get:62 http://172.17.0.1/private bullseye-staging/main armhf cl-flexi-streams all 20181214.git0fd872a-1 [89.8 kB]
Get:63 http://172.17.0.1/private bullseye-staging/main armhf cl-unicode all 20190407.git8073fc5-1 [701 kB]
Get:64 http://172.17.0.1/private bullseye-staging/main armhf cl-named-readtables all 20200129.git5e72eca-1 [31.2 kB]
Get:65 http://172.17.0.1/private bullseye-staging/main armhf cl-interpol all 20180509.git1fd288d-1 [32.9 kB]
Get:66 http://172.17.0.1/private bullseye-staging/main armhf cl-csv all 20180712.git3eba29c-1 [27.5 kB]
Get:67 http://172.17.0.1/private bullseye-staging/main armhf cl-cxml all 20110619-2 [82.0 kB]
Get:68 http://172.17.0.1/private bullseye-staging/main armhf cl-db3 all 20200212-1 [8388 B]
Get:69 http://172.17.0.1/private bullseye-staging/main armhf cl-puri all 1:1.5.6-1 [18.6 kB]
Get:70 http://172.17.0.1/private bullseye-staging/main armhf cl-split-sequence all 1:2.0.0-1 [10.8 kB]
Get:71 http://172.17.0.1/private bullseye-staging/main armhf cl-usocket all 0.8.3-1 [74.8 kB]
Get:72 http://172.17.0.1/private bullseye-staging/main armhf cl-trivial-garbage all 20190518.gitdbc8e35-1 [8248 B]
Get:73 http://172.17.0.1/private bullseye-staging/main armhf cl-plus-ssl all 20191020.git2908199-1 [41.4 kB]
Get:74 http://172.17.0.1/private bullseye-staging/main armhf cl-drakma all 2.0.7-1 [46.0 kB]
Get:75 http://172.17.0.1/private bullseye-staging/main armhf cl-dynamic-classes all 20130128-2 [6748 B]
Get:76 http://172.17.0.1/private bullseye-staging/main armhf cl-esrap all 20180430-1 [43.3 kB]
Get:77 http://172.17.0.1/private bullseye-staging/main armhf cl-fad all 20200122.git4111b63-1 [23.8 kB]
Get:78 http://172.17.0.1/private bullseye-staging/main armhf cl-garbage-pools all 20130720-1 [2982 B]
Get:79 http://172.17.0.1/private bullseye-staging/main armhf cl-ieee-floats all 20170830-1 [6684 B]
Get:80 http://172.17.0.1/private bullseye-staging/main armhf cl-ironclad all 0.48-1 [1100 kB]
Get:81 http://172.17.0.1/private bullseye-staging/main armhf cl-ixf all 20180228-1 [9716 B]
Get:82 http://172.17.0.1/private bullseye-staging/main armhf cl-local-time all 20180228-1 [26.6 kB]
Get:83 http://172.17.0.1/private bullseye-staging/main armhf cl-log all 1.0.1-1 [20.7 kB]
Get:84 http://172.17.0.1/private bullseye-staging/main armhf cl-lparallel all 20160825-1 [49.6 kB]
Get:85 http://172.17.0.1/private bullseye-staging/main armhf cl-metabang-bind all 20171130-1 [13.7 kB]
Get:86 http://172.17.0.1/private bullseye-staging/main armhf cl-markdown all 20101006-2 [37.2 kB]
Get:87 http://172.17.0.1/private bullseye-staging/main armhf cl-md5 all 1:20180224.gitb141260-1 [14.6 kB]
Get:88 http://172.17.0.1/private bullseye-staging/main armhf libkrb5support0 armhf 1.17-10 [61.7 kB]
Get:89 http://172.17.0.1/private bullseye-staging/main armhf libk5crypto3 armhf 1.17-10 [112 kB]
Get:90 http://172.17.0.1/private bullseye-staging/main armhf libkeyutils1 armhf 1.6.1-2 [14.5 kB]
Get:91 http://172.17.0.1/private bullseye-staging/main armhf libkrb5-3 armhf 1.17-10 [320 kB]
Get:92 http://172.17.0.1/private bullseye-staging/main armhf libgssapi-krb5-2 armhf 1.17-10 [135 kB]
Get:93 http://172.17.0.1/private bullseye-staging/main armhf freetds-common all 1.1.6-1.1 [32.2 kB]
Get:94 http://172.17.0.1/private bullseye-staging/main armhf libct4 armhf 1.1.6-1.1 [140 kB]
Get:95 http://172.17.0.1/private bullseye-staging/main armhf libsybdb5 armhf 1.1.6-1.1 [165 kB]
Get:96 http://172.17.0.1/private bullseye-staging/main armhf freetds-dev armhf 1.1.6-1.1 [238 kB]
Get:97 http://172.17.0.1/private bullseye-staging/main armhf cl-mssql all 20180228-1 [8528 B]
Get:98 http://172.17.0.1/private bullseye-staging/main armhf cl-mustache all 0.12.1-9-g684f227-1 [9748 B]
Get:99 http://172.17.0.1/private bullseye-staging/main armhf cl-parse-number all 1.7-1 [7240 B]
Get:100 http://172.17.0.1/private bullseye-staging/main armhf cl-postgres all 20180430-1 [32.4 kB]
Get:101 http://172.17.0.1/private bullseye-staging/main armhf cl-s-sql all 20180430-1 [27.9 kB]
Get:102 http://172.17.0.1/private bullseye-staging/main armhf cl-postmodern all 20180430-1 [57.3 kB]
Get:103 http://172.17.0.1/private bullseye-staging/main armhf cl-py-configparser all 20170830-1 [8472 B]
Get:104 http://172.17.0.1/private bullseye-staging/main armhf cl-qmynd all 20180131-1 [37.2 kB]
Get:105 http://172.17.0.1/private bullseye-staging/main armhf cl-quri all 20150804-1 [66.1 kB]
Get:106 http://172.17.0.1/private bullseye-staging/main armhf cl-simple-date all 20180430-1 [8264 B]
Get:107 http://172.17.0.1/private bullseye-staging/main armhf cl-sqlite all 20130615-2 [14.5 kB]
Get:108 http://172.17.0.1/private bullseye-staging/main armhf cl-trivial-backtrace all 20190610.git57a8df7-1 [9908 B]
Get:109 http://172.17.0.1/private bullseye-staging/main armhf cl-trivial-utf-8 all 20111001-1 [7590 B]
Get:110 http://172.17.0.1/private bullseye-staging/main armhf cl-utilities all 1.2.4-3.1 [22.1 kB]
Get:111 http://172.17.0.1/private bullseye-staging/main armhf cl-uuid all 20130813-1 [6706 B]
Get:112 http://172.17.0.1/private bullseye-staging/main armhf cl-yason all 0.7.6-1 [9840 B]
Get:113 http://172.17.0.1/private bullseye-staging/main armhf cl-zs3 all 1.3.1-1 [48.5 kB]
Get:114 http://172.17.0.1/private bullseye-staging/main armhf libtool all 2.4.6-14 [513 kB]
Get:115 http://172.17.0.1/private bullseye-staging/main armhf dh-autoreconf all 19 [16.9 kB]
Get:116 http://172.17.0.1/private bullseye-staging/main armhf libdebhelper-perl all 13.2 [187 kB]
Get:117 http://172.17.0.1/private bullseye-staging/main armhf libarchive-zip-perl all 1.68-1 [104 kB]
Get:118 http://172.17.0.1/private bullseye-staging/main armhf libsub-override-perl all 0.09-2 [10.2 kB]
Get:119 http://172.17.0.1/private bullseye-staging/main armhf libfile-stripnondeterminism-perl all 1.9.0-1 [25.5 kB]
Get:120 http://172.17.0.1/private bullseye-staging/main armhf dh-strip-nondeterminism all 1.9.0-1 [15.2 kB]
Get:121 http://172.17.0.1/private bullseye-staging/main armhf libelf1 armhf 0.176-1.1 [158 kB]
Get:122 http://172.17.0.1/private bullseye-staging/main armhf dwz armhf 0.13-5 [142 kB]
Get:123 http://172.17.0.1/private bullseye-staging/main armhf libicu67 armhf 67.1-2 [8286 kB]
Get:124 http://172.17.0.1/private bullseye-staging/main armhf libxml2 armhf 2.9.10+dfsg-5+b1 [593 kB]
Get:125 http://172.17.0.1/private bullseye-staging/main armhf libcroco3 armhf 0.6.13-1 [133 kB]
Get:126 http://172.17.0.1/private bullseye-staging/main armhf gettext armhf 0.19.8.1-10 [1219 kB]
Get:127 http://172.17.0.1/private bullseye-staging/main armhf intltool-debian all 0.35.0+20060710.5 [26.8 kB]
Get:128 http://172.17.0.1/private bullseye-staging/main armhf po-debconf all 1.0.21 [248 kB]
Get:129 http://172.17.0.1/private bullseye-staging/main armhf debhelper all 13.2 [1007 kB]
Get:130 http://172.17.0.1/private bullseye-staging/main armhf xml-core all 0.18+nmu1 [23.8 kB]
Get:131 http://172.17.0.1/private bullseye-staging/main armhf docutils-common all 0.16+dfsg-2 [129 kB]
Get:132 http://172.17.0.1/private bullseye-staging/main armhf fonts-font-awesome all 5.0.10+really4.7.0~dfsg-2 [516 kB]
Get:133 http://172.17.0.1/private bullseye-staging/main armhf help2man armhf 1.47.16 [181 kB]
Get:134 http://172.17.0.1/private bullseye-staging/main armhf node-jquery all 3.5.1+dfsg-4 [309 kB]
Get:135 http://172.17.0.1/private bullseye-staging/main armhf libjs-jquery all 3.5.1+dfsg-4 [3612 B]
Get:136 http://172.17.0.1/private bullseye-staging/main armhf libjs-modernizr all 2.6.2+ds1-3 [46.7 kB]
Get:137 http://172.17.0.1/private bullseye-staging/main armhf libjs-underscore all 1.9.1~dfsg-1 [99.4 kB]
Get:138 http://172.17.0.1/private bullseye-staging/main armhf libjs-sphinxdoc all 2.4.3-4 [110 kB]
Get:139 http://172.17.0.1/private bullseye-staging/main armhf python-babel-localedata all 2.8.0+dfsg.1-3 [4998 kB]
Get:140 http://172.17.0.1/private bullseye-staging/main armhf python3-alabaster all 0.7.8-1.1 [18.6 kB]
Get:141 http://172.17.0.1/private bullseye-staging/main armhf python3-pkg-resources all 46.1.3-1 [183 kB]
Get:142 http://172.17.0.1/private bullseye-staging/main armhf python3-tz all 2020.1-2 [34.6 kB]
Get:143 http://172.17.0.1/private bullseye-staging/main armhf python3-babel all 2.8.0+dfsg.1-3 [99.8 kB]
Get:144 http://172.17.0.1/private bullseye-staging/main armhf python3-certifi all 2020.4.5.1-1 [151 kB]
Get:145 http://172.17.0.1/private bullseye-staging/main armhf python3-chardet all 3.0.4-7 [81.1 kB]
Get:146 http://172.17.0.1/private bullseye-staging/main armhf python3-lib2to3 all 3.8.3-2 [76.8 kB]
Get:147 http://172.17.0.1/private bullseye-staging/main armhf python3-distutils all 3.8.3-2 [143 kB]
Get:148 http://172.17.0.1/private bullseye-staging/main armhf python3-roman all 2.0.0-4 [8972 B]
Get:149 http://172.17.0.1/private bullseye-staging/main armhf python3-docutils all 0.16+dfsg-2 [383 kB]
Get:150 http://172.17.0.1/private bullseye-staging/main armhf python3-idna all 2.10-1 [37.4 kB]
Get:151 http://172.17.0.1/private bullseye-staging/main armhf python3-imagesize all 1.2.0-2 [5824 B]
Get:152 http://172.17.0.1/private bullseye-staging/main armhf python3-markupsafe armhf 1.1.1-1 [15.0 kB]
Get:153 http://172.17.0.1/private bullseye-staging/main armhf python3-jinja2 all 2.11.2-1 [113 kB]
Get:154 http://172.17.0.1/private bullseye-staging/main armhf python3-pyparsing all 2.4.7-1 [109 kB]
Get:155 http://172.17.0.1/private bullseye-staging/main armhf python3-six all 1.15.0-1 [16.8 kB]
Get:156 http://172.17.0.1/private bullseye-staging/main armhf python3-packaging all 20.3-1.2 [29.9 kB]
Get:157 http://172.17.0.1/private bullseye-staging/main armhf python3-pygments all 2.3.1+dfsg-4 [596 kB]
Get:158 http://172.17.0.1/private bullseye-staging/main armhf python3-urllib3 all 1.25.9-1 [105 kB]
Get:159 http://172.17.0.1/private bullseye-staging/main armhf python3-requests all 2.23.0+dfsg-2 [71.4 kB]
Get:160 http://172.17.0.1/private bullseye-staging/main armhf sphinx-common all 2.4.3-4 [550 kB]
Get:161 http://172.17.0.1/private bullseye-staging/main armhf python3-sphinx all 2.4.3-4 [502 kB]
Get:162 http://172.17.0.1/private bullseye-staging/main armhf sphinx-rtd-theme-common all 0.4.3+dfsg-3 [993 kB]
Get:163 http://172.17.0.1/private bullseye-staging/main armhf python3-sphinx-rtd-theme all 0.4.3+dfsg-3 [9928 B]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 61.3 MB in 9s (6534 kB/s)
Selecting previously unselected package liblocale-gettext-perl.
(Reading database ... 12307 files and directories currently installed.)
Preparing to unpack .../0-liblocale-gettext-perl_1.07-4_armhf.deb ...
Unpacking liblocale-gettext-perl (1.07-4) ...
Selecting previously unselected package libuchardet0:armhf.
Preparing to unpack .../1-libuchardet0_0.0.7-1_armhf.deb ...
Unpacking libuchardet0:armhf (0.0.7-1) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../2-groff-base_1.22.4-5_armhf.deb ...
Unpacking groff-base (1.22.4-5) ...
Selecting previously unselected package libpipeline1:armhf.
Preparing to unpack .../3-libpipeline1_1.5.2-2_armhf.deb ...
Unpacking libpipeline1:armhf (1.5.2-2) ...
Selecting previously unselected package man-db.
Preparing to unpack .../4-man-db_2.9.3-2_armhf.deb ...
Unpacking man-db (2.9.3-2) ...
Selecting previously unselected package fonts-lato.
Preparing to unpack .../5-fonts-lato_2.0-2_all.deb ...
Unpacking fonts-lato (2.0-2) ...
Selecting previously unselected package libsigsegv2:armhf.
Preparing to unpack .../6-libsigsegv2_2.12-2_armhf.deb ...
Unpacking libsigsegv2:armhf (2.12-2) ...
Setting up libsigsegv2:armhf (2.12-2) ...
Selecting previously unselected package gawk.
(Reading database ... 12882 files and directories currently installed.)
Preparing to unpack .../gawk_1%3a5.0.1+dfsg-1_armhf.deb ...
Unpacking gawk (1:5.0.1+dfsg-1) ...
Selecting previously unselected package libpython3.8-minimal:armhf.
Preparing to unpack .../libpython3.8-minimal_3.8.4-1_armhf.deb ...
Unpacking libpython3.8-minimal:armhf (3.8.4-1) ...
Selecting previously unselected package libexpat1:armhf.
Preparing to unpack .../libexpat1_2.2.9-1_armhf.deb ...
Unpacking libexpat1:armhf (2.2.9-1) ...
Selecting previously unselected package python3.8-minimal.
Preparing to unpack .../python3.8-minimal_3.8.4-1_armhf.deb ...
Unpacking python3.8-minimal (3.8.4-1) ...
Setting up libpython3.8-minimal:armhf (3.8.4-1) ...
Setting up libexpat1:armhf (2.2.9-1) ...
Setting up python3.8-minimal (3.8.4-1) ...
Selecting previously unselected package python3-minimal.
(Reading database ... 13347 files and directories currently installed.)
Preparing to unpack .../0-python3-minimal_3.8.2-3_armhf.deb ...
Unpacking python3-minimal (3.8.2-3) ...
Selecting previously unselected package mime-support.
Preparing to unpack .../1-mime-support_3.64_all.deb ...
Unpacking mime-support (3.64) ...
Selecting previously unselected package libmpdec2:armhf.
Preparing to unpack .../2-libmpdec2_2.4.2-3_armhf.deb ...
Unpacking libmpdec2:armhf (2.4.2-3) ...
Selecting previously unselected package libpython3.8-stdlib:armhf.
Preparing to unpack .../3-libpython3.8-stdlib_3.8.4-1_armhf.deb ...
Unpacking libpython3.8-stdlib:armhf (3.8.4-1) ...
Selecting previously unselected package python3.8.
Preparing to unpack .../4-python3.8_3.8.4-1_armhf.deb ...
Unpacking python3.8 (3.8.4-1) ...
Selecting previously unselected package libpython3-stdlib:armhf.
Preparing to unpack .../5-libpython3-stdlib_3.8.2-3_armhf.deb ...
Unpacking libpython3-stdlib:armhf (3.8.2-3) ...
Setting up python3-minimal (3.8.2-3) ...
Selecting previously unselected package python3.
(Reading database ... 13749 files and directories currently installed.)
Preparing to unpack .../000-python3_3.8.2-3_armhf.deb ...
Unpacking python3 (3.8.2-3) ...
Selecting previously unselected package sgml-base.
Preparing to unpack .../001-sgml-base_1.30_all.deb ...
Unpacking sgml-base (1.30) ...
Selecting previously unselected package sensible-utils.
Preparing to unpack .../002-sensible-utils_0.0.12+nmu1_all.deb ...
Unpacking sensible-utils (0.0.12+nmu1) ...
Selecting previously unselected package libmagic-mgc.
Preparing to unpack .../003-libmagic-mgc_1%3a5.38-5_armhf.deb ...
Unpacking libmagic-mgc (1:5.38-5) ...
Selecting previously unselected package libmagic1:armhf.
Preparing to unpack .../004-libmagic1_1%3a5.38-5_armhf.deb ...
Unpacking libmagic1:armhf (1:5.38-5) ...
Selecting previously unselected package file.
Preparing to unpack .../005-file_1%3a5.38-5_armhf.deb ...
Unpacking file (1:5.38-5) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../006-gettext-base_0.19.8.1-10_armhf.deb ...
Unpacking gettext-base (0.19.8.1-10) ...
Selecting previously unselected package m4.
Preparing to unpack .../007-m4_1.4.18-4_armhf.deb ...
Unpacking m4 (1.4.18-4) ...
Selecting previously unselected package autoconf.
Preparing to unpack .../008-autoconf_2.69-11.1_all.deb ...
Unpacking autoconf (2.69-11.1) ...
Selecting previously unselected package autotools-dev.
Preparing to unpack .../009-autotools-dev_20180224.1_all.deb ...
Unpacking autotools-dev (20180224.1) ...
Selecting previously unselected package automake.
Preparing to unpack .../010-automake_1%3a1.16.2-3_all.deb ...
Unpacking automake (1:1.16.2-3) ...
Selecting previously unselected package autopoint.
Preparing to unpack .../011-autopoint_0.19.8.1-10_all.deb ...
Unpacking autopoint (0.19.8.1-10) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../012-sbcl_2%3a2.0.6-2_armhf.deb ...
Unpacking sbcl (2:2.0.6-2) ...
Selecting previously unselected package buildapp.
Preparing to unpack .../013-buildapp_1.5.6-2_armhf.deb ...
Unpacking buildapp (1.5.6-2) ...
Selecting previously unselected package openssl.
Preparing to unpack .../014-openssl_1.1.1g-1_armhf.deb ...
Unpacking openssl (1.1.1g-1) ...
Selecting previously unselected package ca-certificates.
Preparing to unpack .../015-ca-certificates_20200601_all.deb ...
Unpacking ca-certificates (20200601) ...
Selecting previously unselected package cl-abnf.
Preparing to unpack .../016-cl-abnf_20150608-1_all.deb ...
Unpacking cl-abnf (20150608-1) ...
Selecting previously unselected package cl-alexandria.
Preparing to unpack .../017-cl-alexandria_20200125.gitfab0e59-1_all.deb ...
Unpacking cl-alexandria (20200125.gitfab0e59-1) ...
Selecting previously unselected package cl-anaphora.
Preparing to unpack .../018-cl-anaphora_20190828.git018590d-1_all.deb ...
Unpacking cl-anaphora (20190828.git018590d-1) ...
Selecting previously unselected package cl-asdf.
Preparing to unpack .../019-cl-asdf_2%3a3.3.4-1_all.deb ...
Unpacking cl-asdf (2:3.3.4-1) ...
Selecting previously unselected package cl-asdf-finalizers.
Preparing to unpack .../020-cl-asdf-finalizers_20170403-1_all.deb ...
Unpacking cl-asdf-finalizers (20170403-1) ...
Selecting previously unselected package cl-asdf-system-connections.
Preparing to unpack .../021-cl-asdf-system-connections_20170124-1_all.deb ...
Unpacking cl-asdf-system-connections (20170124-1) ...
Selecting previously unselected package cl-trivial-features.
Preparing to unpack .../022-cl-trivial-features_20200115.git9d1d659-1_all.deb ...
Unpacking cl-trivial-features (20200115.git9d1d659-1) ...
Selecting previously unselected package cl-trivial-gray-streams.
Preparing to unpack .../023-cl-trivial-gray-streams_20180909.gitebd59b1-1_all.deb ...
Unpacking cl-trivial-gray-streams (20180909.gitebd59b1-1) ...
Selecting previously unselected package cl-babel.
Preparing to unpack .../024-cl-babel_20200116.gitaeed2d1-1_all.deb ...
Unpacking cl-babel (20200116.gitaeed2d1-1) ...
Selecting previously unselected package cl-rt.
Preparing to unpack .../025-cl-rt_20090812.gita6a7503-1_all.deb ...
Unpacking cl-rt (20090812.gita6a7503-1) ...
Selecting previously unselected package cl-kmrcl.
Preparing to unpack .../026-cl-kmrcl_1.109-1_all.deb ...
Unpacking cl-kmrcl (1.109-1) ...
Selecting previously unselected package cl-base64.
Preparing to unpack .../027-cl-base64_3.3.4-1_all.deb ...
Unpacking cl-base64 (3.3.4-1) ...
Selecting previously unselected package cl-bordeaux-threads.
Preparing to unpack .../028-cl-bordeaux-threads_0.8.7-1_all.deb ...
Unpacking cl-bordeaux-threads (0.8.7-1) ...
Selecting previously unselected package libglib2.0-0:armhf.
Preparing to unpack .../029-libglib2.0-0_2.64.3-2_armhf.deb ...
Unpacking libglib2.0-0:armhf (2.64.3-2) ...
Selecting previously unselected package pkg-config.
Preparing to unpack .../030-pkg-config_0.29.2-1_armhf.deb ...
Unpacking pkg-config (0.29.2-1) ...
Selecting previously unselected package libffi-dev:armhf.
Preparing to unpack .../031-libffi-dev_3.3-4_armhf.deb ...
Unpacking libffi-dev:armhf (3.3-4) ...
Selecting previously unselected package zlib1g-dev:armhf.
Preparing to unpack .../032-zlib1g-dev_1%3a1.2.11.dfsg-2_armhf.deb ...
Unpacking zlib1g-dev:armhf (1:1.2.11.dfsg-2) ...
Selecting previously unselected package cl-cffi.
Preparing to unpack .../033-cl-cffi_1%3a0.22.1-1_all.deb ...
Unpacking cl-cffi (1:0.22.1-1) ...
Selecting previously unselected package cl-chipz.
Preparing to unpack .../034-cl-chipz_20190121.git0f6c9ea-1_all.deb ...
Unpacking cl-chipz (20190121.git0f6c9ea-1) ...
Selecting previously unselected package cl-chunga.
Preparing to unpack .../035-cl-chunga_20200403.gitcb333cd-1_all.deb ...
Unpacking cl-chunga (20200403.gitcb333cd-1) ...
Selecting previously unselected package cl-closer-mop.
Preparing to unpack .../036-cl-closer-mop_2%3a20190127.git22858cb-1_all.deb ...
Unpacking cl-closer-mop (2:20190127.git22858cb-1) ...
Selecting previously unselected package cl-closure-common.
Preparing to unpack .../037-cl-closure-common_20101107-1_all.deb ...
Unpacking cl-closure-common (20101107-1) ...
Selecting previously unselected package cl-command-line-arguments.
Preparing to unpack .../038-cl-command-line-arguments_20151218-1_all.deb ...
Unpacking cl-command-line-arguments (20151218-1) ...
Selecting previously unselected package cl-metatilities-base.
Preparing to unpack .../039-cl-metatilities-base_20170403-1_all.deb ...
Unpacking cl-metatilities-base (20170403-1) ...
Selecting previously unselected package cl-containers.
Preparing to unpack .../040-cl-containers_20170403-1_all.deb ...
Unpacking cl-containers (20170403-1) ...
Selecting previously unselected package cl-iterate.
Preparing to unpack .../041-cl-iterate_20180228-1_all.deb ...
Unpacking cl-iterate (20180228-1) ...
Selecting previously unselected package cl-ppcre.
Preparing to unpack .../042-cl-ppcre_20190407.git1ca0cd9-2_all.deb ...
Unpacking cl-ppcre (20190407.git1ca0cd9-2) ...
Selecting previously unselected package cl-flexi-streams.
Preparing to unpack .../043-cl-flexi-streams_20181214.git0fd872a-1_all.deb ...
Unpacking cl-flexi-streams (20181214.git0fd872a-1) ...
Selecting previously unselected package cl-unicode.
Preparing to unpack .../044-cl-unicode_20190407.git8073fc5-1_all.deb ...
Unpacking cl-unicode (20190407.git8073fc5-1) ...
Selecting previously unselected package cl-named-readtables.
Preparing to unpack .../045-cl-named-readtables_20200129.git5e72eca-1_all.deb ...
Unpacking cl-named-readtables (20200129.git5e72eca-1) ...
Selecting previously unselected package cl-interpol.
Preparing to unpack .../046-cl-interpol_20180509.git1fd288d-1_all.deb ...
Unpacking cl-interpol (20180509.git1fd288d-1) ...
Selecting previously unselected package cl-csv.
Preparing to unpack .../047-cl-csv_20180712.git3eba29c-1_all.deb ...
Unpacking cl-csv (20180712.git3eba29c-1) ...
Selecting previously unselected package cl-cxml.
Preparing to unpack .../048-cl-cxml_20110619-2_all.deb ...
Unpacking cl-cxml (20110619-2) ...
Selecting previously unselected package cl-db3.
Preparing to unpack .../049-cl-db3_20200212-1_all.deb ...
Unpacking cl-db3 (20200212-1) ...
Selecting previously unselected package cl-puri.
Preparing to unpack .../050-cl-puri_1%3a1.5.6-1_all.deb ...
Unpacking cl-puri (1:1.5.6-1) ...
Selecting previously unselected package cl-split-sequence.
Preparing to unpack .../051-cl-split-sequence_1%3a2.0.0-1_all.deb ...
Unpacking cl-split-sequence (1:2.0.0-1) ...
Selecting previously unselected package cl-usocket.
Preparing to unpack .../052-cl-usocket_0.8.3-1_all.deb ...
Unpacking cl-usocket (0.8.3-1) ...
Selecting previously unselected package cl-trivial-garbage.
Preparing to unpack .../053-cl-trivial-garbage_20190518.gitdbc8e35-1_all.deb ...
Unpacking cl-trivial-garbage (20190518.gitdbc8e35-1) ...
Selecting previously unselected package cl-plus-ssl.
Preparing to unpack .../054-cl-plus-ssl_20191020.git2908199-1_all.deb ...
Unpacking cl-plus-ssl (20191020.git2908199-1) ...
Selecting previously unselected package cl-drakma.
Preparing to unpack .../055-cl-drakma_2.0.7-1_all.deb ...
Unpacking cl-drakma (2.0.7-1) ...
Selecting previously unselected package cl-dynamic-classes.
Preparing to unpack .../056-cl-dynamic-classes_20130128-2_all.deb ...
Unpacking cl-dynamic-classes (20130128-2) ...
Selecting previously unselected package cl-esrap.
Preparing to unpack .../057-cl-esrap_20180430-1_all.deb ...
Unpacking cl-esrap (20180430-1) ...
Selecting previously unselected package cl-fad.
Preparing to unpack .../058-cl-fad_20200122.git4111b63-1_all.deb ...
Unpacking cl-fad (20200122.git4111b63-1) ...
Selecting previously unselected package cl-garbage-pools.
Preparing to unpack .../059-cl-garbage-pools_20130720-1_all.deb ...
Unpacking cl-garbage-pools (20130720-1) ...
Selecting previously unselected package cl-ieee-floats.
Preparing to unpack .../060-cl-ieee-floats_20170830-1_all.deb ...
Unpacking cl-ieee-floats (20170830-1) ...
Selecting previously unselected package cl-ironclad.
Preparing to unpack .../061-cl-ironclad_0.48-1_all.deb ...
Unpacking cl-ironclad (0.48-1) ...
Selecting previously unselected package cl-ixf.
Preparing to unpack .../062-cl-ixf_20180228-1_all.deb ...
Unpacking cl-ixf (20180228-1) ...
Selecting previously unselected package cl-local-time.
Preparing to unpack .../063-cl-local-time_20180228-1_all.deb ...
Unpacking cl-local-time (20180228-1) ...
Selecting previously unselected package cl-log.
Preparing to unpack .../064-cl-log_1.0.1-1_all.deb ...
Unpacking cl-log (1.0.1-1) ...
Selecting previously unselected package cl-lparallel.
Preparing to unpack .../065-cl-lparallel_20160825-1_all.deb ...
Unpacking cl-lparallel (20160825-1) ...
Selecting previously unselected package cl-metabang-bind.
Preparing to unpack .../066-cl-metabang-bind_20171130-1_all.deb ...
Unpacking cl-metabang-bind (20171130-1) ...
Selecting previously unselected package cl-markdown.
Preparing to unpack .../067-cl-markdown_20101006-2_all.deb ...
Unpacking cl-markdown (20101006-2) ...
Selecting previously unselected package cl-md5.
Preparing to unpack .../068-cl-md5_1%3a20180224.gitb141260-1_all.deb ...
Unpacking cl-md5 (1:20180224.gitb141260-1) ...
Selecting previously unselected package libkrb5support0:armhf.
Preparing to unpack .../069-libkrb5support0_1.17-10_armhf.deb ...
Unpacking libkrb5support0:armhf (1.17-10) ...
Selecting previously unselected package libk5crypto3:armhf.
Preparing to unpack .../070-libk5crypto3_1.17-10_armhf.deb ...
Unpacking libk5crypto3:armhf (1.17-10) ...
Selecting previously unselected package libkeyutils1:armhf.
Preparing to unpack .../071-libkeyutils1_1.6.1-2_armhf.deb ...
Unpacking libkeyutils1:armhf (1.6.1-2) ...
Selecting previously unselected package libkrb5-3:armhf.
Preparing to unpack .../072-libkrb5-3_1.17-10_armhf.deb ...
Unpacking libkrb5-3:armhf (1.17-10) ...
Selecting previously unselected package libgssapi-krb5-2:armhf.
Preparing to unpack .../073-libgssapi-krb5-2_1.17-10_armhf.deb ...
Unpacking libgssapi-krb5-2:armhf (1.17-10) ...
Selecting previously unselected package freetds-common.
Preparing to unpack .../074-freetds-common_1.1.6-1.1_all.deb ...
Unpacking freetds-common (1.1.6-1.1) ...
Selecting previously unselected package libct4:armhf.
Preparing to unpack .../075-libct4_1.1.6-1.1_armhf.deb ...
Unpacking libct4:armhf (1.1.6-1.1) ...
Selecting previously unselected package libsybdb5:armhf.
Preparing to unpack .../076-libsybdb5_1.1.6-1.1_armhf.deb ...
Unpacking libsybdb5:armhf (1.1.6-1.1) ...
Selecting previously unselected package freetds-dev.
Preparing to unpack .../077-freetds-dev_1.1.6-1.1_armhf.deb ...
Unpacking freetds-dev (1.1.6-1.1) ...
Selecting previously unselected package cl-mssql.
Preparing to unpack .../078-cl-mssql_20180228-1_all.deb ...
Unpacking cl-mssql (20180228-1) ...
Selecting previously unselected package cl-mustache.
Preparing to unpack .../079-cl-mustache_0.12.1-9-g684f227-1_all.deb ...
Unpacking cl-mustache (0.12.1-9-g684f227-1) ...
Selecting previously unselected package cl-parse-number.
Preparing to unpack .../080-cl-parse-number_1.7-1_all.deb ...
Unpacking cl-parse-number (1.7-1) ...
Selecting previously unselected package cl-postgres.
Preparing to unpack .../081-cl-postgres_20180430-1_all.deb ...
Unpacking cl-postgres (20180430-1) ...
Selecting previously unselected package cl-s-sql.
Preparing to unpack .../082-cl-s-sql_20180430-1_all.deb ...
Unpacking cl-s-sql (20180430-1) ...
Selecting previously unselected package cl-postmodern.
Preparing to unpack .../083-cl-postmodern_20180430-1_all.deb ...
Unpacking cl-postmodern (20180430-1) ...
Selecting previously unselected package cl-py-configparser.
Preparing to unpack .../084-cl-py-configparser_20170830-1_all.deb ...
Unpacking cl-py-configparser (20170830-1) ...
Selecting previously unselected package cl-qmynd.
Preparing to unpack .../085-cl-qmynd_20180131-1_all.deb ...
Unpacking cl-qmynd (20180131-1) ...
Selecting previously unselected package cl-quri.
Preparing to unpack .../086-cl-quri_20150804-1_all.deb ...
Unpacking cl-quri (20150804-1) ...
Selecting previously unselected package cl-simple-date.
Preparing to unpack .../087-cl-simple-date_20180430-1_all.deb ...
Unpacking cl-simple-date (20180430-1) ...
Selecting previously unselected package cl-sqlite.
Preparing to unpack .../088-cl-sqlite_20130615-2_all.deb ...
Unpacking cl-sqlite (20130615-2) ...
Selecting previously unselected package cl-trivial-backtrace.
Preparing to unpack .../089-cl-trivial-backtrace_20190610.git57a8df7-1_all.deb ...
Unpacking cl-trivial-backtrace (20190610.git57a8df7-1) ...
Selecting previously unselected package cl-trivial-utf-8.
Preparing to unpack .../090-cl-trivial-utf-8_20111001-1_all.deb ...
Unpacking cl-trivial-utf-8 (20111001-1) ...
Selecting previously unselected package cl-utilities.
Preparing to unpack .../091-cl-utilities_1.2.4-3.1_all.deb ...
Unpacking cl-utilities (1.2.4-3.1) ...
Selecting previously unselected package cl-uuid.
Preparing to unpack .../092-cl-uuid_20130813-1_all.deb ...
Unpacking cl-uuid (20130813-1) ...
Selecting previously unselected package cl-yason.
Preparing to unpack .../093-cl-yason_0.7.6-1_all.deb ...
Unpacking cl-yason (0.7.6-1) ...
Selecting previously unselected package cl-zs3.
Preparing to unpack .../094-cl-zs3_1.3.1-1_all.deb ...
Unpacking cl-zs3 (1.3.1-1) ...
Selecting previously unselected package libtool.
Preparing to unpack .../095-libtool_2.4.6-14_all.deb ...
Unpacking libtool (2.4.6-14) ...
Selecting previously unselected package dh-autoreconf.
Preparing to unpack .../096-dh-autoreconf_19_all.deb ...
Unpacking dh-autoreconf (19) ...
Selecting previously unselected package libdebhelper-perl.
Preparing to unpack .../097-libdebhelper-perl_13.2_all.deb ...
Unpacking libdebhelper-perl (13.2) ...
Selecting previously unselected package libarchive-zip-perl.
Preparing to unpack .../098-libarchive-zip-perl_1.68-1_all.deb ...
Unpacking libarchive-zip-perl (1.68-1) ...
Selecting previously unselected package libsub-override-perl.
Preparing to unpack .../099-libsub-override-perl_0.09-2_all.deb ...
Unpacking libsub-override-perl (0.09-2) ...
Selecting previously unselected package libfile-stripnondeterminism-perl.
Preparing to unpack .../100-libfile-stripnondeterminism-perl_1.9.0-1_all.deb ...
Unpacking libfile-stripnondeterminism-perl (1.9.0-1) ...
Selecting previously unselected package dh-strip-nondeterminism.
Preparing to unpack .../101-dh-strip-nondeterminism_1.9.0-1_all.deb ...
Unpacking dh-strip-nondeterminism (1.9.0-1) ...
Selecting previously unselected package libelf1:armhf.
Preparing to unpack .../102-libelf1_0.176-1.1_armhf.deb ...
Unpacking libelf1:armhf (0.176-1.1) ...
Selecting previously unselected package dwz.
Preparing to unpack .../103-dwz_0.13-5_armhf.deb ...
Unpacking dwz (0.13-5) ...
Selecting previously unselected package libicu67:armhf.
Preparing to unpack .../104-libicu67_67.1-2_armhf.deb ...
Unpacking libicu67:armhf (67.1-2) ...
Selecting previously unselected package libxml2:armhf.
Preparing to unpack .../105-libxml2_2.9.10+dfsg-5+b1_armhf.deb ...
Unpacking libxml2:armhf (2.9.10+dfsg-5+b1) ...
Selecting previously unselected package libcroco3:armhf.
Preparing to unpack .../106-libcroco3_0.6.13-1_armhf.deb ...
Unpacking libcroco3:armhf (0.6.13-1) ...
Selecting previously unselected package gettext.
Preparing to unpack .../107-gettext_0.19.8.1-10_armhf.deb ...
Unpacking gettext (0.19.8.1-10) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../108-intltool-debian_0.35.0+20060710.5_all.deb ...
Unpacking intltool-debian (0.35.0+20060710.5) ...
Selecting previously unselected package po-debconf.
Preparing to unpack .../109-po-debconf_1.0.21_all.deb ...
Unpacking po-debconf (1.0.21) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../110-debhelper_13.2_all.deb ...
Unpacking debhelper (13.2) ...
Selecting previously unselected package xml-core.
Preparing to unpack .../111-xml-core_0.18+nmu1_all.deb ...
Unpacking xml-core (0.18+nmu1) ...
Selecting previously unselected package docutils-common.
Preparing to unpack .../112-docutils-common_0.16+dfsg-2_all.deb ...
Unpacking docutils-common (0.16+dfsg-2) ...
Selecting previously unselected package fonts-font-awesome.
Preparing to unpack .../113-fonts-font-awesome_5.0.10+really4.7.0~dfsg-2_all.deb ...
Unpacking fonts-font-awesome (5.0.10+really4.7.0~dfsg-2) ...
Selecting previously unselected package help2man.
Preparing to unpack .../114-help2man_1.47.16_armhf.deb ...
Unpacking help2man (1.47.16) ...
Selecting previously unselected package node-jquery.
Preparing to unpack .../115-node-jquery_3.5.1+dfsg-4_all.deb ...
Unpacking node-jquery (3.5.1+dfsg-4) ...
Selecting previously unselected package libjs-jquery.
Preparing to unpack .../116-libjs-jquery_3.5.1+dfsg-4_all.deb ...
Unpacking libjs-jquery (3.5.1+dfsg-4) ...
Selecting previously unselected package libjs-modernizr.
Preparing to unpack .../117-libjs-modernizr_2.6.2+ds1-3_all.deb ...
Unpacking libjs-modernizr (2.6.2+ds1-3) ...
Selecting previously unselected package libjs-underscore.
Preparing to unpack .../118-libjs-underscore_1.9.1~dfsg-1_all.deb ...
Unpacking libjs-underscore (1.9.1~dfsg-1) ...
Selecting previously unselected package libjs-sphinxdoc.
Preparing to unpack .../119-libjs-sphinxdoc_2.4.3-4_all.deb ...
Unpacking libjs-sphinxdoc (2.4.3-4) ...
Selecting previously unselected package python-babel-localedata.
Preparing to unpack .../120-python-babel-localedata_2.8.0+dfsg.1-3_all.deb ...
Unpacking python-babel-localedata (2.8.0+dfsg.1-3) ...
Selecting previously unselected package python3-alabaster.
Preparing to unpack .../121-python3-alabaster_0.7.8-1.1_all.deb ...
Unpacking python3-alabaster (0.7.8-1.1) ...
Selecting previously unselected package python3-pkg-resources.
Preparing to unpack .../122-python3-pkg-resources_46.1.3-1_all.deb ...
Unpacking python3-pkg-resources (46.1.3-1) ...
Selecting previously unselected package python3-tz.
Preparing to unpack .../123-python3-tz_2020.1-2_all.deb ...
Unpacking python3-tz (2020.1-2) ...
Selecting previously unselected package python3-babel.
Preparing to unpack .../124-python3-babel_2.8.0+dfsg.1-3_all.deb ...
Unpacking python3-babel (2.8.0+dfsg.1-3) ...
Selecting previously unselected package python3-certifi.
Preparing to unpack .../125-python3-certifi_2020.4.5.1-1_all.deb ...
Unpacking python3-certifi (2020.4.5.1-1) ...
Selecting previously unselected package python3-chardet.
Preparing to unpack .../126-python3-chardet_3.0.4-7_all.deb ...
Unpacking python3-chardet (3.0.4-7) ...
Selecting previously unselected package python3-lib2to3.
Preparing to unpack .../127-python3-lib2to3_3.8.3-2_all.deb ...
Unpacking python3-lib2to3 (3.8.3-2) ...
Selecting previously unselected package python3-distutils.
Preparing to unpack .../128-python3-distutils_3.8.3-2_all.deb ...
Unpacking python3-distutils (3.8.3-2) ...
Selecting previously unselected package python3-roman.
Preparing to unpack .../129-python3-roman_2.0.0-4_all.deb ...
Unpacking python3-roman (2.0.0-4) ...
Selecting previously unselected package python3-docutils.
Preparing to unpack .../130-python3-docutils_0.16+dfsg-2_all.deb ...
Unpacking python3-docutils (0.16+dfsg-2) ...
Selecting previously unselected package python3-idna.
Preparing to unpack .../131-python3-idna_2.10-1_all.deb ...
Unpacking python3-idna (2.10-1) ...
Selecting previously unselected package python3-imagesize.
Preparing to unpack .../132-python3-imagesize_1.2.0-2_all.deb ...
Unpacking python3-imagesize (1.2.0-2) ...
Selecting previously unselected package python3-markupsafe.
Preparing to unpack .../133-python3-markupsafe_1.1.1-1_armhf.deb ...
Unpacking python3-markupsafe (1.1.1-1) ...
Selecting previously unselected package python3-jinja2.
Preparing to unpack .../134-python3-jinja2_2.11.2-1_all.deb ...
Unpacking python3-jinja2 (2.11.2-1) ...
Selecting previously unselected package python3-pyparsing.
Preparing to unpack .../135-python3-pyparsing_2.4.7-1_all.deb ...
Unpacking python3-pyparsing (2.4.7-1) ...
Selecting previously unselected package python3-six.
Preparing to unpack .../136-python3-six_1.15.0-1_all.deb ...
Unpacking python3-six (1.15.0-1) ...
Selecting previously unselected package python3-packaging.
Preparing to unpack .../137-python3-packaging_20.3-1.2_all.deb ...
Unpacking python3-packaging (20.3-1.2) ...
Selecting previously unselected package python3-pygments.
Preparing to unpack .../138-python3-pygments_2.3.1+dfsg-4_all.deb ...
Unpacking python3-pygments (2.3.1+dfsg-4) ...
Selecting previously unselected package python3-urllib3.
Preparing to unpack .../139-python3-urllib3_1.25.9-1_all.deb ...
Unpacking python3-urllib3 (1.25.9-1) ...
Selecting previously unselected package python3-requests.
Preparing to unpack .../140-python3-requests_2.23.0+dfsg-2_all.deb ...
Unpacking python3-requests (2.23.0+dfsg-2) ...
Selecting previously unselected package sphinx-common.
Preparing to unpack .../141-sphinx-common_2.4.3-4_all.deb ...
Unpacking sphinx-common (2.4.3-4) ...
Selecting previously unselected package python3-sphinx.
Preparing to unpack .../142-python3-sphinx_2.4.3-4_all.deb ...
Unpacking python3-sphinx (2.4.3-4) ...
Selecting previously unselected package sphinx-rtd-theme-common.
Preparing to unpack .../143-sphinx-rtd-theme-common_0.4.3+dfsg-3_all.deb ...
Unpacking sphinx-rtd-theme-common (0.4.3+dfsg-3) ...
Selecting previously unselected package python3-sphinx-rtd-theme.
Preparing to unpack .../144-python3-sphinx-rtd-theme_0.4.3+dfsg-3_all.deb ...
Unpacking python3-sphinx-rtd-theme (0.4.3+dfsg-3) ...
Selecting previously unselected package sbuild-build-depends-pgloader-dummy.
Preparing to unpack .../145-sbuild-build-depends-pgloader-dummy_0.invalid.0_armhf.deb ...
Unpacking sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Setting up libpipeline1:armhf (1.5.2-2) ...
Setting up cl-trivial-utf-8 (20111001-1) ...
Setting up libkeyutils1:armhf (1.6.1-2) ...
Setting up fonts-lato (2.0-2) ...
Setting up cl-trivial-garbage (20190518.gitdbc8e35-1) ...
Setting up cl-garbage-pools (20130720-1) ...
Setting up mime-support (3.64) ...
Setting up cl-closer-mop (2:20190127.git22858cb-1) ...
Setting up libicu67:armhf (67.1-2) ...
Setting up libmagic-mgc (1:5.38-5) ...
Setting up cl-metabang-bind (20171130-1) ...
Setting up gawk (1:5.0.1+dfsg-1) ...
Setting up cl-asdf (2:3.3.4-1) ...
Setting up libarchive-zip-perl (1.68-1) ...
Setting up cl-closure-common (20101107-1) ...
Setting up libglib2.0-0:armhf (2.64.3-2) ...
No schema files found: doing nothing.
Setting up cl-parse-number (1.7-1) ...
Setting up libdebhelper-perl (13.2) ...
Setting up cl-log (1.0.1-1) ...
Setting up cl-puri (1:1.5.6-1) ...
Setting up cl-simple-date (20180430-1) ...
Setting up cl-quri (20150804-1) ...
Setting up libmagic1:armhf (1:5.38-5) ...
Setting up gettext-base (0.19.8.1-10) ...
Setting up cl-named-readtables (20200129.git5e72eca-1) ...
Setting up m4 (1.4.18-4) ...
Setting up cl-trivial-features (20200115.git9d1d659-1) ...
Setting up cl-trivial-backtrace (20190610.git57a8df7-1) ...
Setting up file (1:5.38-5) ...
Setting up libffi-dev:armhf (3.3-4) ...
Setting up libjs-modernizr (2.6.2+ds1-3) ...
Setting up python-babel-localedata (2.8.0+dfsg.1-3) ...
Setting up cl-split-sequence (1:2.0.0-1) ...
Setting up libkrb5support0:armhf (1.17-10) ...
Setting up cl-metatilities-base (20170403-1) ...
Setting up cl-trivial-gray-streams (20180909.gitebd59b1-1) ...
Setting up cl-cxml (20110619-2) ...
Setting up cl-asdf-finalizers (20170403-1) ...
Setting up autotools-dev (20180224.1) ...
Setting up cl-yason (0.7.6-1) ...
Setting up cl-mustache (0.12.1-9-g684f227-1) ...
Setting up cl-s-sql (20180430-1) ...
Setting up cl-dynamic-classes (20130128-2) ...
Setting up cl-command-line-arguments (20151218-1) ...
Setting up autopoint (0.19.8.1-10) ...
Setting up pkg-config (0.29.2-1) ...
Setting up libk5crypto3:armhf (1.17-10) ...
Setting up autoconf (2.69-11.1) ...
Setting up cl-chipz (20190121.git0f6c9ea-1) ...
Setting up sbcl (2:2.0.6-2) ...
Setting up zlib1g-dev:armhf (1:1.2.11.dfsg-2) ...
Setting up cl-chunga (20200403.gitcb333cd-1) ...
Setting up sensible-utils (0.0.12+nmu1) ...
Setting up libuchardet0:armhf (0.0.7-1) ...
Setting up cl-alexandria (20200125.gitfab0e59-1) ...
Setting up libsub-override-perl (0.09-2) ...
Setting up sgml-base (1.30) ...
Setting up cl-iterate (20180228-1) ...
Setting up cl-db3 (20200212-1) ...
Setting up cl-utilities (1.2.4-3.1) ...
Setting up libkrb5-3:armhf (1.17-10) ...
Setting up cl-rt (20090812.gita6a7503-1) ...
Setting up libmpdec2:armhf (2.4.2-3) ...
Setting up cl-asdf-system-connections (20170124-1) ...
Setting up freetds-common (1.1.6-1.1) ...
Setting up cl-py-configparser (20170830-1) ...
Setting up libpython3.8-stdlib:armhf (3.8.4-1) ...
Setting up cl-ppcre (20190407.git1ca0cd9-2) ...
Setting up cl-abnf (20150608-1) ...
Setting up cl-anaphora (20190828.git018590d-1) ...
Setting up python3.8 (3.8.4-1) ...
Setting up openssl (1.1.1g-1) ...
Setting up cl-ieee-floats (20170830-1) ...
Setting up libelf1:armhf (0.176-1.1) ...
Setting up libxml2:armhf (2.9.10+dfsg-5+b1) ...
Setting up fonts-font-awesome (5.0.10+really4.7.0~dfsg-2) ...
Setting up sphinx-rtd-theme-common (0.4.3+dfsg-3) ...
Setting up liblocale-gettext-perl (1.07-4) ...
Setting up node-jquery (3.5.1+dfsg-4) ...
Setting up libpython3-stdlib:armhf (3.8.2-3) ...
Setting up libjs-underscore (1.9.1~dfsg-1) ...
Setting up buildapp (1.5.6-2) ...
Setting up automake (1:1.16.2-3) ...
update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode
Setting up libfile-stripnondeterminism-perl (1.9.0-1) ...
Setting up cl-containers (20170403-1) ...
Setting up cl-flexi-streams (20181214.git0fd872a-1) ...
Setting up libtool (2.4.6-14) ...
Setting up cl-ixf (20180228-1) ...
Setting up python3 (3.8.2-3) ...
Setting up python3-markupsafe (1.1.1-1) ...
Setting up cl-babel (20200116.gitaeed2d1-1) ...
Setting up cl-bordeaux-threads (0.8.7-1) ...
Setting up python3-tz (2020.1-2) ...
Setting up help2man (1.47.16) ...
Setting up python3-six (1.15.0-1) ...
Setting up ca-certificates (20200601) ...
Updating certificates in /etc/ssl/certs...
126 added, 0 removed; done.
Setting up python3-roman (2.0.0-4) ...
Setting up python3-jinja2 (2.11.2-1) ...
Setting up python3-pyparsing (2.4.7-1) ...
Setting up python3-certifi (2020.4.5.1-1) ...
Setting up cl-kmrcl (1.109-1) ...
Setting up cl-lparallel (20160825-1) ...
Setting up libgssapi-krb5-2:armhf (1.17-10) ...
Setting up python3-idna (2.10-1) ...
Setting up libcroco3:armhf (0.6.13-1) ...
Setting up cl-usocket (0.8.3-1) ...
Setting up cl-md5 (1:20180224.gitb141260-1) ...
Setting up python3-urllib3 (1.25.9-1) ...
Setting up dh-strip-nondeterminism (1.9.0-1) ...
Setting up dwz (0.13-5) ...
Setting up cl-esrap (20180430-1) ...
Setting up groff-base (1.22.4-5) ...
Setting up xml-core (0.18+nmu1) ...
Setting up cl-markdown (20101006-2) ...
Setting up cl-cffi (1:0.22.1-1) ...
Setting up libjs-jquery (3.5.1+dfsg-4) ...
Setting up cl-unicode (20190407.git8073fc5-1) ...
Setting up python3-lib2to3 (3.8.3-2) ...
Setting up python3-imagesize (1.2.0-2) ...
Setting up cl-base64 (3.3.4-1) ...
Setting up python3-pkg-resources (46.1.3-1) ...
Setting up python3-distutils (3.8.3-2) ...
Setting up cl-ironclad (0.48-1) ...
Setting up gettext (0.19.8.1-10) ...
Setting up cl-interpol (20180509.git1fd288d-1) ...
Setting up python3-babel (2.8.0+dfsg.1-3) ...
update-alternatives: using /usr/bin/pybabel-python3 to provide /usr/bin/pybabel (pybabel) in auto mode
Setting up cl-fad (20200122.git4111b63-1) ...
Setting up python3-alabaster (0.7.8-1.1) ...
Setting up cl-csv (20180712.git3eba29c-1) ...
Setting up libsybdb5:armhf (1.1.6-1.1) ...
Setting up man-db (2.9.3-2) ...
Not building database; man-db/auto-update is not 'true'.
Setting up intltool-debian (0.35.0+20060710.5) ...
Setting up python3-pygments (2.3.1+dfsg-4) ...
Setting up cl-qmynd (20180131-1) ...
Setting up python3-packaging (20.3-1.2) ...
Setting up cl-plus-ssl (20191020.git2908199-1) ...
Setting up python3-chardet (3.0.4-7) ...
Setting up libct4:armhf (1.1.6-1.1) ...
Setting up cl-sqlite (20130615-2) ...
Setting up python3-requests (2.23.0+dfsg-2) ...
Setting up cl-postgres (20180430-1) ...
Setting up cl-drakma (2.0.7-1) ...
Setting up libjs-sphinxdoc (2.4.3-4) ...
Setting up cl-postmodern (20180430-1) ...
Setting up cl-uuid (20130813-1) ...
Setting up cl-local-time (20180228-1) ...
Setting up freetds-dev (1.1.6-1.1) ...
Setting up po-debconf (1.0.21) ...
Setting up cl-zs3 (1.3.1-1) ...
Setting up cl-mssql (20180228-1) ...
Setting up sphinx-common (2.4.3-4) ...
Setting up dh-autoreconf (19) ...
Setting up debhelper (13.2) ...
Processing triggers for libc-bin (2.30-8+rpi1) ...
Processing triggers for sgml-base (1.30) ...
Setting up docutils-common (0.16+dfsg-2) ...
Processing triggers for sgml-base (1.30) ...
Setting up python3-docutils (0.16+dfsg-2) ...
update-alternatives: using /usr/share/docutils/scripts/python3/rst-buildhtml to provide /usr/bin/rst-buildhtml (rst-buildhtml) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2html to provide /usr/bin/rst2html (rst2html) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2html4 to provide /usr/bin/rst2html4 (rst2html4) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2html5 to provide /usr/bin/rst2html5 (rst2html5) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2latex to provide /usr/bin/rst2latex (rst2latex) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2man to provide /usr/bin/rst2man (rst2man) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2odt to provide /usr/bin/rst2odt (rst2odt) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2odt_prepstyles to provide /usr/bin/rst2odt_prepstyles (rst2odt_prepstyles) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2pseudoxml to provide /usr/bin/rst2pseudoxml (rst2pseudoxml) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2s5 to provide /usr/bin/rst2s5 (rst2s5) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2xetex to provide /usr/bin/rst2xetex (rst2xetex) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rst2xml to provide /usr/bin/rst2xml (rst2xml) in auto mode
update-alternatives: using /usr/share/docutils/scripts/python3/rstpep2html to provide /usr/bin/rstpep2html (rstpep2html) in auto mode
Setting up python3-sphinx (2.4.3-4) ...
Setting up python3-sphinx-rtd-theme (0.4.3+dfsg-3) ...
Setting up sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Processing triggers for ca-certificates (20200601) ...
Updating certificates in /etc/ssl/certs...
0 added, 0 removed; done.
Running hooks in /etc/ca-certificates/update.d...
done.
+------------------------------------------------------------------------------+
| Build environment |
+------------------------------------------------------------------------------+
Kernel: Linux 4.9.0-0.bpo.1-armmp armhf (armv7l)
Toolchain package versions: binutils_2.34-8+rpi1 dpkg-dev_1.19.7 g++-9_9.3.0-14+rpi1 gcc-9_9.3.0-14+rpi1 libc6-dev_2.30-8+rpi1 libstdc++-9-dev_9.3.0-14+rpi1 libstdc++6_10.1.0-4+rpi1 linux-libc-dev_5.2.17-1+rpi1+b2
Package versions: adduser_3.118 apt_2.1.6 autoconf_2.69-11.1 automake_1:1.16.2-3 autopoint_0.19.8.1-10 autotools-dev_20180224.1 base-files_11+rpi1 base-passwd_3.5.47 bash_5.0-6 binutils_2.34-8+rpi1 binutils-arm-linux-gnueabihf_2.34-8+rpi1 binutils-common_2.34-8+rpi1 bsdextrautils_2.35.2-6 bsdutils_1:2.35.2-6 build-essential_12.8 buildapp_1.5.6-2 bzip2_1.0.8-3 ca-certificates_20200601 cl-abnf_20150608-1 cl-alexandria_20200125.gitfab0e59-1 cl-anaphora_20190828.git018590d-1 cl-asdf_2:3.3.4-1 cl-asdf-finalizers_20170403-1 cl-asdf-system-connections_20170124-1 cl-babel_20200116.gitaeed2d1-1 cl-base64_3.3.4-1 cl-bordeaux-threads_0.8.7-1 cl-cffi_1:0.22.1-1 cl-chipz_20190121.git0f6c9ea-1 cl-chunga_20200403.gitcb333cd-1 cl-closer-mop_2:20190127.git22858cb-1 cl-closure-common_20101107-1 cl-command-line-arguments_20151218-1 cl-containers_20170403-1 cl-csv_20180712.git3eba29c-1 cl-cxml_20110619-2 cl-db3_20200212-1 cl-drakma_2.0.7-1 cl-dynamic-classes_20130128-2 cl-esrap_20180430-1 cl-fad_20200122.git4111b63-1 cl-flexi-streams_20181214.git0fd872a-1 cl-garbage-pools_20130720-1 cl-ieee-floats_20170830-1 cl-interpol_20180509.git1fd288d-1 cl-ironclad_0.48-1 cl-iterate_20180228-1 cl-ixf_20180228-1 cl-kmrcl_1.109-1 cl-local-time_20180228-1 cl-log_1.0.1-1 cl-lparallel_20160825-1 cl-markdown_20101006-2 cl-md5_1:20180224.gitb141260-1 cl-metabang-bind_20171130-1 cl-metatilities-base_20170403-1 cl-mssql_20180228-1 cl-mustache_0.12.1-9-g684f227-1 cl-named-readtables_20200129.git5e72eca-1 cl-parse-number_1.7-1 cl-plus-ssl_20191020.git2908199-1 cl-postgres_20180430-1 cl-postmodern_20180430-1 cl-ppcre_20190407.git1ca0cd9-2 cl-puri_1:1.5.6-1 cl-py-configparser_20170830-1 cl-qmynd_20180131-1 cl-quri_20150804-1 cl-rt_20090812.gita6a7503-1 cl-s-sql_20180430-1 cl-simple-date_20180430-1 cl-split-sequence_1:2.0.0-1 cl-sqlite_20130615-2 cl-trivial-backtrace_20190610.git57a8df7-1 cl-trivial-features_20200115.git9d1d659-1 cl-trivial-garbage_20190518.gitdbc8e35-1 cl-trivial-gray-streams_20180909.gitebd59b1-1 cl-trivial-utf-8_20111001-1 cl-unicode_20190407.git8073fc5-1 cl-usocket_0.8.3-1 cl-utilities_1.2.4-3.1 cl-uuid_20130813-1 cl-yason_0.7.6-1 cl-zs3_1.3.1-1 coreutils_8.30-3 cpp_4:9.2.1-3.1+rpi1 cpp-9_9.3.0-14+rpi1 dash_0.5.10.2-7 debconf_1.5.74 debhelper_13.2 debianutils_4.9.1 dh-autoreconf_19 dh-strip-nondeterminism_1.9.0-1 diffutils_1:3.7-3 dirmngr_2.2.20-1 dmsetup_2:1.02.167-1+b2 docutils-common_0.16+dfsg-2 dpkg_1.19.7 dpkg-dev_1.19.7 dwz_0.13-5 e2fsprogs_1.45.6-1 fakeroot_1.24-1 fdisk_2.35.2-6 file_1:5.38-5 findutils_4.7.0-1 fonts-font-awesome_5.0.10+really4.7.0~dfsg-2 fonts-lato_2.0-2 freetds-common_1.1.6-1.1 freetds-dev_1.1.6-1.1 g++_4:9.2.1-3.1+rpi1 g++-9_9.3.0-14+rpi1 gawk_1:5.0.1+dfsg-1 gcc_4:9.2.1-3.1+rpi1 gcc-10-base_10.1.0-4+rpi1 gcc-9_9.3.0-14+rpi1 gcc-9-base_9.3.0-14+rpi1 gettext_0.19.8.1-10 gettext-base_0.19.8.1-10 gnupg_2.2.20-1 gnupg-l10n_2.2.20-1 gnupg-utils_2.2.20-1 gpg_2.2.20-1 gpg-agent_2.2.20-1 gpg-wks-client_2.2.20-1 gpg-wks-server_2.2.20-1 gpgconf_2.2.20-1 gpgsm_2.2.20-1 gpgv_2.2.20-1 grep_3.4-1 groff-base_1.22.4-5 gzip_1.10-2 help2man_1.47.16 hostname_3.23 init-system-helpers_1.58 intltool-debian_0.35.0+20060710.5 iputils-ping_3:20190709-3 libacl1_2.2.53-8 libapt-pkg6.0_2.1.6 libarchive-zip-perl_1.68-1 libargon2-1_0~20171227-0.2 libasan5_9.3.0-14+rpi1 libassuan0_2.5.3-7.1 libatomic1_10.1.0-4+rpi1 libattr1_1:2.4.48-5 libaudit-common_1:2.8.5-3 libaudit1_1:2.8.5-3 libbinutils_2.34-8+rpi1 libblkid1_2.35.2-6 libbz2-1.0_1.0.8-3 libc-bin_2.30-8+rpi1 libc-dev-bin_2.30-8+rpi1 libc6_2.30-8+rpi1 libc6-dev_2.30-8+rpi1 libcap-ng0_0.7.9-2.2 libcap2_1:2.36-1 libcap2-bin_1:2.36-1 libcc1-0_10.1.0-4+rpi1 libcom-err2_1.45.6-1 libcroco3_0.6.13-1 libcrypt-dev_1:4.4.16-1 libcrypt1_1:4.4.16-1 libcryptsetup12_2:2.3.3-1 libct4_1.1.6-1.1 libctf-nobfd0_2.34-8+rpi1 libctf0_2.34-8+rpi1 libdb5.3_5.3.28+dfsg1-0.6 libdebconfclient0_0.252 libdebhelper-perl_13.2 libdevmapper1.02.1_2:1.02.167-1+b2 libdpkg-perl_1.19.7 libelf1_0.176-1.1 libexpat1_2.2.9-1 libext2fs2_1.45.6-1 libfakeroot_1.24-1 libfdisk1_2.35.2-6 libffi-dev_3.3-4 libffi7_3.3-4 libfile-stripnondeterminism-perl_1.9.0-1 libgcc-9-dev_9.3.0-14+rpi1 libgcc-s1_10.1.0-4+rpi1 libgcrypt20_1.8.5-5 libgdbm-compat4_1.18.1-5 libgdbm6_1.18.1-5 libglib2.0-0_2.64.3-2 libgmp10_2:6.2.0+dfsg-6 libgnutls30_3.6.14-2 libgomp1_10.1.0-4+rpi1 libgpg-error0_1.38-2 libgssapi-krb5-2_1.17-10 libhogweed5_3.5.1+really3.5.1-2 libicu67_67.1-2 libidn2-0_2.3.0-1 libisl22_0.22.1-1 libjs-jquery_3.5.1+dfsg-4 libjs-modernizr_2.6.2+ds1-3 libjs-sphinxdoc_2.4.3-4 libjs-underscore_1.9.1~dfsg-1 libjson-c4_0.13.1+dfsg-9 libk5crypto3_1.17-10 libkeyutils1_1.6.1-2 libkrb5-3_1.17-10 libkrb5support0_1.17-10 libksba8_1.4.0-2 libldap-2.4-2_2.4.50+dfsg-1 libldap-common_2.4.50+dfsg-1 liblocale-gettext-perl_1.07-4 liblz4-1_1.9.2-2 liblzma5_5.2.4-1 libmagic-mgc_1:5.38-5 libmagic1_1:5.38-5 libmount1_2.35.2-6 libmpc3_1.1.0-1 libmpdec2_2.4.2-3 libmpfr6_4.0.2-1 libncursesw6_6.2-1 libnettle7_3.5.1+really3.5.1-2 libnpth0_1.6-2 libp11-kit0_0.23.20-1 libpam-cap_1:2.36-1 libpam-modules_1.3.1-5 libpam-modules-bin_1.3.1-5 libpam-runtime_1.3.1-5 libpam0g_1.3.1-5 libpcre2-8-0_10.34-7 libpcre3_2:8.39-13 libperl5.30_5.30.3-4 libpipeline1_1.5.2-2 libpython3-stdlib_3.8.2-3 libpython3.8-minimal_3.8.4-1 libpython3.8-stdlib_3.8.4-1 libreadline7_7.0-5 libreadline8_8.0-4 libsasl2-2_2.1.27+dfsg-2 libsasl2-modules-db_2.1.27+dfsg-2 libseccomp2_2.4.3-1+rpi1 libselinux1_3.0-1+b1 libsemanage-common_3.0-1 libsemanage1_3.0-1+b1 libsepol1_3.0-1 libsigsegv2_2.12-2 libsmartcols1_2.35.2-6 libsqlite3-0_3.32.3-1 libss2_1.45.6-1 libssl1.1_1.1.1g-1 libstdc++-9-dev_9.3.0-14+rpi1 libstdc++6_10.1.0-4+rpi1 libsub-override-perl_0.09-2 libsybdb5_1.1.6-1.1 libsystemd0_245.6-2+rpi1 libtasn1-6_4.16.0-2 libtinfo6_6.2-1 libtool_2.4.6-14 libubsan1_10.1.0-4+rpi1 libuchardet0_0.0.7-1 libudev1_245.6-2+rpi1 libunistring2_0.9.10-4 libuuid1_2.35.2-6 libxml2_2.9.10+dfsg-5+b1 libzstd1_1.4.5+dfsg-3+rpi1 linux-libc-dev_5.2.17-1+rpi1+b2 login_1:4.8.1-1 logsave_1.45.6-1 lsb-base_11.1.0+rpi1 m4_1.4.18-4 make_4.2.1-2 man-db_2.9.3-2 mawk_1.3.4.20200120-2 mime-support_3.64 mount_2.35.2-6 ncurses-base_6.2-1 ncurses-bin_6.2-1 netbase_6.1 node-jquery_3.5.1+dfsg-4 openssl_1.1.1g-1 passwd_1:4.8.1-1 patch_2.7.6-6 perl_5.30.3-4 perl-base_5.30.3-4 perl-modules-5.30_5.30.3-4 pinentry-curses_1.1.0-4 pkg-config_0.29.2-1 po-debconf_1.0.21 python-babel-localedata_2.8.0+dfsg.1-3 python3_3.8.2-3 python3-alabaster_0.7.8-1.1 python3-babel_2.8.0+dfsg.1-3 python3-certifi_2020.4.5.1-1 python3-chardet_3.0.4-7 python3-distutils_3.8.3-2 python3-docutils_0.16+dfsg-2 python3-idna_2.10-1 python3-imagesize_1.2.0-2 python3-jinja2_2.11.2-1 python3-lib2to3_3.8.3-2 python3-markupsafe_1.1.1-1 python3-minimal_3.8.2-3 python3-packaging_20.3-1.2 python3-pkg-resources_46.1.3-1 python3-pygments_2.3.1+dfsg-4 python3-pyparsing_2.4.7-1 python3-requests_2.23.0+dfsg-2 python3-roman_2.0.0-4 python3-six_1.15.0-1 python3-sphinx_2.4.3-4 python3-sphinx-rtd-theme_0.4.3+dfsg-3 python3-tz_2020.1-2 python3-urllib3_1.25.9-1 python3.8_3.8.4-1 python3.8-minimal_3.8.4-1 raspbian-archive-keyring_20120528.2 readline-common_8.0-4 sbcl_2:2.0.6-2 sbuild-build-depends-core-dummy_0.invalid.0 sbuild-build-depends-pgloader-dummy_0.invalid.0 sed_4.7-1 sensible-utils_0.0.12+nmu1 sgml-base_1.30 sphinx-common_2.4.3-4 sphinx-rtd-theme-common_0.4.3+dfsg-3 sysvinit-utils_2.96-3 tar_1.30+dfsg-7 tzdata_2020a-1 util-linux_2.35.2-6 xml-core_0.18+nmu1 xz-utils_5.2.4-1 zlib1g_1:1.2.11.dfsg-2 zlib1g-dev_1:1.2.11.dfsg-2
+------------------------------------------------------------------------------+
| Build |
+------------------------------------------------------------------------------+
Unpack source
-------------
gpgv: unknown type of key resource 'trustedkeys.kbx'
gpgv: keyblock resource '/sbuild-nonexistent/.gnupg/trustedkeys.kbx': General error
gpgv: Signature made Tue Jul 14 15:20:15 2020 UTC
gpgv: using RSA key 5C48FE6157F49179597087C64C5A6BAB12D2A7AE
gpgv: Can't check signature: No public key
dpkg-source: warning: failed to verify signature on ./pgloader_3.6.2-1.dsc
dpkg-source: info: extracting pgloader in /<<PKGBUILDDIR>>
dpkg-source: info: unpacking pgloader_3.6.2.orig.tar.gz
dpkg-source: info: unpacking pgloader_3.6.2-1.debian.tar.xz
Check disc space
----------------
Sufficient free space for build
User Environment
----------------
APT_CONFIG=/var/lib/sbuild/apt.conf
DEB_BUILD_OPTIONS=parallel=4
HOME=/sbuild-nonexistent
LC_ALL=POSIX
LOGNAME=buildd
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
SCHROOT_ALIAS_NAME=bullseye-staging-armhf-sbuild
SCHROOT_CHROOT_NAME=bullseye-staging-armhf-sbuild
SCHROOT_COMMAND=env
SCHROOT_GID=109
SCHROOT_GROUP=buildd
SCHROOT_SESSION_ID=bullseye-staging-armhf-sbuild-37f62e97-f3c2-4768-bdf7-f66542d1b357
SCHROOT_UID=104
SCHROOT_USER=buildd
SHELL=/bin/sh
TERM=linux
USER=buildd
dpkg-buildpackage
-----------------
dpkg-buildpackage: info: source package pgloader
dpkg-buildpackage: info: source version 3.6.2-1
dpkg-buildpackage: info: source distribution unstable
dpkg-source --before-build .
dpkg-buildpackage: info: host architecture armhf
dpkg-source: info: using options from pgloader-3.6.2/debian/source/options: --extend-diff-ignore=src/params.lisp --extend-diff-ignore=src/parsers/command-csv.lisp
fakeroot debian/rules clean
dh clean
debian/rules override_dh_auto_clean
make[1]: Entering directory '/<<PKGBUILDDIR>>'
dh_auto_clean
make -j4 clean
make[2]: Entering directory '/<<PKGBUILDDIR>>'
rm -rf build/libs.stamp build/quicklisp build/manifest.ql build/bin/buildapp.sbcl build/bin/pgloader docs/_build
make[2]: Leaving directory '/<<PKGBUILDDIR>>'
rm -rf debian/home
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
dh_clean
debian/rules build-arch
dh build-arch
dh_update_autotools_config -a
dh_autoreconf -a
dh_auto_configure -a
debian/rules override_dh_auto_build-arch
make[1]: Entering directory '/<<PKGBUILDDIR>>'
mkdir -p build/bin
mkdir -p /<<PKGBUILDDIR>>/debian/home
buildapp --require sb-posix \
--require sb-bsd-sockets \
--load /usr/share/common-lisp/source/cl-asdf/build/asdf.lisp \
--asdf-path . \
--asdf-tree /usr/share/common-lisp/systems \
--load-system asdf-finalizers \
--load-system asdf-system-connections \
--load-system cffi \
--load-system cl+ssl \
--load-system mssql \
--load src/hooks.lisp \
--load-system pgloader \
--entry pgloader:main \
--dynamic-space-size 1024 \
--compress-core \
--logfile buildapp.log \
--output build/bin/pgloader \
|| echo $? > buildapp.fail
; compiling file "/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" (written 15 FEB 2020 07:43:40 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-asdf/build/asdf-tmp7LQ0A0VI.fasl
; compilation finished in 0:01:02.557
;; loading file #P"/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp"
;; loading system "asdf-finalizers"
;; loading system "asdf-system-connections"
;; loading system "cffi"
;; loading system "cl+ssl"
;; loading system "mssql"
;; loading file #P"/<<PKGBUILDDIR>>/src/hooks.lisp"
;; loading system "pgloader"
compressed 4096 bytes into 561 at level -1
compressed 4096 bytes into 852 at level -1
compressed 89649152 bytes into 23819076 at level -1
cat buildapp.log
;; loading file #P"/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp"
;; loading #P"/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp"
;; #<PACKAGE "UIOP/PACKAGE">
;; #<PACKAGE "UIOP/PACKAGE">
;; HOME-PACKAGE-P
;; UNREIFY-SYMBOL
;; NOTE-PACKAGE-FISHINESS
;; RENAME-PACKAGE-AWAY
;; PACKAGE-DEFINITION-FORM
;; ENSURE-PACKAGE
;; PARSE-DEFINE-PACKAGE-FORM
;; DEFINE-PACKAGE
;; #<PACKAGE "UIOP/COMMON-LISP">
;; #<PACKAGE "UIOP/COMMON-LISP">
;; (:ASDF3.3 :ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX
:NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :ARM :GENCGC :ANSI-CL :COMMON-LISP
:ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES
:SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SBCL :UNIX)
;; NIL
;; LOOP*
;; COMPATFMT
;; #<PACKAGE "UIOP/UTILITY">
;; #<PACKAGE "UIOP/UTILITY">
;; WITH-UPGRADABILITY
;; LOAD-UIOP-DEBUG-UTILITY
;; IF-LET
;; PARSE-BODY
;; ENSURE-LIST
;; REMOVE-PLIST-KEYS
;; EMPTYP
;; (:ASDF3.3 :ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX
:NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :ARM :GENCGC :ANSI-CL :COMMON-LISP
:ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES
:SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SBCL :UNIX)
;; CHARACTER-TYPE-INDEX
;; FIND-STANDARD-CASE-SYMBOL
;; TIMESTAMP
;; LATEST-TIMESTAMP-F
;; REGISTER-HOOK-FUNCTION
;; COERCE-CLASS
;; LIST-TO-HASH-SET
;; LEXICOGRAPHIC<=
;; STYLE-WARN
;; WITH-MUFFLED-CONDITIONS
;; PARAMETER-ERROR
;; SYMBOL-TEST-TO-FEATURE-EXPRESSION
;; #<PACKAGE "UIOP/VERSION">
;; #<PACKAGE "UIOP/VERSION">
;; VERSION<=
;; WITH-DEPRECATION
;; #<PACKAGE "UIOP/OS">
;; #<PACKAGE "UIOP/OS">
;; :OS-UNIX
;; GETENVP
;; IMPLEMENTATION-IDENTIFIER
;; HOSTNAME
;; CHDIR
;; PARSE-WINDOWS-SHORTCUT
;; #<PACKAGE "UIOP/PATHNAME">
;; #<PACKAGE "UIOP/PATHNAME">
;; WITH-PATHNAME-DEFAULTS
;; FILE-PATHNAME-P
;; ENSURE-DIRECTORY-PATHNAME
;; UNIX-NAMESTRING
;; WITH-ENOUGH-PATHNAME
;; WILDEN
;; *OUTPUT-TRANSLATION-FUNCTION*
;; #<PACKAGE "UIOP/FILESYSTEM">
;; #<PACKAGE "UIOP/FILESYSTEM">
;; PARSE-NATIVE-NAMESTRING
;; COLLECT-SUB*DIRECTORIES
;; RESOLVE-SYMLINKS*
;; ENSURE-PATHNAME
;; WITH-CURRENT-DIRECTORY
;; LISP-IMPLEMENTATION-PATHNAME-P
;; DELETE-DIRECTORY-TREE
;; #<PACKAGE "UIOP/STREAM">
;; #<PACKAGE "UIOP/STREAM">
;; #<SB-SYS:FD-STREAM for "standard error" {516D55F9}>
;; ENCODING-EXTERNAL-FORMAT
;; SAFE-READ-FROM-STRING
;; OUTPUT-STRING
;; INPUT-STRING
;; WITH-NULL-OUTPUT
;; SAFE-FORMAT!
;; STANDARD-EVAL-THUNK
;; WRITELN
;; WITH-STAGING-PATHNAME
;; FILE-OR-SYNONYM-STREAM-P
;; #<PACKAGE "UIOP/IMAGE">
;; #<PACKAGE "UIOP/IMAGE">
;; *IMAGE-DUMP-HOOK*
;; FATAL-CONDITION
;; SHELL-BOOLEAN-EXIT
;; CALL-IMAGE-DUMP-HOOK
;; RESTORE-IMAGE
;; CREATE-IMAGE
;; NIL
;; #<PACKAGE "UIOP/LISP-BUILD">
;; #<PACKAGE "UIOP/LISP-BUILD">
;; *BASE-BUILD-DIRECTORY*
;; WITH-OPTIMIZATION-SETTINGS
;; *UNINTERESTING-LOADER-CONDITIONS*
;; WITH-MUFFLED-LOADER-CONDITIONS
;; CHECK-LISP-COMPILE-RESULTS
;; WITH-SAVED-DEFERRED-WARNINGS
;; LOAD-FROM-STRING
;; COMBINE-FASLS
;; #<PACKAGE "UIOP/LAUNCH-PROGRAM">
;; #<PACKAGE "UIOP/LAUNCH-PROGRAM">
;; ESCAPE-SHELL-COMMAND
;; LAUNCH-PROGRAM
;; #<PACKAGE "UIOP/RUN-PROGRAM">
;; #<PACKAGE "UIOP/RUN-PROGRAM">
;; #<STANDARD-METHOD UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM (T T) {55FB77B1}>
;; #<STANDARD-METHOD UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM (T T) {5632ECC1}>
;; RUN-PROGRAM
;; #<PACKAGE "UIOP/CONFIGURATION">
;; #<PACKAGE "UIOP/CONFIGURATION">
;; UIOP-DIRECTORY
;; #<PACKAGE "UIOP/BACKWARD-DRIVER">
;; #<PACKAGE "UIOP/BACKWARD-DRIVER">
;; VERSION-COMPATIBLE-P
;; #<PACKAGE "UIOP/DRIVER">
;; T
;; T
;; #<PACKAGE "ASDF/UPGRADE">
;; #<PACKAGE "ASDF/UPGRADE">
;; NIL
;; NIL
;; WITH-ASDF-DEPRECATION
;; #<PACKAGE "ASDF/SESSION">
;; #<PACKAGE "ASDF/SESSION">
;; SYSDEF-ERROR
;; #<PACKAGE "ASDF/COMPONENT">
;; #<PACKAGE "ASDF/COMPONENT">
;; DUPLICATE-NAMES
;; #<STANDARD-METHOD ASDF/COMPONENT:COMPONENT-SYSTEM (COMPONENT) {552393D9}>
;; #<STANDARD-CLASS ASDF/COMPONENT:PARENT-COMPONENT>
;; COMPUTE-CHILDREN-BY-NAME
;; #<STANDARD-CLASS ASDF/COMPONENT:MODULE>
;; #<STANDARD-METHOD ASDF/COMPONENT:SOURCE-FILE-TYPE (FILE-COMPONENT
PARENT-COMPONENT) {55747AD9}>
;; #<STANDARD-METHOD ASDF/COMPONENT:COMPONENT-EXTERNAL-FORMAT (COMPONENT) {5579F441}>
;; #<STANDARD-METHOD ASDF/COMPONENT:AROUND-COMPILE-HOOK (COMPONENT) {5580B901}>
;; #<STANDARD-METHOD ASDF/COMPONENT:VERSION-SATISFIES (STRING T) {558B3931}>
;; SUB-COMPONENTS
;; #<PACKAGE "ASDF/OPERATION">
;; #<PACKAGE "ASDF/OPERATION">
;; NIL
;; #<STANDARD-METHOD COMMON-LISP:INITIALIZE-INSTANCE :AFTER (OPERATION) {55A8C809}>
;; #<STANDARD-METHOD ASDF/OPERATION:FIND-OPERATION (T STRING) {55B21979}>
;; #<PACKAGE "ASDF/SYSTEM">
;; #<PACKAGE "ASDF/SYSTEM">
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-ENTRY-POINT (COMPONENT) {55BAE411}>
;; RESET-SYSTEM-CLASS
;; COERCE-FILENAME
;; SYSTEM-LICENSE
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-BUILD-PATHNAME (COMPONENT) {5624FAE9}>
;; #<PACKAGE "ASDF/SYSTEM-REGISTRY">
;; #<PACKAGE "ASDF/SYSTEM-REGISTRY">
;; SYSDEF-CENTRAL-REGISTRY-SEARCH
;; #<PACKAGE "ASDF/ACTION">
;; #<PACKAGE "ASDF/ACTION">
;; OPERATION-DESIGNATOR
;; ACTION-COMPONENT
;; FIND-ACTION
;; DEFINE-CONVENIENCE-ACTION-METHODS
;; FORMAT-ACTION
;; WHILE-VISITING-ACTION
;; #<STANDARD-METHOD ASDF/ACTION:COMPONENT-DEPENDS-ON :AROUND (OPERATION
COMPONENT) {56EA7959}>
;; #<STANDARD-CLASS ASDF/ACTION:NON-PROPAGATING-OPERATION>
;; #<STANDARD-METHOD ASDF/ACTION:SIDEWAY-OPERATION (OPERATION) {51DC7F49}>
;; #<STANDARD-METHOD ASDF/ACTION:INPUT-FILES (SELFWARD-OPERATION COMPONENT) {5462A1E9}>
;; #<STANDARD-METHOD ASDF/ACTION:MARK-OPERATION-DONE (OPERATION COMPONENT) {54746A39}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T) {54BA27C9}>
;; #<PACKAGE "ASDF/LISP-ACTION">
;; #<PACKAGE "ASDF/LISP-ACTION">
;; #<STANDARD-CLASS ASDF/LISP-ACTION:CL-SOURCE-FILE.LSP>
;; #<STANDARD-CLASS ASDF/LISP-ACTION:BASIC-COMPILE-OP>
;; #<STANDARD-CLASS ASDF/LISP-ACTION:TEST-OP>
;; #<STANDARD-METHOD ASDF/ACTION:INPUT-FILES (PREPARE-OP SYSTEM) {54F0E001}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (COMPILE-OP SYSTEM) {5529BA09}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-OP STATIC-FILE) {555DBCC1}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (PREPARE-SOURCE-OP COMPONENT) {556C8E01}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-SOURCE-OP STATIC-FILE) {5585B919}>
;; #<STANDARD-METHOD ASDF/ACTION:OPERATION-DONE-P (TEST-OP SYSTEM) {55899379}>
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<STANDARD-METHOD COMMON-LISP:PRINT-OBJECT (MISSING-COMPONENT-OF-VERSION T) {55C8D6C1}>
;; #<STANDARD-METHOD ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-COMBINATION (T
(EQL
:VERSION)
T) {560D3561}>
;; #<PACKAGE "ASDF/FORCING">
;; #<PACKAGE "ASDF/FORCING">
;; #<STANDARD-METHOD ASDF/SESSION:FORCING (CONS) {564F5FC1}>
;; #<PACKAGE "ASDF/PLAN">
;; #<PACKAGE "ASDF/PLAN">
;; #<STANDARD-METHOD ASDF/PLAN:RECORD-DEPENDENCY (SEQUENTIAL-PLAN OPERATION
COMPONENT) {566580C9}>
;; NIL
;; +STATUS-VOID+
;; #<STANDARD-METHOD (COMMON-LISP:SETF ASDF/PLAN:ACTION-STATUS) :AFTER (T
SEQUENTIAL-PLAN
OPERATION
COMPONENT) {56A78E49}>
;; #<STANDARD-METHOD ASDF/PLAN:NEEDED-IN-IMAGE-P (OPERATION COMPONENT) {56AA1B49}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPUTE-ACTION-STAMP (T OPERATION COMPONENT) {56E02F31}>
;; ACTION-UP-TO-DATE-P
;; REQUIRED-COMPONENTS
;; #<STANDARD-METHOD ASDF/PLAN:MARK-AS-DONE (PLAN OPERATION COMPONENT) {522583F9}>
;; #<PACKAGE "ASDF/OPERATE">
;; #<PACKAGE "ASDF/OPERATE">
;; RECURSIVE-OPERATE
;; NIL
;; TEST-SYSTEM
;; ALREADY-LOADED-SYSTEMS
;; MODULE-PROVIDE-ASDF
;; NIL
;; #<PACKAGE "ASDF/FIND-SYSTEM">
;; #<PACKAGE "ASDF/FIND-SYSTEM">
;; MARK-COMPONENT-PRELOADED
;; #<PACKAGE "ASDF/PARSE-DEFSYSTEM">
;; #<PACKAGE "ASDF/PARSE-DEFSYSTEM">
;; DETERMINE-SYSTEM-DIRECTORY
;; CLASS-FOR-TYPE
;; NORMALIZE-VERSION
;; %REFRESH-COMPONENT-INLINE-METHODS
;; DEFSYSTEM
;; #<PACKAGE "ASDF/BUNDLE">
;; #<PACKAGE "ASDF/BUNDLE">
;; #<STANDARD-CLASS ASDF/BUNDLE:PREBUILT-SYSTEM>
;; NIL
;; USER-SYSTEM-P
;; USER-SYSTEM
;; SELECT-BUNDLE-OPERATION
;; #<STANDARD-METHOD ASDF/ACTION:MARK-OPERATION-DONE :AFTER (LOAD-BUNDLE-OP
SYSTEM) {57144D29}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (OPERATION COMPILED-FILE) {57212B31}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (LIB-OP PREBUILT-SYSTEM) {572ECBE9}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPONENT-DEPENDS-ON (LOAD-BUNDLE-OP
PRECOMPILED-SYSTEM) {51F4A419}>
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (BASIC-LOAD-COMPILED-CONCATENATED-SOURCE-OP
SYSTEM) {545A9631}>
;; #<PACKAGE "ASDF/PACKAGE-INFERRED-SYSTEM">
;; #<PACKAGE "ASDF/PACKAGE-INFERRED-SYSTEM">
;; SYSDEF-PACKAGE-INFERRED-SYSTEM-SEARCH
;; (DUMPER430::SYSTEM-SEARCH-FUNCTION SYSDEF-PACKAGE-INFERRED-SYSTEM-SEARCH
SYSDEF-CENTRAL-REGISTRY-SEARCH
SYSDEF-SOURCE-REGISTRY-SEARCH)
;; #<PACKAGE "ASDF/OUTPUT-TRANSLATIONS">
;; #<PACKAGE "ASDF/OUTPUT-TRANSLATIONS">
;; NIL
;; APPLY-OUTPUT-TRANSLATIONS
;; #<PACKAGE "ASDF/SOURCE-REGISTRY">
;; #<PACKAGE "ASDF/SOURCE-REGISTRY">
;; SYSDEF-SOURCE-REGISTRY-SEARCH
;; #<PACKAGE "ASDF/BACKWARD-INTERNALS">
;; #<PACKAGE "ASDF/BACKWARD-INTERNALS">
;; LOAD-SYSDEF
;; #<PACKAGE "ASDF/BACKWARD-INTERFACE">
;; #<PACKAGE "ASDF/BACKWARD-INTERFACE">
;; #<STANDARD-METHOD ASDF/PARSE-DEFSYSTEM:EXPLAIN (OPERATION COMPONENT) {566458C9}>
;; REQUIRE-SYSTEM
;; #<PACKAGE "ASDF/INTERFACE">
;; #<PACKAGE "ASDF/USER">
;; #<PACKAGE "ASDF/FOOTER">
;; #<PACKAGE "ASDF/FOOTER">
;; NIL
;; (MODULE-PROVIDE-ASDF SB-IMPL::MODULE-PROVIDE-CONTRIB)
;; NIL
;; NIL
;; loading system "asdf-finalizers"
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/pkgdcl.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (UIOP/PACKAGE:DEFINE-PACKAGE :ASDF-FINALIZERS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/pkgdcl-tmp74KGUNRZ.fasl
; compilation finished in 0:00:00.047
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/finalizers.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (IN-PACKAGE :ASDF-FINALIZERS)
; processing (DEFVAR *WARN-WHEN-FINALIZERS-OFF* ...)
; processing (DEFVAR *DEBUG-FINALIZERS* ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-ERROR ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-WARNING ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-SIMPLE-WARNING ...)
; processing (DEFINE-CONDITION MISSING-FINAL-FORMS ...)
; processing (DEFVAR *FINALIZERS*)
; processing (DEFVAR *FINALIZERS-DATA* ...)
; processing (DEFUN USING-FINALIZERS-P ...)
; processing (DEFUN RESET-FINALIZERS ...)
; processing (DEFUN DISABLE-FINALIZERS ...)
; processing (DEFMACRO FINAL-FORMS ...)
; processing (DEFMACRO FINAL-FORMS-INTERNAL ...)
; processing (DEFUN EXPAND-FINAL-FORMS ...)
; processing (DEFUN REGISTER-FINALIZER ...)
; processing (DEFUN REGISTER-FINAL-FORM ...)
; processing (DEFUN NO-FINALIZER-LEFT-BEHIND-P ...)
; processing (DEFUN ASSERT-NO-FINALIZER-LEFT-BEHIND ...)
; processing (DEFMACRO WITH-FINALIZERS ...)
; processing (DEFUN CALL-WITH-FINALIZERS ...)
; processing (DEFUN EVAL-AT-TOPLEVEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/finalizers-tmpCEL1YIM2.fasl
; compilation finished in 0:00:00.286
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/asdf-support.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (IN-PACKAGE :ASDF-FINALIZERS)
; processing (DEFUN COMPILE-CHECK-FINALIZERS ...)
; processing (DEFUN CHECK-FINALIZERS-AROUND-COMPILE ...)
; processing (DEFCLASS ASDF/INTERFACE::FINALIZED-CL-SOURCE-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/asdf-support-tmpHAMQABTV.fasl
; compilation finished in 0:00:00.047
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/initialization.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (IN-PACKAGE :ASDF-FINALIZERS)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/initialization-tmpUPMG0IBO.fasl
; compilation finished in 0:00:00.005
;; loading system "asdf-system-connections"
; compiling file "/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections.lisp" (written 23 DEC 2016 07:00:46 PM):
; processing (IN-PACKAGE :ASDF)
; processing (EXPORT (QUOTE #))
; processing (DEFCLASS SYSTEM-CONNECTION ...)
; processing (DEFUN MAP-SYSTEM-CONNECTIONS ...)
; processing (DEFMACRO DEFSYSTEM-CONNECTION ...)
; processing (DEFUN LOAD-CONNECTED-SYSTEMS ...)
; processing (DEFUN REQUIRED-SYSTEMS-LOADED-P ...)
; processing (UNLESS (FBOUNDP #) ...)
; file: /usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections.lisp
; in: DEFUN REGISTERED-SYSTEM
; (ASDF/BACKWARD-INTERFACE:SYSTEM-REGISTERED-P ASDF/INTERFACE::SYSTEM-NAME)
;
; caught STYLE-WARNING:
; DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function ASDF/BACKWARD-INTERFACE:SYSTEM-REGISTERED-P -- please update your code to use a newer API.
; The docstring for this function says:
; DEPRECATED. Return a generalized boolean that is true if a system of given NAME was registered already.
; NAME is a system designator, to be normalized by COERCE-NAME.
; The value returned if true is a pair of a timestamp and a system object.
;
; processing (DEFUN SYSTEM-LOADED-P ...)
; processing (DEFMETHOD OPERATE ...)
; processing (PUSHNEW :ASDF-SYSTEM-CONNECTIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections-tmpAKM32D0F.fasl
; compilation finished in 0:00:00.233
WARNING:
Lisp compilation had style-warnings while compiling
#<CL-SOURCE-FILE "asdf-system-connections" "dev" "asdf-system-connections">
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
;; loading system "cffi"
; compiling file "/usr/share/common-lisp/source/alexandria/package.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (DEFPACKAGE :ALEXANDRIA.1.0.0 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/package-tmp8UG37QJ5.fasl
; compilation finished in 0:00:00.018
; compiling file "/usr/share/common-lisp/source/alexandria/definitions.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN %REEVALUATE-CONSTANT ...)
; processing (DEFMACRO DEFINE-CONSTANT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/definitions-tmp65YV5VYW.fasl
; compilation finished in 0:00:00.106
; compiling file "/usr/share/common-lisp/source/alexandria/binding.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO IF-LET ...)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFMACRO WHEN-LET* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/binding-tmpGO4MNX7G.fasl
; compilation finished in 0:00:00.158
; compiling file "/usr/share/common-lisp/source/alexandria/strings.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFTYPE STRING-DESIGNATOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/strings-tmp9NXH2K1.fasl
; compilation finished in 0:00:00.007
; compiling file "/usr/share/common-lisp/source/alexandria/conditions.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN REQUIRED-ARGUMENT ...)
; processing (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; processing (DEFUN SIMPLE-STYLE-WARNING ...)
; processing (DEFINE-CONDITION SIMPLE-READER-ERROR ...)
; processing (DEFUN SIMPLE-READER-ERROR ...)
; processing (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...)
; processing (DEFUN SIMPLE-PARSE-ERROR ...)
; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; processing (DEFUN SIMPLE-PROGRAM-ERROR ...)
; processing (DEFMACRO IGNORE-SOME-CONDITIONS ...)
; processing (DEFMACRO UNWIND-PROTECT-CASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/conditions-tmp6B86GLV2.fasl
; compilation finished in 0:00:00.187
; compiling file "/usr/share/common-lisp/source/alexandria/symbols.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE ENSURE-SYMBOL))
; processing (DEFUN ENSURE-SYMBOL ...)
; processing (DEFUN MAYBE-INTERN ...)
; processing (DECLAIM (INLINE FORMAT-SYMBOL))
; processing (DEFUN FORMAT-SYMBOL ...)
; processing (DEFUN MAKE-KEYWORD ...)
; processing (DEFUN MAKE-GENSYM ...)
; processing (DEFUN MAKE-GENSYM-LIST ...)
; processing (DEFUN SYMBOLICATE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/symbols-tmpZWLLOVAH.fasl
; compilation finished in 0:00:00.137
; compiling file "/usr/share/common-lisp/source/alexandria/macros.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO WITH-GENSYMS ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFMACRO ONCE-ONLY ...)
; processing (DEFUN PARSE-BODY ...)
; processing (DEFUN PARSE-ORDINARY-LAMBDA-LIST ...)
; processing (DEFUN EXPAND-DESTRUCTURING-CASE ...)
; processing (DEFMACRO DESTRUCTURING-CASE ...)
; processing (DEFMACRO DESTRUCTURING-CCASE ...)
; processing (DEFMACRO DESTRUCTURING-ECASE ...)
; processing (DOLIST (NAME #) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/macros-tmpS9M8BVBG.fasl
; compilation finished in 0:00:00.700
; compiling file "/usr/share/common-lisp/source/alexandria/functions.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE ENSURE-FUNCTION))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ENSURE-FUNCTION ...)
; processing (DEFINE-MODIFY-MACRO ENSURE-FUNCTIONF/1 ...)
; processing (DEFMACRO ENSURE-FUNCTIONF ...)
; processing (DEFUN DISJOIN ...)
; processing (DEFUN CONJOIN ...)
; processing (DEFUN COMPOSE ...)
; processing (DEFINE-COMPILER-MACRO COMPOSE ...)
; processing (DEFUN MULTIPLE-VALUE-COMPOSE ...)
; processing (DEFINE-COMPILER-MACRO MULTIPLE-VALUE-COMPOSE ...)
; processing (DECLAIM (INLINE CURRY ...))
; processing (DEFUN CURRY ...)
; processing (DEFINE-COMPILER-MACRO CURRY ...)
; processing (DEFUN RCURRY ...)
; processing (DEFINE-COMPILER-MACRO RCURRY ...)
; processing (DECLAIM (NOTINLINE CURRY ...))
; processing (DEFMACRO NAMED-LAMBDA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/functions-tmp205IFRLS.fasl
; compilation finished in 0:00:00.485
; compiling file "/usr/share/common-lisp/source/alexandria/lists.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE SAFE-ENDP))
; processing (DEFUN SAFE-ENDP ...)
; processing (DEFUN ALIST-PLIST ...)
; processing (DEFUN PLIST-ALIST ...)
; processing (DECLAIM (INLINE RACONS))
; processing (DEFUN RACONS ...)
; processing (DEFINE-ALIST-GET ASSOC-VALUE ...)
; processing (DEFINE-ALIST-GET RASSOC-VALUE ...)
; processing (DEFUN MALFORMED-PLIST ...)
; processing (DEFMACRO DOPLIST ...)
; processing (DEFINE-MODIFY-MACRO APPENDF ...)
; processing (DEFINE-MODIFY-MACRO NCONCF ...)
; processing (DEFINE-MODIFY-MACRO UNIONF ...)
; processing (DEFINE-MODIFY-MACRO NUNIONF ...)
; processing (DEFINE-MODIFY-MACRO REVERSEF ...)
; processing (DEFINE-MODIFY-MACRO NREVERSEF ...)
; processing (DEFUN CIRCULAR-LIST ...)
; processing (DEFUN CIRCULAR-LIST-P ...)
; processing (DEFUN CIRCULAR-TREE-P ...)
; processing (DEFUN PROPER-LIST-P ...)
; processing (DEFTYPE PROPER-LIST ...)
; processing (DEFUN CIRCULAR-LIST-ERROR ...)
; processing (DEF PROPER-LIST-LENGTH ...)
; processing (DEF LASTCAR ...)
; processing (DEF (SETF LASTCAR) ...)
; processing (DEFUN MAKE-CIRCULAR-LIST ...)
; processing (DEFTYPE CIRCULAR-LIST ...)
; processing (DEFUN ENSURE-CAR ...)
; processing (DEFUN ENSURE-CONS ...)
; processing (DEFUN ENSURE-LIST ...)
; processing (DEFUN REMOVE-FROM-PLIST ...)
; processing (DEFUN DELETE-FROM-PLIST ...)
; processing (DEFINE-MODIFY-MACRO REMOVE-FROM-PLISTF ...)
; processing (DEFINE-MODIFY-MACRO DELETE-FROM-PLISTF ...)
; processing (DECLAIM (INLINE SANS))
; processing (DEFUN SANS ...)
; processing (DEFUN MAPPEND ...)
; processing (DEFUN SETP ...)
; processing (DEFUN SET-EQUAL ...)
; processing (DEFUN MAP-PRODUCT ...)
; processing (DEFUN FLATTEN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/lists-tmpBW6GBZVX.fasl
; compilation finished in 0:00:01.183
; compiling file "/usr/share/common-lisp/source/alexandria/types.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFTYPE ARRAY-INDEX ...)
; processing (DEFTYPE ARRAY-LENGTH ...)
; processing (FROB FIXNUM ...)
; processing (FROB INTEGER)
; processing (FROB RATIONAL)
; processing (FROB REAL)
; processing (FROB FLOAT)
; processing (FROB SHORT-FLOAT)
; processing (FROB SINGLE-FLOAT)
; processing (FROB DOUBLE-FLOAT)
; processing (FROB LONG-FLOAT)
; processing (DEFUN OF-TYPE ...)
; processing (DEFINE-COMPILER-MACRO OF-TYPE ...)
; processing (DECLAIM (INLINE TYPE=))
; processing (DEFUN TYPE= ...)
; processing (DEFINE-MODIFY-MACRO COERCEF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/types-tmpMDMI656Q.fasl
; compilation finished in 0:00:00.690
; compiling file "/usr/share/common-lisp/source/alexandria/io.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO WITH-OPEN-FILE* ...)
; processing (DEFMACRO WITH-INPUT-FROM-FILE ...)
; processing (DEFMACRO WITH-OUTPUT-TO-FILE ...)
; processing (DEFUN READ-STREAM-CONTENT-INTO-STRING ...)
; processing (DEFUN READ-FILE-INTO-STRING ...)
; processing (DEFUN WRITE-STRING-INTO-FILE ...)
; processing (DEFUN READ-STREAM-CONTENT-INTO-BYTE-VECTOR ...)
; processing (DEFUN READ-FILE-INTO-BYTE-VECTOR ...)
; processing (DEFUN WRITE-BYTE-VECTOR-INTO-FILE ...)
; processing (DEFUN COPY-FILE ...)
; processing (DEFUN COPY-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/io-tmpQN7VP0FI.fasl
; compilation finished in 0:00:00.971
; compiling file "/usr/share/common-lisp/source/alexandria/hash-tables.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO ENSURE-GETHASH ...)
; processing (DEFUN COPY-HASH-TABLE ...)
; processing (DECLAIM (INLINE MAPHASH-KEYS))
; processing (DEFUN MAPHASH-KEYS ...)
; processing (DECLAIM (INLINE MAPHASH-VALUES))
; processing (DEFUN MAPHASH-VALUES ...)
; processing (DEFUN HASH-TABLE-KEYS ...)
; processing (DEFUN HASH-TABLE-VALUES ...)
; processing (DEFUN HASH-TABLE-ALIST ...)
; processing (DEFUN HASH-TABLE-PLIST ...)
; processing (DEFUN ALIST-HASH-TABLE ...)
; processing (DEFUN PLIST-HASH-TABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/hash-tables-tmpNOSTK6D0.fasl
; compilation finished in 0:00:00.352
; compiling file "/usr/share/common-lisp/source/alexandria/control-flow.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN EXTRACT-FUNCTION-NAME ...)
; processing (DEFUN GENERATE-SWITCH-BODY ...)
; processing (DEFMACRO SWITCH ...)
; processing (DEFMACRO ESWITCH ...)
; processing (DEFMACRO CSWITCH ...)
; processing (DEFMACRO WHICHEVER ...)
; processing (DEFMACRO XOR ...)
; processing (DEFMACRO NTH-VALUE-OR ...)
; processing (DEFMACRO MULTIPLE-VALUE-PROG2 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/control-flow-tmp9RA72042.fasl
; compilation finished in 0:00:00.461
; compiling file "/usr/share/common-lisp/source/alexandria/arrays.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN COPY-ARRAY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/arrays-tmpGXZUHQQV.fasl
; compilation finished in 0:00:00.082
; compiling file "/usr/share/common-lisp/source/alexandria/sequences.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE COPY-SEQUENCE ...))
; processing (DEFUN SEQUENCE-OF-LENGTH-P ...)
; processing (DEFUN ROTATE-TAIL-TO-HEAD ...)
; processing (DEFUN ROTATE-HEAD-TO-TAIL ...)
; processing (DEFUN ROTATE ...)
; processing (DEFUN SHUFFLE ...)
; processing (DEFUN RANDOM-ELT ...)
; processing (DECLAIM (INLINE REMOVE/SWAPPED-ARGUMENTS))
; processing (DEFUN REMOVE/SWAPPED-ARGUMENTS ...)
; processing (DEFINE-MODIFY-MACRO REMOVEF ...)
; processing (DECLAIM (INLINE DELETE/SWAPPED-ARGUMENTS))
; processing (DEFUN DELETE/SWAPPED-ARGUMENTS ...)
; processing (DEFINE-MODIFY-MACRO DELETEF ...)
; processing (DEFTYPE PROPER-SEQUENCE ...)
; processing (WHEN (AND # ...) ...)
; processing (DECLAIM (FTYPE # ...))
; processing (SETF (SYMBOL-FUNCTION #) ...)
; processing (DEFINE-COMPILER-MACRO EMPTYP ...)
; processing (DEFUN LENGTH= ...)
; file: /usr/share/common-lisp/source/alexandria/sequences.lisp
; in: DEFUN LENGTH=
; (LENGTH FIRST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFINE-COMPILER-MACRO LENGTH= ...)
; processing (DEFUN COPY-SEQUENCE ...)
; processing (DEFUN FIRST-ELT ...)
; processing (DEFUN (SETF FIRST-ELT) ...)
; processing (DEFUN LAST-ELT ...)
; processing (DEFUN (SETF LAST-ELT) ...)
; processing (DEFUN STARTS-WITH-SUBSEQ ...)
; processing (DEFUN ENDS-WITH-SUBSEQ ...)
; processing (DEFUN STARTS-WITH ...)
; processing (DEFUN ENDS-WITH ...)
; processing (DEFUN MAP-COMBINATIONS ...)
; processing (DEFUN MAP-PERMUTATIONS ...)
; processing (DEFUN MAP-DERANGEMENTS ...)
; file: /usr/share/common-lisp/source/alexandria/sequences.lisp
; in: DEFUN MAP-DERANGEMENTS
; (MAKE-ARRAY ALEXANDRIA.1.0.0::SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)
; --> TRULY-THE
; ==>
; (SB-KERNEL:ALLOCATE-VECTOR 202 (THE SB-INT:INDEX LENGTH)
; (CEILING (TRULY-THE SB-INT:INDEX LENGTH) 32))
;
; note: could not stack allocate:
; (MAKE-ARRAY SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)
; processing (DECLAIM (NOTINLINE SEQUENCE-OF-LENGTH-P))
; processing (DEFUN EXTREMUM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/sequences-tmp1SBDRUB4.fasl
; compilation finished in 0:00:01.336
; compiling file "/usr/share/common-lisp/source/alexandria/numbers.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE CLAMP))
; processing (DEFUN CLAMP ...)
; processing (DEFUN GAUSSIAN-RANDOM ...)
; processing (DECLAIM (INLINE IOTA))
; processing (DEFUN IOTA ...)
; processing (DECLAIM (INLINE MAP-IOTA))
; processing (DEFUN MAP-IOTA ...)
; processing (DECLAIM (INLINE LERP))
; processing (DEFUN LERP ...)
; processing (DECLAIM (INLINE MEAN))
; processing (DEFUN MEAN ...)
; processing (DEFUN MEDIAN ...)
; processing (DECLAIM (INLINE VARIANCE))
; processing (DEFUN VARIANCE ...)
; processing (DECLAIM (INLINE STANDARD-DEVIATION))
; processing (DEFUN STANDARD-DEVIATION ...)
; processing (DEFINE-MODIFY-MACRO MAXF ...)
; processing (DEFINE-MODIFY-MACRO MINF ...)
; processing (DEFCONSTANT +FACTORIAL-BISECTION-RANGE-LIMIT+ ...)
; processing (DEFCONSTANT +FACTORIAL-DIRECT-MULTIPLICATION-LIMIT+ ...)
; processing (DEFUN %MULTIPLY-RANGE ...)
; processing (DECLAIM (INLINE FACTORIAL))
; processing (DEFUN %FACTORIAL ...)
; processing (DEFUN FACTORIAL ...)
; processing (DEFUN BINOMIAL-COEFFICIENT ...)
; processing (DEFUN SUBFACTORIAL ...)
; processing (DEFUN COUNT-PERMUTATIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/numbers-tmpFJI67R2A.fasl
; compilation finished in 0:00:00.936
; compiling file "/usr/share/common-lisp/source/alexandria/features.lisp" (written 25 JAN 2020 07:14:40 PM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN FEATUREP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/alexandria/features-tmp2LAB0LT0.fasl
; compilation finished in 0:00:00.082
; compiling file "/usr/share/common-lisp/source/trivial-features/src/tf-sbcl.lisp" (written 15 JAN 2020 01:58:08 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (PUSHNEW (WITH-ALIEN # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-features/src/tf-sbcl-tmp5G8XXQL5.fasl
; compilation finished in 0:00:00.039
; compiling file "/usr/share/common-lisp/source/babel/src/packages.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:BABEL-ENCODINGS ...)
; processing (DEFPACKAGE #:BABEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/packages-tmp70X8ZE5V.fasl
; compilation finished in 0:00:00.017
; compiling file "/usr/share/common-lisp/source/babel/src/encodings.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFCLASS CHARACTER-ENCODING ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFVAR *SUPPORTED-CHARACTER-ENCODINGS* ...)
; processing (DEFUN LIST-CHARACTER-ENCODINGS ...)
; processing (DEFVAR *CHARACTER-ENCODINGS* ...)
; processing (DEFVAR *DEFAULT-CHARACTER-ENCODING* ...)
; processing (DEFUN GET-CHARACTER-ENCODING ...)
; processing (DEFMETHOD AMBIGUOUS-ENCODING-P ...)
; processing (DEFUN NOTICE-CHARACTER-ENCODING ...)
; processing (DEFMACRO DEFINE-CHARACTER-ENCODING ...)
; processing (DEFUN MAKE-FIXED-WIDTH-COUNTER ...)
; processing (DEFUN MAKE-DUMMY-CODER ...)
; processing (DEFCLASS ABSTRACT-MAPPING ...)
; processing (DEFCLASS CONCRETE-MAPPING ...)
; processing (DEFPARAMETER *ABSTRACT-MAPPINGS* ...)
; processing (DEFUN GET-ABSTRACT-MAPPING ...)
; processing (DEFUN (SETF GET-ABSTRACT-MAPPING) ...)
; processing (DEFUN %REGISTER-MAPPING-PART ...)
; processing (DEFMACRO DEFINE-ENCODER ...)
; processing (DEFMACRO DEFINE-DECODER ...)
; processing (DEFMACRO DEFINE-OCTET-COUNTER ...)
; processing (DEFMACRO DEFINE-CODE-POINT-COUNTER ...)
; processing (DEFUN INSTANTIATE-ENCODER ...)
; processing (DEFUN INSTANTIATE-DECODER ...)
; processing (DEFUN INSTANTIATE-CODE-POINT-COUNTER ...)
; processing (DEFUN INSTANTIATE-OCTET-COUNTER ...)
; processing (DEFMACRO INSTANTIATE-CONCRETE-MAPPINGS ...)
; processing (DEFCONSTANT +DEFAULT-SUBSTITUTION-CODE-POINT+ ...)
; processing (DEFTYPE UB8 ...)
; processing (DEFTYPE CODE-POINT ...)
; processing (DEFMACRO DEFINE-UNIBYTE-ENCODER ...)
; processing (DEFMACRO DEFINE-UNIBYTE-DECODER ...)
; processing (DEFVAR *SUPPRESS-CHARACTER-CODING-ERRORS* ...)
; processing (DEFINE-CONDITION CHARACTER-CODING-ERROR ...)
; processing (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...)
; processing (DECLAIM (INLINE ENCODING-ERROR))
; processing (DEFUN ENCODING-ERROR ...)
; processing (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...)
; processing (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...)
; processing (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...)
; processing (DECLAIM (INLINE DECODING-ERROR))
; processing (DEFUN DECODING-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/encodings-tmpRJ7B84T0.fasl
; compilation finished in 0:00:01.270
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ascii.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :ASCII ...)
; processing (DEFINE-UNIBYTE-ENCODER :ASCII ...)
; processing (DEFINE-UNIBYTE-DECODER :ASCII ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ascii-tmpOMGCSPAB.fasl
; compilation finished in 0:00:00.068
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ebcdic.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :EBCDIC-US ...)
; processing (DEFINE-CONSTANT +EBCDIC-DECODE-TABLE+ ...)
; processing (DEFINE-CONSTANT +EBCDIC-ENCODE-TABLE+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :EBCDIC-US ...)
; processing (DEFINE-UNIBYTE-DECODER :EBCDIC-US ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-tmpLEWWGRGS.fasl
; compilation finished in 0:00:00.159
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ebcdic-int.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :EBCDIC-INTERNATIONAL ...)
; processing (DEFPARAMETER +EBCDIC-INT-TO-UNICODE+ ...)
; processing (DEFPARAMETER +UNICODE-UPTO-AC-EBCDIC-INT+ ...)
; processing (DEFPARAMETER +UNICODE-0410-0450-EBCDIC-INT+ ...)
; processing (DEFINE-UNIBYTE-DECODER :EBCDIC-INTERNATIONAL ...)
; processing (DEFINE-UNIBYTE-ENCODER :EBCDIC-INTERNATIONAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-int-tmp2VH9CUXA.fasl
; compilation finished in 0:00:00.072
; compiling file "/usr/share/common-lisp/source/babel/src/enc-iso-8859.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-1 ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-1 ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-1 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-2 ...)
; processing (DEFINE-CONSTANT +UNICODE-00A0-0180-TO-ISO-8859-2+ ...)
; processing (DEFINE-CONSTANT +UNICODE-02C0-02E0-TO-ISO-8859-2+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-2 ...)
; processing (DEFINE-CONSTANT +ISO-8859-2-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-2 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-3 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-100-TO-ISO-8859-3+ ...)
; processing (DEFINE-CONSTANT +UNICODE-108-180-TO-ISO-8859-3+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2D8-2E0-TO-ISO-8859-3+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-3 ...)
; processing (DEFINE-CONSTANT +ISO-8859-3-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-3 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-4 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-4+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2C0-2E0-TO-ISO-8859-4+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-4 ...)
; processing (DEFINE-CONSTANT +ISO-8859-4-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-4 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-5 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-B0-TO-ISO-8859-5+ ...)
; processing (DEFINE-CONSTANT +UNICODE-400-460-TO-ISO-8859-5+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-5 ...)
; processing (DEFINE-CONSTANT +ISO-8859-5-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-5 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-6 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-B0-TO-ISO-8859-6+ ...)
; processing (DEFINE-CONSTANT +UNICODE-608-658-TO-ISO-8859-6+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-6 ...)
; processing (DEFINE-CONSTANT +ISO-8859-6-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-6 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-7 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-C0-TO-ISO-8859-7+ ...)
; processing (DEFINE-CONSTANT +UNICODE-378-3D0-TO-ISO-8859-7+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2010-2020-TO-ISO-8859-7+ ...)
; processing (DEFINE-CONSTANT +UNICODE-20AC-20B0-TO-ISO-8859-7+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-7 ...)
; processing (DEFINE-CONSTANT +ISO-8859-7-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-7 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-8 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-F8-TO-ISO-8859-8+ ...)
; processing (DEFINE-CONSTANT +UNICODE-5D0-5F0-TO-ISO-8859-8+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2008-2018-TO-ISO-8859-8+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-8 ...)
; processing (DEFINE-CONSTANT +ISO-8859-8-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-8 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-9 ...)
; processing (DEFINE-CONSTANT +UNICODE-D0-100-TO-ISO-8859-9+ ...)
; processing (DEFINE-CONSTANT +UNICODE-118-160-TO-ISO-8859-9+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-9 ...)
; processing (DEFINE-CONSTANT +ISO-8859-9-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-9 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-10 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-10+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-10 ...)
; processing (DEFINE-CONSTANT +ISO-8859-10-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-10 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-11 ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-11 ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-11 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-13 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-13+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2018-2020-TO-ISO-8859-13+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-13 ...)
; processing (DEFINE-CONSTANT +ISO-8859-13-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-13 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-14 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-100-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-108-128-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-170-180-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-1E00-1E88-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-1EF0-1EF8-TO-ISO-8859-14+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-14 ...)
; processing (DEFINE-CONSTANT +ISO-8859-14-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-14 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-15 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-100-TO-ISO-8859-15+ ...)
; processing (DEFINE-CONSTANT +UNICODE-150-180-TO-ISO-8859-15+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-15 ...)
; processing (DEFINE-CONSTANT +ISO-8859-15-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-15 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-16 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-16+ ...)
; processing (DEFINE-CONSTANT +UNICODE-218-220-TO-ISO-8859-16+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2018-2020-TO-ISO-8859-16+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-16 ...)
; processing (DEFINE-CONSTANT +ISO-8859-16-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-16 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-iso-8859-tmp21MKT5OO.fasl
; compilation finished in 0:00:00.989
; compiling file "/usr/share/common-lisp/source/babel/src/enc-unicode.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFCONSTANT +REPL+ ...)
; processing (DEFCONSTANT +BYTE-ORDER-MARK-CODE+ ...)
; processing (DEFCONSTANT +SWAPPED-BYTE-ORDER-MARK-CODE+ ...)
; processing (DEFCONSTANT +SWAPPED-BYTE-ORDER-MARK-CODE-32+ ...)
; processing (DEFMACRO F-ASH ...)
; processing (DEFMACRO F-LOGIOR ...)
; processing (DEFMACRO F-LOGAND ...)
; processing (DEFMACRO F-LOGXOR ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-8 ...)
; processing (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...)
; processing (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...)
; processing (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...)
; processing (DEFINE-OCTET-COUNTER :UTF-8 ...)
; processing (DEFINE-CODE-POINT-COUNTER :UTF-8 ...)
; processing (DEFINE-ENCODER :UTF-8 ...)
; processing (DEFINE-DECODER :UTF-8 ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-8B ...)
; processing (DEFINE-OCTET-COUNTER :UTF-8B ...)
; processing (DEFINE-CODE-POINT-COUNTER :UTF-8B ...)
; processing (DEFINE-ENCODER :UTF-8B ...)
; processing (DEFINE-DECODER :UTF-8B ...)
; processing (DEFMACRO UTF16-OCTET-COUNTER ...)
; processing (DEFMACRO UTF-16-COMBINE-SURROGATE-PAIRS ...)
; processing (DEFMACRO DEFINE-UTF-16 ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-16 ...)
; processing (DEFINE-UTF-16 :UTF-16)
; processing (DEFINE-CHARACTER-ENCODING :UTF-16LE ...)
; processing (DEFINE-UTF-16 :UTF-16LE ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-16BE ...)
; processing (DEFINE-UTF-16 :UTF-16BE ...)
; processing (DEFMACRO DEFINE-UCS ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-32 ...)
; processing (DEFINE-UCS :UTF-32 ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-32LE ...)
; processing (DEFINE-UCS :UTF-32LE ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-32BE ...)
; processing (DEFINE-UCS :UTF-32BE ...)
; processing (DEFINE-CHARACTER-ENCODING :UCS-2 ...)
; processing (DEFINE-UCS :UCS-2 ...)
; processing (DEFINE-CHARACTER-ENCODING :UCS-2LE ...)
; processing (DEFINE-UCS :UCS-2LE ...)
; processing (DEFINE-CHARACTER-ENCODING :UCS-2BE ...)
; processing (DEFINE-UCS :UCS-2BE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-unicode-tmpMXTBQGWB.fasl
; compilation finished in 0:00:02.134
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp1251.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :CP1251 ...)
; processing (DEFINE-CONSTANT +CP1251-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :CP1251 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-BF-TO-CP1251+ ...)
; processing (DEFINE-CONSTANT +UNICODE-0-97-TO-CP1251+ ...)
; processing (DEFINE-CONSTANT +UNICODE-10-3F-TO-CP1251+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :CP1251 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1251-tmpPPC4Z10Q.fasl
; compilation finished in 0:00:00.081
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp1252.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :CP1252 ...)
; processing (DEFINE-CONSTANT +CP1252-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :CP1252 ...)
; processing (DEFINE-CONSTANT +UNICODE-0152-017E-CP1252+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2013-203A-CP1252+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :CP1252 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1252-tmpRD3N4073.fasl
; compilation finished in 0:00:00.073
; compiling file "/usr/share/common-lisp/source/babel/src/jpn-table.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFVAR *CP932-ONLY* ...)
; processing (DEFVAR *EUCJP-ONLY* ...)
; processing (DEFVAR *EUCJP* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/jpn-table-tmpFHOV2EXD.fasl
; compilation finished in 0:00:01.111
; compiling file "/usr/share/common-lisp/source/babel/src/enc-jpn.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFVAR *EUCJP-TO-UCS-HASH* ...)
; processing (DEFVAR *UCS-TO-EUCJP-HASH* ...)
; processing (DEFVAR *CP932-TO-UCS-HASH* ...)
; processing (DEFVAR *UCS-TO-CP932-HASH* ...)
; processing (DOLIST (I #) ...)
; processing (FLET (#) ...)
; processing (LOOP FOR ...)
; processing (LOOP FOR ...)
; processing (LET (#) ...)
; processing (DEFUN EUCJP-TO-UCS ...)
; processing (DEFUN UCS-TO-EUCJP ...)
; processing (DEFUN CP932-TO-UCS ...)
; processing (DEFUN UCS-TO-CP932 ...)
; processing (DEFINE-CHARACTER-ENCODING :EUCJP ...)
; processing (DEFINE-OCTET-COUNTER :EUCJP ...)
; processing (DEFINE-CODE-POINT-COUNTER :EUCJP ...)
; processing (DEFINE-ENCODER :EUCJP ...)
; processing (DEFINE-DECODER :EUCJP ...)
; processing (DEFINE-CHARACTER-ENCODING :CP932 ...)
; processing (DEFINE-OCTET-COUNTER :CP932 ...)
; processing (DEFINE-CODE-POINT-COUNTER :CP932 ...)
; processing (DEFINE-ENCODER :CP932 ...)
; processing (DEFINE-DECODER :CP932 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-jpn-tmp5P00NUE.fasl
; compilation finished in 0:00:00.483
; compiling file "/usr/share/common-lisp/source/babel/src/enc-gbk.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFVAR *GBK-UNICODE-MAPPING*)
; processing (DEFCONSTANT +GBK2-OFFSET+ ...)
; processing (DEFCONSTANT +GBK3-OFFSET+ ...)
; processing (DEFCONSTANT +GBK4-OFFSET+ ...)
; processing (DEFCONSTANT +GBK1-OFFSET+ ...)
; processing (DEFCONSTANT +GBK5-OFFSET+ ...)
; processing (DEFINE-CHARACTER-ENCODING :GBK ...)
; processing (DEFINE-CONDITION INVALID-GBK-BYTE ...)
; processing (DEFINE-CONDITION INVALID-GBK-CHARACTER ...)
; processing (DEFINE-OCTET-COUNTER :GBK ...)
; processing (DEFINE-CODE-POINT-COUNTER :GBK ...)
; processing (DEFINE-ENCODER :GBK ...)
; processing (DEFINE-DECODER :GBK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-gbk-tmp94JO3ZTC.fasl
; compilation finished in 0:00:00.215
; compiling file "/usr/share/common-lisp/source/babel/src/enc-koi8.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :KOI8-RU ...)
; processing (DEFINE-CONSTANT +KOI8-RU-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :KOI8-RU ...)
; processing (DEFINE-CONSTANT +UNICODE-04->KOI8-RU+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :KOI8-RU ...)
; processing (DEFINE-CHARACTER-ENCODING :KOI8-R ...)
; processing (DEFINE-CONSTANT +KOI8-R-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :KOI8-R ...)
; processing (DEFINE-CONSTANT +UNICODE-X04->KOI8-R+ ...)
; processing (DEFINE-CONSTANT +UNICODE-X25->KOI8-R+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :KOI8-R ...)
; processing (DEFINE-CHARACTER-ENCODING :KOI8-U ...)
; processing (DEFINE-CONSTANT +KOI8-U-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :KOI8-U ...)
; processing (DEFINE-CONSTANT +UNICODE-X04->KOI8-U+ ...)
; processing (DEFINE-CONSTANT +UNICODE-X25->KOI8-U+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :KOI8-U ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-koi8-tmp6OFDFVAR.fasl
; compilation finished in 0:00:00.226
; compiling file "/usr/share/common-lisp/source/babel/src/external-format.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL)
; processing (DEFVAR *DEFAULT-EOL-STYLE* ...)
; processing (DEFTYPE EOL-STYLE ...)
; processing (DEFCLASS EXTERNAL-FORMAT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT ...)
; processing (DEFUN ENSURE-EXTERNAL-FORMAT ...)
; processing (DEFUN EXTERNAL-FORMAT-EQUAL ...)
; processing (DECLAIM (INLINE LOOKUP-MAPPING))
; processing (DEFUN LOOKUP-MAPPING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/external-format-tmpRYWTYMDY.fasl
; compilation finished in 0:00:00.168
; compiling file "/usr/share/common-lisp/source/babel/src/strings.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL)
; processing (CASE (EVAL CHAR-CODE-LIMIT) ...)
; processing (DEFMACRO UB-GET ...)
; processing (DEFMACRO UB-SET ...)
; processing (DEFMACRO STRING-GET ...)
; processing (DEFMACRO STRING-SET ...)
; processing (DEFCONSTANT UNICODE-CHAR-CODE-LIMIT ...)
; processing (DEFTYPE UNICODE-CHAR ...)
; processing (DEFTYPE SIMPLE-UNICODE-STRING ...)
; processing (DEFTYPE UNICODE-STRING ...)
; processing (DEFPARAMETER *STRING-VECTOR-MAPPINGS* ...)
; processing (DEFPARAMETER *SIMPLE-BASE-STRING-VECTOR-MAPPINGS* ...)
; processing (DEFUN CHECK-VECTOR-BOUNDS ...)
; processing (DEFMACRO WITH-SIMPLE-VECTOR ...)
; processing (DEFMACRO WITH-CHECKED-SIMPLE-VECTOR ...)
; processing (DECLAIM (INLINE OCTETS-TO-STRING ...))
; processing (DEFUN OCTETS-TO-STRING ...)
; processing (DEFUN BOM-VECTOR ...)
; processing (DEFUN STRING-TO-OCTETS ...)
; processing (DEFUN CONCATENATE-STRINGS-TO-OCTETS ...)
; processing (DEFUN STRING-SIZE-IN-OCTETS ...)
; processing (DEFUN VECTOR-SIZE-IN-CHARS ...)
; processing (DECLAIM (NOTINLINE OCTETS-TO-STRING ...))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/strings-tmpW78F18LW.fasl
; compilation finished in 0:00:24.432
; compiling file "/usr/share/common-lisp/source/babel/src/gbk-map.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFPARAMETER *GBK-UNICODE-MAPPING* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/gbk-map-tmpWUHTUDVN.fasl
; compilation finished in 0:00:00.490
; compiling file "/usr/share/common-lisp/source/babel/src/sharp-backslash.lisp" (written 16 JAN 2020 03:33:26 PM):
; processing (IN-PACKAGE #:BABEL)
; processing (DEFUN SHARP-BACKSLASH-READER ...)
; processing (DEFUN MAKE-SHARP-BACKSLASH-READER ...)
; processing (DEFMACRO ENABLE-SHARP-BACKSLASH-SYNTAX ...)
; processing (DEFUN SET-SHARP-BACKSLASH-SYNTAX-IN-READTABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/babel/src/sharp-backslash-tmpCK73UFEK.fasl
; compilation finished in 0:00:00.061
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (DEFPACKAGE #:CFFI-SYS ...)
; processing (IN-PACKAGE #:CFFI-SYS)
; processing (PUSHNEW (QUOTE FLAT-NAMESPACE) ...)
; processing (DECLAIM (INLINE CANONICALIZE-SYMBOL-NAME-CASE))
; processing (DEFUN CANONICALIZE-SYMBOL-NAME-CASE ...)
; processing (DEFTYPE FOREIGN-POINTER ...)
; processing (DECLAIM (INLINE POINTERP))
; processing (DEFUN POINTERP ...)
; processing (DECLAIM (INLINE POINTER-EQ))
; processing (DEFUN POINTER-EQ ...)
; processing (DECLAIM (INLINE NULL-POINTER))
; processing (DEFUN NULL-POINTER ...)
; processing (DECLAIM (INLINE NULL-POINTER-P))
; processing (DEFUN NULL-POINTER-P ...)
; processing (DECLAIM (INLINE INC-POINTER))
; processing (DEFUN INC-POINTER ...)
; processing (DECLAIM (INLINE MAKE-POINTER))
; processing (DEFUN MAKE-POINTER ...)
; processing (DECLAIM (INLINE POINTER-ADDRESS))
; processing (DEFUN POINTER-ADDRESS ...)
; processing (DECLAIM (INLINE %FOREIGN-ALLOC))
; processing (DEFUN %FOREIGN-ALLOC ...)
; processing (DECLAIM (INLINE FOREIGN-FREE))
; processing (DEFUN FOREIGN-FREE ...)
; processing (DEFMACRO WITH-FOREIGN-POINTER ...)
; processing (DECLAIM (INLINE MAKE-SHAREABLE-BYTE-VECTOR))
; processing (DEFUN MAKE-SHAREABLE-BYTE-VECTOR ...)
; processing (DEFMACRO WITH-POINTER-TO-VECTOR-DATA ...)
; processing (DEFMACRO DEFINE-MEM-ACCESSORS ...)
; processing (DEFMACRO DEFINE-TYPE-MAPPING ...)
; processing (DEFINE-TYPE-MAPPING (# # ...) ...)
; processing (DEFUN %FOREIGN-TYPE-SIZE ...)
; processing (DEFUN %FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFUN FOREIGN-FUNCALL-TYPE-AND-ARGS ...)
; processing (DEFMACRO %%FOREIGN-FUNCALL ...)
; processing (DEFMACRO %FOREIGN-FUNCALL ...)
; processing (DEFMACRO %FOREIGN-FUNCALL-POINTER ...)
; processing (DEFVAR *CALLBACKS* ...)
; processing (DEFMACRO %DEFCALLBACK ...)
; processing (DEFUN %CALLBACK ...)
; processing (DECLAIM (INLINE %LOAD-FOREIGN-LIBRARY))
; processing (DEFUN %LOAD-FOREIGN-LIBRARY ...)
; processing (DEFUN UNLOAD-SHARED-OBJECT-PRESENT-P ...)
; processing (DEFUN %CLOSE-FOREIGN-LIBRARY ...)
; processing (DEFUN NATIVE-NAMESTRING ...)
; processing (DEFUN %FOREIGN-SYMBOL-POINTER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl-tmpEBEIAP0J.fasl
; compilation finished in 0:00:02.144
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/package.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:CFFI ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/package-tmpSE943D3D.fasl
; compilation finished in 0:00:00.019
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/utils.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFMACRO DISCARD-DOCSTRING ...)
; processing (DEFUN SINGLE-BIT-P ...)
; processing (DEFUN WARN-IF-KW-OR-BELONGS-TO-CL ...)
; processing (DEFINE-CONDITION OBSOLETE-ARGUMENT-WARNING ...)
; processing (DEFUN WARN-OBSOLETE-ARGUMENT ...)
; processing (DEFUN SPLIT-IF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/utils-tmpN5RKE5P2.fasl
; compilation finished in 0:00:00.162
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/libraries.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFUN EXPLODE-PATH-ENVIRONMENT-VARIABLE ...)
; processing (DEFUN DARWIN-FALLBACK-LIBRARY-PATH ...)
; processing (DEFVAR *FOREIGN-LIBRARY-DIRECTORIES* ...)
; processing (DEFUN FALLBACK-DARWIN-FRAMEWORK-DIRECTORIES ...)
; processing (DEFVAR *DARWIN-FRAMEWORK-DIRECTORIES* ...)
; processing (DEFUN MINI-EVAL ...)
; processing (DEFUN PARSE-DIRECTORIES ...)
; processing (DEFUN FIND-FILE ...)
; processing (DEFUN FIND-DARWIN-FRAMEWORK ...)
; processing (DEFVAR *FOREIGN-LIBRARIES* ...)
; processing (DEFCLASS FOREIGN-LIBRARY ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFINE-CONDITION FOREIGN-LIBRARY-UNDEFINED-ERROR ...)
; processing (DEFUN GET-FOREIGN-LIBRARY ...)
; processing (DEFUN (SETF GET-FOREIGN-LIBRARY) ...)
; processing (DEFUN FOREIGN-LIBRARY-TYPE ...)
; processing (DEFUN FOREIGN-LIBRARY-PATHNAME ...)
; processing (DEFUN %FOREIGN-LIBRARY-SPEC ...)
; processing (DEFUN FOREIGN-LIBRARY-SPEC ...)
; processing (DEFUN FOREIGN-LIBRARY-OPTIONS ...)
; processing (DEFUN FOREIGN-LIBRARY-SEARCH-PATH ...)
; processing (DEFUN FOREIGN-LIBRARY-LOADED-P ...)
; processing (DEFUN LIST-FOREIGN-LIBRARIES ...)
; processing (DEFUN CLEAN-SPEC-UP ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN REGISTER-FOREIGN-LIBRARY ...)
; processing (DEFMACRO DEFINE-FOREIGN-LIBRARY ...)
; processing (DEFINE-CONDITION LOAD-FOREIGN-LIBRARY-ERROR ...)
; processing (DEFUN READ-NEW-VALUE ...)
; processing (DEFUN FL-ERROR ...)
; processing (DEFUN LOAD-DARWIN-FRAMEWORK ...)
; processing (DEFUN REPORT-SIMPLE-ERROR ...)
; processing (DEFUN LOAD-FOREIGN-LIBRARY-PATH ...)
; processing (DEFUN TRY-FOREIGN-LIBRARY-ALTERNATIVES ...)
; processing (DEFPARAMETER *CFFI-FEATURE-SUFFIX-MAP* ...)
; processing (DEFUN DEFAULT-LIBRARY-SUFFIX ...)
; processing (DEFUN LOAD-FOREIGN-LIBRARY-HELPER ...)
; processing (DEFUN %DO-LOAD-FOREIGN-LIBRARY ...)
; processing (DEFUN FILTER-PATHNAME ...)
; processing (DEFUN LOAD-FOREIGN-LIBRARY ...)
; processing (DEFMACRO USE-FOREIGN-LIBRARY ...)
; processing (DEFUN CLOSE-FOREIGN-LIBRARY ...)
; processing (DEFUN RELOAD-FOREIGN-LIBRARIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/libraries-tmpNQZ6T1LT.fasl
; compilation finished in 0:00:01.027
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/early-types.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFVAR *TYPE-PARSERS* ...)
; processing (DEFINE-CONDITION CFFI-ERROR ...)
; processing (DEFINE-CONDITION FOREIGN-TYPE-ERROR ...)
; processing (DEFUN FOREIGN-TYPE-ERROR/COMPOUND-NAME ...)
; processing (DEFINE-CONDITION SIMPLE-FOREIGN-TYPE-ERROR ...)
; processing (DEFUN SIMPLE-FOREIGN-TYPE-ERROR ...)
; processing (DEFINE-CONDITION UNDEFINED-FOREIGN-TYPE-ERROR ...)
; processing (DEFUN UNDEFINED-FOREIGN-TYPE-ERROR ...)
; processing (DEFTYPE C-NAMESPACE-NAME ...)
; processing (DEFUN FIND-TYPE-PARSER ...)
; processing (DEFUN (SETF FIND-TYPE-PARSER) ...)
; processing (DEFUN UNDEFINE-FOREIGN-TYPE ...)
; processing (DEFMACRO DEFINE-PARSE-METHOD ...)
; processing (DEFUN NOTICE-FOREIGN-TYPE ...)
; processing (DEFGENERIC CANONICALIZE ...)
; processing (DEFGENERIC AGGREGATEP ...)
; processing (DEFGENERIC FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFGENERIC FOREIGN-TYPE-SIZE ...)
; processing (DEFGENERIC UNPARSE-TYPE ...)
; processing (DEFCLASS FOREIGN-TYPE ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFCLASS NAMED-FOREIGN-TYPE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFCLASS FOREIGN-BUILT-IN-TYPE ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFVAR *BUILT-IN-FOREIGN-TYPES* ...)
; processing (DEFMACRO DEFINE-BUILT-IN-FOREIGN-TYPE ...)
; processing (DEFCLASS FOREIGN-POINTER-TYPE ...)
; processing (LET (#) ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC BARE-STRUCT-TYPE-P ...)
; processing (DEFMETHOD BARE-STRUCT-TYPE-P ...)
; processing (DEFCLASS FOREIGN-STRUCT-TYPE ...)
; processing (DEFUN SLOTS-IN-ORDER ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFCLASS FOREIGN-UNION-TYPE ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFCLASS FOREIGN-TYPE-ALIAS ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFCLASS FOREIGN-TYPEDEF ...)
; processing (DEFUN FOLLOW-TYPEDEFS ...)
; processing (DEFMETHOD BARE-STRUCT-TYPE-P ...)
; processing (DEFUN STRUCTURE-SLOTS ...)
; processing (DEFCLASS TRANSLATABLE-FOREIGN-TYPE ...)
; processing (DEFCLASS ENHANCED-FOREIGN-TYPE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFUN CHECK-FOR-TYPEDEF-CYCLES ...)
; processing (DEFUN PARSE-TYPE ...)
; processing (DEFUN ENSURE-PARSED-BASE-TYPE ...)
; processing (DEFUN CANONICALIZE-FOREIGN-TYPE ...)
; processing (DEFGENERIC TRANSLATE-TO-FOREIGN ...)
; processing (DEFGENERIC TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFGENERIC TRANSLATE-AGGREGATE-TO-FOREIGN ...)
; processing (DEFGENERIC TRANSLATE-FROM-FOREIGN ...)
; processing (DEFGENERIC FREE-TRANSLATED-OBJECT ...)
; processing (DEFVAR *RUNTIME-TRANSLATOR-FORM*)
; processing (DEFGENERIC EXPAND-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFGENERIC EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFGENERIC EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFGENERIC EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFUN FOREIGN-EXPAND-RUNTIME-TRANSLATOR-OR-BINDING ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFGENERIC EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFUN CONVERT-TO-FOREIGN ...)
; processing (DEFINE-COMPILER-MACRO CONVERT-TO-FOREIGN ...)
; processing (DEFUN CONVERT-FROM-FOREIGN ...)
; processing (DEFINE-COMPILER-MACRO CONVERT-FROM-FOREIGN ...)
; processing (DEFUN CONVERT-INTO-FOREIGN-MEMORY ...)
; processing (DEFINE-COMPILER-MACRO CONVERT-INTO-FOREIGN-MEMORY ...)
; processing (DEFUN FREE-CONVERTED-OBJECT ...)
; processing (DEFCLASS ENHANCED-TYPEDEF ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFMETHOD EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFMACRO DEFINE-FOREIGN-TYPE ...)
; processing (DEFMACRO DEFCTYPE ...)
; processing (DEFMACRO DEFCTYPE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/early-types-tmpWLS9DP2S.fasl
; compilation finished in 0:00:03.331
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/types.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :CHAR)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-CHAR)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :SHORT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-SHORT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :INT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-INT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :LONG)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-LONG)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :FLOAT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :DOUBLE)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :VOID)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :LONG-LONG)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-LONG-LONG)
; processing (DEFPARAMETER *POSSIBLE-FLOAT-TYPES* ...)
; processing (DEFPARAMETER *OTHER-BUILTIN-TYPES* ...)
; processing (DEFPARAMETER *BUILT-IN-INTEGER-TYPES* ...)
; processing (DEFPARAMETER *BUILT-IN-FLOAT-TYPES* ...)
; processing (DEFINE-COMPILER-MACRO INC-POINTER ...)
; processing (DEFINE-MODIFY-MACRO INCF-POINTER ...)
; processing (DEFUN MEM-REF ...)
; processing (DEFINE-COMPILER-MACRO MEM-REF ...)
; processing (DEFUN MEM-SET ...)
; processing (DEFINE-SETF-EXPANDER MEM-REF ...)
; processing (DEFINE-COMPILER-MACRO MEM-SET ...)
; processing (DEFUN MEM-AREF ...)
; processing (DEFINE-COMPILER-MACRO MEM-AREF ...)
; processing (DEFINE-SETF-EXPANDER MEM-AREF ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFUN MEM-APTR ...)
; processing (DEFINE-COMPILER-MACRO MEM-APTR ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-ARRAY-TYPE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ARRAY-ELEMENT-SIZE ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFINE-PARSE-METHOD :ARRAY ...)
; processing (DEFUN INDEXES-TO-ROW-MAJOR-INDEX ...)
; processing (DEFUN ROW-MAJOR-INDEX-TO-INDEXES ...)
; processing (DEFUN FOREIGN-ALLOC ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-ALLOC ...)
; processing (DEFUN LISP-ARRAY-TO-FOREIGN ...)
; processing (DEFUN FOREIGN-ARRAY-TO-LISP ...)
; processing (DEFUN FOREIGN-ARRAY-ALLOC ...)
; processing (DEFUN FOREIGN-ARRAY-FREE ...)
; processing (DEFMACRO WITH-FOREIGN-ARRAY ...)
; processing (DEFUN FOREIGN-AREF ...)
; processing (DEFUN (SETF FOREIGN-AREF) ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-AGGREGATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-POINTER ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-POINTER-FORM ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-VALUE ...)
; processing (DEFGENERIC (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-SET-FORM ...)
; processing (DEFCLASS FOREIGN-STRUCT-SLOT ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-POINTER ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-POINTER-FORM ...)
; processing (DEFUN FOREIGN-SLOT-NAMES ...)
; processing (DEFCLASS SIMPLE-STRUCT-SLOT ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; processing (DEFMETHOD (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-SET-FORM ...)
; processing (DEFCLASS AGGREGATE-STRUCT-SLOT ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; processing (DEFMETHOD TRANSLATE-AGGREGATE-TO-FOREIGN ...)
; processing (DEFMETHOD (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-SET-FORM ...)
; processing (DEFUN MAKE-STRUCT-SLOT ...)
; processing (DEFUN PARSE-DEPRECATED-STRUCT-TYPE ...)
; processing (DEFUN GET-ALIGNMENT ...)
; processing (DEFUN ADJUST-FOR-ALIGNMENT ...)
; processing (DEFMACRO WITH-TENTATIVE-TYPE-DEFINITION ...)
; processing (DEFUN NOTICE-FOREIGN-STRUCT-DEFINITION ...)
; processing (DEFUN GENERATE-STRUCT-ACCESSORS ...)
; processing (DEFINE-PARSE-METHOD :STRUCT ...)
; processing (DEFVAR *DEFCSTRUCT-HOOK* ...)
; processing (DEFMACRO DEFCSTRUCT ...)
; processing (DEFUN GET-SLOT-INFO ...)
; processing (DEFUN FOREIGN-SLOT-POINTER ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-SLOT-POINTER ...)
; processing (DEFUN FOREIGN-SLOT-TYPE ...)
; processing (DEFUN FOREIGN-SLOT-OFFSET ...)
; processing (DEFUN FOREIGN-SLOT-COUNT ...)
; processing (DEFUN FOREIGN-SLOT-VALUE ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-SLOT-VALUE ...)
; processing (DEFINE-SETF-EXPANDER FOREIGN-SLOT-VALUE ...)
; processing (DEFUN FOREIGN-SLOT-SET ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-SLOT-SET ...)
; processing (DEFMACRO WITH-FOREIGN-SLOTS ...)
; processing (DEFMACRO DEFINE-C-STRUCT-WRAPPER ...)
; processing (DEFUN NOTICE-FOREIGN-UNION-DEFINITION ...)
; processing (DEFINE-PARSE-METHOD :UNION ...)
; processing (DEFMACRO DEFCUNION ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFMACRO WITH-FOREIGN-OBJECT ...)
; processing (DEFMACRO WITH-FOREIGN-OBJECTS ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-TYPE-WRAPPER ...)
; processing (DEFINE-PARSE-METHOD :WRAPPER ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-BOOLEAN-TYPE ...)
; processing (DEFINE-PARSE-METHOD :BOOLEAN ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFCTYPE :BOOL ...)
; processing (DEFCTYPE :UCHAR ...)
; processing (DEFCTYPE :USHORT ...)
; processing (DEFCTYPE :UINT ...)
; processing (DEFCTYPE :ULONG ...)
; processing (DEFCTYPE :LLONG ...)
; processing (DEFCTYPE :ULLONG ...)
; processing (MATCH-TYPES (# # ...) ...)
; processing (MATCH-TYPES (# # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/types-tmp8VCF5G6M.fasl
; compilation finished in 0:00:03.719
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/enum.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFCLASS FOREIGN-ENUM ...)
; processing (DEFTYPE ENUM-KEY ...)
; processing (DEFPARAMETER +VALID-ENUM-BASE-TYPES+ ...)
; processing (DEFUN PARSE-FOREIGN-ENUM-LIKE ...)
; processing (DEFUN MAKE-FOREIGN-ENUM ...)
; processing (DEFUN %DEFCENUM-LIKE ...)
; processing (DEFMACRO DEFCENUM ...)
; processing (DEFUN HASH-KEYS-TO-LIST ...)
; processing (DEFUN FOREIGN-ENUM-KEYWORD-LIST ...)
; processing (DEFUN %FOREIGN-ENUM-VALUE ...)
; processing (DEFUN FOREIGN-ENUM-VALUE ...)
; processing (DEFUN %FOREIGN-ENUM-KEYWORD ...)
; processing (DEFUN FOREIGN-ENUM-KEYWORD ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFCLASS FOREIGN-BITFIELD ...)
; processing (DEFUN MAKE-FOREIGN-BITFIELD ...)
; processing (DEFMACRO DEFBITFIELD ...)
; processing (DEFUN FOREIGN-BITFIELD-SYMBOL-LIST ...)
; processing (DEFUN %FOREIGN-BITFIELD-VALUE ...)
; processing (DEFUN FOREIGN-BITFIELD-VALUE ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-BITFIELD-VALUE ...)
; processing (DEFUN %FOREIGN-BITFIELD-SYMBOLS ...)
; processing (DEFUN FOREIGN-BITFIELD-SYMBOLS ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-BITFIELD-SYMBOLS ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/enum-tmp8DMZV8XU.fasl
; compilation finished in 0:00:01.015
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/strings.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFVAR *DEFAULT-FOREIGN-ENCODING* ...)
; processing (DEFMACRO BGET ...)
; processing (DEFMACRO BSET ...)
; processing (DEFPARAMETER *FOREIGN-STRING-MAPPINGS* ...)
; processing (DEFUN NULL-TERMINATOR-LEN ...)
; processing (DEFUN LISP-STRING-TO-FOREIGN ...)
; processing (DEFMACRO %FOREIGN-STRING-LENGTH ...)
; processing (DEFUN FOREIGN-STRING-LENGTH ...)
; processing (DEFUN FOREIGN-STRING-TO-LISP ...)
; processing (DEFUN FOREIGN-STRING-ALLOC ...)
; processing (DEFUN FOREIGN-STRING-FREE ...)
; processing (DEFMACRO WITH-FOREIGN-STRING ...)
; processing (DEFMACRO WITH-FOREIGN-STRINGS ...)
; processing (DEFMACRO WITH-FOREIGN-POINTER-AS-STRING ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-STRING-TYPE ...)
; processing (DEFUN FST-ENCODING ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-STRING+PTR-TYPE ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/strings-tmpEGA125WT.fasl
; compilation finished in 0:00:17.917
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/structures.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFMACRO DEFINE-TRANSLATION-METHOD ...)
; processing (DEFMACRO TRANSLATION-FORMS-FOR-CLASS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/structures-tmpE9RDNCMC.fasl
; compilation finished in 0:00:00.325
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/functions.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFUN TRANSLATE-OBJECTS ...)
; processing (DEFUN PARSE-ARGS-AND-TYPES ...)
; processing (DEFUN PARSE-FUNCTION-OPTIONS ...)
; processing (DEFUN STRUCTURE-BY-VALUE-P ...)
; processing (DEFUN FN-CALL-BY-VALUE-P ...)
; processing (DEFVAR *FOREIGN-STRUCTURES-BY-VALUE* ...)
; processing (DEFUN FOREIGN-FUNCALL-FORM ...)
; processing (DEFMACRO FOREIGN-FUNCALL ...)
; processing (DEFMACRO FOREIGN-FUNCALL-POINTER ...)
; processing (DEFUN PROMOTE-VARARGS-TYPE ...)
; processing (UNLESS (FBOUNDP #) ...)
; processing (UNLESS (FBOUNDP #) ...)
; processing (DEFUN FOREIGN-FUNCALL-VARARGS-FORM ...)
; processing (DEFMACRO FOREIGN-FUNCALL-VARARGS ...)
; processing (DEFMACRO FOREIGN-FUNCALL-POINTER-VARARGS ...)
; processing (UNLESS (FBOUNDP #) ...)
; processing (DEFUN %DEFCFUN ...)
; processing (DEFUN %DEFCFUN-VARARGS ...)
; processing (DEFGENERIC TRANSLATE-UNDERSCORE-SEPARATED-NAME ...)
; processing (DEFUN COLLAPSE-PREFIX ...)
; processing (DEFUN CHECK-PREFIX ...)
; processing (DEFGENERIC TRANSLATE-CAMELCASE-NAME ...)
; processing (DEFGENERIC TRANSLATE-NAME-FROM-FOREIGN ...)
; processing (DEFGENERIC TRANSLATE-NAME-TO-FOREIGN ...)
; processing (DEFUN LISP-NAME ...)
; processing (DEFUN FOREIGN-NAME ...)
; processing (DEFUN FOREIGN-OPTIONS ...)
; processing (DEFUN LISP-NAME-P ...)
; processing (DEFUN %PARSE-NAME-AND-OPTIONS ...)
; processing (DEFUN PARSE-NAME-AND-OPTIONS ...)
; processing (DEFMACRO DEFCFUN ...)
; processing (DEFUN INVERSE-TRANSLATE-OBJECTS ...)
; processing (DEFUN PARSE-DEFCALLBACK-OPTIONS ...)
; processing (DEFMACRO DEFCALLBACK ...)
; processing (DECLAIM (INLINE GET-CALLBACK))
; processing (DEFUN GET-CALLBACK ...)
; processing (DEFMACRO CALLBACK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/functions-tmpGTSGBQIR.fasl
; compilation finished in 0:00:01.228
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/foreign-vars.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFUN PARSE-DEFCVAR-OPTIONS ...)
; processing (DEFUN GET-VAR-POINTER ...)
; processing (DEFUN FOREIGN-SYMBOL-POINTER ...)
; processing (DEFUN FS-POINTER-OR-LOSE ...)
; processing (DEFMACRO DEFCVAR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/foreign-vars-tmpRCRZ6VP.fasl
; compilation finished in 0:00:00.195
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/features.lisp" (written 12 MAY 2020 05:45:04 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (PUSHNEW :CFFI ...)
; processing (DEFPACKAGE #:CFFI-FEATURES ...)
; processing (IN-PACKAGE #:CFFI-FEATURES)
; processing (DEFUN CFFI-FEATURE-P ...)
; processing (MAPC (LAMBDA # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/features-tmpC6WXNUWP.fasl
; compilation finished in 0:00:00.099
;
; compilation unit finished
; printed 2 notes
;; loading system "cl+ssl"
WARNING: System definition file #P"/usr/share/common-lisp/source/cl-flexi-streams/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp" (written 09 SEP 2018 02:41:28 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (FROB)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmpB17HDEGA.fasl
; compilation finished in 0:00:00.022
; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/streams.lisp" (written 09 SEP 2018 02:41:28 AM):
; processing (IN-PACKAGE :TRIVIAL-GRAY-STREAMS)
; processing (DEFCLASS FUNDAMENTAL-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...)
; processing (DEFGENERIC STREAM-READ-SEQUENCE ...)
; processing (DEFGENERIC STREAM-WRITE-SEQUENCE ...)
; processing (DEFGENERIC STREAM-FILE-POSITION ...)
; processing (DEFGENERIC (SETF STREAM-FILE-POSITION) ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMACRO OR-FALLBACK ...)
; processing (DEFMETHOD STREAM-TERPRI ...)
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-SEQUENCE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-FILE-POSITION ...)
; processing (DEFMETHOD SB-GRAY:STREAM-LINE-LENGTH ...)
; processing (DEFCLASS TRIVIAL-GRAY-STREAM-MIXIN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmpE3AQVWGT.fasl
; compilation finished in 0:00:01.098
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/packages.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (UNLESS (FIND-SYMBOL # ...) ...)
; processing (DEFPACKAGE :FLEXI-STREAMS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/packages-tmpYKOEPICF.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/mapping.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFTYPE OCTET ...)
; processing (DEFTYPE CHAR* ...)
; processing (DEFTYPE STRING* ...)
; processing (DEFTYPE CHAR-CODE-INTEGER ...)
; processing (DEFTYPE CODE-POINT ...)
; processing (DEFMACRO DEFCONSTANT ...)
; processing (DEFUN INVERT-TABLE ...)
; processing (DEFUN MAKE-DECODING-TABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/mapping-tmpQK8YY837.fasl
; compilation finished in 0:00:00.094
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/ascii.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +ASCII-TABLE+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/ascii-tmpJQI6KMRZ.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/koi8-r.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +KOI8-R-TABLE+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/koi8-r-tmpWUHK9UI0.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/iso-8859.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +ISO-8859-TABLES+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/iso-8859-tmpUUOI3UDB.fasl
; compilation finished in 0:00:00.067
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/code-pages.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +CODE-PAGE-TABLES+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/code-pages-tmpG1IOPEUW.fasl
; compilation finished in 0:00:00.106
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/specials.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...)
; processing (DEFVAR *FIXNUM-OPTIMIZE-SETTINGS* ...)
; processing (DEFCONSTANT +LF+ ...)
; processing (DEFCONSTANT +CR+ ...)
; processing (DEFVAR *CURRENT-UNREADER* ...)
; processing (DEFVAR +NAME-MAP+ ...)
; processing (DEFVAR +SHORTCUT-MAP+ ...)
; processing (DEFVAR *DEFAULT-EOL-STYLE* ...)
; processing (DEFVAR *DEFAULT-LITTLE-ENDIAN* ...)
; processing (DEFVAR *SUBSTITUTION-CHAR* ...)
; processing (DEFCONSTANT +ISO-8859-HASHES+ ...)
; processing (DEFCONSTANT +CODE-PAGE-HASHES+ ...)
; processing (DEFCONSTANT +ASCII-HASH+ ...)
; processing (DEFCONSTANT +KOI8-R-HASH+ ...)
; processing (DEFCONSTANT +BUFFER-SIZE+ ...)
; processing (PUSHNEW :FLEXI-STREAMS ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/specials-tmpM0NOM18K.fasl
; compilation finished in 0:00:00.146
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/util.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFMACRO WITH-REBINDING ...)
; processing (DEFUN NORMALIZE-EXTERNAL-FORMAT-NAME ...)
; processing (DEFUN ASCII-NAME-P ...)
; processing (DEFUN KOI8-R-NAME-P ...)
; processing (DEFUN CODE-PAGE-NAME-P ...)
; processing (DEFUN ISO-8859-NAME-P ...)
; processing (DEFUN KNOWN-CODE-PAGE-ID-P ...)
; processing (DEFUN SANS ...)
; processing (DEFUN MAKE-OCTET-BUFFER ...)
; processing (DEFUN TYPE-EQUAL ...)
; processing (DEFUN MAYBE-REWIND ...)
; processing (DEFMACRO LOGAND* ...)
; processing (DEFMACRO LOGIOR* ...)
; processing (DEFMACRO ASH* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/util-tmpVIL8T0YR.fasl
; compilation finished in 0:00:00.402
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/conditions.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFINE-CONDITION FLEXI-STREAM-ERROR ...)
; processing (DEFINE-CONDITION FLEXI-STREAM-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION FLEXI-STREAM-ELEMENT-TYPE-ERROR ...)
; processing (DEFINE-CONDITION FLEXI-STREAM-OUT-OF-SYNC-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-CLOSED-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-POSITION-SPEC-ERROR ...)
; processing (DEFINE-CONDITION EXTERNAL-FORMAT-CONDITION ...)
; processing (DEFINE-CONDITION EXTERNAL-FORMAT-ERROR ...)
; processing (DEFINE-CONDITION EXTERNAL-FORMAT-ENCODING-ERROR ...)
; processing (DEFUN SIGNAL-ENCODING-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/conditions-tmpBODYQO2B.fasl
; compilation finished in 0:00:00.098
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/external-format.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS EXTERNAL-FORMAT ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DEFCLASS FLEXI-CR-MIXIN ...)
; processing (DEFCLASS FLEXI-CRLF-MIXIN ...)
; processing (DEFCLASS FLEXI-8-BIT-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-8-BIT-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-8-BIT-FORMAT ...)
; processing (DEFCLASS FLEXI-ASCII-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-ASCII-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-ASCII-FORMAT ...)
; processing (DEFCLASS FLEXI-LATIN-1-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-LATIN-1-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-LATIN-1-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-32-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-32-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-32-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-32-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-32-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-32-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-32-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-16-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-16-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-16-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-16-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-16-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-16-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-16-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-8-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-8-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-8-FORMAT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN EXTERNAL-FORMAT-CLASS-NAME ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT% ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT ...)
; processing (DEFUN MAYBE-CONVERT-EXTERNAL-FORMAT ...)
; processing (DEFUN EXTERNAL-FORMAT-EQUAL ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/external-format.lisp
; in: DEFUN EXTERNAL-FORMAT-EQUAL
; (EQL (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF1)
; (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF2))
;
; 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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN NORMALIZE-EXTERNAL-FORMAT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/external-format-tmpTLIPDLNH.fasl
; compilation finished in 0:00:01.000
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/length.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFGENERIC ENCODING-FACTOR ...)
; processing (DEFMETHOD ENCODING-FACTOR ...)
; processing (DEFMETHOD ENCODING-FACTOR ...)
; processing (DEFMETHOD ENCODING-FACTOR ...)
; processing (DEFMETHOD ENCODING-FACTOR ...)
; processing (DEFMETHOD ENCODING-FACTOR ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD ENCODING-FACTOR (FLEXI-CRLF-MIXIN)
; (* 1.02d0 (CALL-NEXT-METHOD))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: forced to do full call
; unable to do inline float arithmetic (cost 5) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
; &REST T).
; processing (DEFGENERIC CHECK-END ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFGENERIC CHECK-END
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT "This sequence can't be decoded ~
; using ~A as it is too short. ~A octet~:P missing at the end."
; (FLEXI-STREAMS:EXTERNAL-FORMAT-NAME
; FORMAT)
; (- FLEXI-STREAMS::I FLEXI-STREAMS::END))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFGENERIC COMPUTE-NUMBER-OF-CHARS ...)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-8-BIT-FORMAT T T T)
; (DEFMETHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS
; ((FORMAT FLEXI-STREAMS::FLEXI-8-BIT-FORMAT) SEQUENCE
; FLEXI-STREAMS::START FLEXI-STREAMS::END)
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (DECLARE (FIXNUM FLEXI-STREAMS::START FLEXI-STREAMS::END))
; (DECLARE (IGNORE SEQUENCE))
; (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
; FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS
; (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT T T T))
; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. FORMAT SEQUENCE
; FLEXI-STREAMS::START FLEXI-STREAMS::END)
; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
; (DECLARE (IGNORE SEQUENCE))
; (DECLARE (FIXNUM FLEXI-STREAMS::END FLEXI-STREAMS::START))
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (DECLARE
; (SB-C::SOURCE-FORM
; (LAMBDA (FORMAT SEQUENCE FLEXI-STREAMS::START FLEXI-STREAMS::END)
; (DECLARE #)
; (DECLARE #)
; (DECLARE #)
; (- FLEXI-STREAMS::END FLEXI-STREAMS::START))))
; (DECLARE (SB-PCL::%PARAMETER FLEXI-STREAMS::END))
; (DECLARE (SB-PCL::%PARAMETER FLEXI-STREAMS::START))
; (DECLARE (SB-PCL::%PARAMETER SEQUENCE))
; (DECLARE (SB-PCL::%PARAMETER FORMAT))
; ...)
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-MIXIN T T T)
; (SEARCH #(13 10) SEQUENCE :START2 FLEXI-STREAMS::I :END2 FLEXI-STREAMS::END
; :TEST #'=)
; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY
; --> TAGBODY UNLESS IF FUNCALL SB-C::%FUNCALL = IF
; ==>
; (= #:G57 #:G58)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY
; --> TAGBODY UNLESS IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY
; --> TAGBODY UNLESS IF FUNCALL SB-C::%FUNCALL = IF
; ==>
; (= #:G57 #:G58)
;
; 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.
; (- FLEXI-STREAMS::END FLEXI-STREAMS::START)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-8-FORMAT T T T)
; (AREF SEQUENCE FLEXI-STREAMS::I)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-8-FORMAT T T T)
; (AREF SEQUENCE FLEXI-STREAMS::I)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-UTF-16-FORMAT T T T)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT "~A octet~:P cannot be decoded ~
; using UTF-16 as ~:*~A is not even."
; (- FLEXI-STREAMS::END
; FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-16-LE-FORMAT T T T)
; (AREF SEQUENCE (1+ FLEXI-STREAMS::I))
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::I LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G21)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-16-BE-FORMAT T T T)
; (AREF SEQUENCE FLEXI-STREAMS::I)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-16-LE-FORMAT T T T)
; (AREF SEQUENCE (1+ FLEXI-STREAMS::I))
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SEQUENCE FLEXI-STREAMS::I)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::I LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G25)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-16-BE-FORMAT T T T)
; (AREF SEQUENCE FLEXI-STREAMS::I)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SEQUENCE (1+ FLEXI-STREAMS::I))
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-UTF-32-FORMAT T T T)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT "~A octet~:P cannot be decoded ~
; using UTF-32 as ~:*~A is not a multiple-value of four."
; LENGTH)
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-LE-FORMAT T T T)
; (AREF SEQUENCE FLEXI-STREAMS::J)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 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.
; (DECF LENGTH)
; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * 268435456), not a FIXNUM.
; The result is a (VALUES (INTEGER * 268435455) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER * 268435456), not a FIXNUM.
; The result is a (VALUES (INTEGER * 268435455) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-BE-FORMAT T T T)
; (AREF SEQUENCE FLEXI-STREAMS::J)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 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.
; (DECF LENGTH)
; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * 268435456), not a FIXNUM.
; The result is a (VALUES (INTEGER * 268435455) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER * 268435456), not a FIXNUM.
; The result is a (VALUES (INTEGER * 268435455) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; processing (DEFGENERIC COMPUTE-NUMBER-OF-OCTETS ...)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS :AROUND (T LIST T T)
; (COERCE LIST 'FLEXI-STREAMS::STRING*)
;
; note: unable to
; optimize
; because:
; STRING* specifies dimensions other than (*) in safe code.
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-8-BIT-FORMAT T T T)
; (DEFMETHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS
; ((FORMAT FLEXI-STREAMS::FLEXI-8-BIT-FORMAT) STRING
; FLEXI-STREAMS::START FLEXI-STREAMS::END)
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (DECLARE (FIXNUM FLEXI-STREAMS::START FLEXI-STREAMS::END))
; (DECLARE (IGNORE STRING))
; (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
; FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS
; (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT T T T))
; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. FORMAT STRING
; FLEXI-STREAMS::START FLEXI-STREAMS::END)
; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
; (DECLARE (IGNORE STRING))
; (DECLARE (FIXNUM FLEXI-STREAMS::END FLEXI-STREAMS::START))
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (DECLARE
; (SB-C::SOURCE-FORM
; (LAMBDA (FORMAT STRING FLEXI-STREAMS::START FLEXI-STREAMS::END)
; (DECLARE #)
; (DECLARE #)
; (DECLARE #)
; (- FLEXI-STREAMS::END FLEXI-STREAMS::START))))
; (DECLARE (SB-PCL::%PARAMETER FLEXI-STREAMS::END))
; (DECLARE (SB-PCL::%PARAMETER FLEXI-STREAMS::START))
; (DECLARE (SB-PCL::%PARAMETER STRING))
; (DECLARE (SB-PCL::%PARAMETER FORMAT))
; ...)
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-8-FORMAT T T T)
; (CHAR STRING FLEXI-STREAMS::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-8-FORMAT T T T)
; (CHAR STRING FLEXI-STREAMS::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-16-FORMAT T T T)
; (CHAR STRING FLEXI-STREAMS::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-16-LE-FORMAT T T T)
; (CHAR STRING FLEXI-STREAMS::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-16-BE-FORMAT T T T)
; (CHAR STRING FLEXI-STREAMS::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-32-FORMAT T T T)
; (* 4 (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
; ==>
; (ASH SB-C::X 2)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES (INTEGER -4294967292 4294967292) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do inline ASH (cost 2) because:
; The first argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES (INTEGER -4294967292 4294967292) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST
; T).
; etc.
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-MIXIN T T T)
; (+ (CALL-NEXT-METHOD)
; (*
; (CASE (FLEXI-STREAMS:EXTERNAL-FORMAT-NAME FORMAT)
; (:UTF-32 4)
; (OTHERWISE 1))
; (COUNT #\Newline STRING :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :TEST #'CHAR=)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a (MOD 2147483633), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFGENERIC CHARACTER-LENGTH ...)
; processing (DEFMETHOD CHARACTER-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp
; in:
; DEFMETHOD CHARACTER-LENGTH :AROUND (FLEXI-CRLF-MIXIN (EQL #\Newline))
; (+ (CALL-NEXT-METHOD FORMAT FLEXI-STREAMS::+CR+)
; (CALL-NEXT-METHOD FORMAT FLEXI-STREAMS::+LF+))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &REST T).
; etc.
; processing (DEFMETHOD CHARACTER-LENGTH ...)
; processing (DEFMETHOD CHARACTER-LENGTH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/length-tmpMOOD9PZK.fasl
; compilation finished in 0:00:01.810
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/encode.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFGENERIC CHAR-TO-OCTETS ...)
; processing (DEFGENERIC WRITE-SEQUENCE* ...)
; processing (DEFGENERIC STRING-TO-OCTETS* ...)
; processing (DEFMETHOD STRING-TO-OCTETS* ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in: DEFMETHOD STRING-TO-OCTETS* :AROUND (T LIST T T)
; (COERCE LIST 'FLEXI-STREAMS::STRING*)
;
; note: unable to
; optimize
; because:
; STRING* specifies dimensions other than (*) in safe code.
; processing (DEFMACRO DEFINE-SEQUENCE-WRITERS ...)
; processing (DEFMACRO DEFINE-CHAR-ENCODERS ...)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT
; FLEXI-CRLF-LATIN-1-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 255)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 255)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET WHEN IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT
; FLEXI-CRLF-ASCII-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET WHEN IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT
; FLEXI-CRLF-8-BIT-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH
; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH))
; FORMAT
; (LET ((FLEXI-STREAMS:OCTET #))
; (UNLESS FLEXI-STREAMS:OCTET
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH
; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH))
; FORMAT
; (LET ((FLEXI-STREAMS:OCTET #))
; (UNLESS FLEXI-STREAMS:OCTET
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET
; --> GETHASH SB-IMPL::GETHASH3 CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET
; --> UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET GETHASH SB-IMPL::GETHASH3
; --> CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET UNLESS IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET GETHASH SB-IMPL::GETHASH3
; --> CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET UNLESS IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT
; FLEXI-CRLF-UTF-8-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (TAGBODY
; (COND (# # #) (# # #) (# # #) (T #))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::TWO
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::ONE
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::ZERO)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (TAGBODY
; (COND (# # #) (# # #) (# # #) (T #))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::TWO
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::ONE
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::ZERO)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-CRLF-UTF-16-LE-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD)
; (FLEXI-STREAMS::OCTET-WRITER #)
; (FLEXI-STREAMS::OCTET-WRITER #)))
; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD))
; (LET ((CHAR-CODE #))
; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE))
; (COND (# #) (T # # #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD)
; (FLEXI-STREAMS::OCTET-WRITER #)
; (FLEXI-STREAMS::OCTET-WRITER #)))
; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD))
; (LET ((CHAR-CODE #))
; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE))
; (COND (# #) (T # # #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-CRLF-UTF-16-BE-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD)
; (FLEXI-STREAMS::OCTET-WRITER #)
; (FLEXI-STREAMS::OCTET-WRITER #)))
; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD))
; (LET ((CHAR-CODE #))
; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE))
; (COND (# #) (T # # #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD)
; (FLEXI-STREAMS::OCTET-WRITER #)
; (FLEXI-STREAMS::OCTET-WRITER #)))
; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD))
; (LET ((CHAR-CODE #))
; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE))
; (COND (# #) (T # # #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-CRLF-UTF-32-LE-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-CRLF-UTF-32-BE-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET
; ==>
; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END
; FLEXI-STREAMS::END :FROM-END T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 second argument is a (INTEGER -1073741823 1073741823), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET IF <= >= IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; --> LET LET MIN LET CEILING CEILING
; ==>
; (* FLEXI-STREAMS::FACTOR (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFMETHOD CHAR-TO-OCTETS ...)
; processing (DEFMETHOD CHAR-TO-OCTETS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/encode-tmpJSQEHKQD.fasl
; compilation finished in 0:00:14.498
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/decode.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFUN RECOVER-FROM-ENCODING-ERROR ...)
; processing (DEFGENERIC OCTETS-TO-CHAR-CODE ...)
; processing (DEFGENERIC OCTETS-TO-STRING* ...)
; processing (DEFMETHOD OCTETS-TO-STRING* ...)
; processing (DEFMACRO DEFINE-SEQUENCE-READERS ...)
; processing (DEFMACRO DEFINE-CHAR-DECODERS ...)
; processing (DEFINE-CHAR-DECODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT
; FLEXI-CRLF-LATIN-1-FORMAT)
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT)
; FLEXI-STREAMS::OCTET-GETTER)
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> <=
; --> (LAMBDA (#:G12 #:G11 #:G10) (DECLARE (TYPE REAL #:G12 #:G11 #:G10)) (IF (<= #:G12 #:G11) (IF (<= #:G11 #:G10) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G12 G11 G10) IN OCTETS-TO-CHAR-CODE))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET
; --> AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET
; --> AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET
; --> THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK
; --> PROG1 LET AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK
; --> PROG1 LET AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK
; --> PROG1 LET AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK
; --> PROG1 LET AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER
; --> BLOCK PROG1 LET AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER
; --> BLOCK PROG1 LET AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER
; --> AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-CHAR-DECODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT
; FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> <=
; --> (LAMBDA (#:G12 #:G11 #:G10) (DECLARE (TYPE REAL #:G12 #:G11 #:G10)) (IF (<= #:G12 #:G11) (IF (<= #:G11 #:G10) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G12 G11 G10) IN OCTETS-TO-CHAR-CODE))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET))
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G105 #:G104 #:G103) (DECLARE (TYPE REAL #:G105 #:G104 #:G103)) (IF (<= #:G105 #:G104) (IF (<= #:G104 #:G103) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G105 G104 G103) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G117 #:G116 #:G115) (DECLARE (TYPE REAL #:G117 #:G116 #:G115)) (IF (<= #:G117 #:G116) (IF (<= #:G116 #:G115) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G117 G116 G115) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G91 #:G90 #:G89) (DECLARE (TYPE REAL #:G91 #:G90 #:G89)) (IF (<= #:G91 #:G90) (IF (<= #:G90 #:G89) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G91 G90 G89) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET))
; --> LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G298 #:G297 #:G296) (DECLARE (TYPE REAL #:G298 #:G297 #:G296)) (IF (<= #:G298 #:G297) (IF (<= #:G297 #:G296) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G298 G297 G296) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET))
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G415 #:G414 #:G413) (DECLARE (TYPE REAL #:G415 #:G414 #:G413)) (IF (<= #:G415 #:G414) (IF (<= #:G414 #:G413) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G415 G414 G413) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G428 #:G427 #:G426) (DECLARE (TYPE REAL #:G428 #:G427 #:G426)) (IF (<= #:G428 #:G427) (IF (<= #:G427 #:G426) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G428 G427 G426) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G400 #:G399 #:G398) (DECLARE (TYPE REAL #:G400 #:G399 #:G398)) (IF (<= #:G400 #:G399) (IF (<= #:G399 #:G398) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G400 G399 G398) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET))
; --> LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G611 #:G610 #:G609) (DECLARE (TYPE REAL #:G611 #:G610 #:G609)) (IF (<= #:G611 #:G610) (IF (<= #:G610 #:G609) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G611 G610 G609) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET))
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G715 #:G714 #:G713) (DECLARE (TYPE REAL #:G715 #:G714 #:G713)) (IF (<= #:G715 #:G714) (IF (<= #:G714 #:G713) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G715 G714 G713) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G745 #:G744 #:G743) (DECLARE (TYPE REAL #:G745 #:G744 #:G743)) (IF (<= #:G745 #:G744) (IF (<= #:G744 #:G743) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G745 G744 G743) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G731 #:G730 #:G729) (DECLARE (TYPE REAL #:G731 #:G730 #:G729)) (IF (<= #:G731 #:G730) (IF (<= #:G730 #:G729) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G731 G730 G729) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET))
; --> LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; FLEXI-STREAMS:OCTET)))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G936 #:G935 #:G934) (DECLARE (TYPE REAL #:G936 #:G935 #:G934)) (IF (<= #:G936 #:G935) (IF (<= #:G935 #:G934) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G936 G935 G934) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-CHAR-DECODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT
; FLEXI-CRLF-8-BIT-FORMAT)
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> <=
; --> (LAMBDA (#:G14 #:G13 #:G12) (DECLARE (TYPE REAL #:G14 #:G13 #:G12)) (IF (<= #:G14 #:G13) (IF (<= #:G13 #:G12) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G14 G13 G12) IN OCTETS-TO-CHAR-CODE))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET ((CHAR-CODE (AREF # #)))
; (IF (OR (NULL CHAR-CODE) (= # 65533))
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; CHAR-CODE)))
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G126 #:G125 #:G124) (DECLARE (TYPE REAL #:G126 #:G125 #:G124)) (IF (<= #:G126 #:G125) (IF (<= #:G125 #:G124) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G126 G125 G124) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G140 #:G139 #:G138) (DECLARE (TYPE REAL #:G140 #:G139 #:G138)) (IF (<= #:G140 #:G139) (IF (<= #:G139 #:G138) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G140 G139 G138) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G110 #:G109 #:G108) (DECLARE (TYPE REAL #:G110 #:G109 #:G108)) (IF (<= #:G110 #:G109) (IF (<= #:G109 #:G108) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G110 G109 G108) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET ((CHAR-CODE (AREF # #)))
; (IF (OR (NULL CHAR-CODE) (= # 65533))
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; CHAR-CODE)))
; --> LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G352 #:G351 #:G350) (DECLARE (TYPE REAL #:G352 #:G351 #:G350)) (IF (<= #:G352 #:G351) (IF (<= #:G351 #:G350) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G352 G351 G350) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET ((CHAR-CODE (AREF # #)))
; (IF (OR (NULL CHAR-CODE) (= # 65533))
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; CHAR-CODE)))
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G488 #:G487 #:G486) (DECLARE (TYPE REAL #:G488 #:G487 #:G486)) (IF (<= #:G488 #:G487) (IF (<= #:G487 #:G486) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G488 G487 G486) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G503 #:G502 #:G501) (DECLARE (TYPE REAL #:G503 #:G502 #:G501)) (IF (<= #:G503 #:G502) (IF (<= #:G502 #:G501) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G503 G502 G501) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G471 #:G470 #:G469) (DECLARE (TYPE REAL #:G471 #:G470 #:G469)) (IF (<= #:G471 #:G470) (IF (<= #:G470 #:G469) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G471 G470 G469) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET ((CHAR-CODE (AREF # #)))
; (IF (OR (NULL CHAR-CODE) (= # 65533))
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; CHAR-CODE)))
; --> LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G717 #:G716 #:G715) (DECLARE (TYPE REAL #:G717 #:G716 #:G715)) (IF (<= #:G717 #:G716) (IF (<= #:G716 #:G715) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G717 G716 G715) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET ((CHAR-CODE (AREF # #)))
; (IF (OR (NULL CHAR-CODE) (= # 65533))
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; CHAR-CODE)))
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G856 #:G855 #:G854) (DECLARE (TYPE REAL #:G856 #:G855 #:G854)) (IF (<= #:G856 #:G855) (IF (<= #:G855 #:G854) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G856 G855 G854) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G872 #:G871 #:G870) (DECLARE (TYPE REAL #:G872 #:G871 #:G870)) (IF (<= #:G872 #:G871) (IF (<= #:G871 #:G870) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G872 G871 G870) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G838 #:G837 #:G836) (DECLARE (TYPE REAL #:G838 #:G837 #:G836)) (IF (<= #:G838 #:G837) (IF (<= #:G837 #:G836) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G838 G837 G836) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET ((CHAR-CODE (AREF # #)))
; (IF (OR (NULL CHAR-CODE) (= # 65533))
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET)
; CHAR-CODE)))
; --> LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE
; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE))
; FORMAT
; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
; (LET (#)
; (IF #
; #
; CHAR-CODE)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1094 #:G1093 #:G1092) (DECLARE (TYPE REAL #:G1094 #:G1093 #:G1092)) (IF (<= #:G1094 #:G1093) (IF (<= #:G1093 #:G1092) T NIL) NIL))
; --> SB-C::%FUNCALL
; --> (FUNCTION (LAMBDA (G1094 G1093 G1092) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT
; FLEXI-CRLF-UTF-8-FORMAT)
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> <=
; --> (LAMBDA (#:G21 #:G20 #:G19) (DECLARE (TYPE REAL #:G21 #:G20 #:G19)) (IF (<= #:G21 #:G20) (IF (<= #:G20 #:G19) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G21 G20 G19) IN OCTETS-TO-CHAR-CODE))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G207 #:G206 #:G205) (DECLARE (TYPE REAL #:G207 #:G206 #:G205)) (IF (<= #:G207 #:G206) (IF (<= #:G206 #:G205) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G207 G206 G205) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G181 #:G180 #:G179) (DECLARE (TYPE REAL #:G181 #:G180 #:G179)) (IF (<= #:G181 #:G180) (IF (<= #:G180 #:G179) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G181 G180 G179) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G153 #:G152 #:G151) (DECLARE (TYPE REAL #:G153 #:G152 #:G151)) (IF (<= #:G153 #:G152) (IF (<= #:G152 #:G151) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G153 G152 G151) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G465 #:G464 #:G463) (DECLARE (TYPE REAL #:G465 #:G464 #:G463)) (IF (<= #:G465 #:G464) (IF (<= #:G464 #:G463) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G465 G464 G463) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G679 #:G678 #:G677) (DECLARE (TYPE REAL #:G679 #:G678 #:G677)) (IF (<= #:G679 #:G678) (IF (<= #:G678 #:G677) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G679 G678 G677) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G652 #:G651 #:G650) (DECLARE (TYPE REAL #:G652 #:G651 #:G650)) (IF (<= #:G652 #:G651) (IF (<= #:G651 #:G650) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G652 G651 G650) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G623 #:G622 #:G621) (DECLARE (TYPE REAL #:G623 #:G622 #:G621)) (IF (<= #:G623 #:G622) (IF (<= #:G622 #:G621) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G623 G622 G621) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G939 #:G938 #:G937) (DECLARE (TYPE REAL #:G939 #:G938 #:G937)) (IF (<= #:G939 #:G938) (IF (<= #:G938 #:G937) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G939 G938 G937) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "Unexpected value #x~X at start of UTF-8 sequence." OCTET)).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "Unexpected value #x~X at start of UTF-8 sequence." OCTET)).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "Unexpected value #x~X at start of UTF-8 sequence." OCTET)).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1129 #:G1128 #:G1127) (DECLARE (TYPE REAL #:G1129 #:G1128 #:G1127)) (IF (<= #:G1129 #:G1128) (IF (<= #:G1128 #:G1127) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G1129 G1128 G1127) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1099 #:G1098 #:G1097) (DECLARE (TYPE REAL #:G1099 #:G1098 #:G1097)) (IF (<= #:G1099 #:G1098) (IF (<= #:G1098 #:G1097) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G1099 G1098 G1097) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1157 #:G1156 #:G1155) (DECLARE (TYPE REAL #:G1157 #:G1156 #:G1155)) (IF (<= #:G1157 #:G1156) (IF (<= #:G1156 #:G1155) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G1157 G1156 G1155) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES NULL &OPTIONAL), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1425 #:G1424 #:G1423) (DECLARE (TYPE REAL #:G1425 #:G1424 #:G1423)) (IF (<= #:G1425 #:G1424) (IF (<= #:G1424 #:G1423) T NIL) NIL))
; --> SB-C::%FUNCALL
; --> (FUNCTION (LAMBDA (G1425 G1424 G1423) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-CRLF-UTF-16-LE-FORMAT)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES NULL &OPTIONAL), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-CRLF-UTF-16-BE-FORMAT)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES NULL &OPTIONAL), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-16 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> <=
; --> (LAMBDA (#:G15 #:G14 #:G13) (DECLARE (TYPE REAL #:G15 #:G14 #:G13)) (IF (<= #:G15 #:G14) (IF (<= #:G14 #:G13) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G15 G14 G13) IN OCTETS-TO-CHAR-CODE))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G125 #:G124 #:G123) (DECLARE (TYPE REAL #:G125 #:G124 #:G123)) (IF (<= #:G125 #:G124) (IF (<= #:G124 #:G123) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G125 G124 G123) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-126 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G140 #:G139 #:G138) (DECLARE (TYPE REAL #:G140 #:G139 #:G138)) (IF (<= #:G140 #:G139) (IF (<= #:G139 #:G138) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G140 G139 G138) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-141 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G108 #:G107 #:G106) (DECLARE (TYPE REAL #:G108 #:G107 #:G106)) (IF (<= #:G108 #:G107) (IF (<= #:G107 #:G106) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G108 G107 G106) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-109 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-334 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G333 #:G332 #:G331) (DECLARE (TYPE REAL #:G333 #:G332 #:G331)) (IF (<= #:G333 #:G332) (IF (<= #:G332 #:G331) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G333 G332 G331) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G467 #:G466 #:G465) (DECLARE (TYPE REAL #:G467 #:G466 #:G465)) (IF (<= #:G467 #:G466) (IF (<= #:G466 #:G465) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G467 G466 G465) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-468 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G483 #:G482 #:G481) (DECLARE (TYPE REAL #:G483 #:G482 #:G481)) (IF (<= #:G483 #:G482) (IF (<= #:G482 #:G481) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G483 G482 G481) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-484 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G449 #:G448 #:G447) (DECLARE (TYPE REAL #:G449 #:G448 #:G447)) (IF (<= #:G449 #:G448) (IF (<= #:G448 #:G447) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G449 G448 G447) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-450 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-679 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G678 #:G677 #:G676) (DECLARE (TYPE REAL #:G678 #:G677 #:G676)) (IF (<= #:G678 #:G677) (IF (<= #:G677 #:G676) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G678 G677 G676) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G815 #:G814 #:G813) (DECLARE (TYPE REAL #:G815 #:G814 #:G813)) (IF (<= #:G815 #:G814) (IF (<= #:G814 #:G813) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G815 G814 G813) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-816 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G832 #:G831 #:G830) (DECLARE (TYPE REAL #:G832 #:G831 #:G830)) (IF (<= #:G832 #:G831) (IF (<= #:G831 #:G830) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G832 G831 G830) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-833 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G796 #:G795 #:G794) (DECLARE (TYPE REAL #:G796 #:G795 #:G794)) (IF (<= #:G796 #:G795) (IF (<= #:G795 #:G794) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G796 G795 G794) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-797 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES NULL &OPTIONAL), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-1038 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1037 #:G1036 #:G1035) (DECLARE (TYPE REAL #:G1037 #:G1036 #:G1035)) (IF (<= #:G1037 #:G1036) (IF (<= #:G1036 #:G1035) T NIL) NIL))
; --> SB-C::%FUNCALL
; --> (FUNCTION (LAMBDA (G1037 G1036 G1035) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-16 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> <=
; --> (LAMBDA (#:G15 #:G14 #:G13) (DECLARE (TYPE REAL #:G15 #:G14 #:G13)) (IF (<= #:G15 #:G14) (IF (<= #:G14 #:G13) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G15 G14 G13) IN OCTETS-TO-CHAR-CODE))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET
; --> IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G125 #:G124 #:G123) (DECLARE (TYPE REAL #:G125 #:G124 #:G123)) (IF (<= #:G125 #:G124) (IF (<= #:G124 #:G123) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G125 G124 G123) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-126 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G140 #:G139 #:G138) (DECLARE (TYPE REAL #:G140 #:G139 #:G138)) (IF (<= #:G140 #:G139) (IF (<= #:G139 #:G138) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G140 G139 G138) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-141 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G108 #:G107 #:G106) (DECLARE (TYPE REAL #:G108 #:G107 #:G106)) (IF (<= #:G108 #:G107) (IF (<= #:G107 #:G106) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G108 G107 G106) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-109 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-334 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G333 #:G332 #:G331) (DECLARE (TYPE REAL #:G333 #:G332 #:G331)) (IF (<= #:G333 #:G332) (IF (<= #:G332 #:G331) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G333 G332 G331) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G467 #:G466 #:G465) (DECLARE (TYPE REAL #:G467 #:G466 #:G465)) (IF (<= #:G467 #:G466) (IF (<= #:G466 #:G465) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G467 G466 G465) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-468 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G483 #:G482 #:G481) (DECLARE (TYPE REAL #:G483 #:G482 #:G481)) (IF (<= #:G483 #:G482) (IF (<= #:G482 #:G481) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G483 G482 G481) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-484 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G449 #:G448 #:G447) (DECLARE (TYPE REAL #:G449 #:G448 #:G447)) (IF (<= #:G449 #:G448) (IF (<= #:G448 #:G447) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G449 G448 G447) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-450 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-679 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G678 #:G677 #:G676) (DECLARE (TYPE REAL #:G678 #:G677 #:G676)) (IF (<= #:G678 #:G677) (IF (<= #:G677 #:G676) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G678 G677 G676) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G815 #:G814 #:G813) (DECLARE (TYPE REAL #:G815 #:G814 #:G813)) (IF (<= #:G815 #:G814) (IF (<= #:G814 #:G813) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G815 G814 G813) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-816 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G832 #:G831 #:G830) (DECLARE (TYPE REAL #:G832 #:G831 #:G830)) (IF (<= #:G832 #:G831) (IF (<= #:G831 #:G830) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G832 G831 G830) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-833 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G796 #:G795 #:G794) (DECLARE (TYPE REAL #:G796 #:G795 #:G794)) (IF (<= #:G796 #:G795) (IF (<= #:G795 #:G794) T NIL) NIL))
; --> SB-C::%FUNCALL (FUNCTION (LAMBDA (G796 G795 G794) IN READ-SEQUENCE*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-797 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> PROG1 LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES NULL &OPTIONAL), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
; --> PROG1 LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-1038 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <=
; --> (LAMBDA (#:G1037 #:G1036 #:G1035) (DECLARE (TYPE REAL #:G1037 #:G1036 #:G1035)) (IF (<= #:G1037 #:G1036) (IF (<= #:G1036 #:G1035) T NIL) NIL))
; --> SB-C::%FUNCALL
; --> (FUNCTION (LAMBDA (G1037 G1036 G1035) IN OCTETS-TO-STRING*))
; --> FLEXI-STREAMS::LOGAND* THE LOGAND FLEXI-STREAMS::ASH* THE
; ==>
; (ASH #:CHAR-CODE0 -8)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF
; ==>
; (> #:CHAR-CODE0 1114111)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; --> PROGN FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET SETF LET* CODE-CHAR MACROLET SYMBOL-MACROLET BLOCK
; --> LOCALLY FLET LET CASE LET COND IF PROGN LET CASE LET COND IF IF THE PROGN
; --> FLEXI-STREAMS::UNGET DECF SETQ THE 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; --> THE
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; processing (DEFMETHOD OCTETS-TO-CHAR-CODE ...)
; processing (DEFMETHOD OCTETS-TO-CHAR-CODE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/decode-tmpX9RFG54G.fasl
; compilation finished in 0:00:31.693
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "flexi-streams" "decode">
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS IN-MEMORY-STREAM ...)
; processing (DEFCLASS IN-MEMORY-INPUT-STREAM ...)
; processing (DEFCLASS IN-MEMORY-OUTPUT-STREAM ...)
; processing (DEFCLASS LIST-STREAM ...)
; processing (DEFCLASS VECTOR-STREAM ...)
; processing (DEFCLASS LIST-INPUT-STREAM ...)
; processing (DEFCLASS VECTOR-INPUT-STREAM ...)
; processing (DEFCLASS VECTOR-OUTPUT-STREAM ...)
; processing (DEFMETHOD CHECK-IF-OPEN ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFGENERIC PEEK-BYTE ...)
; processing (DEFMETHOD PEEK-BYTE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD PEEK-BYTE (VECTOR-INPUT-STREAM)
; (= BYTE FLEXI-STREAMS::PEEK-TYPE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF)
; :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX
; :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE))
; ((NULL FLEXI-STREAMS::PEEK-TYPE))
; ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE))
; ((= BYTE FLEXI-STREAMS::PEEK-TYPE)))
; :FINALLY ...)
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+
; ==>
; (+ FLEXI-STREAMS::NEW-INDEX 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (PLUSP BYTE)
; --> > IF
; ==>
; (> BYTE 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF)
; :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX
; :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE))
; ((NULL FLEXI-STREAMS::PEEK-TYPE))
; ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE))
; ((= BYTE FLEXI-STREAMS::PEEK-TYPE)))
; :FINALLY ...)
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+
; ==>
; (+ FLEXI-STREAMS::NEW-INDEX 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD PEEK-BYTE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD PEEK-BYTE (LIST-INPUT-STREAM)
; (= BYTE FLEXI-STREAMS::PEEK-TYPE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (PLUSP BYTE)
; --> > IF
; ==>
; (> BYTE 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; processing (DEFMETHOD TRANSFORM-OCTET ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD TRANSFORM-OCTET (IN-MEMORY-STREAM T)
; (FUNCALL (OR (FLEXI-STREAMS::IN-MEMORY-STREAM-TRANSFORMER STREAM) #'IDENTITY)
; FLEXI-STREAMS:OCTET)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (OR (FLEXI-STREAMS::IN-MEMORY-STREAM-TRANSFORMER STREAM) #'IDENTITY))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFMETHOD STREAM-LISTEN ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (LIST-INPUT-STREAM T T T)
; (SETF (ELT SEQUENCE FLEXI-STREAMS::INDEX) (POP LIST))
; ==>
; (SB-KERNEL:%SETELT SEQUENCE FLEXI-STREAMS::INDEX (POP LIST))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-READ-BYTE (VECTOR-INPUT-STREAM)
; (AREF VECTOR FLEXI-STREAMS::CURRENT-INDEX)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD STREAM-LISTEN ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (VECTOR-INPUT-STREAM T T T)
; (AREF VECTOR FLEXI-STREAMS::VECTOR-INDEX)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (ELT SEQUENCE FLEXI-STREAMS::INDEX)
; (AREF VECTOR FLEXI-STREAMS::VECTOR-INDEX))
; ==>
; (SB-KERNEL:%SETELT SEQUENCE FLEXI-STREAMS::INDEX
; (AREF VECTOR FLEXI-STREAMS::VECTOR-INDEX))
;
; 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.
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-WRITE-SEQUENCE (VECTOR-OUTPUT-STREAM T T T)
; (ELT SEQUENCE FLEXI-STREAMS::INDEX)
;
; 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.
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-INPUT-STREAM)
; (<= 0 FLEXI-STREAMS::POSITION-SPEC FLEXI-STREAMS::END)
; -->
; --> (LAMBDA (#:G11 #:G10 #:G9) (DECLARE (TYPE REAL #:G11 #:G10 #:G9)) (IF (<= #:G11 #:G10) (IF (<= #:G10 #:G9) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; -->
; --> (LAMBDA (#:G11 #:G10 #:G9) (DECLARE (TYPE REAL #:G11 #:G10 #:G9)) (IF (<= #:G11 #:G10) (IF (<= #:G10 #:G9) T NIL) NIL))
; --> SB-C::%FUNCALL IF <= >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; -->
; --> (LAMBDA (#:G11 #:G10 #:G9) (DECLARE (TYPE REAL #:G11 #:G10 #:G9)) (IF (<= #:G11 #:G10) (IF (<= #:G10 #:G9) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 REAL, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-OUTPUT-STREAM)
; (ARRAY-TOTAL-SIZE VECTOR)
;
; note: unable to optimize because: can't tell the rank at compile time
; (<= 0 FLEXI-STREAMS::POSITION-SPEC ARRAY-TOTAL-SIZE-LIMIT)
; -->
; --> (LAMBDA (#:G9 #:G8 #:G7) (DECLARE (TYPE REAL #:G9 #:G8 #:G7)) (IF (<= #:G9 #:G8) (IF (<= #:G8 #:G7) T NIL) NIL))
; --> SB-C::%FUNCALL IF <= >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; -->
; --> (LAMBDA (#:G9 #:G8 #:G7) (DECLARE (TYPE REAL #:G9 #:G8 #:G7)) (IF (<= #:G9 #:G8) (IF (<= #:G8 #:G7) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFUN MAKE-OUTPUT-VECTOR ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFUN MAKE-OUTPUT-VECTOR
; (MAKE-ARRAY 0 :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE
; FLEXI-STREAMS::ELEMENT-TYPE)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; processing (DEFUN MAKE-IN-MEMORY-OUTPUT-STREAM ...)
; processing (DEFMETHOD GET-OUTPUT-STREAM-SEQUENCE ...)
; processing (DEFMETHOD OUTPUT-STREAM-SEQUENCE-LENGTH ...)
; processing (DEFMACRO WITH-INPUT-FROM-SEQUENCE ...)
; processing (DEFMACRO WITH-OUTPUT-TO-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/in-memory-tmpJZYZV5YE.fasl
; compilation finished in 0:00:01.172
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/stream.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS FLEXI-STREAM ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD (SETF FLEXI-STREAM-EXTERNAL-FORMAT) ...)
; processing (DEFMETHOD (SETF FLEXI-STREAM-ELEMENT-TYPE) ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD CLOSE ...)
; processing (DEFMETHOD OPEN-STREAM-P ...)
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; processing (DEFCLASS FLEXI-OUTPUT-STREAM ...)
; processing (DEFCLASS FLEXI-INPUT-STREAM ...)
; processing (DEFCLASS FLEXI-IO-STREAM ...)
; processing (DEFUN MAKE-FLEXI-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/stream-tmp7AGT8VJK.fasl
; compilation finished in 0:00:00.344
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/output.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFGENERIC WRITE-BYTE* ...)
; processing (DEFMETHOD WRITE-BYTE* ...)
; processing (DEFMETHOD STREAM-WRITE-CHAR ...)
; processing (DEFMETHOD STREAM-WRITE-CHAR ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/output.lisp
; in: DEFMETHOD STREAM-WRITE-CHAR :AFTER (FLEXI-OUTPUT-STREAM T)
; (INCF (THE INTEGER FLEXI-STREAMS::COLUMN))
; --> LET*
; ==>
; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-COLUMN #:G68)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; processing (DEFMETHOD STREAM-LINE-COLUMN ...)
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD STREAM-WRITE-STRING ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/output.lisp
; in: DEFMETHOD STREAM-WRITE-STRING (FLEXI-OUTPUT-STREAM T)
; (LENGTH 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 VECTOR.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/output-tmpVX9R9U8P.fasl
; compilation finished in 0:00:00.259
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/input.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFMETHOD READ-BYTE* ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD READ-BYTE* (FLEXI-INPUT-STREAM)
; (AND FLEXI-STREAMS::BOUND (>= POSITION FLEXI-STREAMS::BOUND))
; --> IF >= IF
; ==>
; (< SB-C::X SB-C::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 (OR INTEGER NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a (OR INTEGER NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (INCF POSITION)
; --> LET*
; ==>
; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G08)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (DECF POSITION)
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD STREAM-CLEAR-INPUT ...)
; processing (DEFMETHOD STREAM-LISTEN ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-LISTEN (FLEXI-INPUT-STREAM)
; (AND FLEXI-STREAMS::BOUND (>= POSITION FLEXI-STREAMS::BOUND))
; --> IF >= IF
; ==>
; (< SB-C::X SB-C::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 (OR INTEGER NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a (OR INTEGER NULL), not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFUN UNREAD-CHAR% ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFUN UNREAD-CHAR%
; (DECF POSITION FLEXI-STREAMS::COUNTER)
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFMETHOD STREAM-READ-CHAR ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-READ-CHAR (FLEXI-INPUT-STREAM)
; (OR (CODE-CHAR CHAR-CODE) CHAR-CODE)
; --> LET IF
; ==>
; CHAR-CODE
;
; note: deleting unreachable code
; processing (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (FLEXI-INPUT-STREAM T T T)
; (REPLACE SEQUENCE FLEXI-STREAMS::OCTET-STACK :START1 FLEXI-STREAMS::START
; :END1 FLEXI-STREAMS::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 29) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
; (LENGTH FLEXI-STREAMS::OCTET-STACK)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (ELT SEQUENCE (1- FLEXI-STREAMS::INDEX))
;
; 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.
; (INCF FLEXI-STREAMS::INDEX FLEXI-STREAMS::OCTETS-FLUSHED)
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G68)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMETHOD STREAM-UNREAD-CHAR ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-UNREAD-CHAR (FLEXI-INPUT-STREAM T)
; (= (CHAR-CODE CHAR) FLEXI-STREAMS::LAST-CHAR-CODE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; processing (DEFMETHOD UNREAD-BYTE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD UNREAD-BYTE (T FLEXI-INPUT-STREAM)
; (= BYTE FLEXI-STREAMS::LAST-OCTET)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 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.
; (DECF (THE INTEGER POSITION))
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD PEEK-BYTE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD PEEK-BYTE (FLEXI-INPUT-STREAM)
; (= FLEXI-STREAMS:OCTET FLEXI-STREAMS::PEEK-TYPE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (PLUSP FLEXI-STREAMS:OCTET)
; --> > IF
; ==>
; (> FLEXI-STREAMS:OCTET 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/input-tmpQCDFKETQ.fasl
; compilation finished in 0:00:00.518
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/io.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFMETHOD RESET-INPUT-STATE ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/io.lisp
; in: DEFMETHOD RESET-INPUT-STATE (FLEXI-IO-STREAM)
; (LENGTH FLEXI-STREAMS::OCTET-STACK)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-CHAR ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD RESET-OUTPUT-STATE ...)
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFMETHOD STREAM-READ-CHAR ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; processing (DEFMETHOD STREAM-UNREAD-CHAR ...)
; processing (DEFMETHOD UNREAD-BYTE ...)
; processing (DEFMETHOD STREAM-CLEAR-INPUT ...)
; processing (DEFMETHOD WRITE-BYTE* ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/io.lisp
; in: DEFMETHOD WRITE-BYTE* :AFTER (T FLEXI-IO-STREAM)
; (INCF POSITION)
; --> LET*
; ==>
; (+ 1 (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G56))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/io-tmpO1PDDUR.fasl
; compilation finished in 0:00:00.285
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/strings.lisp" (written 14 DEC 2018 11:33:30 AM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFUN STRING-TO-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN STRING-TO-OCTETS
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN OCTETS-TO-STRING ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN OCTETS-TO-STRING
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN OCTET-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN OCTET-LENGTH
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN CHAR-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN CHAR-LENGTH
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/strings-tmpIX4U16ZB.fasl
; compilation finished in 0:00:00.206
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl.lisp" (written 06 NOV 2019 05:57:11 AM):
; processing (DEFPACKAGE :BORDEAUX-THREADS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl-tmp93OFNPHA.fasl
; compilation finished in 0:00:00.009
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads.lisp" (written 06 NOV 2019 05:57:11 AM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; processing (DEFVAR *SUPPORTS-THREADS-P* ...)
; processing (DEFUN MARK-SUPPORTED ...)
; processing (DEFINE-CONDITION BORDEAUX-MP-CONDITION ...)
; processing (DEFGENERIC MAKE-THREADING-SUPPORT-ERROR ...)
; processing (DEFSTRUCT %SEMAPHORE ...)
; processing (DEFVAR *DEFAULT-SPECIAL-BINDINGS* ...)
; processing (DEFMACRO DEFBINDINGS ...)
; processing (DEFBINDINGS *STANDARD-IO-BINDINGS* ...)
; processing (DEFUN BINDING-DEFAULT-SPECIALS ...)
; processing (DEFUN SIGNAL-ERROR-IF-CURRENT-THREAD ...)
; processing (DEFPARAMETER *NO-CONDITION-WAIT-TIMEOUT-MESSAGE* ...)
; processing (DEFUN SIGNAL-ERROR-IF-CONDITION-WAIT-TIMEOUT ...)
; processing (DEFMACRO DEFINE-CONDITION-WAIT-COMPILER-MACRO ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads-tmpOH5AKS8D.fasl
; compilation finished in 0:00:00.312
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/impl-null.lisp" (written 06 NOV 2019 05:57:11 AM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/impl-null-tmpTNV77KDS.fasl
; compilation finished in 0:00:00.006
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp" (written 06 NOV 2019 05:57:11 AM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; processing (DEFMACRO DEFDFUN ...)
; processing (DEFMACRO DEFDMACRO ...)
; processing (DEFDFUN START-MULTIPROCESSING ...)
; processing (DEFDFUN MAKE-THREAD ...)
; processing (DEFDFUN %MAKE-THREAD ...)
; processing (DEFDFUN CURRENT-THREAD ...)
; processing (DEFDFUN THREADP ...)
; processing (DEFDFUN THREAD-NAME ...)
; processing (DEFDFUN LOCK-P ...)
; processing (DEFDFUN RECURSIVE-LOCK-P ...)
; processing (DEFDFUN MAKE-LOCK ...)
; processing (DEFDFUN ACQUIRE-LOCK ...)
; processing (DEFDFUN RELEASE-LOCK ...)
; processing (DEFDMACRO WITH-LOCK-HELD ...)
; processing (DEFDFUN MAKE-RECURSIVE-LOCK ...)
; processing (DEFDFUN ACQUIRE-RECURSIVE-LOCK ...)
; processing (DEFDFUN RELEASE-RECURSIVE-LOCK ...)
; processing (DEFDMACRO WITH-RECURSIVE-LOCK-HELD ...)
; processing (DEFDFUN THREAD-YIELD ...)
; processing (DEFDFUN MAKE-CONDITION-VARIABLE ...)
; processing (DEFDFUN CONDITION-WAIT ...)
; processing (DEFDFUN CONDITION-NOTIFY ...)
; processing (DEFDFUN MAKE-SEMAPHORE ...)
; processing (DEFDFUN SIGNAL-SEMAPHORE ...)
; processing (DEFDFUN WAIT-ON-SEMAPHORE ...)
; processing (DEFDFUN SEMAPHORE-P ...)
; processing (DEFDFUN ALL-THREADS ...)
; processing (DEFDFUN INTERRUPT-THREAD ...)
; processing (DEFDFUN DESTROY-THREAD ...)
; processing (DEFDFUN THREAD-ALIVE-P ...)
; processing (DEFDFUN JOIN-THREAD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations-tmp9AOKGDLT.fasl
; compilation finished in 0:00:01.026
; compiling file "/usr/share/common-lisp/source/trivial-garbage/trivial-garbage.lisp" (written 18 MAY 2019 01:31:02 PM):
; processing (DEFPACKAGE #:TRIVIAL-GARBAGE ...)
; processing (IN-PACKAGE #:TRIVIAL-GARBAGE)
; processing (DEFUN GC ...)
; processing (DEFUN MAKE-WEAK-POINTER ...)
; processing (DEFUN WEAK-POINTER-P ...)
; processing (DEFUN WEAK-POINTER-VALUE ...)
; processing (DEFUN WEAKNESS-KEYWORD-ARG ...)
; processing (DEFVAR *WEAKNESS-WARNINGS* ...)
; processing (DEFUN WEAKNESS-MISSING ...)
; processing (DEFUN WEAKNESS-KEYWORD-OPT ...)
; processing (DEFUN MAKE-WEAK-HASH-TABLE ...)
; file: /usr/share/common-lisp/source/trivial-garbage/trivial-garbage.lisp
; in: DEFUN MAKE-WEAK-HASH-TABLE
; (IF TRIVIAL-GARBAGE::ARG
; (LIST* TRIVIAL-GARBAGE::ARG TRIVIAL-GARBAGE::OPT TRIVIAL-GARBAGE::ARGS)
; TRIVIAL-GARBAGE::ARGS)
; ==>
; TRIVIAL-GARBAGE::ARGS
;
; note: deleting unreachable code
; processing (DEFUN MAKE-HASH-TABLE ...)
; processing (DEFUN HASH-TABLE-WEAKNESS ...)
; processing (DEFUN FINALIZE ...)
; processing (DEFUN CANCEL-FINALIZATION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-garbage/trivial-garbage-tmpXS9JOGMS.fasl
; compilation finished in 0:00:00.183
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/package.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL+SSL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/package-tmpERBDX74X.fasl
; compilation finished in 0:00:00.011
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/reload.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (CFFI:DEFINE-FOREIGN-LIBRARY LIBCRYPTO ...)
; processing (CFFI:DEFINE-FOREIGN-LIBRARY LIBSSL ...)
; processing (UNLESS (MEMBER :CL+SSL-FOREIGN-LIBS-ALREADY-LOADED ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/reload-tmpTQIEF2IQ.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/conditions.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFCONSTANT +SSL-ERROR-NONE+ ...)
; processing (DEFCONSTANT +SSL-ERROR-SSL+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-READ+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-WRITE+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-X509-LOOKUP+ ...)
; processing (DEFCONSTANT +SSL-ERROR-SYSCALL+ ...)
; processing (DEFCONSTANT +SSL-ERROR-ZERO-RETURN+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-CONNECT+ ...)
; processing (DEFUN READ-SSL-ERROR-QUEUE ...)
; processing (DEFUN FORMAT-SSL-ERROR-QUEUE ...)
; processing (DEFINE-CONDITION CL+SSL-ERROR ...)
; processing (DEFINE-CONDITION SSL-ERROR ...)
; processing (DEFINE-CONDITION SSL-ERROR/HANDLE ...)
; processing (DEFINE-CONDITION SSL-ERROR-INITIALIZE ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-SOMETHING ...)
; processing (DEFINE-CONDITION SSL-ERROR-NONE ...)
; processing (DEFINE-CONDITION SSL-ERROR-ZERO-RETURN ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-READ ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-WRITE ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-CONNECT ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-X509-LOOKUP ...)
; processing (DEFINE-CONDITION SSL-ERROR-SYSCALL ...)
; processing (DEFINE-CONDITION SSL-ERROR-SSL ...)
; processing (DEFUN SSL-SIGNAL-ERROR ...)
; processing (DEFPARAMETER *SSL-VERIFY-ERROR-ALIST* ...)
; processing (DEFUN SSL-VERIFY-ERROR-KEYWORD ...)
; processing (DEFUN SSL-VERIFY-ERROR-CODE ...)
; processing (DEFINE-CONDITION SSL-ERROR-VERIFY ...)
; processing (DEFINE-CONDITION SSL-ERROR-CALL ...)
; processing (DEFINE-CONDITION ASN1-ERROR ...)
; processing (DEFINE-CONDITION INVALID-ASN1-STRING ...)
; processing (DEFINE-CONDITION SERVER-CERTIFICATE-MISSING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/conditions-tmpPAAFO6LP.fasl
; compilation finished in 0:00:00.629
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFPARAMETER *LATE-BOUND-FOREIGN-FUNCTION-POINTERS* ...)
; processing (DEFMACRO DEFCFUN-LATE-BOUND ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFMACRO DEFCFUN-LATE-BOUND
; (LENGTH CL+SSL::NAME-AND-OPTIONS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFMACRO DEFCFUN-VERSIONED ...)
; processing (DEFVAR *CL+SSL-SSL-FOREIGN-FUNCTION-NAMES* ...)
; processing (DEFVAR *CL+SSL-CRYPTO-FOREIGN-FUNCTION-NAMES* ...)
; processing (DEFMACRO DEFINE-SSL-FUNCTION-EX ...)
; processing (DEFMACRO DEFINE-SSL-FUNCTION ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION-EX ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION ...)
; processing (DEFVAR *SSL-GLOBAL-CONTEXT* ...)
; processing (DEFVAR *SSL-GLOBAL-METHOD* ...)
; processing (DEFVAR *BIO-LISP-METHOD* ...)
; processing (DEFPARAMETER *BLOCKP* ...)
; processing (DEFPARAMETER *PARTIAL-READ-P* ...)
; processing (DEFUN SSL-INITIALIZED-P ...)
; processing (DEFCONSTANT +SSL-FILETYPE-PEM+ ...)
; processing (DEFCONSTANT +SSL-FILETYPE-ASN1+ ...)
; processing (DEFCONSTANT +SSL-FILETYPE-DEFAULT+ ...)
; processing (DEFCONSTANT +SSL-CTRL-OPTIONS+ ...)
; processing (DEFCONSTANT +SSL_CTRL_SET_SESS_CACHE_MODE+ ...)
; processing (DEFCONSTANT +SSL_CTRL_MODE+ ...)
; processing (DEFCONSTANT +SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER+ ...)
; processing (DEFCONSTANT +RSA_F4+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-OFF+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-CLIENT+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-SERVER+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-BOTH+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-AUTO-CLEAR+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-LOOKUP+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-STORE+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-NONE+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-PEER+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-FAIL-IF-NO-PEER-CERT+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-CLIENT-ONCE+ ...)
; processing (DEFCONSTANT +SSL-OP-ALL+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-SSLV2+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-SSLV3+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1-2+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1-1+ ...)
; processing (DEFVAR *TMP-RSA-KEY-512* ...)
; processing (DEFVAR *TMP-RSA-KEY-1024* ...)
; processing (DEFVAR *TMP-RSA-KEY-2048* ...)
; processing (DEFMACRO WHILE ...)
; processing (CFFI:DEFCFUN ("close" CLOSE-SOCKET) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCFUN ("close" CLOSE-SOCKET)
; (CFFI:DEFCFUN ("close" CL+SSL::CLOSE-SOCKET)
; :INT
; (CL+SSL::SOCKET :INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::CLOSE-SOCKET
; (CL+SSL::SOCKET)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::CLOSE-SOCKET
; (LET ((#:G0 CL+SSL::SOCKET))
; (CFFI-SYS:%FOREIGN-FUNCALL "close" (:INT #:G0 :INT) :CONVENTION
; :CDECL :LIBRARY :DEFAULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DECLAIM (INLINE SSL-WRITE ...))
; processing (CFFI:DEFCTYPE SSL-METHOD ...)
; processing (CFFI:DEFCTYPE SSL-CTX ...)
; processing (CFFI:DEFCTYPE SSL-POINTER ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLeay" CL+SSL::SSL-EAY) :LONG)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-EAY
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY
; :DEFAULT)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; ("OpenSSL_version_num"
; CL+SSL::OPENSSL-VERSION-NUM)
; :LONG)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-VERSION-NUM
; (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION
; :CDECL :LIBRARY :DEFAULT)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN COMPAT-OPENSSL-VERSION ...)
; processing (DEFUN ENCODE-OPENSSL-VERSION ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN ENCODE-OPENSSL-VERSION
; (DEFUN CL+SSL::ENCODE-OPENSSL-VERSION
; (CL+SSL::MAJOR CL+SSL::MINOR
; &OPTIONAL (CL+SSL::PATCH 0) (CL+SSL::PRERELEASE))
; "Builds a version number to compare OpenSSL against.
; Note: the _really_ old formats (<= 0.9.4) are not supported."
; (DECLARE (TYPE (INTEGER 0 3) CL+SSL::MAJOR)
; (TYPE (INTEGER 0 10) CL+SSL::MINOR)
; (TYPE (INTEGER 0 20) CL+SSL::PATCH))
; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20) (ASH CL+SSL::PATCH 4)
; (IF CL+SSL::PRERELEASE
; 15
; 0)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ENCODE-OPENSSL-VERSION
; (CL+SSL::MAJOR CL+SSL::MINOR &OPTIONAL (CL+SSL::PATCH 0)
; (CL+SSL::PRERELEASE))
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; "Builds a version number to compare OpenSSL against.
; Note: the _really_ old formats (<= 0.9.4) are not supported."
; (DECLARE (TYPE (INTEGER 0 3) CL+SSL::MAJOR)
; (TYPE (INTEGER 0 10) CL+SSL::MINOR)
; (TYPE (INTEGER 0 20) CL+SSL::PATCH))
; (BLOCK CL+SSL::ENCODE-OPENSSL-VERSION
; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20)
; (ASH CL+SSL::PATCH 4)
; (IF CL+SSL::PRERELEASE
; 15
; 0))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN OPENSSL-IS-AT-LEAST ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OPENSSL-IS-AT-LEAST
; (>= (CL+SSL::COMPAT-OPENSSL-VERSION)
; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH
; CL+SSL::PRERELEASE))
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * 8.15792463d8)
; (SINGLE-FLOAT * 8.1579245e8)
; (RATIONAL * 815792463)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do 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 (MOD 815792464), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN OPENSSL-IS-NOT-EVEN ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OPENSSL-IS-NOT-EVEN
; (< (CL+SSL::COMPAT-OPENSSL-VERSION)
; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH
; CL+SSL::PRERELEASE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do 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 (MOD 815792464), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN LIBRESSLP ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN LIBRESSLP
; (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; processing (DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_get_version" CL+SSL::SSL-GET-VERSION)
; :STRING (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSL_library_init" CL+SSL::SSL-LIBRARY-INIT)
; :INT)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LIBRARY-INIT
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-LIBRARY-INIT
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_library_init" (:INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLv23_client_method"
; CL+SSL::SSL-V23-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLv23_server_method"
; CL+SSL::SSL-V23-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLv23_method" CL+SSL::SSL-V23-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V23-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLv3_client_method"
; CL+SSL::SSL-V3-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLv3_server_method"
; CL+SSL::SSL-V3-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSLv3_method" CL+SSL::SSL-V3-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V3-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD) CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD) CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD)
; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; ("TLSv1_1_client_method"
; CL+SSL::SSL-TLSV1-1-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; ("TLSv1_1_server_method"
; CL+SSL::SSL-TLSV1-1-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; ("TLSv1_2_client_method"
; CL+SSL::SSL-TLSV1-2-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; ("TLSv1_2_server_method"
; CL+SSL::SSL-TLSV1-2-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; ("TLS_method" CL+SSL::TLS-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::TLS-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW)
; CL+SSL::SSL-CTX (METHOD CL+SSL::SSL-METHOD))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-NEW
; (LET ((#:G0 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_new" CL+SSL::SSL-NEW) CL+SSL::SSL-POINTER
; (CL+SSL::CTX CL+SSL::SSL-CTX))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-NEW
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_get_fd" SSL-GET-FD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_fd" SSL-GET-FD)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_get_fd" CL+SSL::SSL-GET-FD) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-FD
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-FD
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_fd" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_set_fd" SSL-SET-FD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_set_fd" SSL-SET-FD)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_set_fd" CL+SSL::SSL-SET-FD) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::FD :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-SET-FD
; (CL+SSL::SSL CL+SSL::FD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-SET-FD
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_set_fd" # :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_set_bio" SSL-SET-BIO) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_get_error" SSL-GET-ERROR) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_error" SSL-GET-ERROR)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_get_error" CL+SSL::SSL-GET-ERROR) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::RET :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-ERROR
; (CL+SSL::SSL CL+SSL::RET)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-ERROR
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_error" # :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_set_connect_state" SSL-SET-CONNECT-STATE) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_set_accept_state" SSL-SET-ACCEPT-STATE) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_connect" SSL-CONNECT) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_connect" SSL-CONNECT)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_connect" CL+SSL::SSL-CONNECT) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CONNECT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CONNECT
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_connect" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_accept" SSL-ACCEPT) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_accept" SSL-ACCEPT)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_accept" CL+SSL::SSL-ACCEPT) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-ACCEPT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-ACCEPT
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_accept" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_write" SSL-WRITE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_write" SSL-WRITE)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_write" CL+SSL::SSL-WRITE) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::BUF :POINTER) (CL+SSL::NUM :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-WRITE
; (CL+SSL::SSL CL+SSL::BUF CL+SSL::NUM)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-WRITE
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_read" SSL-READ) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_read" SSL-READ)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_read" CL+SSL::SSL-READ) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::BUF :POINTER) (CL+SSL::NUM :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-READ
; (CL+SSL::SSL CL+SSL::BUF CL+SSL::NUM)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-READ
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_shutdown" SSL-SHUTDOWN) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_free" SSL-FREE) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_free" SSL-CTX-FREE) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" CL+SSL::BIO-SET-FD) :LONG
; (CL+SSL::BIO :POINTER) (CL+SSL::CMD :INT)
; (CL+SSL::LARG :LONG) (CL+SSL::PARG :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD
; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-FD
; (LET ((#:G0 CL+SSL::BIO))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET)
; :POINTER (CL+SSL::FD :INT)
; (CL+SSL::CLOSE-FLAG :INT))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET
; (CL+SSL::FD CL+SSL::CLOSE-FLAG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW-SOCKET
; (LET ((#:G0 CL+SSL::FD))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL
; :LIBRARY :DEFAULT)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("BIO_new" CL+SSL::BIO-NEW) :POINTER
; (METHOD :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW
; (LET ((#:G0 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ERR_get_error" CL+SSL::ERR-GET-ERROR)
; :UNSIGNED-LONG)
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ERR-GET-ERROR
; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION
; :CDECL :LIBRARY :DEFAULT)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ERR_error_string" CL+SSL::ERR-ERROR-STRING)
; :STRING (CL+SSL::E :UNSIGNED-LONG)
; (CL+SSL::BUF :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN
; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string"
; (:UNSIGNED-LONG #:G0 :POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY :DEFAULT)
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFINE-SSL-FUNCTION ("SSL_set_cipher_list" SSL-SET-CIPHER-LIST) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_set_cipher_list" SSL-SET-CIPHER-LIST)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_set_cipher_list" CL+SSL::SSL-SET-CIPHER-LIST) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER) (CL+SSL::STR :STRING))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-SET-CIPHER-LIST
; (CL+SSL::SSL CL+SSL::STR)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-SET-CIPHER-LIST
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_use_RSAPrivateKey_file" SSL-USE-RSA-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_use_RSAPrivateKey_file" SSL-USE-RSA-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_use_RSAPrivateKey_file" CL+SSL::SSL-USE-RSA-PRIVATEKEY-FILE) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER) (CL+SSL::STR :STRING) (TYPE :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-USE-RSA-PRIVATEKEY-FILE
; (CL+SSL::SSL CL+SSL::STR TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-USE-RSA-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_RSAPrivateKey_file" SSL-CTX-USE-RSA-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_use_RSAPrivateKey_file"
; SSL-CTX-USE-RSA-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_use_RSAPrivateKey_file" CL+SSL::SSL-CTX-USE-RSA-PRIVATEKEY-FILE)
; :INT (CL+SSL::CTX CL+SSL::SSL-CTX) (TYPE :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-USE-RSA-PRIVATEKEY-FILE
; (CL+SSL::CTX TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-USE-RSA-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_use_RSAPrivateKey_file" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_use_PrivateKey_file" SSL-USE-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_use_PrivateKey_file" SSL-USE-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_use_PrivateKey_file" CL+SSL::SSL-USE-PRIVATEKEY-FILE) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER) (CL+SSL::STR :STRING) (TYPE :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-USE-PRIVATEKEY-FILE
; (CL+SSL::SSL CL+SSL::STR TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-USE-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_PrivateKey_file" SSL-CTX-USE-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_use_PrivateKey_file" SSL-CTX-USE-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_use_PrivateKey_file" CL+SSL::SSL-CTX-USE-PRIVATEKEY-FILE) :INT
; (CL+SSL::CTX CL+SSL::SSL-CTX) (TYPE :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-USE-PRIVATEKEY-FILE
; (CL+SSL::CTX TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-USE-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_use_PrivateKey_file" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_use_certificate_file" SSL-USE-CERTIFICATE-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_use_certificate_file" SSL-USE-CERTIFICATE-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_use_certificate_file" CL+SSL::SSL-USE-CERTIFICATE-FILE) :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER) (CL+SSL::STR :STRING) (TYPE :INT))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-USE-CERTIFICATE-FILE
; (CL+SSL::SSL CL+SSL::STR TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-USE-CERTIFICATE-FILE
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN SSL-CTX-SET-OPTIONS ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SSL-CTX-SET-OPTIONS
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS
; (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_cipher_list" SSL-CTX-SET-CIPHER-LIST%) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_set_cipher_list" SSL-CTX-SET-CIPHER-LIST%)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_set_cipher_list" CL+SSL::SSL-CTX-SET-CIPHER-LIST%) :INT
; (CL+SSL::CTX :POINTER) (CL+SSL::CIPHERS :POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-CIPHER-LIST%
; (CL+SSL::CTX CL+SSL::CIPHERS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-CIPHER-LIST%
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_cipher_list" # :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN SSL-CTX-SET-CIPHER-LIST ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_certificate_chain_file" SSL-CTX-USE-CERTIFICATE-CHAIN-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_use_certificate_chain_file"
; SSL-CTX-USE-CERTIFICATE-CHAIN-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_use_certificate_chain_file"
; CL+SSL::SSL-CTX-USE-CERTIFICATE-CHAIN-FILE)
; :INT (CL+SSL::CTX CL+SSL::SSL-CTX) (CL+SSL::STR :STRING))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-USE-CERTIFICATE-CHAIN-FILE
; (CL+SSL::CTX CL+SSL::STR)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-USE-CERTIFICATE-CHAIN-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_load_verify_locations" SSL-CTX-LOAD-VERIFY-LOCATIONS) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_load_verify_locations"
; SSL-CTX-LOAD-VERIFY-LOCATIONS)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_load_verify_locations" CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS) :INT
; (CL+SSL::CTX CL+SSL::SSL-CTX) (CL+SSL::CAFILE :STRING)
; (CL+SSL::CAPATH :STRING))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS
; (CL+SSL::CTX CL+SSL::CAFILE CL+SSL::CAPATH)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS
; (LET ((#:G0 CL+SSL::CTX))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM4)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::CAFILE #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_client_CA_list" SSL-CTX-SET-CLIENT-CA-LIST) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE)
; CL+SSL::SSL-POINTER (CL+SSL::FILE :STRING))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE
; (CL+SSL::FILE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE
; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM1)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; (UNWIND-PROTECT (PROGN #)
; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM1)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL) :LONG
; (CL+SSL::CTX CL+SSL::SSL-CTX) (CL+SSL::CMD :INT)
; (CL+SSL::LARG :UNSIGNED-LONG)
; (CL+SSL::PARG :POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL
; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-CTRL
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL)
; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_ctrl" CL+SSL::SSL-CTRL) :LONG
; (CL+SSL::SSL :POINTER) (CL+SSL::CMD :INT)
; (CL+SSL::LARG :LONG) (CL+SSL::PARG :POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL
; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTRL
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_passwd_cb" SSL-CTX-SET-DEFAULT-PASSWD-CB) ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; ("CRYPTO_num_locks"
; CL+SSL::CRYPTO-NUM-LOCKS)
; :INT)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::CRYPTO-NUM-LOCKS
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::CRYPTO-NUM-LOCKS
; (CFFI-SYS:%FOREIGN-FUNCALL "CRYPTO_num_locks" (:INT) :CONVENTION :CDECL
; :LIBRARY :DEFAULT)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-CRYPTO-FUNCTION ("RAND_seed" RAND-SEED) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("RAND_bytes" RAND-BYTES) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("RAND_bytes" RAND-BYTES)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("RAND_bytes" CL+SSL::RAND-BYTES) :INT
; (CL+SSL::BUF :POINTER) (CL+SSL::NUM :INT))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::RAND-BYTES
; (CL+SSL::BUF CL+SSL::NUM)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::RAND-BYTES
; (LET ((#:G0 CL+SSL::BUF))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "RAND_bytes" # :CONVENTION :CDECL
; :LIBRARY :DEFAULT)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify_depth" SSL-CTX-SET-VERIFY-DEPTH) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify" SSL-CTX-SET-VERIFY) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT) :LONG
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result"
; (:POINTER #:G0 :LONG) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" SSL-GET-PEER-CERTIFICATE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" SSL-GET-PEER-CERTIFICATE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE) :POINTER
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_free" X509-FREE) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE) :POINTER
; (CL+SSL::X509-NAME :POINTER) (CL+SSL::BUF :POINTER) (CL+SSL::SIZE :INT))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE
; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-ONELINE
; (LET ((#:G0 CL+SSL::X509-NAME))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_index_by_NID" X509-NAME-GET-INDEX-BY-NID) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_index_by_NID"
; X509-NAME-GET-INDEX-BY-NID)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_get_index_by_NID" CL+SSL::X509-NAME-GET-INDEX-BY-NID) :INT
; (CL+SSL::NAME :POINTER) (CL+SSL::NID :INT) (CL+SSL::LASTPOS :INT))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-INDEX-BY-NID
; (CL+SSL::NAME CL+SSL::NID CL+SSL::LASTPOS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-GET-INDEX-BY-NID
; (LET ((#:G0 CL+SSL::NAME))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY) :POINTER
; (CL+SSL::NAME :POINTER) (LOG :INT))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY
; (CL+SSL::NAME LOG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-GET-ENTRY
; (LET ((#:G0 CL+SSL::NAME))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION
; :CDECL :LIBRARY :DEFAULT)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA) :POINTER
; (CL+SSL::NAME-ENTRY :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA
; (CL+SSL::NAME-ENTRY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA
; (LET ((#:G0 CL+SSL::NAME-ENTRY))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME) :POINTER
; (CL+SSL::X509 :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-ISSUER-NAME
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME) :POINTER
; (CL+SSL::X509 :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I)
; :POINTER (CL+SSL::CERT :POINTER)
; (CL+SSL::NID :INT) (CL+SSL::CRIT :POINTER)
; (CL+SSL::IDX :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I
; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-EXT-D2I
; (LET ((#:G0 CL+SSL::CERT))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_STORE_CTX_get_error" X509-STORE-CTX-GET-ERROR) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_STORE_CTX_get_error" X509-STORE-CTX-GET-ERROR)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_STORE_CTX_get_error" CL+SSL::X509-STORE-CTX-GET-ERROR) :INT
; (CL+SSL::CTX :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-STORE-CTX-GET-ERROR
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-STORE-CTX-GET-ERROR
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_STORE_CTX_get_error"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY :DEFAULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("d2i_X509" CL+SSL::D2I-X509) :POINTER
; (CL+SSL::*PX :POINTER) (CL+SSL::IN :POINTER)
; (CL+SSL::LEN :INT))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509
; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::D2I-X509
; (LET ((#:G0 CL+SSL::*PX))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFCONSTANT +GEN-OTHERNAME+ ...)
; processing (DEFCONSTANT +GEN-EMAIL+ ...)
; processing (DEFCONSTANT +GEN-DNS+ ...)
; processing (DEFCONSTANT +GEN-X400+ ...)
; processing (DEFCONSTANT +GEN-DIRNAME+ ...)
; processing (DEFCONSTANT +GEN-EDIPARTY+ ...)
; processing (DEFCONSTANT +GEN-URI+ ...)
; processing (DEFCONSTANT +GEN-IPADD+ ...)
; processing (DEFCONSTANT +GEN-RID+ ...)
; processing (DEFCONSTANT +V-ASN1-OCTET-STRING+ ...)
; processing (DEFCONSTANT +V-ASN1-UTF8STRING+ ...)
; processing (DEFCONSTANT +V-ASN1-PRINTABLESTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-TELETEXSTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-IASTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-UNIVERSALSTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-BMPSTRING+ ...)
; processing (DEFCONSTANT +NID-SUBJECT-ALT-NAME+ ...)
; processing (DEFCONSTANT +NID-COMMONNAME+ ...)
; processing (CFFI:DEFCSTRUCT GENERAL-NAME ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; ("sk_value" CL+SSL::SK-VALUE) :POINTER
; (CL+SSL::STACK :POINTER)
; (CL+SSL::INDEX :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE
; (CL+SSL::STACK CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-VALUE
; (LET ((#:G0 CL+SSL::STACK))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY
; :DEFAULT)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; ("sk_num" CL+SSL::SK-NUM) :INT
; (CL+SSL::STACK :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-NUM
; (CL+SSL::STACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-NUM
; (LET ((#:G0 CL+SSL::STACK))
; (CFFI-SYS:%FOREIGN-FUNCALL "sk_num" (:POINTER #:G0 :INT) :CONVENTION
; :CDECL :LIBRARY :DEFAULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; ("OPENSSL_sk_value"
; CL+SSL::OPENSSL-SK-VALUE)
; :POINTER (CL+SSL::STACK :POINTER)
; (CL+SSL::INDEX :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-VALUE
; (CL+SSL::STACK CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-SK-VALUE
; (LET ((#:G0 CL+SSL::STACK))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL
; :LIBRARY :DEFAULT)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; ("OPENSSL_sk_num" CL+SSL::OPENSSL-SK-NUM)
; :INT (CL+SSL::STACK :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-NUM
; (CL+SSL::STACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-SK-NUM
; (LET ((#:G0 CL+SSL::STACK))
; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_num" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY :DEFAULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SK-GENERAL-NAME-VALUE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SK-GENERAL-NAME-VALUE
; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX)
; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)
; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE
; (CL+SSL::NAMES CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE
; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)
; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))))
;
; note: Type assertion too complex to check:
; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T).
; It allows an unknown number of values, consider using
; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL).
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SK-GENERAL-NAME-NUM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SK-GENERAL-NAME-NUM
; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES)
; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES)
; (CL+SSL::SK-NUM CL+SSL::NAMES)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM
; (CL+SSL::NAMES)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM
; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES)
; (CL+SSL::SK-NUM CL+SSL::NAMES))))
;
; note: Type assertion too complex to check:
; (VALUES FIXNUM &REST T).
; It allows an unknown number of values, consider using
; (VALUES FIXNUM &OPTIONAL).
; processing (DEFINE-CRYPTO-FUNCTION ("GENERAL_NAMES_free" GENERAL-NAMES-FREE) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA)
; :POINTER (CL+SSL::ASN1-STRING :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-DATA
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_length" ASN1-STRING-LENGTH) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_length" ASN1-STRING-LENGTH)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_STRING_length" CL+SSL::ASN1-STRING-LENGTH) :INT
; (CL+SSL::ASN1-STRING :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-LENGTH
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-LENGTH
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_length" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY :DEFAULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" ASN1-STRING-TYPE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" ASN1-STRING-TYPE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" CL+SSL::ASN1-STRING-TYPE)
; :INT (CL+SSL::ASN1-STRING :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-TYPE
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-TYPE
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_type" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY :DEFAULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (CFFI:DEFCSTRUCT ASN1_STRING_ST ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_verify_paths" SSL-CTX-SET-DEFAULT-VERIFY-PATHS) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_verify_paths"
; SSL-CTX-SET-DEFAULT-VERIFY-PATHS)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_set_default_verify_paths"
; CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-PATHS)
; :INT (CL+SSL::CTX :POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-PATHS
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-PATHS
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_default_verify_paths"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; ("SSL_CTX_set_default_verify_dir"
; CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-DIR)
; :INT (CL+SSL::CTX :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-DIR
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-DIR
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_default_verify_dir"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; ("SSL_CTX_set_default_verify_file"
; CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-FILE)
; :INT (CL+SSL::CTX :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-FILE
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_default_verify_file"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY)
; :POINTER (CL+SSL::NUM :INT)
; (CL+SSL::E :UNSIGNED-LONG)
; (CL+SSL::CALLBACK :POINTER)
; (CL+SSL::OPT :POINTER))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX PROGN CL+SSL::DEFCFUN-VERSIONED
; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY
; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::RSA-GENERATE-KEY
; (LET ((#:G0 CL+SSL::NUM))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("RSA_free" RSA-FREE) ...)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; ("SSL_CTX_set_tmp_rsa_callback"
; CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK)
; :POINTER (CL+SSL::CTX :POINTER)
; (CL+SSL::CALLBACK :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK
; (CL+SSL::CTX CL+SSL::CALLBACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL::LIBSSL)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (CFFI:DEFCALLBACK TMP-RSA-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK
; (= CL+SSL::KEY-LENGTH 512)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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+SSL::KEY-LENGTH 1024)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER)
; (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFVAR *SOCKET*)
; processing (DECLAIM (INLINE ENSURE-SSL-FUNCALL))
; processing (DEFUN ENSURE-SSL-FUNCALL ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN ENSURE-SSL-FUNCALL
; (APPLY CL+SSL::FUNC CL+SSL::ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL+SSL::FUNC)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FUNC is not known to be a function
; (PLUSP CL+SSL::NBYTES)
; ==>
; (> CL+SSL::NBYTES 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; processing (DECLAIM (INLINE NONBLOCKING-SSL-FUNCALL))
; processing (DEFUN NONBLOCKING-SSL-FUNCALL ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN NONBLOCKING-SSL-FUNCALL
; (APPLY CL+SSL::FUNC CL+SSL::ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL+SSL::FUNC)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FUNC is not known to be a function
; (PLUSP CL+SSL::NBYTES)
; ==>
; (> CL+SSL::NBYTES 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; processing (DEFUN OUTPUT-WAIT ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OUTPUT-WAIT
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
; INTERNAL-TIME-UNITS-PER-SECOND)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFUN INPUT-WAIT ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN INPUT-WAIT
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
; INTERNAL-TIME-UNITS-PER-SECOND)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFVAR *PEM-PASSWORD* ...)
; processing (CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK
; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING)
; --> THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL (AND (NOT BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> THE IF
; ==>
; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'BASE-CHAR) SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR CONS NULL (AND (NOT BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; CHARACTER
; (*)).
; (1- CL+SSL::SIZE)
; ==>
; (- CL+SSL::SIZE 1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST
; T).
; etc.
; (CFFI:DEFCALLBACK CL+SSL::PEM-PASSWORD-CALLBACK
; :INT
; ((CL+SSL::BUF :POINTER) (CL+SSL::SIZE :INT) (CL+SSL::RWFLAG :INT)
; (CL+SSL::UNUSED :POINTER))
; (DECLARE (IGNORE CL+SSL::RWFLAG CL+SSL::UNUSED))
; (LET* ((CL+SSL::PASSWORD-STR (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING))
; (CL+SSL::TMP (CFFI:FOREIGN-STRING-ALLOC CL+SSL::PASSWORD-STR)))
; (CFFI:FOREIGN-FUNCALL "strncpy" :POINTER CL+SSL::BUF :POINTER CL+SSL::TMP
; :INT CL+SSL::SIZE)
; (CFFI:FOREIGN-STRING-FREE CL+SSL::TMP)
; (SETF (CFFI:MEM-REF CL+SSL::BUF :CHAR #) 0)
; (CFFI:FOREIGN-FUNCALL "strlen" :POINTER CL+SSL::BUF :INT)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA
; ==>
; #'(LAMBDA (CL+SSL::BUF CL+SSL::SIZE CL+SSL::RWFLAG CL+SSL::UNUSED)
; (LET ((CL+SSL::BUF CL+SSL::BUF)
; (CL+SSL::SIZE CL+SSL::SIZE)
; (CL+SSL::RWFLAG CL+SSL::RWFLAG)
; (CL+SSL::UNUSED CL+SSL::UNUSED))
; (DECLARE (IGNORE CL+SSL::RWFLAG CL+SSL::UNUSED))
; (BLOCK CL+SSL::PEM-PASSWORD-CALLBACK
; (LET* (# #)
; (CFFI:FOREIGN-FUNCALL "strncpy" :POINTER CL+SSL::BUF :POINTER
; CL+SSL::TMP :INT CL+SSL::SIZE)
; (CFFI:FOREIGN-STRING-FREE CL+SSL::TMP)
; (SETF #)
; (CFFI:FOREIGN-FUNCALL "strlen" :POINTER CL+SSL::BUF :INT)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFMACRO WITH-PEM-PASSWORD ...)
; processing (DEFUN INIT-PRNG ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN INIT-PRNG
; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::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.
; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+
; CL+SSL::MODE (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-SET-TLSEXT-HOST-NAME ...)
; processing (DEFVAR *LOCKS*)
; processing (DEFCONSTANT +CRYPTO-LOCK+ ...)
; processing (DEFCONSTANT +CRYPTO-UNLOCK+ ...)
; processing (DEFCONSTANT +CRYPTO-READ+ ...)
; processing (DEFCONSTANT +CRYPTO-WRITE+ ...)
; processing (CFFI:DEFCALLBACK LOCKING-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK LOCKING-CALLBACK
; (ELT CL+SSL::*LOCKS* CL+SSL::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (LOGTEST CL+SSL::MODE CL+SSL::+CRYPTO-LOCK+)
; --> NOT IF ZEROP =
; ==>
; (LOGAND SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; (LOGTEST CL+SSL::MODE CL+SSL::+CRYPTO-UNLOCK+)
; --> NOT IF ZEROP =
; ==>
; (LOGAND SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFVAR *THREADS* ...)
; processing (DEFVAR *THREAD-COUNTER* ...)
; processing (DEFPARAMETER *GLOBAL-LOCK* ...)
; processing (CFFI:DEFCALLBACK THREADID-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK THREADID-CALLBACK
; (INCF CL+SSL::*THREAD-COUNTER*)
; --> SETQ THE
; ==>
; (+ 1 CL+SSL::*THREAD-COUNTER*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFVAR *SSL-CHECK-VERIFY-P* ...)
; processing (DEFUN DEFAULT-SSL-METHOD ...)
; processing (DEFUN INITIALIZE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN INITIALIZE
; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD)))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; processing (DEFUN ENSURE-INITIALIZED ...)
; processing (DEFUN USE-CERTIFICATE-CHAIN-FILE ...)
; processing (DEFUN RELOAD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-tmp4PCSVQUR.fasl
; compilation finished in 0:00:03.092
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/x509.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFGENERIC DECODE-ASN1-STRING ...)
; processing (DEFUN COPY-BYTES-TO-LISP-VECTOR ...)
; processing (DEFUN ASN1-STRING-BYTES-VECTOR ...)
; processing (DEFUN ASN1-IASTRING-CHAR-P ...)
; processing (DEFUN ASN1-IASTRING-P ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFUN ASN1-PRINTABLE-CHAR-P ...)
; processing (DEFUN ASN1-PRINTABLE-STRING-P ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFUN ASN1-TELETEX-CHAR-P ...)
; processing (DEFUN ASN1-TELETEX-STRING-P ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFUN TRY-GET-ASN1-STRING-DATA ...)
; processing (DEFUN SLURP-STREAM ...)
; processing (DEFMETHOD DECODE-CERTIFICATE ...)
; processing (DEFUN CERT-FORMAT-FROM-PATH ...)
; processing (DEFUN DECODE-CERTIFICATE-FROM-FILE ...)
; processing (DEFUN CERTIFICATE-ALT-NAMES ...)
; processing (DEFUN CERTIFICATE-DNS-ALT-NAMES ...)
; processing (DEFUN CERTIFICATE-SUBJECT-COMMON-NAMES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/x509-tmpCUMSDKM4.fasl
; compilation finished in 0:00:00.646
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-all.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFCONSTANT +INITIAL-BUFFER-SIZE+ ...)
; processing (DECLAIM (INLINE MAKE-BUFFER ...))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-all-tmpVBY1FQ3S.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN MAKE-BUFFER ...)
; processing (DEFUN BUFFER-LENGTH ...)
; processing (DEFUN BUFFER-ELT ...)
; processing (DEFUN SET-BUFFER-ELT ...)
; processing (DEFSETF BUFFER-ELT ...)
; processing (DEFUN S/B-REPLACE ...)
; processing (DEFUN B/S-REPLACE ...)
; processing (DEFMACRO WITH-POINTER-TO-VECTOR-DATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-tmpS8NUOPMQ.fasl
; compilation finished in 0:00:00.219
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/streams.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFVAR *DEFAULT-CIPHER-LIST* ...)
; processing (DEFCLASS SSL-STREAM ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD PRINT-OBJECT (SSL-STREAM T)
; (FORMAT STREAM "for ~A" (CL+SSL::SSL-STREAM-SOCKET CL+SSL::OBJECT))
; ==>
; (FORMAT SB-C::DEST
; (SB-INT:NAMED-LAMBDA "fmt$for ~A"
; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
; (BLOCK NIL
; (WRITE-STRING "for " STREAM)
; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM))
; NIL)
; #:G9)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL)
; BASE-STRING), not a NULL.
; processing (DEFCLASS SSL-SERVER-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD CLOSE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD CLOSE (SSL-STREAM)
; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; processing (DEFMETHOD OPEN-STREAM-P ...)
; processing (DEFMETHOD STREAM-LISTEN ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK ELT AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CL+SSL::NONBLOCKING-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-READ
; CL+SSL::HANDLE CL+SSL::PTR 1)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; ((2 3) (RETURN CL+SSL::NBYTES))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK ELT AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-READ
; CL+SSL::HANDLE CL+SSL::PTR 1)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T)
; (- CL+SSL::END CL+SSL::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (PLUSP LENGTH)
; ==>
; (> LENGTH 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (< CL+SSL::START CL+SSL::END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (SETF (ELT CL+SSL::SEQ CL+SSL::START) (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM))
; ==>
; (SB-KERNEL:%SETELT CL+SSL::SEQ CL+SSL::START
; (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM))
;
; 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.
; (+ CL+SSL::START CL+SSL::READ-BYTES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1
; (+ CL+SSL::START CL+SSL::READ-BYTES))
; --> BLOCK
; ==>
; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 29) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (< CL+SSL::START CL+SSL::END)
;
; 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.
; (- CL+SSL::END CL+SSL::START)
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &REST T).
; etc.
; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (PLUSP LENGTH)
; ==>
; (> LENGTH 0)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (+ CL+SSL::START CL+SSL::READ-BYTES)
;
; 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 (INTEGER 1 2147483647), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-READ
; CL+SSL::HANDLE CL+SSL::PTR LENGTH)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; (+ CL+SSL::START CL+SSL::READ-BYTES)
;
; note: doing signed word to integer coercion (cost 20)
; (INCF CL+SSL::START CL+SSL::READ-BYTES)
; ==>
; (SETQ CL+SSL::START (+ CL+SSL::READ-BYTES CL+SSL::START))
;
; note: doing unsigned word to integer coercion (cost 20) to START
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T)
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; --> LET*
; ==>
; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM4))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (SETF (CL+SSL::BUFFER-ELT CL+SSL::BUF
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; CL+SSL::B)
; --> CL+SSL::SET-BUFFER-ELT BLOCK SETF
; ==>
; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL)
;
; 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.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; --> LET*
; ==>
; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM4))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-SEQUENCE (SSL-STREAM T T T)
; (- CL+SSL::END CL+SSL::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (>
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- CL+SSL::END CL+SSL::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; 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.
; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2
; CL+SSL::START :END2 CL+SSL::END)
; --> BLOCK
; ==>
; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 29) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)
; (- CL+SSL::END CL+SSL::START))
; --> LET*
; ==>
; (+ (- CL+SSL::END CL+SSL::START)
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM25))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START)
; --> BLOCK
; ==>
; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 29) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (- CL+SSL::END CL+SSL::START)
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &REST T).
; etc.
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
;
; 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 T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &REST T).
; etc.
; (>
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; (- CL+SSL::END CL+SSL::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 NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &REST T).
; etc.
; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)
; (- CL+SSL::END CL+SSL::START))
; --> LET*
; ==>
; (+ (- CL+SSL::END CL+SSL::START)
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM25))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (INCF CL+SSL::START (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
; ==>
; (SETQ CL+SSL::START (+ (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) CL+SSL::START))
;
; note: doing signed word to integer coercion (cost 20) to START
; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM)
; (PLUSP CL+SSL::FILL-PTR)
; ==>
; (> CL+SSL::FILL-PTR 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-WRITE
; CL+SSL::HANDLE CL+SSL::PTR CL+SSL::FILL-PTR)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFUN INSTALL-NONBLOCK-FLAG ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN INSTALL-NONBLOCK-FLAG
; (DEFUN CL+SSL::INSTALL-NONBLOCK-FLAG (CL+SSL::FD)
; (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-SETFL
; (LOGIOR (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-GETFL)
; SB-POSIX:O-NONBLOCK)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::INSTALL-NONBLOCK-FLAG
; (CL+SSL::FD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::INSTALL-NONBLOCK-FLAG
; (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-SETFL
; (LOGIOR (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-GETFL)
; SB-POSIX:O-NONBLOCK))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN INSTALL-HANDLE-AND-BIO ...)
; processing (DEFUN INSTALL-KEY-AND-CERT ...)
; processing (DEFUN X509-CERTIFICATE-NAMES ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN X509-CERTIFICATE-NAMES
; (CFFI-SYS:NULL-POINTER-P CL+SSL::X509-CERTIFICATE)
; --> BLOCK ZEROP = IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024)
; (LET ((CL+SSL::ISSUER-NAME
; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE))
; (CL+SSL::SUBJECT-NAME
; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE)))
; (VALUES
; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME)
; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024)
; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))
; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME)
; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024)
; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SB-C::RESTORING-NSP
; --> LET SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN SB-SYS:%PRIMITIVE
; ==>
; (SB-C::%%PRIMITIVE 'SB-C:ALLOC-NUMBER-STACK-SPACE '(1024))
;
; note: doing SAP to pointer coercion (cost 20), for:
; the first result of ALLOC-NUMBER-STACK-SPACE
; (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME)
; --> BLOCK ZEROP = IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME)
; --> BLOCK ZEROP = IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; processing (DEFMETHOD SSL-STREAM-HANDLE ...)
; processing (DEFUN SSL-STREAM-X509-CERTIFICATE ...)
; processing (DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS
; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT*
; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-SET-GLOBAL-DEFAULT-VERIFY-PATHS ...)
; processing (DEFUN SSL-CHECK-VERIFY-P ...)
; processing (DEFUN (SETF SSL-CHECK-VERIFY-P) ...)
; processing (DEFUN SSL-VERIFY-INIT ...)
; processing (DEFUN MAYBE-VERIFY-CLIENT-STREAM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN MAYBE-VERIFY-CLIENT-STREAM
; (CFFI-SYS:NULL-POINTER-P CL+SSL::SRV-CERT)
; --> BLOCK ZEROP = IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; processing (DEFUN HANDLE-EXTERNAL-FORMAT ...)
; processing (DEFMACRO WITH-NEW-SSL ...)
; processing (DEFVAR *MAKE-SSL-CLIENT-STREAM-VERIFY-DEFAULT* ...)
; processing (DEFUN MAKE-SSL-CLIENT-STREAM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN MAKE-SSL-CLIENT-STREAM
; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
; ==>
; (= (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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+SSL::WITH-NEW-SSL (CL+SSL::HANDLE)
; (IF CL+SSL::HOSTNAME
; (CFFI:WITH-FOREIGN-STRING (CL+SSL::CHOSTNAME
; CL+SSL::HOSTNAME)
; (CL+SSL::SSL-SET-TLSEXT-HOST-NAME CL+SSL::HANDLE
; CL+SSL::CHOSTNAME)))
; (SETF CL+SSL::SOCKET
; (CL+SSL::INSTALL-HANDLE-AND-BIO STREAM
; CL+SSL::HANDLE CL+SSL::SOCKET
; CL+SSL::UNWRAP-STREAM-P))
; (CL+SSL::SSL-SET-CONNECT-STATE CL+SSL::HANDLE)
; (WHEN
; (ZEROP
; (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE
; CL+SSL::CIPHER-LIST))
; (ERROR 'CL+SSL:SSL-ERROR-INITIALIZE :REASON
; "Can't set SSL cipher list"))
; (CL+SSL:WITH-PEM-PASSWORD (CL+SSL::PASSWORD)
; (CL+SSL::INSTALL-KEY-AND-CERT
; CL+SSL::HANDLE CL+SSL::KEY
; CL+SSL::CERTIFICATE))
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE
; #'CL+SSL::SSL-CONNECT
; CL+SSL::HANDLE)
; (CL+SSL::MAYBE-VERIFY-CLIENT-STREAM STREAM
; CL+SSL::VERIFY CL+SSL::HOSTNAME)
; (CL+SSL::HANDLE-EXTERNAL-FORMAT STREAM
; CL+SSL::EXTERNAL-FORMAT))
; --> LET* WHEN IF CFFI-SYS:NULL-POINTER-P BLOCK ZEROP = IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-CONNECT
; CL+SSL::HANDLE)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFUN MAKE-SSL-SERVER-STREAM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN MAKE-SSL-SERVER-STREAM
; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
; ==>
; (= (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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+SSL::WITH-NEW-SSL (CL+SSL::HANDLE)
; (SETF CL+SSL::SOCKET
; (CL+SSL::INSTALL-HANDLE-AND-BIO STREAM
; CL+SSL::HANDLE CL+SSL::SOCKET
; CL+SSL::UNWRAP-STREAM-P))
; (CL+SSL::SSL-SET-ACCEPT-STATE CL+SSL::HANDLE)
; (WHEN
; (ZEROP
; (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE
; CL+SSL::CIPHER-LIST))
; (ERROR 'CL+SSL:SSL-ERROR-INITIALIZE :REASON
; "Can't set SSL cipher list"))
; (CL+SSL:WITH-PEM-PASSWORD (CL+SSL::PASSWORD)
; (CL+SSL::INSTALL-KEY-AND-CERT
; CL+SSL::HANDLE CL+SSL::KEY
; CL+SSL::CERTIFICATE))
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE
; #'CL+SSL::SSL-ACCEPT
; CL+SSL::HANDLE)
; (CL+SSL::HANDLE-EXTERNAL-FORMAT STREAM
; CL+SSL::EXTERNAL-FORMAT))
; --> LET* WHEN IF CFFI-SYS:NULL-POINTER-P BLOCK ZEROP = IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-ACCEPT
; CL+SSL::HANDLE)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFGENERIC STREAM-FD ...)
; processing (DEFMETHOD STREAM-FD ...)
; processing (DEFMETHOD STREAM-FD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/streams-tmpPYED056U.fasl
; compilation finished in 0:00:01.765
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/bio.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE CL+SSL)
; processing (DEFCONSTANT +BIO-TYPE-SOCKET+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_READ+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_WRITE+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_SHOULD_RETRY+ ...)
; processing (DEFCONSTANT +BIO_CTRL_FLUSH+ ...)
; processing (CFFI:DEFCSTRUCT BIO-METHOD ...)
; processing (CFFI:DEFCSTRUCT BIO ...)
; processing (DEFUN MAKE-BIO-LISP-METHOD ...)
; processing (DEFUN BIO-NEW-LISP ...)
; processing (CFFI:DEFCALLBACK LISP-WRITE ...)
; processing (DEFUN CLEAR-RETRY-FLAGS ...)
; processing (DEFUN SET-RETRY-READ ...)
; processing (CFFI:DEFCALLBACK LISP-READ ...)
; processing (CFFI:DEFCALLBACK LISP-PUTS ...)
; processing (CFFI:DEFCALLBACK LISP-CTRL ...)
; processing (CFFI:DEFCALLBACK LISP-CREATE ...)
; processing (CFFI:DEFCALLBACK LISP-DESTROY ...)
; processing (SETF *BIO-LISP-METHOD* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/bio-tmpUOCPY155.fasl
; compilation finished in 0:00:00.645
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/random.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN RANDOM-BYTES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/random-tmpP4BCARWB.fasl
; compilation finished in 0:00:00.122
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/context.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFINE-CONDITION VERIFY-LOCATION-NOT-FOUND-ERROR ...)
; processing (DEFUN VALIDATE-VERIFY-LOCATION ...)
; processing (DEFUN ADD-VERIFY-LOCATIONS ...)
; processing (DEFUN SSL-CTX-SET-VERIFY-LOCATION ...)
; processing (ALEXANDRIA.1.0.0:DEFINE-CONSTANT +DEFAULT-CIPHER-LIST+ ...)
; processing (CFFI:DEFCALLBACK VERIFY-PEER-CALLBACK ...)
; processing (DEFUN MAKE-CONTEXT ...)
; processing (DEFUN CALL-WITH-GLOBAL-CONTEXT ...)
; processing (DEFMACRO WITH-GLOBAL-CONTEXT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/context-tmpOUEHOD9C.fasl
; compilation finished in 0:00:00.322
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/verify-hostname.lisp" (written 20 OCT 2019 08:40:57 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFINE-CONDITION HOSTNAME-VERIFICATION-ERROR ...)
; processing (DEFINE-CONDITION UNABLE-TO-MATCH-ALTNAMES ...)
; processing (DEFINE-CONDITION UNABLE-TO-DECODE-COMMON-NAME ...)
; processing (DEFINE-CONDITION UNABLE-TO-MATCH-COMMON-NAME ...)
; processing (DEFUN CASE-INSENSITIVE-MATCH ...)
; processing (DEFUN REMOVE-TRAILING-DOT ...)
; processing (DEFUN CHECK-WILDCARD-IN-LEFTMOST-LABEL ...)
; processing (DEFUN CHECK-SINGLE-WILDCARD ...)
; processing (DEFUN CHECK-TWO-LABELS-AFTER-WILDCARD ...)
; processing (DEFUN VALIDATE-AND-PARSE-WILDCARD-IDENTIFIER ...)
; processing (DEFUN WILDCARD-NOT-IN-A-LABEL ...)
; processing (DEFUN TRY-MATCH-WILDCARD ...)
; processing (DEFUN MAYBE-TRY-MATCH-WILDCARD ...)
; processing (DEFUN TRY-MATCH-HOSTNAME ...)
; processing (DEFUN TRY-MATCH-HOSTNAMES ...)
; processing (DEFUN MAYBE-CHECK-SUBJECT-CN ...)
; processing (DEFUN VERIFY-HOSTNAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/verify-hostname-tmp5ZHGID8G.fasl
; compilation finished in 0:00:00.190
; file: /usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp
; in: BORDEAUX-THREADS::DEFDFUN BORDEAUX-THREADS:SEMAPHORE-P
; 'BORDEAUX-THREADS:SEMAPHORE
;
; caught STYLE-WARNING:
; undefined type: BORDEAUX-THREADS:SEMAPHORE
;
; compilation unit finished
; Undefined type:
; BORDEAUX-THREADS:SEMAPHORE
; caught 16 STYLE-WARNING conditions
; printed 1605 notes
;; loading system "mssql"
; compiling file "/usr/share/common-lisp/source/iterate/package.lisp" (written 07 FEB 2018 01:05:19 PM):
; processing (DEFPACKAGE #:ITERATE ...)
; processing (IN-PACKAGE #:ITERATE)
; processing (DEFMACRO DEFCONST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/iterate/package-tmp9D2N5DM.fasl
; compilation finished in 0:00:00.052
; compiling file "/usr/share/common-lisp/source/iterate/iterate.lisp" (written 07 FEB 2018 01:05:19 PM):
; processing (IN-PACKAGE #:ITERATE)
; processing (DECLAIM (DECLARATION DECLARE-VARIABLES))
; processing (DEFCONST VERSION ...)
; processing (DEFCONST STANDARD-TYPE-SYMBOLS ...)
; processing (DEFVAR *ALWAYS-DECLARE-VARIABLES* ...)
; processing (DEFVAR *RESULT-VAR*)
; processing (DEFVAR *TYPE-ALIST*)
; processing (DEFVAR *DECLARE-VARIABLES*)
; processing (DEFVAR *CLAUSE*)
; processing (DEFVAR *TOP-LEVEL?*)
; processing (DEFVAR *BINDING-CONTEXT?*)
; processing (DEFVAR *BINDINGS*)
; processing (DEFVAR *INTERNAL-VARIABLES*)
; processing (DEFVAR *DECLARATIONS*)
; processing (DEFVAR *ACCUM-VAR-ALIST*)
; processing (DEFVAR *SHARED-BINDINGS-ALIST*)
; processing (DEFVAR *BLOCK-NAME*)
; processing (DEFVAR *CLAUSE-INFO-INDEX* ...)
; processing (DEFPARAMETER *SPECIAL-FORM-ALIST* ...)
; processing (DEFVAR *SPECIAL-CLAUSE-ALIST* ...)
; processing (DEFVAR *TEMPS*)
; processing (DEFVAR *TEMPS-IN-USE*)
; processing (DEFVAR *ENV*)
; processing (DEFVAR *DRIVER-INFO-ALIST*)
; processing (DEFVAR *PREVIOUS-VARS-ALIST*)
; processing (DEFVAR *LOOP-TOP*)
; processing (DEFVAR *LOOP-STEP*)
; processing (DEFVAR *LOOP-END*)
; processing (DEFVAR *LOOP-STEP-USED?*)
; processing (DEFVAR *LOOP-END-USED?*)
; processing (DEFVAR *LOOP-BODY-WRAPPERS*)
; processing (DEFSTRUCT CLAUSE-INFO ...)
; processing (DEFSTRUCT DRIVER-INFO ...)
; processing (DEFSTRUCT PREVIOUS-INFO ...)
; processing (DEFSTRUCT SAVE-INFO ...)
; processing (DEFMACRO AUGMENT ...)
; processing (DEFMACRO PREPEND ...)
; processing (DEFUN LIST-OF-FORMS? ...)
; processing (DEFMACRO ITERATE ...)
; processing (DEFMACRO ITER ...)
; processing (DEFMACRO DEFMACRO-CLAUSE ...)
; processing (DEFMACRO DEFMACRO-DRIVER ...)
; processing (DEFUN PROCESS-TOP-LEVEL-DECLS ...)
; processing (DEFUN DEFAULT-DRIVER-CODE ...)
; processing (DEFUN WRAP-FORM ...)
; processing (DEFUN ADD-LOOP-BODY-WRAPPER ...)
; processing (DEFUN WALK ...)
; processing (DEFUN WALK-LIST ...)
; processing (DEFUN WALK-ARGLIST ...)
; processing (DEFUN WALK-FSPEC ...)
; processing (DEFUN WALK-LIST-NCONCING ...)
; processing (DEFUN RETURN-CODE-MODIFYING-BODY ...)
; processing (DEFUN ADD-INTERNAL-VAR ...)
; processing (DEFUN ADD-INTERNAL-VARS ...)
; processing (DEFUN LAMBDA-LIST-VARS ...)
; processing (DEFUN SPECIAL-FORM? ...)
; processing (DEFUN WALK-SPECIAL-FORM ...)
; processing (DEFUN WALK-CDR ...)
; processing (DEFUN WALK-CDDR ...)
; processing (DEFUN WALK-PROGN ...)
; processing (DEFUN WALK-SETQ ...)
; processing (DEFUN WALK-FUNCTION ...)
; processing (DEFUN WALK-DECLARE ...)
; processing (DEFUN WALK-LET ...)
; processing (DEFUN WALK-LET-BINDINGS ...)
; processing (DEFUN WALK-LET*-BINDINGS ...)
; processing (DEFUN WALK-LET-BINDING ...)
; processing (DEFUN WALK-MULTIPLE-VALUE-BIND ...)
; processing (DEFUN WALK-FLET ...)
; processing (DEFUN WALK-CDR-WITH-DECLARATIONS ...)
; processing (DEFUN WALK-CDDR-WITH-DECLARATIONS ...)
; processing (DEFUN WALK-TAGBODY ...)
; processing (DEFUN WALK-MACROLET ...)
; processing (DEFVAR *INITIAL*)
; processing (DEFVAR *DECLS*)
; processing (DEFVAR *STEP*)
; processing (DEFVAR *FINAL*)
; processing (DEFVAR *FINALP*)
; processing (DEFUN PROCESS-CLAUSE ...)
; processing (DEFUN APPLY-CLAUSE-FUNCTION ...)
; processing (DEFUN PREPROCESS-CLAUSE ...)
; processing (DEFUN SYMBOL-SYNONYM ...)
; processing (DEFUN LISTIFY ...)
; processing (DEFUN KEYWORDIZE ...)
; processing (DEFUN ARG-CHECK ...)
; processing (DEFUN WALK-EXPR ...)
; processing (DEFUN DISPLAY-ITERATE-CLAUSES ...)
; processing (DEFUN DISP-STD-CLAUSES ...)
; processing (DEFUN DISPLAY-CLAUSE ...)
; processing (DEFCONST FILL-COL ...)
; processing (DEFUN DISPLAY-KWS ...)
; processing (DEFUN CLAUSE-MATCHES? ...)
; processing (DEFUN GET-CLAUSE-INFO ...)
; processing (DEFUN IS-ITERATE-CLAUSE? ...)
; processing (DEFUN STARTS-CLAUSE? ...)
; processing (DEFUN INSTALL-CLAUSE-INFO ...)
; processing (DEFUN INSTALL-CLAUSE-INFO-1 ...)
; processing (DEFUN BUILD-INDEX ...)
; processing (DEFUN INDEX? ...)
; processing (DEFUN INDEX-ADD ...)
; processing (DEFUN INDEX-LOOKUP ...)
; processing (DEFUN AMBIGUITY-CHECK-INDEX ...)
; processing (DEFUN AMBIGUITY-CHECK-CLAUSE ...)
; processing (DEFUN AMBIGUOUS-CLAUSES? ...)
; processing (DEFUN DISPLAY-INDEX ...)
; processing (DEFUN REMOVE-CLAUSE ...)
; processing (DEFMACRO DEFCLAUSE ...)
; processing (DEFMACRO DEFCLAUSE-DRIVER ...)
; processing (DEFCONST SEQUENCE-KEYWORD-LIST ...)
; processing (DEFUN DEFINE-CLAUSE ...)
; processing (DEFUN MAKE-FUNCTION-NAME ...)
; processing (DEFUN SPLIT-CLAUSE-TEMPLATE ...)
; processing (DEFUN SPLIT-LIST-ODD-EVEN ...)
; processing (DEFUN CONTAINS-DUPLICATES? ...)
; processing (DEFMACRO DEFSYNONYM ...)
; processing (DEFMACRO DEFCLAUSE-SEQUENCE ...)
; processing (DEFUN IF-1ST-TIME ...)
; processing (DEFMACRO WITH-TEMPORARY ...)
; processing (DEFUN GET-FREE-TEMP ...)
; processing (DEFUN VAR-TYPE ...)
; processing (DEFUN VAR-DECLARATION ...)
; processing (DEFUN EXPR-TYPE-ONLY ...)
; processing (DEFUN EXPRESSION-TYPE ...)
; processing (DEFUN QUOTED? ...)
; processing (DEFUN FUNCTION-QUOTED? ...)
; processing (DEFUN LAMBDA-EXPRESSION? ...)
; processing (DEFUN THE-EXPRESSION? ...)
; processing (DEFUN SELF-EVALUATING? ...)
; processing (DEFUN CONSTANT? ...)
; processing (DEFUN DUPLICABLE? ...)
; processing (DEFUN VAR-SPEC? ...)
; processing (DEFUN EXTRACT-VAR ...)
; processing (DEFUN MAKE-BINDING ...)
; processing (DEFUN MAKE-DEFAULT-BINDING ...)
; processing (DEFUN MAKE-VAR-AND-BINDING ...)
; processing (DEFUN MAKE-VAR-AND-DEFAULT-BINDING ...)
; processing (DEFUN MAKE-ACCUM-VAR-BINDING ...)
; processing (DEFUN MAKE-ACCUM-VAR-DEFAULT-BINDING ...)
; processing (DEFUN MAKE-ACCUM-VAR-BINDING-INTERNAL ...)
; processing (DEFUN MAKE-SHARED-BINDING ...)
; processing (DEFUN MAKE-BINDING-INTERNAL ...)
; processing (DEFUN MAKE-INITIAL-VALUE ...)
; processing (DEFUN ADD-BINDING ...)
; processing (DEFUN CHECK-INTERNAL-VARIABLES ...)
; processing (DEFUN INTERNAL-VARIABLE? ...)
; processing (DEFUN VAR-BINDING ...)
; processing (DEFUN MAKE-DESTRUCTURING-BINDINGS ...)
; processing (DEFUN DO-DESTRUCTURING-BINDINGS ...)
; processing (DEFUN EXTRACT-VARS ...)
; processing (DEFMACRO DSETQ ...)
; processing (DEFUN DO-DSETQ ...)
; processing (DEFUN MAKE-DSETQS ...)
; processing (DEFUN MAKE-MV-DSETQS ...)
; processing (DEFUN DSETQ-ERROR ...)
; processing (DEFUN IN-ITERATE? ...)
; processing (DEFUN LOCAL-BINDING-CHECK ...)
; processing (DEFUN FREE-VARIABLES ...)
; processing (DEFUN FREE-VARS ...)
; processing (DEFUN FREE-VARS-LIST ...)
; processing (DEFUN FREE-VARS-FSPEC ...)
; processing (DEFUN RETURN-CODE ...)
; processing (DEFMACRO RETURN-DRIVER-CODE ...)
; processing (DEFUN ADD-DRIVER-INFO ...)
; processing (DEFMACRO RETURN-SEQUENCE-CODE ...)
; processing (DEFUN RETURN-SEQ-CODE ...)
; processing (DEFUN CHECK-SEQUENCE-KEYWORDS ...)
; processing (DEFUN EVAL-CONST-EXPR ...)
; processing (DEFUN MAKE-FUNCALL ...)
; processing (DEFUN MAKE-APPLICATION ...)
; processing (DEFUN APPLY-SUBST-EXPR ...)
; processing (DEFMACRO DEF-SPECIAL-CLAUSE ...)
; processing (DEFUN INSTALL-SPECIAL-CLAUSE-FUNCTION ...)
; processing (DEF-SPECIAL-CLAUSE INITIALLY ...)
; processing (DEF-SPECIAL-CLAUSE AFTER-EACH ...)
; processing (DEF-SPECIAL-CLAUSE ELSE ...)
; processing (DEF-SPECIAL-CLAUSE FINALLY ...)
; processing (DEF-SPECIAL-CLAUSE FINALLY-PROTECTED ...)
; processing (DEF-SPECIAL-CLAUSE IF-FIRST-TIME ...)
; processing (DEF-SPECIAL-CLAUSE FIRST-TIME-P ...)
; processing (DEF-SPECIAL-CLAUSE FIRST-ITERATION-P ...)
; processing (DEF-SPECIAL-CLAUSE IN ...)
; processing (DEF-SPECIAL-CLAUSE NEXT ...)
; processing (DEFUN MAKE-NEXT-CODE ...)
; processing (DEFUN VAR-VALUE-RETURNED ...)
; processing (DEFSYNONYM AS ...)
; processing (DEFSYNONYM GENERATING ...)
; processing (DEFCLAUSE (REPEAT N) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR-SPEC ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFUN GENERATE-FUNCTION-STEP-CODE ...)
; processing (DEFCLAUSE-SEQUENCE IN-VECTOR ...)
; processing (DEFCLAUSE-SEQUENCE IN-SEQUENCE ...)
; processing (DEFCLAUSE-SEQUENCE IN-STRING ...)
; processing (DEFCLAUSE-DRIVER (FOR KEY-VAL-VARS ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR SYM-ACCESS-PKG-VARS ...) ...)
; processing (DEFMACRO-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFUN RETURN-STREAM-DRIVER-CODE ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE (WITH VAR ...) ...)
; processing (DEFCLAUSE (FOR VAR ...) ...)
; processing (DEFCLAUSE (FOR VAR ...) ...)
; processing (DEFCLAUSE (FOR VAR ...) ...)
; processing (DEFUN RETURN-REDUCTION-CODE ...)
; processing (DEFSYNONYM COUNT ...)
; processing (DEFCLAUSE (COUNTING EXPR ...) ...)
; processing (DEFCLAUSE (SUM EXPR ...) ...)
; processing (DEFSYNONYM SUMMING ...)
; processing (DEFCLAUSE (MULTIPLY EXPR ...) ...)
; processing (DEFSYNONYM MULTIPLYING ...)
; processing (DEFCLAUSE (REDUCING EXPR ...) ...)
; processing (DEFCLAUSE (MAXIMIZE EXPR ...) ...)
; processing (DEFSYNONYM MAXIMIZING ...)
; processing (DEFCLAUSE (MINIMIZE EXPR ...) ...)
; processing (DEFSYNONYM MINIMIZING ...)
; processing (DEFUN RETURN-EXTREMUM-CODE ...)
; processing (DEFMACRO FINISH ...)
; processing (DEFMACRO TERMINATE ...)
; processing (DEFMACRO NEXT-ITERATION ...)
; processing (DEFMACRO LEAVE ...)
; processing (DEFCLAUSE (WHILE EXPR) ...)
; processing (DEFCLAUSE (UNTIL EXPR) ...)
; processing (DEFCLAUSE (ALWAYS EXPR) ...)
; processing (DEFCLAUSE (NEVER EXPR) ...)
; processing (DEFCLAUSE (THEREIS EXPR) ...)
; processing (DEFCLAUSE (FINDING EXPR ...) ...)
; processing (DEFCLAUSE (FINDING EXPR ...) ...)
; processing (DEFCLAUSE (FINDING EXPR ...) ...)
; processing (DEFUN RETURN-FIND-EXTREMUM-CODE ...)
; processing (DEFUN RETURN-COLLECTION-CODE ...)
; processing (DEFCLAUSE (COLLECT EXPR ...) ...)
; processing (DEFSYNONYM COLLECTING ...)
; processing (DEFCLAUSE (ADJOINING EXPR ...) ...)
; processing (DEFCLAUSE (NCONCING EXPR ...) ...)
; processing (DEFCLAUSE (APPENDING EXPR ...) ...)
; processing (DEFCLAUSE (UNIONING EXPR ...) ...)
; processing (DEFCLAUSE (NUNIONING EXPR ...) ...)
; processing (DEFCLAUSE (ACCUMULATE EXPR ...) ...)
; processing (DEFSYNONYM ACCUMULATING ...)
; processing (DEFCLAUSE (FOR PVAR-SPEC ...) ...)
; processing (DEFUN REGISTER-PREVIOUS-CODE ...)
; processing (DEFUN INTERN-PREVIOUS-INFO ...)
; processing (DEFUN IS-SAVE-VAR ...)
; processing (DEFUN MAKE-SAVE-VARS ...)
; processing (DEFUN INSERT-PREVIOUS-CODE ...)
; processing (DEFUN DO-EXTRA-SAVE-VAR-HACK ...)
; processing (DEFUN MAKE-POST-SAVE-VAR ...)
; processing (DEFUN MAKE-PREV-CODE ...)
; processing (DEFUN MAKE-SAVE-PREVIOUS-CODE ...)
; processing (DEFUN SPLICE-IN-CODE ...)
; processing (DEFUN ADD-PROGN ...)
; processing (DEFUN AT-TOP-LEVEL? ...)
; processing (DEFUN TOP-LEVEL-CHECK ...)
; processing (DEFUN PROGNIFY ...)
; processing (DEFUN CLAUSE-ERROR ...)
; processing (DEFUN CLAUSE-WARNING ...)
; processing (DEFUN BUG ...)
; processing (DEFVAR *GENVAR-COUNTER* ...)
; processing (DEFUN GENVAR ...)
; processing (DEFUN SYMBOL-APPEND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/iterate/iterate-tmpKDSLP2NX.fasl
; compilation finished in 0:00:11.292
; compiling file "/usr/share/common-lisp/source/garbage-pools/garbage-pools.lisp" (written 17 APR 2013 09:15:14 PM):
; processing (DEFPACKAGE :GARBAGE-POOLS ...)
; processing (IN-PACKAGE #:GARBAGE-POOLS)
; processing (DEFVAR *POOL*)
; processing (DEFCLASS POOL ...)
; processing (DEFUN CLEANUP-REGISTER ...)
; processing (DEFUN CLEANUP-POOL ...)
; processing (DEFUN CLEANUP-OBJECT ...)
; processing (DEFUN CANCEL-OBJECT-CLEANUP ...)
; processing (DEFMACRO WITH-GARBAGE-POOL ...)
; processing (DEFGENERIC OBJECT-REGISTER ...)
; processing (DEFMETHOD OBJECT-REGISTER ...)
; processing (DEFMACRO DEFCLEANUP ...)
; processing (DEFCLEANUP POOL ...)
; processing (DEFCLEANUP STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/garbage-pools/garbage-pools-tmp4QLHV6NG.fasl
; compilation finished in 0:00:00.195
; compiling file "/usr/share/common-lisp/source/parse-number/parse-number.lisp" (written 31 OCT 2017 08:17:56 AM):
; processing (DEFPACKAGE #:ORG.MAPCAR.PARSE-NUMBER ...)
; processing (IN-PACKAGE #:ORG.MAPCAR.PARSE-NUMBER)
; processing (DEFINE-CONDITION INVALID-NUMBER ...)
; processing (DECLAIM (TYPE CONS ...))
; processing (DEFPARAMETER *WHITE-SPACE-CHARACTERS* ...)
; processing (DECLAIM (INLINE WHITE-SPACE-P))
; processing (DEFUN WHITE-SPACE-P ...)
; processing (DECLAIM (INLINE PARSE-INTEGER-AND-PLACES))
; processing (DEFUN PARSE-INTEGER-AND-PLACES ...)
; file: /usr/share/common-lisp/source/parse-number/parse-number.lisp
; in: DEFUN PARSE-INTEGER-AND-PLACES
; (CHAR STRING ORG.MAPCAR.PARSE-NUMBER::POS)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CONS INTEGER ORG.MAPCAR.PARSE-NUMBER::RELEVANT-DIGITS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of INIT-SLOT
; processing (DEFUN PARSE-INTEGERS ...)
; file: /usr/share/common-lisp/source/parse-number/parse-number.lisp
; in: DEFUN PARSE-INTEGERS
; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING
; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::END :RADIX
; ORG.MAPCAR.PARSE-NUMBER::RADIX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET - - LOOP BLOCK
; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY UNLESS IF MEMBER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING
; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::RIGHT :RADIX
; ORG.MAPCAR.PARSE-NUMBER::RADIX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET - - LOOP BLOCK
; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY UNLESS IF MEMBER CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET
; ==>
; (CONS INTEGER ORG.MAPCAR.PARSE-NUMBER::RELEVANT-DIGITS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of INIT-SLOT
; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING
; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::END :RADIX
; ORG.MAPCAR.PARSE-NUMBER::RADIX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET
; ==>
; (CONS INTEGER ORG.MAPCAR.PARSE-NUMBER::RELEVANT-DIGITS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of INIT-SLOT
; processing (DECLAIM (INLINE NUMBER-VALUE ...))
; processing (DEFUN NUMBER-VALUE ...)
; processing (DEFUN PLACES ...)
; processing (DEFUN PARSE-NUMBER ...)
; processing (DEFUN PARSE-REAL-NUMBER ...)
; processing (DEFUN BASE-FOR-EXPONENT-MARKER ...)
; processing (DEFUN MAKE-FLOAT/FRAC ...)
; processing (DEFUN MAKE-FLOAT/WHOLE ...)
; processing (DEFUN PARSE-POSITIVE-REAL-NUMBER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/parse-number/parse-number-tmpMFQG7214.fasl
; compilation finished in 0:00:01.026
; compiling file "/usr/share/common-lisp/source/mssql/src/packages.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (DEFPACKAGE #:MSSQL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/mssql/src/packages-tmpEL1UBVEC.fasl
; compilation finished in 0:00:00.006
; compiling file "/usr/share/common-lisp/source/mssql/src/mssql.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFINE-FOREIGN-LIBRARY SYBDB ...)
; processing (WITH-SIMPLE-RESTART (SKIP "Skip loading foreign library tds.") ...)
; processing (DEFCTYPE %DBPROCESS ...)
; processing (DEFCTYPE %CHARPTR ...)
; processing (DEFCTYPE %LOGINREC ...)
; processing (DEFCTYPE %RETCODE ...)
; processing (DEFCTYPE %BYTE ...)
; processing (DEFCTYPE %DBINT ...)
; processing (DEFCTYPE %DBSMALLINT ...)
; processing (DEFCONSTANT +FAIL+ ...)
; processing (DEFCONSTANT +INT_CANCEL+ ...)
; processing (DEFINE-CONDITION MSSQL-ERROR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCFUN ("dberrhandle" %DBERRHANDLE) ...)
; processing (DEFVAR *ERROR-MESSAGE-LIST*)
; processing (DEFCALLBACK %ERROR-HANDLER ...)
; processing (%DBERRHANDLE (CALLBACK %ERROR-HANDLER))
; processing (DEFCFUN ("dbmsghandle" %DBMSGHANDLE) ...)
; processing (DEFCALLBACK %MESSAGE-HANDLER ...)
; processing (%DBMSGHANDLE (CALLBACK %MESSAGE-HANDLER))
; processing (DEFMACRO DEFINE-SYBDB-FUNCTION ...)
; processing (DEFUN CFFI-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/mssql/src/mssql-tmpO7N5WXBL.fasl
; compilation finished in 0:00:00.541
; compiling file "/usr/share/common-lisp/source/mssql/src/connection.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFVAR *DATABASE* ...)
; processing (DEFCLASS DATABASE-CONNECTION ...)
; processing (DEFINE-SYBDB-FUNCTION ("dblogin" %DBLOGIN ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbloginfree" %DBLOGINFREE) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbsetlname" %DBSETLNAME ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("tdsdbopen" %TDSDBOPEN ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcmd" %DBCMD ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbsqlexec" %DBSQLEXEC ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcancel" %DBCANCEL ...) ...)
; processing (DEFUN CONNECT ...)
; processing (DEFUN CONNECTED-P ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbclose" %DBCLOSE) ...)
; processing (DEFUN DISCONNECT ...)
; processing (GARBAGE-POOLS:DEFCLEANUP DATABASE-CONNECTION ...)
; processing (DEFUN DISCONNECT-TOPLEVEL ...)
; processing (DEFUN CONNECT-TOPLEVEL ...)
; processing (DEFMACRO WITH-CONNECTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/mssql/src/connection-tmp7GPJW3WR.fasl
; compilation finished in 0:00:00.547
; compiling file "/usr/share/common-lisp/source/mssql/src/query.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFCONSTANT +NO-MORE-RESULTS+ ...)
; processing (DEFCONSTANT +NO-MORE-ROWS+ ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbresults" %DBRESULTS) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbnumcols" %DBNUMCOLS) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcolname" %DBCOLNAME) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcoltype" %DBCOLTYPE) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbnextrow" %DBNEXTROW) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbdata" %DBDATA) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbdatlen" %DBDATLEN) ...)
; processing (DEFCENUM %SYB-VALUE-TYPE ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbconvert" %DBCONVERT) ...)
; processing (DEFCONSTANT +NUMERIC-BUF-SZ+ ...)
; processing (DEFUN SYSDB-DATA-TO-LISP ...)
; processing (DEFUN FIELD-NAME-S ...)
; processing (DEFUN ONE-ROW ...)
; processing (DEFUN ALL-ROWS ...)
; processing (DEFMACRO DEFINE-ROW-READER ...)
; processing (DEFINE-ROW-READER READ-PLIST-ROW ...)
; processing (DEFINE-ROW-READER READ-ALIST-ROW ...)
; processing (DEFINE-ROW-READER READ-LIST-ROW ...)
; processing (DEFUN READ-SINGLE-VALUE ...)
; processing (DEFPARAMETER *QUERY-FORMATS* ...)
; processing (DEFUN GET-RESULTS ...)
; processing (DEFUN QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/mssql/src/query-tmpESZVJLGB.fasl
; compilation finished in 0:00:00.639
; compiling file "/usr/share/common-lisp/source/mssql/src/execute.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFUN EXECUTE ...)
; processing (DEFCLASS TRANSACTION-HANDLE ...)
; processing (DEFMACRO WITH-TRANSACTION ...)
; processing (DEFUN ROLLBACK-TRANSACTION ...)
; processing (DEFUN COMMIT-TRANSACTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/mssql/src/execute-tmp861VENRV.fasl
; compilation finished in 0:00:00.136
; compiling file "/usr/share/common-lisp/source/mssql/src/remote.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFINE-SYBDB-FUNCTION ("dbrpcinit" %DBRPCINIT) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbrpcparam" %DBRPCPARAM) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbrpcsend" %DBRPCSEND) ...)
; processing (DEFUN LISP-TO-SYSDB ...)
; processing (DEFUN CALL-REMOTE-PROCEDURE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/mssql/src/remote-tmp7MX18LSW.fasl
; compilation finished in 0:00:00.255
;
; compilation unit finished
; printed 6 notes
;; loading file #P"/<<PKGBUILDDIR>>/src/hooks.lisp"
;; loading #P"/<<PKGBUILDDIR>>/src/hooks.lisp"
;; #<PACKAGE "COMMON-LISP-USER">
;; (:PGLOADER-IMAGE :FLEXI-STREAMS CFFI-FEATURES:FLAT-NAMESPACE
CFFI-FEATURES:UNIX :CFFI CFFI-SYS::FLAT-NAMESPACE
ALEXANDRIA.1.0.0::SEQUENCE-EMPTYP :ASDF-SYSTEM-CONNECTIONS :ASDF3.3
:ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX :NON-BASE-CHARS-EXIST-P
:ASDF-UNICODE :ARM :GENCGC :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT
:LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB
:SB-PACKAGE-LOCKS :SB-UNICODE :SBCL :UNIX)
;; T
;; CLOSE-FOREIGN-LIBS
;; OPEN-FOREIGN-LIBS
;; (#<FUNCTION OPEN-FOREIGN-LIBS>)
;; (#<FUNCTION CLOSE-FOREIGN-LIBS>)
;; loading system "pgloader"
WARNING: System definition file #P"/usr/share/common-lisp/source/cl-fad/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/puri/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cl-base64/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/ieee-floats/ieee-floats.asd" contains definition for system "ieee-floats-tests". Please only define "ieee-floats" and secondary systems with a name starting with "ieee-floats/" (e.g. "ieee-floats/test") in that file.
WARNING: UIOP/VERSION:PARSE-VERSION: "1.1-dev" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "1.1-dev" for component "py-configparser" from file #P"/usr/share/common-lisp/source/py-configparser/py-configparser.asd", using NIL instead
WARNING: Invalid :version specifier "1.1-dev" for component "py-configparser" from file #P"/usr/share/common-lisp/source/py-configparser/py-configparser.asd", using NIL instead
WARNING: System definition file #P"/usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code points.
yes, using code points.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-xml". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-dom". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-klacks". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-test". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code points.
yes, using code points.
;;; Building Closure with CHARACTER RUNES
; compiling file "/usr/share/common-lisp/source/cl-log/pkg.lisp" (written 07 DEC 2012 12:06:09 PM):
; processing (IN-PACKAGE "CL-USER")
; processing (DEFPACKAGE "COM.RAVENBROOK.COMMON-LISP-LOG" ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-log/pkg-tmp4CP5SEFX.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/cl-log/cl-log.lisp" (written 07 DEC 2012 12:06:09 PM):
; processing (IN-PACKAGE "COM.RAVENBROOK.COMMON-LISP-LOG")
; processing (DEFPARAMETER *CL-LOG-RELEASE* ...)
; processing (DEFMACRO ORF ...)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFCLASS LOG-OBJECT ...)
; processing (DEFCLASS LOG-MANAGER ...)
; processing (DEFVAR *LOG-MANAGER* ...)
; processing (DEFUN LOG-MANAGER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN FIRST-TIME-FOR-LOG-MANAGER ...)
; processing (DEFMETHOD LOGGING-DISABLED ...)
; processing (DEFMETHOD (SETF LOGGING-DISABLED) ...)
; processing (DEFMACRO WITH-LOGGING-DISABLED ...)
; processing (DEFMACRO WITH-LOG-MANAGER-DISABLED ...)
; processing (DEFMETHOD (SETF LOG-MANAGER-MESSENGERS) ...)
; processing (DEFMETHOD (SETF LOG-MANAGER-CATEGORY-SET) ...)
; processing (DEFMETHOD CATEGORY-CACHE ...)
; processing (DEFMETHOD INVALIDATE-LOG-MANAGER ...)
; processing (DEFUN (SETF LOG-MANAGER) ...)
; processing (DEFMACRO REBINDING-LOG-MANAGER ...)
; processing (DEFSTRUCT (TIMESTAMP #) ...)
; processing (DEFUN MAKE-TIMESTAMP ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS BASE-MESSAGE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS FORMATTED-MESSAGE ...)
; processing (DEFMETHOD MESSAGE-TEXT ...)
; processing (DEFMETHOD FORMAT-MESSAGE ...)
; processing (DEFCLASS BASE-MESSENGER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN START-MESSENGER ...)
; processing (DEFMETHOD STOP-MESSENGER ...)
; processing (DEFMETHOD STOP-MESSENGER ...)
; processing (DEFUN FIND-MESSENGER ...)
; processing (DEFUN CATEGORY-MESSENGERS ...)
; processing (DEFUN CATEGORY-SATISFIES ...)
; processing (DEFUN IN-CATEGORY-SATISFIES ...)
; processing (DEFUN SEND-MESSAGE ...)
; processing (DEFMETHOD MESSENGER-SEND-MESSAGE ...)
; processing (DEFSTRUCT (RING #) ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MAKE-RING ...)
; processing (DEFUN RING-PUSH ...)
; processing (DEFUN RING-LIST ...)
; processing (DEFCLASS RING-MESSENGER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD MESSENGER-SEND-MESSAGE ...)
; processing (DEFMETHOD RING-MESSENGER-MESSAGES ...)
; processing (DEFCLASS TEXT-STREAM-MESSENGER ...)
; processing (DEFMETHOD MESSENGER-SEND-MESSAGE ...)
; processing (DEFMETHOD STOP-MESSENGER ...)
; processing (DEFCLASS TEXT-FILE-MESSENGER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS CATEGORY-SET ...)
; processing (DEFUN EXPAND-CATEGORY ...)
; processing (DEFMACRO DEFCATEGORY ...)
; processing (DEFUN DEFCATEGORY-FN ...)
; processing (DEFMACRO UNDEFCATEGORY ...)
; processing (DEFUN UNDEFCATEGORY-FN ...)
; processing (DEFUN CLEAR-CATEGORIES ...)
; processing (DEFMACRO LOG-MANAGER-MESSAGE ...)
; processing (DEFMACRO LOG-MESSAGE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-log/cl-log-tmpZ7L7FP0S.fasl
; compilation finished in 0:00:02.046
; compiling file "/usr/share/common-lisp/source/md5/md5.lisp" (written 23 FEB 2018 11:24:35 PM):
; processing (DEFPACKAGE #:MD5 ...)
; processing (IN-PACKAGE #:MD5)
; processing (DEFTYPE UB32 ...)
; processing (DEFMACRO ASSEMBLE-UB32 ...)
; processing (DEFTYPE UB32-VECTOR ...)
; processing (DEFMACRO MAKE-UB32-VECTOR ...)
; processing (DEFMACRO UB32-AREF ...)
; processing (DECLAIM (INLINE F ...) ...)
; processing (DEFUN F ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN F
; (DEFUN MD5::F (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Y) (LOGANDC1 MD5::X MD5::Z)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::F
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::F (LOGIOR (LOGAND MD5::X MD5::Y) (LOGANDC1 MD5::X MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN G ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN G
; (DEFUN MD5::G (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Z) (LOGANDC2 MD5::Y MD5::Z)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::G
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::G (LOGIOR (LOGAND MD5::X MD5::Z) (LOGANDC2 MD5::Y MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN H ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN H
; (DEFUN MD5::H (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGXOR MD5::X MD5::Y MD5::Z))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::H
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::H (LOGXOR MD5::X MD5::Y MD5::Z)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN I ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN I
; (DEFUN MD5::I (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::I
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::I (LDB (BYTE 32 0) (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DECLAIM (INLINE MOD32+) ...)
; processing (DEFUN MOD32+ ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN MOD32+
; (DEFUN MD5::MOD32+ (MD5::A MD5::B)
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (+ MD5::A MD5::B)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::MOD32+
; (MD5::A MD5::B)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::MOD32+ (LDB (BYTE 32 0) (+ MD5::A MD5::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-COMPILER-MACRO MOD32+ ...)
; processing (DECLAIM (INLINE ROL32) ...)
; processing (DEFUN ROL32 ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN ROL32
; (DEFUN MD5::ROL32 (MD5::A MD5::S)
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (SB-ROTATE-BYTE:ROTATE-BYTE MD5::S (BYTE 32 0) MD5::A))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::ROL32
; (MD5::A MD5::S)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::ROL32 (SB-ROTATE-BYTE:ROTATE-BYTE MD5::S (BYTE 32 0) MD5::A)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFPARAMETER *T* ...)
; processing (DEFMACRO WITH-MD5-ROUND ...)
; processing (DEFTYPE MD5-REGS ...)
; processing (DEFMACRO MD5-REGS-A ...)
; processing (DEFMACRO MD5-REGS-B ...)
; processing (DEFMACRO MD5-REGS-C ...)
; processing (DEFMACRO MD5-REGS-D ...)
; processing (DEFCONSTANT +MD5-MAGIC-A+ ...)
; processing (DEFCONSTANT +MD5-MAGIC-B+ ...)
; processing (DEFCONSTANT +MD5-MAGIC-C+ ...)
; processing (DEFCONSTANT +MD5-MAGIC-D+ ...)
; processing (DECLAIM (INLINE INITIAL-MD5-REGS))
; processing (DEFUN INITIAL-MD5-REGS ...)
; processing (DEFTYPE MD5-BLOCK ...)
; processing (DEFUN UPDATE-MD5-BLOCK ...)
; processing (DECLAIM (INLINE FILL-BLOCK ...))
; processing (DEFUN FILL-BLOCK-UB8 ...)
; processing (DEFUN FILL-BLOCK-CHAR ...)
; processing (DEFUN FILL-BLOCK ...)
; processing (DECLAIM (INLINE MD5REGS-DIGEST))
; processing (DEFUN MD5REGS-DIGEST ...)
; processing (DEFSTRUCT (MD5-STATE # ...) ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFSTRUCT MD5-STATE
; (DEFSTRUCT (MD5:MD5-STATE (:CONSTRUCTOR MD5:MAKE-MD5-STATE NIL) (:COPIER))
; (MD5::REGS (MD5:INITIAL-MD5-REGS) :TYPE MD5:MD5-REGS :READ-ONLY T)
; (MD5::AMOUNT 0 :TYPE (INTEGER 0 *))
; (BLOCK (MD5::MAKE-UB32-VECTOR 16) :READ-ONLY T :TYPE MD5::MD5-BLOCK)
; (MD5::BUFFER (MAKE-ARRAY 64 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) :READ-ONLY T
; :TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)))
; (MD5::BUFFER-INDEX 0 :TYPE (INTEGER 0 63))
; (MD5::FINALIZED-P NIL))
; --> PROGN SB-C:XDEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB-KERNEL:%INSTANCE-SET SB-KERNEL:THE*
; --> MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY AND THE >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> PROGN SB-KERNEL::%TARGET-DEFSTRUCT SB-KERNEL::%TARGET-DEFSTRUCT
; --> SB-INT:NAMED-LAMBDA FUNCTION AND IF IF = EQL IF
; ==>
; (EQL SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DECLAIM (INLINE COPY-TO-BUFFER))
; processing (DEFUN COPY-TO-BUFFER ...)
; processing (DEFUN UPDATE-MD5-STATE ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) LENGTH)
;
; 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 UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
;
; 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 UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFUN FINALIZE-MD5-STATE ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
; (* 8 (MD5::MD5-STATE-AMOUNT MD5::STATE))
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST
; T).
; etc.
; (LDB (BYTE 32 0) MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LDB (BYTE 32 32) MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN MD5SUM-SEQUENCE ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN MD5SUM-SEQUENCE
; (MD5:UPDATE-MD5-STATE MD5::STATE MD5::DATA :START MD5::REAL-START :END
; (+ MD5::REAL-START (- MD5::END MD5::START)))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFUN MD5SUM-STRING ...)
; processing (DEFCONSTANT +BUFFER-SIZE+ ...)
; processing (DEFTYPE BUFFER-INDEX ...)
; processing (DEFUN MD5SUM-STREAM ...)
; processing (DEFUN MD5SUM-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/md5/md5-tmpGCPRU2E.fasl
; compilation finished in 0:00:03.333
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/package.lisp" (written 11 MAY 2019 09:39:50 PM):
; processing (DEFPACKAGE #:SPLIT-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/package-tmpTYRYY2X9.fasl
; compilation finished in 0:00:00.005
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/vector.lisp" (written 11 MAY 2019 09:39:50 PM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DECLAIM (INLINE SPLIT-VECTOR ...))
; processing (DEFTYPE ARRAY-INDEX ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-VECTOR ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/vector.lisp
; in: DEFUN SPLIT-VECTOR
; (DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR
; (SPLIT-SEQUENCE::DELIMITER VECTOR SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::TEST
; SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::KEY)
; (COND
; ((AND (NOT SPLIT-SEQUENCE::FROM-END) (NULL SPLIT-SEQUENCE::TEST-NOT))
; (SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-START (LAMBDA # #) VECTOR
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; ((AND (NOT SPLIT-SEQUENCE::FROM-END) SPLIT-SEQUENCE::TEST-NOT)
; (SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-START (LAMBDA # #) VECTOR
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; ((AND SPLIT-SEQUENCE::FROM-END (NULL SPLIT-SEQUENCE::TEST-NOT))
; (SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-END (LAMBDA # #) VECTOR
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; (T
; (SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-END (LAMBDA # #) VECTOR
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))))
; --> PROGN
; ==>
; (SB-IMPL::%DEFUN 'SPLIT-SEQUENCE::SPLIT-VECTOR
; (SB-INT:NAMED-LAMBDA SPLIT-SEQUENCE::SPLIT-VECTOR
; (SPLIT-SEQUENCE::DELIMITER VECTOR SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS
; SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT
; SPLIT-SEQUENCE::KEY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK SPLIT-SEQUENCE::SPLIT-VECTOR
; (COND (# #) (# #) (# #) (T #))))
; '(LAMBDA
; (SPLIT-SEQUENCE::DELIMITER VECTOR SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS
; SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT
; SPLIT-SEQUENCE::KEY)
; (BLOCK SPLIT-SEQUENCE::SPLIT-VECTOR
; (COND (# #) (# #) (# #) (T #)))))
;
; caught STYLE-WARNING:
; Call to SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-END could not be inlined because its
; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
; must be in effect to save function definitions for inlining.
;
; caught STYLE-WARNING:
; Call to SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-START could not be inlined because
; its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE
; proclamation must be in effect to save function definitions for inlining.
; processing (DEFUN SPLIT-VECTOR-IF ...)
; processing (DEFUN SPLIT-VECTOR-IF-NOT ...)
; processing (DEFUN SPLIT-VECTOR-FROM-END ...)
; processing (DEFUN SPLIT-VECTOR-FROM-START ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/vector-tmpOMAPSGL7.fasl
; compilation finished in 0:00:00.295
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "split-sequence" "vector">
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/list.lisp" (written 11 MAY 2019 09:39:50 PM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DECLAIM (INLINE COLLECT-UNTIL ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN COLLECT-UNTIL ...)
; processing (DEFUN COUNT-WHILE ...)
; processing (DEFUN SPLIT-LIST-INTERNAL ...)
; processing (DEFUN SPLIT-LIST-FROM-END ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/list.lisp
; in: DEFUN SPLIT-LIST-FROM-END
; (SPLIT-SEQUENCE::SPLIT-LIST-INTERNAL SPLIT-SEQUENCE::PREDICATE (REVERSE LIST)
; (IF SPLIT-SEQUENCE::END
; (- LENGTH SPLIT-SEQUENCE::END)
; 0)
; (- LENGTH SPLIT-SEQUENCE::START) COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; --> BLOCK LET FLET VALUES + IF SPLIT-SEQUENCE::COUNT-WHILE BLOCK IF LOOP
; --> BLOCK LET
; ==>
; LIST
;
; note: deleting unreachable code
; processing (DEFUN SPLIT-LIST-FROM-START ...)
; processing (DEFUN SPLIT-LIST-IF ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/list.lisp
; in: DEFUN SPLIT-LIST-IF
; (SPLIT-SEQUENCE::SPLIT-LIST-FROM-END SPLIT-SEQUENCE::PREDICATE LIST
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; --> BLOCK LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> SPLIT-SEQUENCE::SPLIT-LIST-INTERNAL BLOCK LET FLET VALUES + IF
; --> SPLIT-SEQUENCE::COUNT-WHILE BLOCK IF LOOP BLOCK LET
; ==>
; LIST
;
; note: deleting unreachable code
; processing (DEFUN SPLIT-LIST-IF-NOT ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/list.lisp
; in: DEFUN SPLIT-LIST-IF-NOT
; (SPLIT-SEQUENCE::SPLIT-LIST-IF (COMPLEMENT SPLIT-SEQUENCE::PREDICATE) LIST
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)
; --> BLOCK LET IF SPLIT-SEQUENCE::SPLIT-LIST-FROM-END BLOCK LET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> SPLIT-SEQUENCE::SPLIT-LIST-INTERNAL BLOCK LET FLET VALUES + IF
; --> SPLIT-SEQUENCE::COUNT-WHILE BLOCK IF LOOP BLOCK LET
; ==>
; LIST
;
; note: deleting unreachable code
; processing (DEFUN SPLIT-LIST ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/list.lisp
; in: DEFUN SPLIT-LIST
; (SPLIT-SEQUENCE::SPLIT-LIST-FROM-END SPLIT-SEQUENCE::PREDICATE LIST
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; --> BLOCK LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> SPLIT-SEQUENCE::SPLIT-LIST-INTERNAL BLOCK LET FLET VALUES + IF
; --> SPLIT-SEQUENCE::COUNT-WHILE BLOCK IF LOOP BLOCK LET
; ==>
; LIST
;
; note: deleting unreachable code
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/list-tmpB76HJA0J.fasl
; compilation finished in 0:00:01.775
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/extended-sequence.lisp" (written 11 MAY 2019 09:39:50 PM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DEFTYPE EXTENDED-SEQUENCE ...)
; processing (DECLAIM (INLINE SPLIT-EXTENDED-SEQUENCE ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/extended-sequence.lisp
; in: DEFUN SPLIT-EXTENDED-SEQUENCE
; (DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (SPLIT-SEQUENCE::DELIMITER SEQUENCE SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::TEST
; SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::KEY)
; (COND
; ((AND (NOT SPLIT-SEQUENCE::FROM-END) (NULL SPLIT-SEQUENCE::TEST-NOT))
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START (LAMBDA # #) SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; ((AND (NOT SPLIT-SEQUENCE::FROM-END) SPLIT-SEQUENCE::TEST-NOT)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START (LAMBDA # #) SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; ((AND SPLIT-SEQUENCE::FROM-END (NULL SPLIT-SEQUENCE::TEST-NOT))
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END (LAMBDA # #) SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; (T
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END (LAMBDA # #) SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (SPLIT-SEQUENCE::DELIMITER SEQUENCE SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::TEST
; SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::KEY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (COND
; ((AND # #)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START # SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; ((AND # SPLIT-SEQUENCE::TEST-NOT)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START # SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; ((AND SPLIT-SEQUENCE::FROM-END #)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END # SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))
; (T
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END # SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)))))
;
; note: Type assertion too complex to check:
; (VALUES LIST UNSIGNED-BYTE &REST T).
; It allows an unknown number of values, consider using
; (VALUES LIST UNSIGNED-BYTE &OPTIONAL).
; --> PROGN
; ==>
; (SB-IMPL::%DEFUN 'SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (SB-INT:NAMED-LAMBDA SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (SPLIT-SEQUENCE::DELIMITER SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END
; SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS
; SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT
; SPLIT-SEQUENCE::KEY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (COND (# #) (# #) (# #) (T #))))
; '(LAMBDA
; (SPLIT-SEQUENCE::DELIMITER SEQUENCE
; SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END
; SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS
; SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT
; SPLIT-SEQUENCE::KEY)
; (BLOCK SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE
; (COND (# #) (# #) (# #) (T #)))))
;
; caught STYLE-WARNING:
; Call to SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END could not be inlined
; because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE
; proclamation must be in effect to save function definitions for inlining.
;
; caught STYLE-WARNING:
; Call to SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START could not be inlined
; because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE
; proclamation must be in effect to save function definitions for inlining.
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-IF ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/extended-sequence.lisp
; in: DEFUN SPLIT-EXTENDED-SEQUENCE-IF
; (DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF
; (SPLIT-SEQUENCE::PREDICATE SEQUENCE SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)
; (IF SPLIT-SEQUENCE::FROM-END
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END
; (LAMBDA (SEQUENCE SPLIT-SEQUENCE::END)
; (POSITION-IF SPLIT-SEQUENCE::PREDICATE SEQUENCE :END
; SPLIT-SEQUENCE::END :FROM-END T :KEY
; SPLIT-SEQUENCE::KEY))
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START
; (LAMBDA (SEQUENCE SPLIT-SEQUENCE::START)
; (POSITION-IF SPLIT-SEQUENCE::PREDICATE SEQUENCE :START
; SPLIT-SEQUENCE::START :KEY SPLIT-SEQUENCE::KEY))
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF
; (SPLIT-SEQUENCE::PREDICATE SEQUENCE SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF
; (IF SPLIT-SEQUENCE::FROM-END
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END (LAMBDA # #)
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START (LAMBDA # #)
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))))
;
; note: Type assertion too complex to check:
; (VALUES LIST UNSIGNED-BYTE &REST T).
; It allows an unknown number of values, consider using
; (VALUES LIST UNSIGNED-BYTE &OPTIONAL).
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-IF-NOT ...)
; file: /usr/share/common-lisp/source/cl-split-sequence/extended-sequence.lisp
; in: DEFUN SPLIT-EXTENDED-SEQUENCE-IF-NOT
; (DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF-NOT
; (SPLIT-SEQUENCE::PREDICATE SEQUENCE SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)
; (IF SPLIT-SEQUENCE::FROM-END
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END
; (LAMBDA (SEQUENCE SPLIT-SEQUENCE::END)
; (POSITION-IF-NOT SPLIT-SEQUENCE::PREDICATE SEQUENCE :END
; SPLIT-SEQUENCE::END :FROM-END T :KEY
; SPLIT-SEQUENCE::KEY))
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START
; (LAMBDA (SEQUENCE SPLIT-SEQUENCE::START)
; (POSITION-IF-NOT SPLIT-SEQUENCE::PREDICATE SEQUENCE :START
; SPLIT-SEQUENCE::START :KEY SPLIT-SEQUENCE::KEY))
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF-NOT
; (SPLIT-SEQUENCE::PREDICATE SEQUENCE SPLIT-SEQUENCE::START
; SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF-NOT
; (IF SPLIT-SEQUENCE::FROM-END
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END (LAMBDA # #)
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)
; (SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START (LAMBDA # #)
; SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT
; SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS))))
;
; note: Type assertion too complex to check:
; (VALUES LIST UNSIGNED-BYTE &REST T).
; It allows an unknown number of values, consider using
; (VALUES LIST UNSIGNED-BYTE &OPTIONAL).
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-END ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-START ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/extended-sequence-tmp7QTM681J.fasl
; compilation finished in 0:00:00.265
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "split-sequence" "extended-sequence">
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/api.lisp" (written 11 MAY 2019 09:39:50 PM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DEFUN LIST-LONG-ENOUGH-P ...)
; processing (DEFUN CHECK-BOUNDS ...)
; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; processing (DEFMACRO CHECK-TESTS ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-SEQUENCE ...)
; processing (DEFUN SPLIT-SEQUENCE-IF ...)
; processing (DEFUN SPLIT-SEQUENCE-IF-NOT ...)
; processing (PUSHNEW :SPLIT-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/api-tmpLGH8FB0W.fasl
; compilation finished in 0:00:05.379
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/documentation.lisp" (written 11 MAY 2019 09:39:50 PM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/documentation-tmpDGQGGEC4.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/usocket/package.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (DEFPACKAGE :USOCKET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/usocket/package-tmp6X5OKNPG.fasl
; compilation finished in 0:00:00.013
; compiling file "/usr/share/common-lisp/source/usocket/usocket.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFPARAMETER *WILDCARD-HOST* ...)
; processing (DEFPARAMETER *AUTO-PORT* ...)
; processing (DEFPARAMETER *VERSION* ...)
; processing (DEFCONSTANT +MAX-DATAGRAM-PACKET-SIZE+ ...)
; processing (DEFCLASS USOCKET ...)
; processing (DEFGENERIC SOCKET-STATE ...)
; processing (DEFMETHOD SOCKET-STATE ...)
; processing (DEFCLASS STREAM-USOCKET ...)
; processing (DEFCLASS STREAM-SERVER-USOCKET ...)
; processing (DEFCLASS DATAGRAM-USOCKET ...)
; processing (DEFUN USOCKET-P ...)
; processing (DEFUN STREAM-USOCKET-P ...)
; processing (DEFUN STREAM-SERVER-USOCKET-P ...)
; processing (DEFUN DATAGRAM-USOCKET-P ...)
; processing (DEFUN MAKE-SOCKET ...)
; processing (DEFUN MAKE-STREAM-SOCKET ...)
; processing (DEFUN MAKE-STREAM-SERVER-SOCKET ...)
; processing (DEFUN MAKE-DATAGRAM-SOCKET ...)
; processing (DEFGENERIC SOCKET-ACCEPT ...)
; processing (DEFGENERIC SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFGENERIC SOCKET-SHUTDOWN ...)
; processing (DEFGENERIC SOCKET-SEND ...)
; processing (DEFGENERIC SOCKET-RECEIVE ...)
; processing (DEFGENERIC GET-LOCAL-ADDRESS ...)
; processing (DEFGENERIC GET-PEER-ADDRESS ...)
; processing (DEFGENERIC GET-LOCAL-PORT ...)
; processing (DEFGENERIC GET-PEER-PORT ...)
; processing (DEFGENERIC GET-LOCAL-NAME ...)
; processing (DEFGENERIC GET-PEER-NAME ...)
; processing (DEFMACRO WITH-CONNECTED-SOCKET ...)
; processing (DEFMACRO WITH-CLIENT-SOCKET ...)
; processing (DEFMACRO WITH-SERVER-SOCKET ...)
; processing (DEFMACRO WITH-SOCKET-LISTENER ...)
; processing (DEFSTRUCT (WAIT-LIST #) ...)
; processing (DEFUN MAKE-WAIT-LIST ...)
; processing (DEFUN ADD-WAITER ...)
; processing (DEFUN REMOVE-WAITER ...)
; processing (DEFUN REMOVE-ALL-WAITERS ...)
; processing (DEFUN WAIT-FOR-INPUT ...)
; processing (DEFUN INTEGER-TO-OCTET-BUFFER ...)
; processing (DEFUN OCTET-BUFFER-TO-INTEGER ...)
; processing (DEFMACRO PORT-TO-OCTET-BUFFER ...)
; processing (DEFMACRO IP-TO-OCTET-BUFFER ...)
; processing (DEFMACRO PORT-FROM-OCTET-BUFFER ...)
; processing (DEFMACRO IP-FROM-OCTET-BUFFER ...)
; processing (DEFUN LIST-OF-STRINGS-TO-INTEGERS ...)
; processing (DEFUN IP-ADDRESS-STRING-P ...)
; processing (DEFUN HBO-TO-DOTTED-QUAD ...)
; processing (DEFUN HBO-TO-VECTOR-QUAD ...)
; processing (DEFUN VECTOR-QUAD-TO-DOTTED-QUAD ...)
; processing (DEFUN DOTTED-QUAD-TO-VECTOR-QUAD ...)
; processing (DEFGENERIC HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFUN VECTOR-TO-IPV6-HOST ...)
; processing (DEFUN SPLIT-IPV6-ADDRESS ...)
; processing (DEFUN IPV6-HOST-TO-VECTOR ...)
; processing (DEFUN HOST-TO-HOSTNAME ...)
; processing (DEFUN IP= ...)
; processing (DEFUN IP/= ...)
; processing (DEFUN GET-HOST-BY-NAME ...)
; processing (DEFUN GET-RANDOM-HOST-BY-NAME ...)
; processing (DEFUN HOST-TO-VECTOR-QUAD ...)
; processing (DEFUN HOST-TO-HBO ...)
; processing (DEFUN SPLIT-TIMEOUT ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (PROCLAIM (QUOTE #))
; processing (DEFUN BOOL->INT ...)
; processing (DEFUN INT->BOOL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/usocket/usocket-tmpABKNHGCI.fasl
; compilation finished in 0:00:01.621
; compiling file "/usr/share/common-lisp/source/usocket/condition.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFINE-CONDITION INSUFFICIENT-IMPLEMENTATION ...)
; processing (DEFINE-CONDITION UNSUPPORTED ...)
; processing (DEFINE-CONDITION UNIMPLEMENTED ...)
; processing (DEFINE-CONDITION SOCKET-CONDITION ...)
; processing (DEFINE-CONDITION SOCKET-ERROR ...)
; processing (DEFINE-CONDITION NS-CONDITION ...)
; processing (DEFINE-CONDITION NS-ERROR ...)
; processing (DEFUN DEFINE-USOCKET-CONDITION-CLASS ...)
; processing (DEFMACRO DEFINE-USOCKET-CONDITION-CLASSES ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (INTERRUPTED-CONDITION) ...)
; processing (DEFINE-CONDITION UNKNOWN-CONDITION ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (ADDRESS-IN-USE-ERROR ADDRESS-NOT-AVAILABLE-ERROR ...) ...)
; processing (DEFINE-CONDITION UNKNOWN-ERROR ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (NS-TRY-AGAIN-CONDITION) ...)
; processing (DEFINE-CONDITION NS-UNKNOWN-CONDITION ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (NS-HOST-NOT-FOUND-ERROR NS-NO-RECOVERY-ERROR) ...)
; processing (DEFINE-CONDITION NS-UNKNOWN-ERROR ...)
; processing (DEFMACRO WITH-MAPPED-CONDITIONS ...)
; processing (DEFPARAMETER +UNIX-ERRNO-CONDITION-MAP+ ...)
; processing (DEFPARAMETER +UNIX-ERRNO-ERROR-MAP+ ...)
; processing (DEFUN MAP-ERRNO-CONDITION ...)
; processing (DEFUN MAP-ERRNO-ERROR ...)
; processing (DEFPARAMETER +UNIX-NS-ERROR-MAP+ ...)
; processing (DEFMACRO UNSUPPORTED ...)
; processing (DEFMACRO UNIMPLEMENTED ...)
; processing (DEFMACRO IGNORE-UNSUPPORTED-WARNINGS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/usocket/condition-tmpDGT3OQUT.fasl
; compilation finished in 0:00:00.415
; compiling file "/usr/share/common-lisp/source/usocket/backend/sbcl.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFUN GET-HOST-NAME ...)
; processing (DEFUN MAP-SOCKET-ERROR ...)
; processing (DEFPARAMETER +SBCL-CONDITION-MAP+ ...)
; processing (DEFPARAMETER +SBCL-ERROR-MAP+ ...)
; processing (DEFUN HANDLE-CONDITION ...)
; processing (DEFVAR *DUMMY-STREAM* ...)
; processing (DEFMACRO %WITH-TIMEOUT ...)
; processing (DEFUN GET-HOSTS-BY-NAME ...)
; processing (DEFUN SOCKET-CONNECT ...)
; file: /usr/share/common-lisp/source/usocket/backend/sbcl.lisp
; in: DEFUN SOCKET-CONNECT
; (USOCKET::%WITH-TIMEOUT (USOCKET::TIMEOUT (ERROR 'TIMEOUT))
; (USOCKET::CONNECT))
; --> BLOCK TAGBODY FLET LET
; ==>
; (MAKE-TIMER #'#:G17)
;
; note: could not stack allocate:
; (%WITH-TIMEOUT (TIMEOUT (ERROR 'SB-EXT:TIMEOUT))
; (CONNECT))
; processing (DEFUN SOCKET-LISTEN ...)
; processing (DEFMETHOD SOCKET-ACCEPT ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-SHUTDOWN ...)
; processing (DEFMETHOD SOCKET-SEND ...)
; processing (DEFMETHOD SOCKET-RECEIVE ...)
; file: /usr/share/common-lisp/source/usocket/backend/sbcl.lisp
; in: DEFMETHOD SOCKET-RECEIVE (DATAGRAM-USOCKET T T)
; (DEFMETHOD USOCKET:SOCKET-RECEIVE
; ((USOCKET:USOCKET USOCKET:DATAGRAM-USOCKET) USOCKET::BUFFER LENGTH
; &KEY (USOCKET::ELEMENT-TYPE '(UNSIGNED-BYTE 8)))
; (DECLARE
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (INTEGER 0)
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16)))
; (USOCKET:WITH-MAPPED-CONDITIONS (USOCKET:USOCKET)
; (LET ((USOCKET::S #))
; (SB-BSD-SOCKETS:SOCKET-RECEIVE USOCKET::S USOCKET::BUFFER LENGTH
; :ELEMENT-TYPE USOCKET::ELEMENT-TYPE))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; ==>
; (THE
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &REST T)
; (PROGN
; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS (# SB-PCL::.NEXT-METHOD-CALL. #
; NIL :CALL-NEXT-METHOD-P NIL
; :SETQ-P NIL :PARAMETERS-SETQD NIL
; :METHOD-CELL # ...)
; (DECLARE #)
; (LOCALLY # #)))))
;
; note: Type assertion too complex to check:
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) . #1=((*))) UNSIGNED-BYTE
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) . #1#) (UNSIGNED-BYTE 16) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) . #1=((*))) UNSIGNED-BYTE
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) . #1#) (UNSIGNED-BYTE 16) &OPTIONAL).
; processing (DEFMETHOD GET-LOCAL-NAME ...)
; processing (DEFMETHOD GET-PEER-NAME ...)
; processing (DEFMETHOD GET-LOCAL-ADDRESS ...)
; processing (DEFMETHOD GET-PEER-ADDRESS ...)
; processing (DEFMETHOD GET-LOCAL-PORT ...)
; processing (DEFMETHOD GET-PEER-PORT ...)
; processing (DEFUN GET-HOST-BY-ADDRESS ...)
; processing (DEFUN %SETUP-WAIT-LIST ...)
; processing (DEFUN %ADD-WAITER ...)
; processing (DEFUN %REMOVE-WAITER ...)
; processing (DEFUN WAIT-FOR-INPUT-INTERNAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/usocket/backend/sbcl-tmpNF26V1SW.fasl
; compilation finished in 0:00:01.309
; compiling file "/usr/share/common-lisp/source/usocket/option.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFPARAMETER *BACKEND* ...)
; processing (DEFGENERIC SOCKET-OPTION ...)
; processing (DEFGENERIC (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (EXPORT (QUOTE SOCKET-OPTION))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/usocket/option-tmp2SBNA8NV.fasl
; compilation finished in 0:00:00.688
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/trivial-utf-8.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :CL-POSTGRES-TRIVIAL-UTF-8 ...)
; processing (IN-PACKAGE :CL-POSTGRES-TRIVIAL-UTF-8)
; processing (DEFPARAMETER *OPTIMIZE* ...)
; processing (DEFUN UTF-8-BYTE-LENGTH ...)
; processing (DEFMACRO AS-UTF-8-BYTES ...)
; processing (DEFUN STRING-TO-UTF-8-BYTES ...)
; processing (DEFUN WRITE-UTF-8-BYTES ...)
; processing (DEFINE-CONDITION UTF-8-DECODING-ERROR ...)
; processing (DECLAIM (INLINE UTF-8-GROUP-SIZE))
; processing (DEFUN UTF-8-GROUP-SIZE ...)
; processing (DEFUN UTF-8-STRING-LENGTH ...)
; processing (DEFUN GET-UTF-8-CHARACTER ...)
; processing (DEFUN UTF-8-BYTES-TO-STRING ...)
; processing (DEFUN READ-UTF-8-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/trivial-utf-8-tmpGXTLRZRR.fasl
; compilation finished in 0:00:00.910
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/ieee-floats.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :CL-POSTGRES-IEEE-FLOATS ...)
; processing (IN-PACKAGE :CL-POSTGRES-IEEE-FLOATS)
; processing (DEFMACRO MAKE-FLOAT-CONVERTERS ...)
; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT32 ...)
; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT64 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/ieee-floats-tmp2OV9B8J5.fasl
; compilation finished in 0:00:00.388
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/features.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :CL-POSTGRES.FEATURES ...)
; processing (IN-PACKAGE :CL-POSTGRES.FEATURES)
; processing (WHEN (FIND-PACKAGE #) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/features-tmpDWRCTFSG.fasl
; compilation finished in 0:00:00.027
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/package.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :CL-POSTGRES ...)
; processing (DEFPACKAGE :CL-POSTGRES-ERROR ...)
; processing (DEFPACKAGE :CL-POSTGRES-OID ...)
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFPARAMETER *OPTIMIZE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/package-tmpUJ89U641.fasl
; compilation finished in 0:00:00.025
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/errors.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFPARAMETER *CURRENT-QUERY* ...)
; processing (DEFPARAMETER *QUERY-LOG* ...)
; processing (DEFPARAMETER *QUERY-CALLBACK* ...)
; processing (DEFUN LOG-QUERY ...)
; processing (DEFMACRO WITH-QUERY ...)
; processing (DEFINE-CONDITION DATABASE-ERROR ...)
; processing (DEFUN DATABASE-ERROR-CONSTRAINT-NAME ...)
; processing (DEFINE-CONDITION DATABASE-CONNECTION-ERROR ...)
; processing (DEFINE-CONDITION DATABASE-CONNECTION-LOST ...)
; processing (DEFINE-CONDITION DATABASE-SOCKET-ERROR ...)
; processing (DEFUN WRAP-SOCKET-ERROR ...)
; processing (IN-PACKAGE :CL-POSTGRES-ERROR)
; processing (DEFPARAMETER *ERROR-TABLE* ...)
; processing (DEFMACRO DEFERROR ...)
; processing (DEFERROR "0A" ...)
; processing (DEFERROR "22" ...)
; processing (DEFERROR "22012" ...)
; processing (DEFERROR "22007" ...)
; processing (DEFERROR "22003" ...)
; processing (DEFERROR "22P01" ...)
; processing (DEFERROR "23" ...)
; processing (DEFERROR "23001" ...)
; processing (DEFERROR "23502" ...)
; processing (DEFERROR "23503" ...)
; processing (DEFERROR "23505" ...)
; processing (DEFERROR "23514" ...)
; processing (DEFERROR "42" ...)
; processing (DEFERROR "42501" ...)
; processing (DEFERROR "40" ...)
; processing (DEFERROR "40001" ...)
; processing (DEFERROR "40002" ...)
; processing (DEFERROR "40003" ...)
; processing (DEFERROR "40P01" ...)
; processing (DEFERROR "42P01" ...)
; processing (DEFERROR "42601" ...)
; processing (DEFERROR "42703" ...)
; processing (DEFERROR "42701" ...)
; processing (DEFERROR "42P03" ...)
; processing (DEFERROR "42P04" ...)
; processing (DEFERROR "42723" ...)
; processing (DEFERROR "42P05" ...)
; processing (DEFERROR "42P06" ...)
; processing (DEFERROR "42P07" ...)
; processing (DEFERROR "42712" ...)
; processing (DEFERROR "42710" ...)
; processing (DEFERROR "53" ...)
; processing (DEFERROR "54" ...)
; processing (DEFERROR "55" ...)
; processing (DEFERROR "55006" ...)
; processing (DEFERROR "55P03" ...)
; processing (DEFERROR "57" ...)
; processing (DEFERROR "57014" ...)
; processing (DEFINE-CONDITION SERVER-SHUTDOWN ...)
; processing (DEFERROR "57P01" ...)
; processing (DEFERROR "57P02" ...)
; processing (DEFERROR "57P03" ...)
; processing (DEFERROR "58" ...)
; processing (DEFERROR "XX" ...)
; processing (DEFUN GET-ERROR-TYPE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/errors-tmpJAPE3FUS.fasl
; compilation finished in 0:00:00.318
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/sql-string.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFUN ESCAPE-BYTES ...)
; processing (DEFPARAMETER *SILENTLY-TRUNCATE-RATIONALS* ...)
; processing (DEFUN WRITE-RATIONAL-AS-FLOATING-POINT ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/sql-string.lisp
; in: DEFUN WRITE-RATIONAL-AS-FLOATING-POINT
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- NUMBER)
; ==>
; (SB-KERNEL:%NEGATE (THE NUMBER NUMBER))
;
; note: unable to
; Eliminate %negate/%negate of rationals
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0))
; (RATIONAL * (0))), not a RATIONAL.
; (TRUNCATE
; (IF (< NUMBER 0)
; (PROG1 (- NUMBER) (WRITE-CHAR #\- STREAM))
; NUMBER))
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; (- CL-POSTGRES::DIGIT-LENGTH-LIMIT (LENGTH CL-POSTGRES::QUOTIENT-PART))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ZEROP CL-POSTGRES::REMAINDER)
; ==>
; (= CL-POSTGRES::REMAINDER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (* CL-POSTGRES::REMAINDER 10)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a INTEGER.
;
; note: unable to
; associate */(* /) of constants
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a RATIONAL.
; (FLOOR (* CL-POSTGRES::REMAINDER 10))
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL (-10) (10))), not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL (-10) (10))), not a DOUBLE-FLOAT.
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF
; --> ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a RATIONAL.
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF
; --> MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL (-10) (10))), not a FLOAT.
; (<= CL-POSTGRES::DECIMAL-LENGTH-LIMIT 0)
; --> OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (< NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (- NUMBER)
; ==>
; (SB-KERNEL:%NEGATE (THE NUMBER NUMBER))
;
; note: forced to do full call
; unable to do #1=inline float arithmetic (cost 1) because:
; The first argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0))
; (SINGLE-FLOAT * #3=(0.0)) (RATIONAL * #4=(0))), not a DOUBLE-FLOAT.
; The result is a (VALUES
; (OR (RATIONAL #5=(0)) (SINGLE-FLOAT #6=(-0.0))
; (DOUBLE-FLOAT #7=(-0.0d0)))
; . #8=(&OPTIONAL)), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do #1# (cost 1) because:
; The first argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#)
; (RATIONAL * #4#)), not a SINGLE-FLOAT.
; The result is a (VALUES
; (OR (RATIONAL #5#) (SINGLE-FLOAT #6#)
; (DOUBLE-FLOAT #7#))
; . #8#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (TRUNCATE
; (IF (< NUMBER 0)
; (PROG1 (- NUMBER) (WRITE-CHAR #\- STREAM))
; NUMBER))
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #1=(-1) #2=(1)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (OR (RATIONAL #1# #2#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (- CL-POSTGRES::DIGIT-LENGTH-LIMIT (LENGTH CL-POSTGRES::QUOTIENT-PART))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (<= CL-POSTGRES::DECIMAL-LENGTH-LIMIT 0)
; --> OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (> CL-POSTGRES::DECIMAL-DIGITS CL-POSTGRES::DECIMAL-LENGTH-LIMIT)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a (UNSIGNED-BYTE 32).
; etc.
; (* CL-POSTGRES::REMAINDER 10)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL #2=(-1) #3=(1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL #4=(-10) #5=(10)))
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL #2# #3#) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #4# #5#))
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; (FLOOR (* CL-POSTGRES::REMAINDER 10))
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL #1=(-10) #2=(10))), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #3=(-1) #4=(1)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #5=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #1# #2#)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (OR (RATIONAL #3# #4#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #5#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF
; --> MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL #2=(-10) #3=(10))), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #2# #3#)), not a FIXNUM.
; etc.
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1-
; ==>
; (- SB-C::TRU 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL #2=(-1) #3=(1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #4=(0) #5=(2)))
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL #2# #3#) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #4# #5#))
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; (LOOP :FOR CL-POSTGRES::DECIMAL-DIGITS :UPFROM 1
; :UNTIL (ZEROP CL-POSTGRES::REMAINDER)
; :DO (WHEN
; (> CL-POSTGRES::DECIMAL-DIGITS
; CL-POSTGRES::DECIMAL-LENGTH-LIMIT)
; (CL-POSTGRES::FAIL))
; :DO (MULTIPLE-VALUE-BIND (CL-POSTGRES::QUOTIENT REM)
; (FLOOR (* CL-POSTGRES::REMAINDER 10))
; (PRINC CL-POSTGRES::QUOTIENT STREAM)
; (SETF CL-POSTGRES::REMAINDER REM)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+
; ==>
; (+ CL-POSTGRES::DECIMAL-DIGITS 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN WRITE-QUOTED ...)
; processing (DEFGENERIC TO-SQL-STRING ...)
; processing (DEFGENERIC SERIALIZE-FOR-POSTGRES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/sql-string-tmp1V7T6W0W.fasl
; compilation finished in 0:00:00.555
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/strings-utf-8.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFPARAMETER *CLIENT-ENCODING* ...)
; processing (DECLAIM (INLINE ENC-BYTE-LENGTH))
; processing (DEFUN ENC-BYTE-LENGTH ...)
; processing (DECLAIM (INLINE ENC-WRITE-STRING))
; processing (DEFUN ENC-WRITE-STRING ...)
; processing (DECLAIM (INLINE ENC-READ-STRING))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ENC-READ-STRING ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/strings-utf-8.lisp
; in: DEFUN ENC-READ-STRING
; (DEFUN CL-POSTGRES::ENC-READ-STRING
; (CL-POSTGRES::INPUT
; &KEY CL-POSTGRES::NULL-TERMINATED (CL-POSTGRES::BYTE-LENGTH -1))
; (CL-POSTGRES-TRIVIAL-UTF-8:READ-UTF-8-STRING CL-POSTGRES::INPUT
; :NULL-TERMINATED
; CL-POSTGRES::NULL-TERMINATED
; :BYTE-LENGTH
; CL-POSTGRES::BYTE-LENGTH))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::ENC-READ-STRING
; (CL-POSTGRES::INPUT &KEY CL-POSTGRES::NULL-TERMINATED
; (CL-POSTGRES::BYTE-LENGTH -1))
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL-POSTGRES::ENC-READ-STRING
; (CL-POSTGRES-TRIVIAL-UTF-8:READ-UTF-8-STRING CL-POSTGRES::INPUT
; :NULL-TERMINATED
; CL-POSTGRES::NULL-TERMINATED
; :BYTE-LENGTH
; CL-POSTGRES::BYTE-LENGTH)))
;
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).
; processing (DECLAIM (INLINE ENC-STRING-BYTES))
; processing (DEFUN ENC-STRING-BYTES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/strings-utf-8-tmp952LXWTD.fasl
; compilation finished in 0:00:00.123
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/communicate.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFUN INTEGER-READER-NAME ...)
; processing (DEFUN INTEGER-WRITER-NAME ...)
; processing (DEFMACRO INTEGER-READER ...)
; processing (DEFMACRO INTEGER-WRITER ...)
; processing (INTEGER-READER 1)
; processing (INTEGER-READER 2)
; processing (INTEGER-READER 4)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/communicate.lisp
; in: INTEGER-READER 4
; (CL-POSTGRES::INTEGER-READER 4)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-INT4
; (CL-POSTGRES::SOCKET)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
; (COMPILATION-SPEED 0)))
; (BLOCK CL-POSTGRES::READ-INT4
; (LET ((CL-POSTGRES::RESULT 0))
; (DECLARE (TYPE # CL-POSTGRES::RESULT))
; (SETF # #)
; (SETF # #)
; (SETF # #)
; (SETF # #)
; (IF (LOGBITP 31 CL-POSTGRES::RESULT)
; (DPB CL-POSTGRES::RESULT # -1)
; CL-POSTGRES::RESULT))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-UINT4
; (CL-POSTGRES::SOCKET)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
; (COMPILATION-SPEED 0)))
; (BLOCK CL-POSTGRES::READ-UINT4
; (LET ((CL-POSTGRES::RESULT 0))
; (DECLARE (TYPE # CL-POSTGRES::RESULT))
; (SETF # #)
; (SETF # #)
; (SETF # #)
; (SETF # #)
; CL-POSTGRES::RESULT)))
;
; note: doing unsigned word to integer coercion (cost 20) from RESULT to "<return value>"
; processing (INTEGER-READER 8)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/communicate.lisp
; in: INTEGER-READER 8
; (CL-POSTGRES::INTEGER-READER 8)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET SETF LET* SETQ THE DPB
; ==>
; (SB-KERNEL:%DPB #:NEW0 8 56 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW1 8 48 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW2 8 40 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW3 8 32 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW4 8 24 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW5 8 16 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW6 8 8 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW7 8 0 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET IF DPB
; ==>
; (SB-KERNEL:%DPB CL-POSTGRES::RESULT 63 0 -1)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET SETF LET* SETQ THE DPB
; ==>
; (SB-KERNEL:%DPB #:NEW10 8 56 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW11 8 48 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW12 8 40 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW13 8 32 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW14 8 24 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW15 8 16 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW16 8 8 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; ==>
; (SB-KERNEL:%DPB #:NEW17 8 0 CL-POSTGRES::RESULT)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; processing (INTEGER-WRITER 1)
; processing (INTEGER-WRITER 2)
; processing (INTEGER-WRITER 4)
; processing (DEFUN WRITE-BYTES ...)
; processing (DEFUN WRITE-STR ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN READ-BYTES ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN READ-STR ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN READ-SIMPLE-STR ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/communicate.lisp
; in: DEFUN READ-SIMPLE-STR
; (< CL-POSTGRES::B 128)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; etc.
; processing (DEFUN SKIP-BYTES ...)
; processing (DEFUN SKIP-STR ...)
; processing (DEFUN ENSURE-SOCKET-IS-CLOSED ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/communicate-tmpLVFWNUU9.fasl
; compilation finished in 0:00:00.846
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFMACRO DEFINE-MESSAGE ...)
; processing (DEFINE-MESSAGE SSL-REQUEST-MESSAGE ...)
; processing (DEFINE-MESSAGE STARTUP-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE STARTUP-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::STARTUP-MESSAGE
; NIL
; (CL-POSTGRES::USER CL-POSTGRES::DATABASE)
; (CL-POSTGRES::UINT 4 196608)
; (STRING "user")
; (STRING CL-POSTGRES::USER)
; (STRING "database")
; (STRING CL-POSTGRES::DATABASE)
; (STRING "client_encoding")
; (STRING CL-POSTGRES::*CLIENT-ENCODING*)
; (CL-POSTGRES::UINT 1 0))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + + +
; ==>
; (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + +
; ==>
; (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + +
; ==>
; (+
; (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + +
; ==>
; (+
; (+
; (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + +
; ==>
; (+
; (+
; (+ (+ (+ 15 #) (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G3))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 +
; ==>
; (+
; (+
; (+ (+ (+ # #) (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G3))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + + +
; ==>
; (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + +
; ==>
; (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + +
; ==>
; (+
; (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + +
; ==>
; (+
; (+
; (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + +
; ==>
; (+
; (+
; (+ (+ (+ 15 #) (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G3))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 +
; ==>
; (+
; (+
; (+ (+ (+ # #) (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G3))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; 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 (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFINE-MESSAGE PLAIN-PASSWORD-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE PLAIN-PASSWORD-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::PLAIN-PASSWORD-MESSAGE
; #\p
; (CL-POSTGRES::PASSWORD)
; (STRING CL-POSTGRES::PASSWORD))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; processing (DEFUN BYTES-TO-HEX-STRING ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFUN BYTES-TO-HEX-STRING
; (LOOP :FOR BYTE :ACROSS CL-POSTGRES::BYTES
; :FOR CL-POSTGRES::POS :FROM 0 :BY 2
; :DO ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; processing (DEFUN MD5-PASSWORD ...)
; processing (DEFINE-MESSAGE MD5-PASSWORD-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE MD5-PASSWORD-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::MD5-PASSWORD-MESSAGE
; #\p
; (CL-POSTGRES::PASSWORD CL-POSTGRES::USER CL-POSTGRES::SALT)
; (STRING
; (CL-POSTGRES::MD5-PASSWORD CL-POSTGRES::PASSWORD CL-POSTGRES::USER
; CL-POSTGRES::SALT)))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; processing (DEFINE-MESSAGE GSS-AUTH-BUFFER-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE GSS-AUTH-BUFFER-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::GSS-AUTH-BUFFER-MESSAGE
; #\p
; (CL-POSTGRES::BUF)
; (CL-POSTGRES::BYTES CL-POSTGRES::BUF))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 +
; ==>
; (LENGTH #:G1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFINE-MESSAGE QUERY-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE QUERY-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::QUERY-MESSAGE
; #\Q
; (CL-POSTGRES::QUERY)
; (STRING CL-POSTGRES::QUERY))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; processing (DEFINE-MESSAGE SIMPLE-PARSE-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE SIMPLE-PARSE-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SIMPLE-PARSE-MESSAGE
; #\P
; (CL-POSTGRES::QUERY)
; (CL-POSTGRES::UINT 1 0)
; (STRING CL-POSTGRES::QUERY)
; (CL-POSTGRES::UINT 2 0))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; processing (DEFINE-MESSAGE PARSE-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE PARSE-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::PARSE-MESSAGE
; #\P
; (CL-POSTGRES::NAME CL-POSTGRES::QUERY)
; (STRING CL-POSTGRES::NAME)
; (STRING CL-POSTGRES::QUERY)
; (CL-POSTGRES::UINT 2 0))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + +
; ==>
; (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 +
; ==>
; (+ (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + +
; ==>
; (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 +
; ==>
; (+ (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
;
; 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 (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFINE-MESSAGE CLOSE-PREPARED-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE CLOSE-PREPARED-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::CLOSE-PREPARED-MESSAGE
; #\C
; (CL-POSTGRES::NAME)
; (CL-POSTGRES::UINT 1 83)
; (STRING CL-POSTGRES::NAME))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 6 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; processing (DEFUN FORMATS-TO-BYTES ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFUN FORMATS-TO-BYTES
; (LOOP :FOR FORMAT :ACROSS CL-POSTGRES::FORMATS
; :FOR CL-POSTGRES::POS :FROM 1 :BY 2
; :DO ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ CL-POSTGRES::POS 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 3) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 3) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFINE-MESSAGE SIMPLE-BIND-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE SIMPLE-BIND-MESSAGE
; (LENGTH CL-POSTGRES::FORMATS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN BIND-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFUN BIND-MESSAGE
; (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME)
; (* 6 CL-POSTGRES::N-PARAMS) (* 2 CL-POSTGRES::N-RESULT-FORMATS)
; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
; :SUM CL-POSTGRES::SIZE))
; --> + + +
; ==>
; (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; --> + +
; ==>
; (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; (* 6 CL-POSTGRES::N-PARAMS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> +
; ==>
; (+
; (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; (* 6 CL-POSTGRES::N-PARAMS))
; (* 2 CL-POSTGRES::N-RESULT-FORMATS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; ==>
; (+
; (+
; (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; (* 6 CL-POSTGRES::N-PARAMS))
; (* 2 CL-POSTGRES::N-RESULT-FORMATS))
; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
; :SUM CL-POSTGRES::SIZE))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LOOP :FOR FORMAT :ACROSS CL-POSTGRES::RESULT-FORMATS
; :DO (CL-POSTGRES::WRITE-UINT2 CL-POSTGRES::SOCKET
; (IF FORMAT
; 1
; 0)))
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME)
; (* 6 CL-POSTGRES::N-PARAMS) (* 2 CL-POSTGRES::N-RESULT-FORMATS)
; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
; :SUM CL-POSTGRES::SIZE))
; --> + + +
; ==>
; (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> + +
; ==>
; (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; (* 6 CL-POSTGRES::N-PARAMS))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; --> +
; ==>
; (+
; (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; (* 6 CL-POSTGRES::N-PARAMS))
; (* 2 CL-POSTGRES::N-RESULT-FORMATS))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; ==>
; (+
; (+
; (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; (* 6 CL-POSTGRES::N-PARAMS))
; (* 2 CL-POSTGRES::N-RESULT-FORMATS))
; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
; :SUM CL-POSTGRES::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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
; :SUM CL-POSTGRES::SIZE)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-15 CL-POSTGRES::SIZE)
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFINE-MESSAGE SIMPLE-DESCRIBE-MESSAGE ...)
; processing (DEFINE-MESSAGE DESCRIBE-PREPARED-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE DESCRIBE-PREPARED-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::DESCRIBE-PREPARED-MESSAGE
; #\D
; (CL-POSTGRES::NAME)
; (CL-POSTGRES::UINT 1 83)
; (STRING CL-POSTGRES::NAME))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 6 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; processing (DEFINE-MESSAGE SIMPLE-EXECUTE-MESSAGE ...)
; processing (DEFINE-MESSAGE FLUSH-MESSAGE ...)
; processing (DEFINE-MESSAGE SYNC-MESSAGE ...)
; processing (DEFINE-MESSAGE TERMINATE-MESSAGE ...)
; processing (DEFINE-MESSAGE COPY-DONE-MESSAGE ...)
; processing (DEFUN COPY-DATA-MESSAGE ...)
; processing (DEFINE-MESSAGE COPY-FAIL-MESSAGE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE COPY-FAIL-MESSAGE
; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::COPY-FAIL-MESSAGE
; #\f
; (CL-POSTGRES::REASON)
; (STRING CL-POSTGRES::REASON))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4
; ==>
; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES FIXNUM
; &REST T).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/messages-tmpDKBKLORG.fasl
; compilation finished in 0:00:01.654
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/oid.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES-OID)
; processing (DEFCONSTANT +BOOL+ ...)
; processing (DEFCONSTANT +BYTEA+ ...)
; processing (DEFCONSTANT +CHAR+ ...)
; processing (DEFCONSTANT +NAME+ ...)
; processing (DEFCONSTANT +INT8+ ...)
; processing (DEFCONSTANT +INT2+ ...)
; processing (DEFCONSTANT +INT2VECTOR+ ...)
; processing (DEFCONSTANT +INT4+ ...)
; processing (DEFCONSTANT +REGPROC+ ...)
; processing (DEFCONSTANT +TEXT+ ...)
; processing (DEFCONSTANT +OID+ ...)
; processing (DEFCONSTANT +TID+ ...)
; processing (DEFCONSTANT +XID+ ...)
; processing (DEFCONSTANT +CID+ ...)
; processing (DEFCONSTANT +OID-VECTOR+ ...)
; processing (DEFCONSTANT +JSON+ ...)
; processing (DEFCONSTANT +XML+ ...)
; processing (DEFCONSTANT +PGNODETREE+ ...)
; processing (DEFCONSTANT +PGDDLCOMMAND+ ...)
; processing (DEFCONSTANT +POINT+ ...)
; processing (DEFCONSTANT +LSEG+ ...)
; processing (DEFCONSTANT +PATH+ ...)
; processing (DEFCONSTANT +BOX+ ...)
; processing (DEFCONSTANT +POLYGON+ ...)
; processing (DEFCONSTANT +LINE+ ...)
; processing (DEFCONSTANT +FLOAT4+ ...)
; processing (DEFCONSTANT +FLOAT8+ ...)
; processing (DEFCONSTANT +ABSTIME+ ...)
; processing (DEFCONSTANT +RELTIME+ ...)
; processing (DEFCONSTANT +TINTERVAL+ ...)
; processing (DEFCONSTANT +UNKNOWN+ ...)
; processing (DEFCONSTANT +CIRCLE+ ...)
; processing (DEFCONSTANT +CASH+ ...)
; processing (DEFCONSTANT +MACADDR+ ...)
; processing (DEFCONSTANT +INET+ ...)
; processing (DEFCONSTANT +CIDR+ ...)
; processing (DEFCONSTANT +BOOL-ARRAY+ ...)
; processing (DEFCONSTANT +BYTEA-ARRAY+ ...)
; processing (DEFCONSTANT +CHAR-ARRAY+ ...)
; processing (DEFCONSTANT +NAME-ARRAY+ ...)
; processing (DEFCONSTANT +INT2-ARRAY+ ...)
; processing (DEFCONSTANT +INT4-ARRAY+ ...)
; processing (DEFCONSTANT +TEXT-ARRAY+ ...)
; processing (DEFCONSTANT +BPCHAR-ARRAY+ ...)
; processing (DEFCONSTANT +VARCHAR-ARRAY+ ...)
; processing (DEFCONSTANT +INT8-ARRAY+ ...)
; processing (DEFCONSTANT +POINT-ARRAY+ ...)
; processing (DEFCONSTANT +LSEG-ARRAY+ ...)
; processing (DEFCONSTANT +BOX-ARRAY+ ...)
; processing (DEFCONSTANT +FLOAT4-ARRAY+ ...)
; processing (DEFCONSTANT +FLOAT8-ARRAY+ ...)
; processing (DEFCONSTANT +OID-ARRAY+ ...)
; processing (DEFCONSTANT +ACLITEM+ ...)
; processing (DEFCONSTANT +CSTRING-ARRAY+ ...)
; processing (DEFCONSTANT +BPCHAR+ ...)
; processing (DEFCONSTANT +VARCHAR+ ...)
; processing (DEFCONSTANT +DATE+ ...)
; processing (DEFCONSTANT +TIME+ ...)
; processing (DEFCONSTANT +TIMESTAMP+ ...)
; processing (DEFCONSTANT +TIMESTAMP-ARRAY+ ...)
; processing (DEFCONSTANT +DATE-ARRAY+ ...)
; processing (DEFCONSTANT +TIME-ARRAY+ ...)
; processing (DEFCONSTANT +TIMESTAMPTZ+ ...)
; processing (DEFCONSTANT +TIMESTAMPTZ-ARRAY+ ...)
; processing (DEFCONSTANT +INTERVAL+ ...)
; processing (DEFCONSTANT +INTERVAL-ARRAY+ ...)
; processing (DEFCONSTANT +TIMETZ+ ...)
; processing (DEFCONSTANT +BIT+ ...)
; processing (DEFCONSTANT +BIT-ARRAY+ ...)
; processing (DEFCONSTANT +VARBIT+ ...)
; processing (DEFCONSTANT +VARBIT-ARRAY+ ...)
; processing (DEFCONSTANT +NUMERIC+ ...)
; processing (DEFCONSTANT +NUMERIC-ARRAY+ ...)
; processing (DEFCONSTANT +REFCURSOR+ ...)
; processing (DEFCONSTANT +REGPROCEDURE+ ...)
; processing (DEFCONSTANT +REGOPER+ ...)
; processing (DEFCONSTANT +REGOPERATOR+ ...)
; processing (DEFCONSTANT +REGCLASS+ ...)
; processing (DEFCONSTANT +REGTYPE+ ...)
; processing (DEFCONSTANT +REGROLE+ ...)
; processing (DEFCONSTANT +REGNAMESPACE+ ...)
; processing (DEFCONSTANT +REGTYPE-ARRAY+ ...)
; processing (DEFCONSTANT +UUID+ ...)
; processing (DEFCONSTANT +LSN+ ...)
; processing (DEFCONSTANT +TSVECTOR+ ...)
; processing (DEFCONSTANT +GTSVECTOR+ ...)
; processing (DEFCONSTANT +TSQUERY+ ...)
; processing (DEFCONSTANT +REGCONFIG+ ...)
; processing (DEFCONSTANT +REGDICTIONARY+ ...)
; processing (DEFCONSTANT +JSONB+ ...)
; processing (DEFCONSTANT +INT4RANGE+ ...)
; processing (DEFCONSTANT +RECORD+ ...)
; processing (DEFCONSTANT +RECORD-ARRAY+ ...)
; processing (DEFCONSTANT +CSTRING+ ...)
; processing (DEFCONSTANT +ANY+ ...)
; processing (DEFCONSTANT +ANY-ARRAY+ ...)
; processing (DEFCONSTANT +V-OID+ ...)
; processing (DEFCONSTANT +TRIGGER+ ...)
; processing (DEFCONSTANT +EVTTRIGGER+ ...)
; processing (DEFCONSTANT +LANGUAGE-HANDLER+ ...)
; processing (DEFCONSTANT +INTERNAL+ ...)
; processing (DEFCONSTANT +OPAQUE+ ...)
; processing (DEFCONSTANT +ANYELEMENT+ ...)
; processing (DEFCONSTANT +ANYNON-ARRAY+ ...)
; processing (DEFCONSTANT +ANYENUM+ ...)
; processing (DEFCONSTANT +FDW-HANDLER+ ...)
; processing (DEFCONSTANT +INDEX-AM-HANDLER+ ...)
; processing (DEFCONSTANT +TSM-HANDLER+ ...)
; processing (DEFCONSTANT +ANYRANGE+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/oid-tmpMO2T7PGC.fasl
; compilation finished in 0:00:00.061
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFPARAMETER *TIMESTAMP-FORMAT* ...)
; processing (DEFPARAMETER *SQL-READTABLE* ...)
; processing (DEFUN INTERPRET-AS-TEXT ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp
; in: DEFUN INTERPRET-AS-TEXT
; (CL-POSTGRES::ENC-READ-STRING STREAM :BYTE-LENGTH CL-POSTGRES::SIZE)
;
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).
; processing (DEFCLASS TYPE-INTERPRETER ...)
; processing (DEFUN INTERPRETER-BINARY-P ...)
; processing (DEFUN INTERPRETER-READER ...)
; processing (LET (#) ...)
; processing (DEFUN SET-SQL-READER ...)
; processing (DEFMACRO BINARY-READER ...)
; processing (DEFMACRO DEFINE-INTERPRETER ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+CHAR+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+INT2+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+INT4+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+INT8+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+OID+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BOOL+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BYTEA+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+ ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+
; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+
; "text"
; STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER
; --> CL-POSTGRES::BINARY-READER FUNCTION
; ==>
; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
;
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+ ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+
; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+
; "bpchar"
; STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER
; --> CL-POSTGRES::BINARY-READER FUNCTION
; ==>
; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
;
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+ ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+
; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+
; "varchar"
; STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER
; --> CL-POSTGRES::BINARY-READER FUNCTION
; ==>
; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
;
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).
; processing (DEFUN READ-ROW-VALUE ...)
; processing (DEFPARAMETER *READ-ROW-VALUES-AS-BINARY* ...)
; processing (SET-SQL-READER CL-POSTGRES-OID:+RECORD+ ...)
; processing (DEFMACRO WITH-BINARY-ROW-VALUES ...)
; processing (DEFMACRO WITH-TEXT-ROW-VALUES ...)
; processing (DEFUN READ-BINARY-BITS ...)
; processing (SET-SQL-READER CL-POSTGRES-OID:+BIT+ ...)
; processing (SET-SQL-READER CL-POSTGRES-OID:+VARBIT+ ...)
; processing (DEFUN READ-BINARY-ARRAY-VALUE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp
; in: DEFUN READ-BINARY-ARRAY-VALUE
; (LET ((CL-POSTGRES::NUM-DIMS (CL-POSTGRES::READ-UINT4 STREAM))
; (CL-POSTGRES::HAS-NULL (CL-POSTGRES::READ-UINT4 STREAM))
; (CL-POSTGRES::ELEMENT-TYPE (CL-POSTGRES::READ-UINT4 STREAM)))
; (COND ((ZEROP CL-POSTGRES::NUM-DIMS) NIL)
; (T
; (LET* (# #)
; (LET #
; #
; CL-POSTGRES::RESULTS)))))
;
; caught STYLE-WARNING:
; The variable HAS-NULL is defined but never used.
; processing (DOLIST (OID #) ...)
; processing (SET-SQL-READER CL-POSTGRES-OID:+RECORD-ARRAY+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+POINT+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+LSEG+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BOX+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+FLOAT4+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+FLOAT8+ ...)
; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+NUMERIC+ ...)
; processing (DEFUN SET-DATE-READER ...)
; processing (DEFUN INTERPRET-USEC-BITS ...)
; processing (DEFUN SET-INTERVAL-READER ...)
; processing (DEFUN SET-USEC-READER ...)
; processing (DEFUN SET-SQL-DATETIME-READERS ...)
; processing (DEFCONSTANT +START-OF-2000+ ...)
; processing (DEFCONSTANT +SECONDS-IN-DAY+ ...)
; processing (SET-SQL-DATETIME-READERS :DATE ...)
; processing (DEFUN READ-ARRAY-VALUE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret.lisp
; in: DEFUN READ-ARRAY-VALUE
; (FUNCALL CL-POSTGRES::TRANSFORM CL-POSTGRES::WORD)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES::TRANSFORM)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TRANSFORM is not known to be a function
; (CHAR CL-POSTGRES::VALUE CL-POSTGRES::POS)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-POSTGRES::VALUE (INCF CL-POSTGRES::POS))
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-POSTGRES::VALUE CL-POSTGRES::POS)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
;
; 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.
; (CL-POSTGRES::INTERPRET (CL-POSTGRES::WORD)
; (IF (STRING= CL-POSTGRES::WORD "NULL")
; :NULL
; (FUNCALL CL-POSTGRES::TRANSFORM CL-POSTGRES::WORD)))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; processing (DEFUN COPY-SQL-READTABLE ...)
; processing (DEFPARAMETER *DEFAULT-SQL-READTABLE* ...)
; processing (DEFUN DEFAULT-SQL-READTABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/interpret-tmp5EVOKXWI.fasl
; compilation finished in 0:00:01.243
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-postgres" "cl-postgres" "interpret">
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/protocol.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFINE-CONDITION PROTOCOL-ERROR ...)
; processing (DEFMACRO MESSAGE-CASE ...)
; processing (DEFPARAMETER *CONNECTION-PARAMS* ...)
; processing (DEFUN UPDATE-PARAMETER ...)
; processing (DEFUN READ-BYTE-DELIMITED ...)
; processing (DEFINE-CONDITION POSTGRESQL-NOTIFICATION ...)
; processing (DEFUN GET-NOTIFICATION ...)
; processing (DEFUN GET-ERROR ...)
; processing (DEFINE-CONDITION POSTGRESQL-WARNING ...)
; processing (DEFUN GET-WARNING ...)
; processing (DEFPARAMETER *SSL-CERTIFICATE-FILE* ...)
; processing (DEFPARAMETER *SSL-KEY-FILE* ...)
; processing (LET (#) ...)
; processing (DEFUN AUTHENTICATE ...)
; processing (DEFCLASS FIELD-DESCRIPTION ...)
; processing (DEFUN READ-FIELD-DESCRIPTIONS ...)
; processing (DEFUN TERMINATE-CONNECTION ...)
; processing (DEFPARAMETER *EFFECTED-ROWS* ...)
; processing (DEFUN LOOK-FOR-ROW ...)
; processing (DEFUN TRY-TO-SYNC ...)
; processing (DEFMACRO WITH-SYNCING ...)
; processing (DEFMACRO RETURNING-EFFECTED-ROWS ...)
; processing (DEFUN SEND-QUERY ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/protocol.lisp
; in: DEFUN SEND-QUERY
; (MAP 'VECTOR 'CL-POSTGRES::FIELD-BINARY-P CL-POSTGRES::ROW-DESCRIPTION)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G108)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SIMPLE-VECTOR NULL), not a VECTOR.
; (FUNCALL CL-POSTGRES:ROW-READER CL-POSTGRES::SOCKET
; CL-POSTGRES::ROW-DESCRIPTION)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:ROW-READER)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; ROW-READER is not known to be a function
; (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY)
; (LET ((CL-POSTGRES::ROW-DESCRIPTION NIL))
; (CL-POSTGRES::SIMPLE-PARSE-MESSAGE CL-POSTGRES::SOCKET
; CL-POSTGRES::QUERY)
; (CL-POSTGRES::SIMPLE-DESCRIBE-MESSAGE CL-POSTGRES::SOCKET)
; (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET)
; (FORCE-OUTPUT CL-POSTGRES::SOCKET)
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\1))
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\t :SKIP))
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\T (SETF #))
; (#\n))
; (CL-POSTGRES::SIMPLE-BIND-MESSAGE CL-POSTGRES::SOCKET
; (MAP 'VECTOR
; 'CL-POSTGRES::FIELD-BINARY-P
; CL-POSTGRES::ROW-DESCRIPTION))
; (CL-POSTGRES::SIMPLE-EXECUTE-MESSAGE CL-POSTGRES::SOCKET)
; (CL-POSTGRES::SYNC-MESSAGE CL-POSTGRES::SOCKET)
; ...))
; --> LET MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:*QUERY-CALLBACK*)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\t :SKIP))
; --> LET* LABELS #:G23 BLOCK LET CASE LET COND IF IF IF IF IF PROGN
; --> CL-POSTGRES::SKIP-BYTES
; ==>
; (- #:G21 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -4 4294967291) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -4 4294967291) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY)
; (LET ((CL-POSTGRES::ROW-DESCRIPTION NIL))
; (CL-POSTGRES::SIMPLE-PARSE-MESSAGE CL-POSTGRES::SOCKET
; CL-POSTGRES::QUERY)
; (CL-POSTGRES::SIMPLE-DESCRIBE-MESSAGE CL-POSTGRES::SOCKET)
; (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET)
; (FORCE-OUTPUT CL-POSTGRES::SOCKET)
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\1))
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\t :SKIP))
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\T (SETF #))
; (#\n))
; (CL-POSTGRES::SIMPLE-BIND-MESSAGE CL-POSTGRES::SOCKET
; (MAP 'VECTOR
; 'CL-POSTGRES::FIELD-BINARY-P
; CL-POSTGRES::ROW-DESCRIPTION))
; (CL-POSTGRES::SIMPLE-EXECUTE-MESSAGE CL-POSTGRES::SOCKET)
; (CL-POSTGRES::SYNC-MESSAGE CL-POSTGRES::SOCKET)
; ...))
; --> LET MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL SB-C::%FUNCALL
; ==>
; (- (GET-INTERNAL-REAL-TIME) #:G14)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -2305843009213693951 2305843009213693951)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -2305843009213693951 2305843009213693951) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST
; T).
; etc.
; processing (DEFUN SEND-PARSE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/protocol.lisp
; in: DEFUN SEND-PARSE
; (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY)
; (CL-POSTGRES::PARSE-MESSAGE CL-POSTGRES::SOCKET CL-POSTGRES::NAME
; CL-POSTGRES::QUERY)
; (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET)
; (FORCE-OUTPUT CL-POSTGRES::SOCKET)
; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
; (#\1)))
; --> LET MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:*QUERY-CALLBACK*)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; --> LET MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL SB-C::%FUNCALL
; ==>
; (- (GET-INTERNAL-REAL-TIME) #:G14)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -2305843009213693951 2305843009213693951)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -2305843009213693951 2305843009213693951) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST
; T).
; etc.
; processing (DEFUN SEND-CLOSE ...)
; processing (DEFUN SEND-EXECUTE ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/protocol.lisp
; in: DEFUN SEND-EXECUTE
; (MAP 'VECTOR 'CL-POSTGRES::FIELD-BINARY-P CL-POSTGRES::ROW-DESCRIPTION)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G108)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SIMPLE-VECTOR NULL), not a VECTOR.
; (FUNCALL CL-POSTGRES:ROW-READER CL-POSTGRES::SOCKET
; CL-POSTGRES::ROW-DESCRIPTION)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:ROW-READER)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; ROW-READER is not known to be a function
; processing (DEFUN BUILD-ROW-READER ...)
; processing (DEFMACRO ROW-READER ...)
; processing (DEFMACRO DEF-ROW-READER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/protocol-tmp7EN5VFOC.fasl
; compilation finished in 0:00:01.926
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/public.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFCLASS DATABASE-CONNECTION ...)
; processing (DEFUN CONNECTION-META ...)
; processing (DEFUN DATABASE-OPEN-P ...)
; processing (DEFUN OPEN-DATABASE ...)
; processing (DEFPARAMETER *UNIX-SOCKET-DIR* ...)
; processing (DEFUN UNIX-SOCKET-PATH ...)
; processing (DEFUN UNIX-SOCKET-CONNECT ...)
; processing (DEFUN GET-HOST-ADDRESS ...)
; processing (DEFUN INET-SOCKET-CONNECT ...)
; processing (DEFUN INITIATE-CONNECTION ...)
; file: /usr/share/common-lisp/source/cl-postgres/cl-postgres/public.lisp
; in: DEFUN INITIATE-CONNECTION
; (CL-POSTGRES::ASSERT-UNIX)
;
; note: deleting unreachable code
; processing (DEFUN REOPEN-DATABASE ...)
; processing (DEFUN ENSURE-CONNECTION ...)
; processing (DEFUN CLOSE-DATABASE ...)
; processing (DEFMACRO USING-CONNECTION ...)
; processing (DEFMACRO WITH-RECONNECT-RESTART ...)
; processing (DEFUN WAIT-FOR-NOTIFICATION ...)
; processing (DEFUN EXEC-QUERY ...)
; processing (DEFUN PREPARE-QUERY ...)
; processing (DEFUN UNPREPARE-QUERY ...)
; processing (DEFUN EXEC-PREPARED ...)
; processing (DEF-ROW-READER ALIST-ROW-READER ...)
; processing (DEF-ROW-READER LIST-ROW-READER ...)
; processing (DEF-ROW-READER VECTOR-ROW-READER ...)
; processing (DEF-ROW-READER IGNORE-ROW-READER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/public-tmpWA664A3J.fasl
; compilation finished in 0:00:01.160
; compiling file "/usr/share/common-lisp/source/cl-postgres/cl-postgres/bulk-copy.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :CL-POSTGRES)
; processing (DEFCLASS BULK-COPIER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN OPEN-DB-WRITER ...)
; processing (DEFUN CLOSE-DB-WRITER ...)
; processing (DEFUN DB-WRITE-ROW ...)
; processing (DEFUN COPY-QUERY ...)
; processing (DEFUN SEND-COPY-START ...)
; processing (DEFUN INITIALIZE-COPIER ...)
; processing (DEFUN COPIER-WRITE-VALUE ...)
; processing (DEFUN COPIER-WRITE-SEQUENCE ...)
; processing (DEFMETHOD PREPARE-ROW ...)
; processing (DEFUN SEND-COPY-DONE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-postgres/cl-postgres/bulk-copy-tmp3CS3QORN.fasl
; compilation finished in 0:00:00.689
; compiling file "/usr/share/common-lisp/source/s-sql/s-sql/s-sql.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :S-SQL ...)
; processing (IN-PACKAGE :S-SQL)
; processing (DEFINE-CONDITION SQL-ERROR ...)
; processing (DEFUN SQL-ERROR ...)
; processing (DEFUN STRCAT ...)
; processing (DEFUN IMPLODE ...)
; processing (DEFUN SPLIT-ON-KEYWORDS% ...)
; processing (DEFMACRO SPLIT-ON-KEYWORDS ...)
; processing (DEFPARAMETER *POSTGRES-RESERVED-WORDS* ...)
; processing (DEFPARAMETER *ESCAPE-SQL-NAMES-P* ...)
; processing (DEFVAR *DOWNCASE-SYMBOLS* ...)
; processing (DEFUN TO-SQL-NAME ...)
; file: /usr/share/common-lisp/source/s-sql/s-sql/s-sql.lisp
; in: DEFUN TO-SQL-NAME
; (STRING S-SQL::NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SYMBOL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; (CHAR S-SQL::STR S-SQL::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-DOWNCASE (CHAR S-SQL::STR S-SQL::I))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR S-SQL::STR S-SQL::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFUN FROM-SQL-NAME ...)
; processing (DEFTYPE SMALLINT ...)
; processing (DEFTYPE BIGINT ...)
; processing (DEFTYPE NUMERIC ...)
; processing (DEFTYPE DOUBLE-PRECISION ...)
; processing (DEFTYPE BYTEA ...)
; processing (DEFTYPE TEXT ...)
; processing (DEFTYPE VARCHAR ...)
; processing (DEFTYPE SERIAL ...)
; processing (DEFTYPE SERIAL8 ...)
; processing (DEFTYPE DB-NULL ...)
; processing (DEFGENERIC SQL-TYPE-NAME ...)
; processing (DEFUN TO-TYPE-NAME ...)
; processing (DEFPARAMETER *STANDARD-SQL-STRINGS* ...)
; processing (DEFUN SQL-ESCAPE-STRING ...)
; processing (DEFGENERIC SQL-ESCAPE ...)
; processing (DEFPARAMETER *EXPAND-RUNTIME* ...)
; processing (DEFUN SQL-EXPAND ...)
; processing (DEFUN SQL-EXPAND-LIST ...)
; processing (DEFUN SQL-EXPAND-NAMES ...)
; processing (DEFUN REDUCE-STRINGS ...)
; processing (DEFMACRO SQL ...)
; processing (DEFUN SQL-COMPILE ...)
; processing (DEFUN SQL-TEMPLATE ...)
; processing (DEFUN S-SQL-READER ...)
; processing (DEFUN ENABLE-S-SQL-SYNTAX ...)
; processing (DEFGENERIC EXPAND-SQL-OP ...)
; processing (DEFMACRO DEF-SQL-OP ...)
; processing (DEFUN MAKE-EXPANDER ...)
; processing (DEFMACRO REGISTER-SQL-OPERATORS ...)
; processing (REGISTER-SQL-OPERATORS :UNARY ...)
; processing (REGISTER-SQL-OPERATORS :N-ARY ...)
; processing (REGISTER-SQL-OPERATORS :N-OR-UNARY ...)
; processing (REGISTER-SQL-OPERATORS :2+-ARY ...)
; processing (REGISTER-SQL-OPERATORS :2+-ARY ...)
; processing (REGISTER-SQL-OPERATORS :2+-ARY ...)
; processing (DEF-SQL-OP :|| ...)
; processing (DEF-SQL-OP :DESC ...)
; processing (DEF-SQL-OP :NULLS-FIRST ...)
; processing (DEF-SQL-OP :NULLS-LAST ...)
; processing (DEF-SQL-OP :AS ...)
; processing (DEF-SQL-OP :@@ ...)
; processing (DEF-SQL-OP :DISTINCT ...)
; processing (DEF-SQL-OP :ANY* ...)
; processing (DEF-SQL-OP :ANY ...)
; processing (DEF-SQL-OP :ALL ...)
; processing (DEF-SQL-OP :ARRAY ...)
; processing (DEF-SQL-OP :CAST ...)
; processing (DEF-SQL-OP :EXISTS ...)
; processing (DEF-SQL-OP :IS-NULL ...)
; processing (DEF-SQL-OP :NOT-NULL ...)
; processing (DEF-SQL-OP :IN ...)
; processing (DEF-SQL-OP :NOT-IN ...)
; processing (DEF-SQL-OP :EXTRACT ...)
; processing (DEF-SQL-OP :COUNT ...)
; processing (DEF-SQL-OP :BETWEEN ...)
; processing (DEF-SQL-OP :BETWEEN-SYMMETRIC ...)
; processing (DEF-SQL-OP :CASE ...)
; processing (DEF-SQL-OP :[] ...)
; processing (DEF-SQL-OP :SET ...)
; processing (DEF-SQL-OP :DOT ...)
; processing (DEF-SQL-OP :TYPE ...)
; processing (DEF-SQL-OP :RAW ...)
; processing (DEFUN EXPAND-JOINS ...)
; processing (DEF-SQL-OP :SELECT ...)
; processing (DEF-SQL-OP :LIMIT ...)
; processing (DEF-SQL-OP :ORDER-BY ...)
; processing (DEF-SQL-OP :SET-CONSTRAINTS ...)
; processing (DEFUN FOR-UPDATE/SHARE ...)
; processing (DEF-SQL-OP :FOR-UPDATE ...)
; processing (DEF-SQL-OP :FOR-SHARE ...)
; processing (DEFUN ESCAPE-SQL-EXPRESSION ...)
; processing (DEF-SQL-OP :FUNCTION ...)
; processing (DEF-SQL-OP :INSERT-INTO ...)
; processing (DEF-SQL-OP :LISTEN ...)
; processing (DEF-SQL-OP :UNLISTEN ...)
; processing (DEF-SQL-OP :NOTIFY ...)
; processing (DEFUN EXPAND-ROWS ...)
; processing (DEF-SQL-OP :INSERT-ROWS-INTO ...)
; processing (DEF-SQL-OP :UPDATE ...)
; processing (DEF-SQL-OP :DELETE-FROM ...)
; processing (DEF-SQL-OP :OVER ...)
; processing (DEF-SQL-OP :PARTITION-BY ...)
; processing (DEF-SQL-OP :PARENS ...)
; processing (DEF-SQL-OP :WITH ...)
; processing (DEF-SQL-OP :WITH-RECURSIVE ...)
; processing (DEF-SQL-OP :WINDOW ...)
; processing (DEFUN DISSECT-TYPE ...)
; processing (DEFUN EXPAND-FOREIGN-ON* ...)
; processing (DEFUN %BUILD-FOREIGN-REFERENCE ...)
; processing (DEFUN EXPAND-TABLE-CONSTRAINT ...)
; processing (DEFUN EXPAND-EXTENDED-TABLE-CONSTRAINT ...)
; processing (DEFUN EXPAND-TABLE-COLUMN ...)
; processing (DEF-SQL-OP :CREATE-TABLE ...)
; processing (DEF-SQL-OP :CREATE-TABLE-FULL ...)
; processing (DEF-SQL-OP :ALTER-TABLE ...)
; processing (DEF-SQL-OP :ALTER-SEQUENCE ...)
; processing (DEFUN EXPAND-CREATE-INDEX ...)
; processing (DEF-SQL-OP :CREATE-INDEX ...)
; processing (DEF-SQL-OP :CREATE-UNIQUE-INDEX ...)
; processing (DEF-SQL-OP :CASCADE ...)
; processing (DEFMACRO DEF-DROP-OP ...)
; processing (DEF-DROP-OP :DROP-TABLE ...)
; processing (DEF-DROP-OP :DROP-INDEX ...)
; processing (DEF-DROP-OP :DROP-SEQUENCE ...)
; processing (DEF-DROP-OP :DROP-VIEW ...)
; processing (DEF-DROP-OP :DROP-TYPE ...)
; processing (DEF-DROP-OP :DROP-RULE ...)
; processing (DEFUN DEQUOTE ...)
; processing (DEF-SQL-OP :NEXTVAL ...)
; processing (DEF-SQL-OP :CURRVAL ...)
; processing (DEF-SQL-OP :CREATE-SEQUENCE ...)
; processing (DEF-SQL-OP :CREATE-VIEW ...)
; processing (DEF-SQL-OP :CREATE-ENUM ...)
; processing (DEF-SQL-OP :CREATE-DOMAIN ...)
; processing (DEF-SQL-OP :DROP-DOMAIN ...)
; processing (DEF-SQL-OP :CREATE-RULE ...)
; processing (DEF-SQL-OP :CREATE-DATABASE ...)
; processing (DEF-DROP-OP :DROP-DATABASE ...)
; processing (DEF-SQL-OP :CREATE-ROLE ...)
; processing (DEF-DROP-OP :DROP-ROLE ...)
; processing (DEF-SQL-OP :COPY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/s-sql/s-sql/s-sql-tmpD6CVA6PG.fasl
; compilation finished in 0:00:06.898
; compiling file "/usr/share/common-lisp/source/closer-mop/closer-mop-packages.lisp" (written 27 JAN 2019 01:47:18 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE #:CLOSER-MOP ...)
; processing (IN-PACKAGE :CLOSER-MOP)
; processing (DEFINE-CLOSER-COMMON-LISP-PACKAGE)
; processing (DEFPACKAGE #:CLOSER-COMMON-LISP-USER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closer-mop/closer-mop-packages-tmpJTJ7UKVB.fasl
; compilation finished in 0:00:00.448
; compiling file "/usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp" (written 27 JAN 2019 01:47:18 PM):
; processing (IN-PACKAGE :CLOSER-MOP)
; processing (DEFUN REQUIRED-ARGS ...)
; processing (DEFUN ENSURE-FINALIZED ...)
; processing (DEFUN SUBCLASSP ...)
; processing (DEFCLASS STANDARD-GENERIC-FUNCTION ...)
; processing (DECLAIM (INLINE M-FUNCTION))
; processing (DEFUN M-FUNCTION ...)
; processing (DEFINE-COMPILER-MACRO M-FUNCTION ...)
; processing (DEFUN COMPUTE-ARGUMENT-ORDER ...)
; processing (DEFUN PARSE-METHOD-BODY ...)
; processing (COMMON-LISP:DEFMETHOD MAKE-METHOD-LAMBDA ...)
; processing (COMMON-LISP:DEFGENERIC COMPUTE-EFFECTIVE-METHOD-FUNCTION ...)
; processing (COMMON-LISP:DEFMETHOD COMPUTE-EFFECTIVE-METHOD-FUNCTION ...)
; file: /usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp
; in:
; COMMON-LISP:DEFMETHOD COMPUTE-EFFECTIVE-METHOD-FUNCTION (GENERIC-FUNCTION T T)
; (CLOSER-MOP::TRANSFORM-EFFECTIVE-METHOD (CLOSER-MOP::FORM)
; (IF (ATOM CLOSER-MOP::FORM)
; CLOSER-MOP::FORM
; (CASE (CAR CLOSER-MOP::FORM)
; (CALL-METHOD (CLOSER-MOP::TRANSFORM-EFFECTIVE-METHOD #))
; (MAKE-METHOD
; (WHEN # #)
; (LET #
; #))
; (T (MAPCAR #'CLOSER-MOP::TRANSFORM-EFFECTIVE-METHOD #)))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; processing (DEFUN GET-EMF ...)
; file: /usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp
; in: DEFUN GET-EMF
; (SUBSEQ CLOSER-MOP::ARGS 0 CLOSER-MOP::NOF-REQUIRED-ARGS)
;
; 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.
; processing (DEFUN GET-EMF-USING-CLASSES ...)
; processing (DEFVAR *STANDARD-GFS* ...)
; processing (DEFUN ONLY-STANDARD-METHODS ...)
; file: /usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp
; in: DEFUN ONLY-STANDARD-METHODS
; (TYPEP CLOSER-MOP::GF SB-MOP:SPECIALIZER)
;
; note: unable to optimize because: can't open-code test of non-constant type
; (EQL (SB-MOP:EQL-SPECIALIZER-OBJECT SB-MOP:SPECIALIZER) CLOSER-MOP::GF)
;
; 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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN METHODS-ALL-THE-SAME-SPECIALIZERS ...)
; file: /usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp
; in: DEFUN METHODS-ALL-THE-SAME-SPECIALIZERS
; (EQL (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC1)
; (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC2))
;
; 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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN COMPUTE-DISCRIMINATOR ...)
; file: /usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp
; in: DEFUN COMPUTE-DISCRIMINATOR
; (TYPEP CLOSER-MOP::ARG CLOSER-MOP::SPEC)
;
; note: unable to optimize because: can't open-code test of non-constant type
; (EQL CLOSER-MOP::ARG (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC))
;
; 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.
; (FUNCALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; COMPUTE-NATIVE-DISCRIMINATOR is not known to be a function
; (LENGTH
; (CLOSER-MOP:REQUIRED-ARGS
; (HANDLER-CASE (SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST CLOSER-MOP::GF)
; (UNBOUND-SLOT NIL
; (RETURN-FROM CLOSER-MOP::COMPUTE-DISCRIMINATOR #)))))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (FUNCALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; COMPUTE-NATIVE-DISCRIMINATOR is not known to be a function
; (EQL CLOSER-MOP::ARG (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC))
;
; 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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (COMMON-LISP:DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...)
; processing (DEFMACRO DEFGENERIC ...)
; processing (DEFINE-CONDITION DEFMETHOD-WITHOUT-GENERIC-FUNCTION ...)
; processing (DEFINE-SYMBOL-MACRO WARN-ON-DEFMETHOD-WITHOUT-GENERIC-FUNCTION ...)
; processing (DEFMACRO DEFMETHOD ...)
; processing (DEFUN ENSURE-METHOD ...)
; processing (DEFVAR *STANDARD-SLOT-KEYS* ...)
; processing (DEFUN FIX-SLOT-INITARGS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closer-mop/closer-mop-shared-tmpI3M10D0B.fasl
; compilation finished in 0:00:01.470
; compiling file "/usr/share/common-lisp/source/closer-mop/closer-sbcl.lisp" (written 27 JAN 2019 01:47:18 PM):
; processing (IN-PACKAGE :CLOSER-MOP)
; processing (PUSHNEW :CLOSER-MOP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closer-mop/closer-sbcl-tmpMQ8L07M8.fasl
; compilation finished in 0:00:00.019
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/package.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :POSTMODERN ...)
; processing (IN-PACKAGE :POSTMODERN)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/package-tmp9HFLKKLP.fasl
; compilation finished in 0:00:00.018
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/connect.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFCLASS POOLED-DATABASE-CONNECTION ...)
; processing (DEFPARAMETER *DATABASE* ...)
; processing (DEFPARAMETER *DEFAULT-USE-SSL* ...)
; processing (DEFUN CONNECT ...)
; processing (DEFUN CONNECTED-P ...)
; processing (DEFUN CONNECT-TOPLEVEL ...)
; processing (DEFGENERIC DISCONNECT ...)
; processing (DEFGENERIC RECONNECT ...)
; processing (DEFUN DISCONNECT-TOPLEVEL ...)
; processing (DEFUN CALL-WITH-CONNECTION ...)
; processing (DEFMACRO WITH-CONNECTION ...)
; processing (DEFVAR *MAX-POOL-SIZE* ...)
; processing (DEFVAR *CONNECTION-POOLS* ...)
; processing (DEFVAR *POOL-LOCK* ...)
; processing (DEFMACRO WITH-POOL-LOCK ...)
; processing (DEFUN GET-FROM-POOL ...)
; processing (DEFMETHOD DISCONNECT ...)
; processing (DEFUN CLEAR-CONNECTION-POOL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/connect-tmpEHVBI5QP.fasl
; compilation finished in 0:00:00.439
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/query.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEF-ROW-READER SYMBOL-ALIST-ROW-READER ...)
; processing (DEF-ROW-READER SYMBOL-PLIST-ROW-READER ...)
; processing (DEF-ROW-READER COLUMN-ROW-READER ...)
; processing (DEFVAR *CLASS-FINALIZE-LOCK* ...)
; processing (DEFPARAMETER *RESULT-STYLES* ...)
; processing (DEFUN DAO-SPEC-FOR-FORMAT ...)
; processing (DEFUN READER-FOR-FORMAT ...)
; processing (DEFMACRO ALL-ROWS ...)
; processing (DEFMACRO SINGLE-ROW ...)
; processing (DEFMACRO SINGLE-ROW! ...)
; processing (DEFUN REAL-QUERY ...)
; processing (DEFMACRO QUERY ...)
; processing (DEFMACRO EXECUTE ...)
; processing (DEFMACRO DOQUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/query-tmp7ACGYN6Z.fasl
; compilation finished in 0:00:00.578
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/prepare.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFUN ENSURE-PREPARED ...)
; processing (LET (#) ...)
; processing (DEFUN GENERATE-PREPARED ...)
; processing (DEFMACRO PREPARE ...)
; processing (DEFMACRO DEFPREPARED ...)
; processing (DEFMACRO DEFPREPARED-WITH-NAMES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/prepare-tmpROQG4ZG5.fasl
; compilation finished in 0:00:00.164
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/util.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFUN TO-IDENTIFIER ...)
; processing (DEFUN SEQUENCE-NEXT ...)
; processing (DEFMACRO MAKE-LIST-QUERY ...)
; processing (DEFMACRO MAKE-EXISTS-QUERY ...)
; processing (DEFUN LIST-TABLES ...)
; processing (DEFUN TABLE-EXISTS-P ...)
; processing (DEFUN LIST-SEQUENCES ...)
; processing (DEFUN SEQUENCE-EXISTS-P ...)
; processing (DEFUN LIST-VIEWS ...)
; processing (DEFUN VIEW-EXISTS-P ...)
; processing (DEFUN TABLE-DESCRIPTION ...)
; processing (DEFUN COALESCE ...)
; processing (DEFUN DATABASE-VERSION ...)
; processing (DEFUN NUM-RECORDS-IN-DATABASE ...)
; processing (DEFUN CURRENT-DATABASE ...)
; processing (DEFUN DATABASE-EXISTS-P ...)
; processing (DEFUN DATABASE-SIZE ...)
; processing (DEFUN LIST-DATABASES ...)
; processing (DEFUN LIST-SCHEMAS ...)
; processing (DEFUN LIST-TABLESPACES ...)
; processing (DEFUN LIST-AVAILABLE-TYPES ...)
; processing (DEFUN LIST-TABLE-SIZES ...)
; processing (DEFUN TABLE-SIZE ...)
; processing (DEFUN MORE-TABLE-INFO ...)
; processing (DEFUN LIST-COLUMNS ...)
; processing (DEFUN LIST-COLUMNS-WITH-TYPES ...)
; processing (DEFUN COLUMN-EXISTS-P ...)
; processing (DEFUN DESCRIBE-VIEWS ...)
; processing (DEFUN LIST-DATABASE-FUNCTIONS ...)
; processing (DEFUN LIST-INDICES ...)
; processing (DEFUN LIST-TABLE-INDICES ...)
; processing (DEFUN LIST-INDEXED-COLUMN-AND-ATTRIBUTES ...)
; processing (DEFUN LIST-INDEX-DEFINITIONS ...)
; processing (DEFUN LIST-FOREIGN-KEYS ...)
; processing (DEFUN LIST-UNIQUE-OR-PRIMARY-CONSTRAINTS ...)
; processing (DEFUN LIST-ALL-CONSTRAINTS ...)
; processing (DEFUN DESCRIBE-CONSTRAINT ...)
; processing (DEFUN DESCRIBE-FOREIGN-KEY-CONSTRAINTS ...)
; processing (DEFUN LIST-TRIGGERS ...)
; processing (DEFUN LIST-DETAILED-TRIGGERS ...)
; processing (DEFUN LIST-DATABASE-USERS ...)
; processing (DEFUN CHANGE-TOPLEVEL-DATABASE ...)
; processing (DEFUN LIST-CONNECTIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/util-tmpL8QH2EDP.fasl
; compilation finished in 0:00:01.177
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/transaction.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFPARAMETER *TRANSACTION-LEVEL* ...)
; processing (DEFPARAMETER *CURRENT-LOGICAL-TRANSACTION* ...)
; processing (DEFCLASS TRANSACTION-HANDLE ...)
; processing (DEFUN CALL-WITH-TRANSACTION ...)
; processing (DEFMACRO WITH-TRANSACTION ...)
; processing (DEFUN ABORT-TRANSACTION ...)
; processing (DEFUN COMMIT-TRANSACTION ...)
; processing (DEFCLASS SAVEPOINT-HANDLE ...)
; processing (DEFUN CALL-WITH-SAVEPOINT ...)
; processing (DEFMACRO WITH-SAVEPOINT ...)
; processing (DEFUN ROLLBACK-SAVEPOINT ...)
; processing (DEFUN RELEASE-SAVEPOINT ...)
; processing (DEFUN CALL-WITH-LOGICAL-TRANSACTION ...)
; processing (DEFMACRO WITH-LOGICAL-TRANSACTION ...)
; processing (DEFMETHOD ABORT-LOGICAL-TRANSACTION ...)
; processing (DEFMETHOD ABORT-LOGICAL-TRANSACTION ...)
; processing (DEFMETHOD COMMIT-LOGICAL-TRANSACTION ...)
; processing (DEFMETHOD COMMIT-LOGICAL-TRANSACTION ...)
; processing (DEFUN CALL-WITH-ENSURED-TRANSACTION ...)
; processing (DEFMACRO ENSURE-TRANSACTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/transaction-tmpGMP33JVN.fasl
; compilation finished in 0:00:00.412
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/namespace.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFMACRO WITH-SCHEMA ...)
; processing (DEFUN DO-WITH-SCHEMA ...)
; processing (DEFUN GET-SEARCH-PATH ...)
; processing (DEFUN SET-SEARCH-PATH ...)
; processing (DEFUN LIST-SCHEMATA ...)
; processing (DEFUN SCHEMA-EXIST-P ...)
; processing (DEFUN SCHEMA-EXISTS-P ...)
; processing (DEFUN CREATE-SCHEMA ...)
; processing (DEFUN DROP-SCHEMA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/namespace-tmpYZLZO5XO.fasl
; compilation finished in 0:00:00.252
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/table.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFCLASS DAO-CLASS ...)
; processing (DEFMETHOD DAO-KEYS ...)
; processing (DEFMETHOD VALIDATE-SUPERCLASS ...)
; processing (DEFMETHOD DAO-KEYS ...)
; processing (DEFMETHOD DAO-KEYS ...)
; processing (DEFUN DAO-COLUMN-SLOTS ...)
; processing (DEFUN DAO-COLUMN-FIELDS ...)
; processing (DEFUN DAO-TABLE-NAME ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN DAO-SUPERCLASSES ...)
; processing (DEFMETHOD FINALIZE-INHERITANCE ...)
; processing (DEFCLASS DIRECT-COLUMN-SLOT ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...)
; processing (DEFPARAMETER *DIRECT-COLUMN-SLOT* ...)
; processing (DEFCLASS EFFECTIVE-COLUMN-SLOT ...)
; processing (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...)
; processing (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...)
; processing (DEFGENERIC DAO-EXISTS-P ...)
; processing (DEFGENERIC INSERT-DAO ...)
; processing (DEFGENERIC UPDATE-DAO ...)
; processing (DEFGENERIC DELETE-DAO ...)
; processing (DEFGENERIC UPSERT-DAO ...)
; processing (DEFGENERIC GET-DAO ...)
; processing (DEFGENERIC MAKE-DAO ...)
; processing (DEFMACRO DEFINE-DAO-FINALIZATION ...)
; processing (DEFGENERIC FETCH-DEFAULTS ...)
; processing (DEFUN %EVAL ...)
; processing (DEFUN BUILD-DAO-METHODS ...)
; processing (DEFPARAMETER *CUSTOM-COLUMN-WRITERS* ...)
; processing (DEFMACRO WITH-COLUMN-WRITERS ...)
; processing (DEFPARAMETER *IGNORE-UNKNOWN-COLUMNS* ...)
; processing (DEFUN DAO-FROM-FIELDS ...)
; processing (DEFUN DAO-ROW-READER ...)
; processing (DEFUN SAVE-DAO ...)
; processing (DEFUN SAVE-DAO/TRANSACTION ...)
; processing (DEFUN QUERY-DAO% ...)
; processing (DEFMACRO QUERY-DAO ...)
; processing (DEFMACRO DAO-ROW-READER-WITH-BODY ...)
; processing (DEFMACRO DO-QUERY-DAO ...)
; processing (DEFUN GENERATE-DAO-QUERY ...)
; processing (DEFMACRO SELECT-DAO ...)
; processing (DEFMACRO DO-SELECT-DAO ...)
; processing (DEFUN DAO-TABLE-DEFINITION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/table-tmpHJEGXRNO.fasl
; compilation finished in 0:00:02.101
; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/deftable.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (IN-PACKAGE :POSTMODERN)
; processing (DEFVAR *TABLE-NAME*)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (DEFVAR *TABLE-SYMBOL*)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (DEFVAR *TABLES* ...)
; processing (DEFUN ADD-TABLE-DEFINITION ...)
; processing (DEFMACRO DEFTABLE ...)
; processing (DEFUN CREATE-TABLE ...)
; processing (DEFUN CREATE-ALL-TABLES ...)
; processing (DEFUN CREATE-PACKAGE-TABLES ...)
; processing (DEFUN FLAT-TABLE-NAME ...)
; processing (LABELS (# #) ...)
; processing (DEFUN !DAO-DEF ...)
; processing (DEFUN !FOREIGN ...)
; processing (DEFUN !UNIQUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/postmodern/postmodern/deftable-tmpLNAWKPET.fasl
; compilation finished in 0:00:00.471
; compiling file "/usr/share/common-lisp/source/simple-date/simple-date/simple-date.lisp" (written 26 APR 2018 03:04:31 PM):
; processing (DEFPACKAGE :SIMPLE-DATE ...)
; processing (IN-PACKAGE :SIMPLE-DATE)
; processing (DEFUN TO-EXTERNAL-DATE ...)
; processing (DEFUN TO-INTERNAL-DATE ...)
; processing (LET (#) ...)
; processing (DEFUN MONTH-AT-DAY ...)
; processing (DEFCONSTANT +DAYS-IN-400-YEARS+ ...)
; processing (DEFCONSTANT +DAYS-IN-100-YEARS+ ...)
; processing (DEFCONSTANT +DAYS-IN-4-YEARS+ ...)
; processing (DEFCONSTANT +DAYS-IN-YEAR+ ...)
; processing (DEFCONSTANT +MILLISECS-IN-DAY+ ...)
; processing (DEFUN ENCODE-DAYS ...)
; processing (DEFUN DECODE-DAYS ...)
; processing (DEFUN ENCODE-MILLISECS ...)
; processing (DEFUN DECODE-MILLISECS ...)
; processing (DEFUN LEAP-YEAR-P ...)
; processing (DEFUN DAYS-IN-MONTH ...)
; processing (DEFUN NORMALIZE-TIMESTAMP ...)
; processing (DEFUN DATE-ADD ...)
; processing (DEFUN INVERT-INTERVAL ...)
; processing (DEFCLASS DATE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ENCODE-DATE ...)
; processing (DEFUN DECODE-DATE ...)
; processing (DEFUN DAY-OF-WEEK ...)
; processing (DEFCLASS TIME-OF-DAY ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ENCODE-TIME-OF-DAY ...)
; processing (DEFUN DECODE-TIME-OF-DAY ...)
; processing (DEFCLASS TIMESTAMP ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ENCODE-TIMESTAMP ...)
; processing (DEFUN DECODE-TIMESTAMP ...)
; processing (DEFCONSTANT +UNIVERSAL-TIME-OFFSET+ ...)
; processing (DEFUN TIMESTAMP-TO-UNIVERSAL-TIME ...)
; processing (DEFUN UNIVERSAL-TIME-TO-TIMESTAMP ...)
; processing (DEFCLASS INTERVAL ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ENCODE-INTERVAL ...)
; processing (DEFUN DECODE-INTERVAL ...)
; processing (DEFGENERIC TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFMETHOD TIME-ADD ...)
; processing (DEFGENERIC TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFMETHOD TIME-SUBTRACT ...)
; processing (DEFGENERIC TIME= ...)
; processing (DEFMETHOD TIME= ...)
; processing (DEFMETHOD TIME= ...)
; processing (DEFMETHOD TIME= ...)
; processing (DEFMETHOD TIME= ...)
; processing (DEFMETHOD TIME= ...)
; processing (DEFMETHOD TIME= ...)
; processing (DEFGENERIC TIME< ...)
; processing (DEFMETHOD TIME< ...)
; processing (DEFMETHOD TIME< ...)
; processing (DEFMETHOD TIME< ...)
; processing (DEFMETHOD TIME< ...)
; processing (DEFMETHOD TIME< ...)
; processing (DEFGENERIC TIME> ...)
; processing (DEFMETHOD TIME> ...)
; processing (DEFMETHOD TIME> ...)
; processing (DEFMETHOD TIME> ...)
; processing (DEFMETHOD TIME> ...)
; processing (DEFMETHOD TIME> ...)
; processing (DEFUN TIME<= ...)
; processing (DEFUN TIME>= ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/simple-date/simple-date/simple-date-tmpJAVYBOA5.fasl
; compilation finished in 0:00:01.914
; compiling file "/usr/share/common-lisp/source/ironclad/src/package.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (DEFPACKAGE :IRONCLAD ...)
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN ARRAY-READER ...)
; processing (DEFPARAMETER *IRONCLAD-READTABLE* ...)
; processing (DEFMACRO IN-IRONCLAD-READTABLE ...)
; processing (DEFUN IRONCLAD-IMPLEMENTATION-FEATURES ...)
; processing (DOLIST (F #) ...)
; processing (PUSHNEW :IRONCLAD-ASSEMBLY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/package-tmp4JWQGV5Z.fasl
; compilation finished in 0:00:00.098
; compiling file "/usr/share/common-lisp/source/ironclad/src/macro-utils.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN QUOTATIONP ...)
; processing (DEFUN UNQUOTE ...)
; processing (DEFUN MASSAGE-SYMBOL ...)
; processing (DEFUN MAKE-CIRCULAR-LIST ...)
; processing (DEFUN CIRCULAR-LIST-SUBSEQ ...)
; processing (DEFUN TRIVIAL-MACROEXPAND-ALL ...)
; processing (DEFMACRO DOTIMES-UNROLLED ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macro-utils-tmpPQD2HT0O.fasl
; compilation finished in 0:00:00.235
; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/fndb.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :SB-C)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/fndb-tmpH1FK4I19.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm.lisp" (written 20 JAN 2020 09:00:38 AM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm-tmpOGMGFZE8.fasl
; compilation finished in 0:00:00.042
; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/cpu-features.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/cpu-features-tmpP2P3SY1J.fasl
; compilation finished in 0:00:00.007
; compiling file "/usr/share/common-lisp/source/ironclad/src/common.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMACRO DEFCONST ...)
; processing (DEFTYPE INDEX ...)
; processing (DEFTYPE INDEX+1 ...)
; processing (DEFTYPE SIMPLE-OCTET-VECTOR ...)
; processing (DEFUN BURN-BABY-BURN ...)
; processing (DEFUN HOLD-ME-BACK ...)
; processing (DECLAIM (INLINE FIRST-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN FIRST-BYTE ...)
; processing (DECLAIM (INLINE SECOND-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SECOND-BYTE ...)
; processing (DECLAIM (INLINE THIRD-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN THIRD-BYTE ...)
; processing (DECLAIM (INLINE FOURTH-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN FOURTH-BYTE ...)
; processing (DECLAIM (INLINE FIFTH-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN FIFTH-BYTE ...)
; processing (DECLAIM (INLINE SIXTH-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SIXTH-BYTE ...)
; processing (DECLAIM (INLINE SEVENTH-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SEVENTH-BYTE ...)
; processing (DECLAIM (INLINE EIGHTH-BYTE))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN EIGHTH-BYTE ...)
; processing (DEFUN UBREF-FUN-NAME ...)
; processing (DECLAIM (INLINE UB16REF/LE ...))
; processing (DEFUN UB16REF/LE ...)
; processing (DEFUN (SETF UB16REF/LE) ...)
; processing (DEFUN UB16REF/BE ...)
; processing (DEFUN (SETF UB16REF/BE) ...)
; processing (DEFUN UB32REF/LE ...)
; processing (DEFUN (SETF UB32REF/LE) ...)
; processing (DEFUN UB32REF/BE ...)
; processing (DEFUN (SETF UB32REF/BE) ...)
; processing (DEFUN UB64REF/LE ...)
; processing (DEFUN (SETF UB64REF/LE) ...)
; processing (DEFUN UB64REF/BE ...)
; processing (DEFUN (SETF UB64REF/BE) ...)
; processing (DECLAIM (INLINE MOD32+) ...)
; processing (DEFUN MOD32+ ...)
; processing (DEFINE-COMPILER-MACRO MOD32+ ...)
; processing (DECLAIM (INLINE MOD32-) ...)
; processing (DEFUN MOD32- ...)
; processing (DEFINE-COMPILER-MACRO MOD32- ...)
; processing (DECLAIM (INLINE MOD32*) ...)
; processing (DEFUN MOD32* ...)
; processing (DEFINE-COMPILER-MACRO MOD32* ...)
; processing (DECLAIM (INLINE MOD32ASH) ...)
; processing (DEFUN MOD32ASH ...)
; processing (DEFINE-COMPILER-MACRO MOD32ASH ...)
; processing (DECLAIM (INLINE MOD32LOGNOT) ...)
; processing (DEFUN MOD32LOGNOT ...)
; processing (DEFINE-COMPILER-MACRO MOD32LOGNOT ...)
; processing (DECLAIM (INLINE ROL32 ...) ...)
; processing (DEFUN ROL32 ...)
; processing (DEFUN ROR32 ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MOD64+ ...)
; processing (DEFINE-COMPILER-MACRO MOD64+ ...)
; processing (DEFUN MOD64- ...)
; processing (DEFINE-COMPILER-MACRO MOD64- ...)
; processing (DEFUN MOD64* ...)
; processing (DEFINE-COMPILER-MACRO MOD64* ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MOD64ASH ...)
; processing (DEFINE-COMPILER-MACRO MOD64ASH ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MOD64LOGNOT ...)
; processing (DEFINE-COMPILER-MACRO MOD64LOGNOT ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ROL64 ...)
; processing (DEFUN ROR64 ...)
; processing (DECLAIM (INLINE %ADD-WITH-CARRY ...))
; processing (DEFUN %ADD-WITH-CARRY ...)
; processing (DEFUN %SUBTRACT-WITH-BORROW ...)
; processing (DECLAIM (INLINE FILL-BLOCK-LE-UB8 ...))
; processing (DECLAIM (INLINE COPY-TO-BUFFER))
; processing (DEFUN COPY-TO-BUFFER ...)
; processing (DEFUN FILL-BLOCK-UB8-LE ...)
; processing (DEFUN FILL-BLOCK-UB8-BE ...)
; processing (DEFUN FILL-BLOCK-UB8-LE/64 ...)
; processing (DEFUN FILL-BLOCK-UB8-BE/64 ...)
; processing (DEFUN XOR-BLOCK ...)
; processing (DEFINE-COMPILER-MACRO XOR-BLOCK ...)
; processing (DEFUN COPY-BLOCK ...)
; processing (DEFINE-COMPILER-MACRO COPY-BLOCK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/common-tmpH6YIZTI1.fasl
; compilation finished in 0:00:01.715
; compiling file "/usr/share/common-lisp/source/ironclad/src/conditions.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :IRONCLAD)
; processing (DEFINE-CONDITION IRONCLAD-ERROR ...)
; processing (DEFINE-CONDITION KEY-NOT-SUPPLIED ...)
; processing (DEFINE-CONDITION INITIALIZATION-VECTOR-NOT-SUPPLIED ...)
; processing (DEFINE-CONDITION INVALID-INITIALIZATION-VECTOR ...)
; processing (DEFINE-CONDITION INVALID-KEY-LENGTH ...)
; processing (DEFINE-CONDITION UNSUPPORTED-CIPHER ...)
; processing (DEFINE-CONDITION UNSUPPORTED-MODE ...)
; processing (DEFINE-CONDITION UNSUPPORTED-PADDING ...)
; processing (DEFINE-CONDITION UNSUPPORTED-DIGEST ...)
; processing (DEFINE-CONDITION UNSUPPORTED-MAC ...)
; processing (DEFINE-CONDITION UNSUPPORTED-KDF ...)
; processing (DEFINE-CONDITION UNSUPPORTED-SCRYPT-COST-FACTORS ...)
; processing (DEFINE-CONDITION UNSUPPORTED-ARGON2-PARAMETERS ...)
; processing (DEFINE-CONDITION INSUFFICIENT-BUFFER-SPACE ...)
; processing (DEFINE-CONDITION INVALID-PADDING ...)
; processing (DEFINE-CONDITION INVALID-MAC-PARAMETER ...)
; processing (DEFINE-CONDITION INVALID-SIGNATURE-LENGTH ...)
; processing (DEFINE-CONDITION INVALID-MESSAGE-LENGTH ...)
; processing (DEFINE-CONDITION MISSING-KEY-PARAMETER ...)
; processing (DEFINE-CONDITION MISSING-MESSAGE-PARAMETER ...)
; processing (DEFINE-CONDITION MISSING-SIGNATURE-PARAMETER ...)
; processing (DEFINE-CONDITION INCOMPATIBLE-KEYS ...)
; processing (DEFINE-CONDITION INVALID-CURVE-POINT ...)
; processing (DEFINE-CONDITION INVALID-PUBLIC-KEY-LENGTH ...)
; processing (DEFINE-CONDITION OAEP-DECODING-ERROR ...)
; processing (DEFINE-CONDITION UNSUPPORTED-AUTHENTICATED-ENCRYPTION-MODE ...)
; processing (DEFINE-CONDITION BAD-AUTHENTICATION-TAG ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/conditions-tmpSJEPG7AU.fasl
; compilation finished in 0:00:00.728
; compiling file "/usr/share/common-lisp/source/ironclad/src/generic.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFGENERIC PROCESS-ASSOCIATED-DATA ...)
; processing (DEFGENERIC PRODUCE-TAG ...)
; processing (DEFGENERIC VERIFY-KEY ...)
; processing (DEFGENERIC SCHEDULE-KEY ...)
; processing (DEFGENERIC KEY-LENGTHS ...)
; processing (DEFGENERIC BLOCK-LENGTH ...)
; processing (DEFGENERIC ENCRYPTED-MESSAGE-LENGTH ...)
; processing (DEFGENERIC MODE-CRYPT-FUNCTIONS ...)
; processing (DEFGENERIC VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFGENERIC ENCRYPT ...)
; processing (DEFGENERIC DECRYPT ...)
; processing (DEFGENERIC DIGEST-FILE ...)
; processing (DEFGENERIC DIGEST-STREAM ...)
; processing (DEFGENERIC DIGEST-SEQUENCE ...)
; processing (DEFGENERIC COPY-DIGEST ...)
; processing (DEFGENERIC UPDATE-DIGEST ...)
; processing (DEFGENERIC PRODUCE-DIGEST ...)
; processing (DEFGENERIC DIGEST-LENGTH ...)
; processing (DEFGENERIC DERIVE-KEY ...)
; processing (DEFGENERIC UPDATE-MAC ...)
; processing (DEFGENERIC PRODUCE-MAC ...)
; processing (DEFGENERIC ADD-PADDING-BYTES ...)
; processing (DEFGENERIC COUNT-PADDING-BYTES ...)
; processing (DEFGENERIC MAKE-PRNG ...)
; processing (DEFGENERIC PRNG-RANDOM-DATA ...)
; processing (DEFGENERIC PRNG-RESEED ...)
; processing (DEFGENERIC PRNG-SEED-LENGTH ...)
; processing (DEFGENERIC MAKE-PUBLIC-KEY ...)
; processing (DEFGENERIC DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFGENERIC MAKE-PRIVATE-KEY ...)
; processing (DEFGENERIC DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFGENERIC GENERATE-KEY-PAIR ...)
; processing (DEFGENERIC MAKE-SIGNATURE ...)
; processing (DEFGENERIC DESTRUCTURE-SIGNATURE ...)
; processing (DEFGENERIC SIGN-MESSAGE ...)
; processing (DEFGENERIC VERIFY-SIGNATURE ...)
; processing (DEFGENERIC MAKE-MESSAGE ...)
; processing (DEFGENERIC DESTRUCTURE-MESSAGE ...)
; processing (DEFGENERIC ENCRYPT-MESSAGE ...)
; processing (DEFGENERIC DECRYPT-MESSAGE ...)
; processing (DEFGENERIC DIFFIE-HELLMAN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/generic-tmpSNZATJRM.fasl
; compilation finished in 0:00:00.117
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/cipher.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS CIPHER ...)
; processing (DEFCLASS STREAM-CIPHER ...)
; processing (DEFMETHOD ENCRYPT ...)
; processing (DEFMETHOD DECRYPT ...)
; processing (DEFUN ENCRYPT-IN-PLACE ...)
; processing (DEFUN DECRYPT-IN-PLACE ...)
; processing (DEFMACRO WITH-WORDS ...)
; processing (DEFCLASS 8-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 16-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 32-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 64-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 128-BYTE-BLOCK-MIXIN ...)
; processing (DEFMACRO DEFCIPHER ...)
; processing (DEFMACRO DEFINE-BLOCK-ENCRYPTOR ...)
; processing (DEFMACRO DEFINE-BLOCK-DECRYPTOR ...)
; processing (DEFMACRO DEFINE-STREAM-CRYPTOR ...)
; processing (DEFMETHOD VERIFY-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCLASS CIPHER-INFO ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN %FIND-CIPHER ...)
; processing (DEFUN (SETF %FIND-CIPHER) ...)
; processing (DEFMETHOD KEY-LENGTHS ...)
; processing (DEFMETHOD KEY-LENGTHS ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFUN LIST-ALL-CIPHERS ...)
; processing (DEFUN CIPHER-SUPPORTED-P ...)
; processing (DEFUN ACCEPTABLE-KEY-LENGTHS* ...)
; processing (DEFUN ACCEPTABLE-KEY-LENGTHS ...)
; processing (DEFUN GENERATE-KEY-VERIFIER-METHODS ...)
; processing (DEFUN GENERATE-COMMON-CIPHER-METHODS ...)
; processing (DEFUN GENERATE-BLOCK-CIPHER-FORMS ...)
; processing (DEFUN GENERATE-STREAM-CIPHER-FORMS ...)
; processing (DEFUN %DEFCIPHER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/cipher-tmpK93FRK93.fasl
; compilation finished in 0:00:01.242
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/aes.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST TE0 ...)
; processing (DEFCONST TE1 ...)
; processing (DEFCONST TE2 ...)
; processing (DEFCONST TE3 ...)
; processing (DEFCONST TE4 ...)
; processing (DEFCONST TD0 ...)
; processing (DEFCONST TD1 ...)
; processing (DEFCONST TD2 ...)
; processing (DEFCONST TD3 ...)
; processing (DEFCONST TD4 ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST ROUND-CONSTANTS ...)
; processing (DEFTYPE AES-ROUND-KEYS ...)
; processing (DEFCLASS AES ...)
; processing (DEFUN ALLOCATE-ROUND-KEYS ...)
; processing (DEFUN GENERATE-128-BIT-ROUND-KEYS ...)
; processing (DEFUN GENERATE-192-BIT-ROUND-KEYS ...)
; processing (DEFUN GENERATE-256-BIT-ROUND-KEYS ...)
; processing (DEFUN GENERATE-ROUND-KEYS-FOR-ENCRYPTION ...)
; processing (DEFUN GENERATE-ROUND-KEYS-FOR-DECRYPTION ...)
; processing (DEFINE-BLOCK-ENCRYPTOR AES ...)
; processing (DEFINE-BLOCK-DECRYPTOR AES ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER AES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/aes-tmpUIQ1NDZ1.fasl
; compilation finished in 0:00:03.680
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/arcfour.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFTYPE ARCFOUR-SBOX ...)
; processing (DEFCLASS ARCFOUR ...)
; processing (DEFUN ARCFOUR-KEYIFY ...)
; processing (DEFINE-STREAM-CRYPTOR ARCFOUR ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER ARCFOUR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/arcfour-tmp7V5GAYEU.fasl
; compilation finished in 0:00:00.252
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/aria.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +ARIA-S1+ ...)
; processing (DEFCONST +ARIA-S2+ ...)
; processing (DEFCONST +ARIA-X1+ ...)
; processing (DEFCONST +ARIA-X2+ ...)
; processing (DEFCONST +ARIA-C1+ ...)
; processing (DEFCONST +ARIA-C2+ ...)
; processing (DEFCONST +ARIA-C3+ ...)
; processing (DEFMACRO ARIA-BRF ...)
; processing (DEFMACRO ARIA-KXL ...)
; processing (DEFMACRO ARIA-SBL1-M ...)
; processing (DEFMACRO ARIA-SBL2-M ...)
; processing (DEFMACRO ARIA-P ...)
; processing (DEFMACRO ARIA-M ...)
; processing (DEFMACRO ARIA-MM ...)
; processing (DEFMACRO ARIA-FO ...)
; processing (DEFMACRO ARIA-FE ...)
; processing (DEFUN ARIA-GSRK ...)
; processing (DEFUN ARIA-PROCESS-BLOCK ...)
; processing (DEFCLASS ARIA ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR ARIA ...)
; processing (DEFINE-BLOCK-DECRYPTOR ARIA ...)
; processing (DEFCIPHER ARIA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/aria-tmpB7TVS35O.fasl
; compilation finished in 0:00:08.844
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/blowfish.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +BLOWFISH-N-ROUNDS+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +P-ARRAY+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +S-BOX-0+ ...)
; processing (DEFCONST +S-BOX-1+ ...)
; processing (DEFCONST +S-BOX-2+ ...)
; processing (DEFCONST +S-BOX-3+ ...)
; processing (DEFTYPE BLOWFISH-P-ARRAY ...)
; processing (DEFTYPE BLOWFISH-S-BOXES ...)
; processing (DEFCLASS BLOWFISH ...)
; processing (DECLAIM (INLINE BLOWFISH-F))
; processing (DEFUN BLOWFISH-F ...)
; processing (DEFUN INITIALIZE-BLOWFISH-VECTORS ...)
; processing (DECLAIM (INLINE BLOWFISH-ENCRYPT-BLOCK*))
; processing (DEFUN BLOWFISH-ENCRYPT-BLOCK* ...)
; processing (DECLAIM (NOTINLINE BLOWFISH-ENCRYPT-BLOCK*))
; processing (DEFINE-BLOCK-ENCRYPTOR BLOWFISH ...)
; processing (DECLAIM (INLINE BLOWFISH-DECRYPT-BLOCK*))
; processing (DEFUN BLOWFISH-DECRYPT-BLOCK* ...)
; processing (DECLAIM (NOTINLINE BLOWFISH-DECRYPT-BLOCK*))
; processing (DEFINE-BLOCK-DECRYPTOR BLOWFISH ...)
; processing (DEFUN MIX-P-ARRAY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER BLOWFISH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/blowfish-tmpJOMD2L5F.fasl
; compilation finished in 0:00:04.251
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +CAMELLIA-SBOX1+ ...)
; processing (DEFCONST +CAMELLIA-SBOX2+ ...)
; processing (DEFCONST +CAMELLIA-SBOX3+ ...)
; processing (DEFCONST +CAMELLIA-SBOX4+ ...)
; processing (DEFCONST +CAMELLIA-SIGMA+ ...)
; processing (DEFCONST +CAMELLIA-KSFT1+ ...)
; processing (DEFCONST +CAMELLIA-KIDX1+ ...)
; processing (DEFCONST +CAMELLIA-KSFT2+ ...)
; processing (DEFCONST +CAMELLIA-KIDX2+ ...)
; processing (DECLAIM (FTYPE # ...) ...)
; processing (DEFUN CAMELLIA-FEISTEL ...)
; processing (DEFCLASS CAMELLIA ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR CAMELLIA ...)
; processing (DEFINE-BLOCK-DECRYPTOR CAMELLIA ...)
; processing (DEFCIPHER CAMELLIA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/camellia-tmpDH22VGZN.fasl
; compilation finished in 0:00:03.050
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/cast5.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +CAST5-SBOX0+ ...)
; processing (DEFCONST +CAST5-SBOX1+ ...)
; processing (DEFCONST +CAST5-SBOX2+ ...)
; processing (DEFCONST +CAST5-SBOX3+ ...)
; processing (DEFCONST +CAST5-SBOX4+ ...)
; processing (DEFCONST +CAST5-SBOX5+ ...)
; processing (DEFCONST +CAST5-SBOX6+ ...)
; processing (DEFCONST +CAST5-SBOX7+ ...)
; processing (DEFTYPE CAST5-MASK-VECTOR ...)
; processing (DEFTYPE CAST5-ROTATE-VECTOR ...)
; processing (DEFCLASS CAST5 ...)
; processing (DECLAIM (INLINE CAST5-F1 ...))
; processing (DEFUN CAST5-F1 ...)
; processing (DEFUN CAST5-F2 ...)
; processing (DEFUN CAST5-F3 ...)
; processing (DEFINE-BLOCK-ENCRYPTOR CAST5 ...)
; processing (DEFINE-BLOCK-DECRYPTOR CAST5 ...)
; processing (DEFUN GENERATE-CAST5-KEY-SCHEDULE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER CAST5 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/cast5-tmpXDMVI6M.fasl
; compilation finished in 0:00:05.011
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST CHACHA-SIGMA ...)
; processing (DEFCONST CHACHA-TAU ...)
; processing (DEFTYPE CHACHA-STATE ...)
; processing (DEFTYPE CHACHA-KEYSTREAM-BUFFER ...)
; processing (DECLAIM (INLINE CHACHA-CORE))
; processing (DEFUN CHACHA-CORE ...)
; processing (DEFUN CHACHA/8-CORE ...)
; processing (DEFUN CHACHA/12-CORE ...)
; processing (DEFUN CHACHA/20-CORE ...)
; processing (DEFCLASS CHACHA ...)
; processing (DEFCLASS CHACHA/12 ...)
; processing (DEFCLASS CHACHA/8 ...)
; processing (DEFUN CHACHA-KEYIFY ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-STREAM-CRYPTOR CHACHA ...)
; processing (DEFCIPHER CHACHA ...)
; processing (DEFCIPHER CHACHA/12 ...)
; processing (DEFCIPHER CHACHA/8 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/chacha-tmpLT66CQGP.fasl
; compilation finished in 0:00:05.581
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/des.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST DES-SBOX0 ...)
; processing (DEFCONST DES-SBOX1 ...)
; processing (DEFCONST DES-SBOX2 ...)
; processing (DEFCONST DES-SBOX3 ...)
; processing (DEFCONST DES-SBOX4 ...)
; processing (DEFCONST DES-SBOX5 ...)
; processing (DEFCONST DES-SBOX6 ...)
; processing (DEFCONST DES-SBOX7 ...)
; processing (DEFCONST PERMUTATION1 ...)
; processing (DEFCONST TOTAL-ROTATIONS ...)
; processing (DEFCONST PERMUTATION2 ...)
; processing (DEFTYPE DES-ROUND-KEYS ...)
; processing (DEFUN DES-MUNGE-BLOCK ...)
; processing (DEFUN 3DES-MUNGE-BLOCK ...)
; processing (DEFCLASS DES ...)
; processing (DEFINE-BLOCK-ENCRYPTOR DES ...)
; processing (DEFINE-BLOCK-DECRYPTOR DES ...)
; processing (DEFCLASS 3DES ...)
; processing (DEFINE-BLOCK-ENCRYPTOR 3DES ...)
; processing (DEFINE-BLOCK-DECRYPTOR 3DES ...)
; processing (DEFUN DES-COOK-KEY-SCHEDULE ...)
; processing (DEFUN COMPUTE-DES-ENCRYPTION-KEYS ...)
; processing (DEFUN COMPUTE-ROUND-KEYS-FOR-DES-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER DES ...)
; processing (DEFCIPHER 3DES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/des-tmpWY32RQAP.fasl
; compilation finished in 0:00:01.832
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/idea.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN IDEA-MUL ...)
; processing (DEFUN IDEA-MUL-INV ...)
; processing (DEFTYPE IDEA-ROUND-KEYS ...)
; processing (DEFUN IDEA-MUNGE-BLOCK ...)
; processing (DEFCLASS IDEA ...)
; processing (DEFINE-BLOCK-ENCRYPTOR IDEA ...)
; processing (DEFINE-BLOCK-DECRYPTOR IDEA ...)
; processing (DEFUN IDEA-INVERT-KEY ...)
; processing (DEFUN IDEA-KEY-SCHEDULE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER IDEA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/idea-tmpBNQ9QGOU.fasl
; compilation finished in 0:00:00.906
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/padding.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS PADDING ...)
; processing (DEFCLASS PKCS7-PADDING ...)
; processing (DEFMETHOD ADD-PADDING-BYTES ...)
; processing (DEFMETHOD COUNT-PADDING-BYTES ...)
; processing (DEFCLASS ANSI-X923-PADDING ...)
; processing (DEFMETHOD ADD-PADDING-BYTES ...)
; processing (DEFMETHOD COUNT-PADDING-BYTES ...)
; processing (DEFCLASS ISO-7816-4-PADDING ...)
; processing (DEFMETHOD ADD-PADDING-BYTES ...)
; processing (DEFMETHOD COUNT-PADDING-BYTES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/padding-tmpGWNCIGUH.fasl
; compilation finished in 0:00:00.409
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/modes.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS ENCRYPTION-MODE ...)
; processing (DEFCLASS PADDED-MODE ...)
; processing (DEFCLASS ECB-MODE ...)
; processing (DEFCLASS STREAM-MODE ...)
; processing (DEFCLASS INITITIALIZATION-VECTOR-MIXIN ...)
; processing (DEFCLASS CBC-MODE ...)
; processing (DEFCLASS OFB-MODE ...)
; processing (DEFCLASS CFB-MODE ...)
; processing (DEFCLASS CFB8-MODE ...)
; processing (DEFCLASS CTR-MODE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFVAR *SUPPORTED-MODES* ...)
; processing (DEFUN MODE-SUPPORTED-P ...)
; processing (DEFUN LIST-ALL-MODES ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFUN INCREMENT-COUNTER-BLOCK ...)
; processing (DECLAIM (INLINE INCREMENT-COUNTER-BLOCK-1))
; processing (DEFUN INCREMENT-COUNTER-BLOCK-1 ...)
; processing (DEFUN DECREMENT-COUNTER-BLOCK ...)
; processing (DEFINE-MODE-FUNCTION MODE-CRYPT ...)
; processing (DEFINE-MODE-FUNCTION MODE-CRYPT ...)
; processing (DEFINE-MODE-FUNCTION MODE-CRYPT ...)
; processing (DEFINE-MODE-FUNCTION MODE-CRYPT ...)
; processing (DEFINE-MODE-FUNCTION MODE-CRYPT ...)
; processing (DEFINE-MODE-FUNCTION MODE-CRYPT ...)
; processing (DEFMETHOD MODE-CRYPT-FUNCTIONS ...)
; processing (DEFMETHOD ENCRYPTED-MESSAGE-LENGTH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/modes-tmpQFGWXALX.fasl
; compilation finished in 0:00:08.106
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/salsa20.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST SALSA20-SIGMA ...)
; processing (DEFCONST SALSA20-TAU ...)
; processing (DEFTYPE SALSA20-STATE ...)
; processing (DEFTYPE SALSA20-KEYSTREAM-BUFFER ...)
; processing (DECLAIM (INLINE SALSA-CORE))
; processing (DEFUN SALSA-CORE ...)
; processing (DEFUN SALSA20/8-CORE ...)
; processing (DEFUN SALSA20/12-CORE ...)
; processing (DEFUN SALSA20/20-CORE ...)
; processing (DEFCLASS SALSA20 ...)
; processing (DEFCLASS SALSA20/12 ...)
; processing (DEFCLASS SALSA20/8 ...)
; processing (DEFUN SALSA20-KEYIFY ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-STREAM-CRYPTOR SALSA20 ...)
; processing (DEFCIPHER SALSA20 ...)
; processing (DEFCIPHER SALSA20/12 ...)
; processing (DEFCIPHER SALSA20/8 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/salsa20-tmpCXOPF0UO.fasl
; compilation finished in 0:00:03.793
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/keystream.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN KEYSTREAM-POSITION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/keystream-tmpAXIB1X7H.fasl
; compilation finished in 0:00:00.117
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +KALYNA-T+ ...)
; processing (DEFCONST +KALYNA-IT+ ...)
; processing (DEFCONST +KALYNA-S+ ...)
; processing (DEFCONST +KALYNA-IS+ ...)
; processing (DECLAIM (TYPE # ...) ...)
; processing (DECLAIM (INLINE KALYNA-MAKE-ODD-KEY))
; processing (DEFUN KALYNA-MAKE-ODD-KEY ...)
; processing (DECLAIM (INLINE KALYNA-SWAP-BLOCKS))
; processing (DEFUN KALYNA-SWAP-BLOCKS ...)
; processing (DEFMACRO KALYNA-ADD-KEY ...)
; processing (DEFMACRO KALYNA-SUB-KEY ...)
; processing (DEFMACRO KALYNA-ADD-CONSTANT ...)
; processing (DECLAIM (INLINE KALYNA-G0128))
; processing (DEFUN KALYNA-G0128 ...)
; processing (DECLAIM (INLINE KALYNA-GL128))
; processing (DEFUN KALYNA-GL128 ...)
; processing (DECLAIM (INLINE KALYNA-IMC128))
; processing (DEFUN KALYNA-IMC128 ...)
; processing (DECLAIM (INLINE KALYNA-IG128))
; processing (DEFUN KALYNA-IG128 ...)
; processing (DECLAIM (INLINE KALYNA-IGL128))
; processing (DEFUN KALYNA-IGL128 ...)
; processing (DECLAIM (INLINE KALYNA-G128))
; processing (DEFUN KALYNA-G128 ...)
; processing (DEFCLASS KALYNA128 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA128 ...)
; processing (DEFINE-BLOCK-DECRYPTOR KALYNA128 ...)
; processing (DEFCIPHER KALYNA128 ...)
; processing (DECLAIM (INLINE KALYNA-G0256))
; processing (DEFUN KALYNA-G0256 ...)
; processing (DECLAIM (INLINE KALYNA-GL256))
; processing (DEFUN KALYNA-GL256 ...)
; processing (DECLAIM (INLINE KALYNA-IMC256))
; processing (DEFUN KALYNA-IMC256 ...)
; processing (DECLAIM (INLINE KALYNA-IG256))
; processing (DEFUN KALYNA-IG256 ...)
; processing (DECLAIM (INLINE KALYNA-IGL256))
; processing (DEFUN KALYNA-IGL256 ...)
; processing (DECLAIM (INLINE KALYNA-G256))
; processing (DEFUN KALYNA-G256 ...)
; processing (DEFCLASS KALYNA256 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA256 ...)
; processing (DEFINE-BLOCK-DECRYPTOR KALYNA256 ...)
; processing (DEFCIPHER KALYNA256 ...)
; processing (DECLAIM (INLINE KALYNA-G0512))
; processing (DEFUN KALYNA-G0512 ...)
; processing (DECLAIM (INLINE KALYNA-GL512))
; processing (DEFUN KALYNA-GL512 ...)
; processing (DECLAIM (INLINE KALYNA-IMC512))
; processing (DEFUN KALYNA-IMC512 ...)
; processing (DECLAIM (INLINE KALYNA-IG512))
; processing (DEFUN KALYNA-IG512 ...)
; processing (DECLAIM (INLINE KALYNA-IGL512))
; processing (DEFUN KALYNA-IGL512 ...)
; processing (DECLAIM (INLINE KALYNA-G512))
; processing (DEFUN KALYNA-G512 ...)
; processing (DEFCLASS KALYNA512 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA512 ...)
; processing (DEFINE-BLOCK-DECRYPTOR KALYNA512 ...)
; processing (DEFCIPHER KALYNA512 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/kalyna-tmpCOGKFIGR.fasl
; compilation finished in 0:02:39.545
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/kuznyechik.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +KUZNYECHIK-S+ ...)
; processing (DEFCONST +KUZNYECHIK-IS+ ...)
; processing (DEFCONST +KUZNYECHIK-T+ ...)
; processing (DEFCONST +KUZNYECHIK-IT+ ...)
; processing (DEFCONST +KUZNYECHIK-C+ ...)
; processing (DEFMACRO KUZNYECHIK-REFT ...)
; processing (DEFMACRO KUZNYECHIK-LS ...)
; processing (DEFMACRO KUZNYECHIK-REFIT ...)
; processing (DEFMACRO KUZNYECHIK-ILS ...)
; processing (DEFMACRO KUZNYECHIK-REFITS ...)
; processing (DEFMACRO KUZNYECHIK-ILSS ...)
; processing (DEFMACRO KUZNYECHIK-ISI ...)
; processing (DEFMACRO KUZNYECHIK-F ...)
; processing (DEFMACRO KUZNYECHIK-FK ...)
; processing (DEFCLASS KUZNYECHIK ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR KUZNYECHIK ...)
; processing (DEFINE-BLOCK-DECRYPTOR KUZNYECHIK ...)
; processing (DEFCIPHER KUZNYECHIK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/kuznyechik-tmp9KWK6ETS.fasl
; compilation finished in 0:00:29.654
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/make-cipher.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFUN VALID-MODE-FOR-BLOCK-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFUN MAKE-MODE-FOR-CIPHER ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN %BLOCK-CIPHER-P ...)
; processing (DEFUN FIND-CIPHER-OR-LOSE ...)
; processing (DEFUN VALIDATE-PARAMETERS-FOR-CIPHER-INFO ...)
; processing (DEFUN MAKE-CIPHER ...)
; processing (DEFINE-COMPILER-MACRO MAKE-CIPHER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/make-cipher-tmpCRZB5VKB.fasl
; compilation finished in 0:00:00.615
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/misty1.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +MISTY1-S7TABLE+ ...)
; processing (DEFCONST +MISTY1-S9TABLE+ ...)
; processing (DEFTYPE MISTY1-ROUND-KEYS ...)
; processing (DEFCLASS MISTY1 ...)
; processing (DECLAIM (NOTINLINE FI ...))
; processing (DEFUN FI ...)
; processing (DEFUN FL ...)
; processing (DEFUN FL-INV ...)
; processing (DEFUN FO ...)
; processing (DEFINE-BLOCK-ENCRYPTOR MISTY1 ...)
; processing (DEFINE-BLOCK-DECRYPTOR MISTY1 ...)
; processing (DEFUN MISTY1-EXPAND-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER MISTY1 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/misty1-tmpOGATR1ZQ.fasl
; compilation finished in 0:00:01.205
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/rc2.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +RC2-PITABLE+ ...)
; processing (DEFTYPE RC2-ROUND-KEYS ...)
; processing (DEFCLASS RC2 ...)
; processing (DECLAIM (INLINE ROL16) ...)
; processing (DEFUN ROL16 ...)
; processing (DEFUN RC2-SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR RC2 ...)
; processing (DEFINE-BLOCK-DECRYPTOR RC2 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER RC2 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/rc2-tmpHGK85T33.fasl
; compilation finished in 0:00:06.311
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/rc5.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :IRONCLAD)
; processing (DEFCONSTANT +RC5/32-P+ ...)
; processing (DEFCONSTANT +RC5/32-Q+ ...)
; processing (DEFCONSTANT +RC5-W+ ...)
; processing (DEFCONSTANT +RC5-WW+ ...)
; processing (DEFCONSTANT +RC5-B+ ...)
; processing (DEFCONSTANT +RC5-BB+ ...)
; processing (DEFTYPE RC5-N-ROUNDS ...)
; processing (DEFTYPE RC5-ROUND-KEYS ...)
; processing (DEFCLASS RC5 ...)
; processing (DEFINE-BLOCK-ENCRYPTOR RC5 ...)
; processing (DEFINE-BLOCK-DECRYPTOR RC5 ...)
; processing (DEFUN RC5-EXPAND-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER RC5 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/rc5-tmpO57EVK61.fasl
; compilation finished in 0:00:00.524
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/rc6.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :IRONCLAD)
; processing (DEFCONSTANT +RC6/32-P+ ...)
; processing (DEFCONSTANT +RC6/32-Q+ ...)
; processing (DEFTYPE RC6-N-ROUNDS ...)
; processing (DEFCLASS RC6 ...)
; processing (DEFUN GENERATE-UNROLLED-RC6-ENCRYPTION ...)
; processing (DEFUN GENERATE-UNROLLED-RC6-DECRYPTION ...)
; processing (DEFINE-BLOCK-ENCRYPTOR RC6 ...)
; processing (DEFINE-BLOCK-DECRYPTOR RC6 ...)
; processing (DEFUN RC6-EXPAND-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER RC6 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/rc6-tmpADEQGDMC.fasl
; compilation finished in 0:00:03.377
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/seed.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +SEED-SBOX0+ ...)
; processing (DEFCONST +SEED-SBOX1+ ...)
; processing (DEFCONST +SEED-SBOX2+ ...)
; processing (DEFCONST +SEED-SBOX3+ ...)
; processing (DEFCONST +SEED-KC+ ...)
; processing (DEFMACRO SEED-G ...)
; processing (DEFMACRO SEED-F ...)
; processing (DEFCLASS SEED ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR SEED ...)
; processing (DEFINE-BLOCK-DECRYPTOR SEED ...)
; processing (DEFCIPHER SEED ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/seed-tmpJWIU1IZ7.fasl
; compilation finished in 0:00:12.139
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/serpent.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMACRO SERPENT-SBOX0 ...)
; processing (DEFMACRO SERPENT-SBOX0-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX1 ...)
; processing (DEFMACRO SERPENT-SBOX1-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX2 ...)
; processing (DEFMACRO SERPENT-SBOX2-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX3 ...)
; processing (DEFMACRO SERPENT-SBOX3-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX4 ...)
; processing (DEFMACRO SERPENT-SBOX4-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX5 ...)
; processing (DEFMACRO SERPENT-SBOX5-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX6 ...)
; processing (DEFMACRO SERPENT-SBOX6-INVERSE ...)
; processing (DEFMACRO SERPENT-SBOX7 ...)
; processing (DEFMACRO SERPENT-SBOX7-INVERSE ...)
; processing (DEFMACRO SERPENT-LINEAR-TRANSFORMATION ...)
; processing (DEFMACRO SERPENT-LINEAR-TRANSFORMATION-INVERSE ...)
; processing (DEFCONSTANT +SERPENT-PHI+ ...)
; processing (DEFCLASS SERPENT ...)
; processing (DEFUN SERPENT-PAD-KEY ...)
; processing (DEFUN SERPENT-GENERATE-SUBKEYS ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR SERPENT ...)
; processing (DEFINE-BLOCK-DECRYPTOR SERPENT ...)
; processing (DEFCIPHER SERPENT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/serpent-tmp68IBTR7G.fasl
; compilation finished in 0:00:50.792
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/sm4.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +SM4-S+ ...)
; processing (DEFCONST +SM4-CK+ ...)
; processing (DEFMACRO SM4-H ...)
; processing (DEFMACRO SM4-G ...)
; processing (DEFMACRO SM4-F ...)
; processing (DEFMACRO SM4-ROUND ...)
; processing (DEFCLASS SM4 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR SM4 ...)
; processing (DEFINE-BLOCK-DECRYPTOR SM4 ...)
; processing (DEFCIPHER SM4 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/sm4-tmpEHEI45UL.fasl
; compilation finished in 0:00:17.908
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/sosemanuk.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +SOSEMANUK-MUL-A+ ...)
; processing (DEFCONST +SOSEMANUK-MUL-IA+ ...)
; processing (DEFMACRO SOSEMANUK-S0 ...)
; processing (DEFMACRO SOSEMANUK-S1 ...)
; processing (DEFMACRO SOSEMANUK-S2 ...)
; processing (DEFMACRO SOSEMANUK-S3 ...)
; processing (DEFMACRO SOSEMANUK-S4 ...)
; processing (DEFMACRO SOSEMANUK-S5 ...)
; processing (DEFMACRO SOSEMANUK-S6 ...)
; processing (DEFMACRO SOSEMANUK-S7 ...)
; processing (DEFMACRO SOSEMANUK-LT ...)
; processing (DEFMACRO SOSEMANUK-MKNAME ...)
; processing (DEFCLASS SOSEMANUK ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN SOSEMANUK-COMPUTE-BLOCK ...)
; processing (DEFINE-STREAM-CRYPTOR SOSEMANUK ...)
; processing (DEFCIPHER SOSEMANUK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/sosemanuk-tmpMXSI408M.fasl
; compilation finished in 0:00:10.442
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/square.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST ALOGTABLE ...)
; processing (DEFCONST LOGTABLE ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST G-MATRIX ...)
; processing (DEFCONST INVERSE-G-MATRIX ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST S-ENCRYPTION-TABLE ...)
; processing (DEFCONST S-DECRYPTION-TABLE ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST T-ENCRYPTION-TABLE ...)
; processing (DEFCONST T-DECRYPTION-TABLE ...)
; processing (DECLAIM (INLINE MUL8))
; processing (DEFUN MUL8 ...)
; processing (DEFUN TRANSFORM ...)
; processing (DEFUN GENERATE-ROUND-KEYS ...)
; processing (DECLAIM (INLINE SQUARE-MUNGE-BLOCK))
; processing (DEFUN SQUARE-MUNGE-BLOCK ...)
; processing (DEFCLASS SQUARE ...)
; processing (DEFINE-BLOCK-ENCRYPTOR SQUARE ...)
; processing (DEFINE-BLOCK-DECRYPTOR SQUARE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER SQUARE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/square-tmpXDY5GIMS.fasl
; compilation finished in 0:00:04.219
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/tea.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +TEA-N-ROUNDS+ ...)
; processing (DEFCONSTANT +TEA-DELTA+ ...)
; processing (DEFCLASS TEA ...)
; processing (DEFINE-BLOCK-ENCRYPTOR TEA ...)
; processing (DEFINE-BLOCK-DECRYPTOR TEA ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER TEA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/tea-tmpEPS53BQD.fasl
; compilation finished in 0:00:00.774
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/threefish.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +THREEFISH-KEY-SCHEDULE-CONSTANT+ ...)
; processing (DEFUN THREEFISH-SET-KEY ...)
; processing (DEFUN THREEFISH-SET-TWEAK ...)
; processing (DEFCLASS THREEFISH256 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR THREEFISH256 ...)
; processing (DEFINE-BLOCK-DECRYPTOR THREEFISH256 ...)
; processing (DEFCIPHER THREEFISH256 ...)
; processing (DEFCLASS THREEFISH512 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR THREEFISH512 ...)
; processing (DEFINE-BLOCK-DECRYPTOR THREEFISH512 ...)
; processing (DEFCIPHER THREEFISH512 ...)
; processing (DEFCLASS THREEFISH1024 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR THREEFISH1024 ...)
; processing (DEFINE-BLOCK-DECRYPTOR THREEFISH1024 ...)
; processing (DEFCIPHER THREEFISH1024 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/threefish-tmpXU06KPUG.fasl
; compilation finished in 0:02:03.957
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/twofish.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +TWOFISH-Q0+ ...)
; processing (DEFCONST +TWOFISH-Q1+ ...)
; processing (DEFCONST +TWOFISH-RS+ ...)
; processing (DEFCONST +TWOFISH-EXP-TO-POLY+ ...)
; processing (DEFCONST +TWOFISH-POLY-TO-EXP+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +TWOFISH-MDS0+ ...)
; processing (DEFCONST +TWOFISH-MDS1+ ...)
; processing (DEFCONST +TWOFISH-MDS2+ ...)
; processing (DEFCONST +TWOFISH-MDS3+ ...)
; processing (DEFTYPE TWOFISH-S-BOXES ...)
; processing (DEFTYPE TWOFISH-ROUND-KEYS ...)
; processing (DEFCLASS TWOFISH ...)
; processing (DEFUN REED-SOLOMON-MULTIPLY ...)
; processing (DEFUN TWOFISH-KEY-SCHEDULE ...)
; processing (DEFUN TWOFISH-SCHEDULE-16-BYTE-KEY ...)
; processing (DEFUN TWOFISH-SCHEDULE-24-BYTE-KEY ...)
; processing (DEFUN TWOFISH-SCHEDULE-32-BYTE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR TWOFISH ...)
; processing (DEFINE-BLOCK-DECRYPTOR TWOFISH ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER TWOFISH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/twofish-tmp9EJA1KN6.fasl
; compilation finished in 0:00:06.559
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xchacha.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS XCHACHA ...)
; processing (DEFCLASS XCHACHA/12 ...)
; processing (DEFCLASS XCHACHA/8 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFCIPHER XCHACHA ...)
; processing (DEFCIPHER XCHACHA/12 ...)
; processing (DEFCIPHER XCHACHA/8 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/xchacha-tmp6L8G66PA.fasl
; compilation finished in 0:00:00.480
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xor.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +XOR-BLOCK-LENGTH+ ...)
; processing (DEFCLASS XOR ...)
; processing (DEFUN XOR-CRYPT-BLOCK ...)
; processing (DEFINE-BLOCK-ENCRYPTOR XOR ...)
; processing (DEFINE-BLOCK-DECRYPTOR XOR ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER XOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/xor-tmpGNEWTP8D.fasl
; compilation finished in 0:00:00.227
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xsalsa20.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS XSALSA20 ...)
; processing (DEFCLASS XSALSA20/12 ...)
; processing (DEFCLASS XSALSA20/8 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFCIPHER XSALSA20 ...)
; processing (DEFCIPHER XSALSA20/12 ...)
; processing (DEFCIPHER XSALSA20/8 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/xsalsa20-tmpHW2JNYJ8.fasl
; compilation finished in 0:00:00.453
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xtea.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +XTEA-N-ROUNDS+ ...)
; processing (DEFCONSTANT +XTEA-DELTA+ ...)
; processing (DEFCLASS XTEA ...)
; processing (DEFINE-BLOCK-ENCRYPTOR XTEA ...)
; processing (DEFINE-BLOCK-DECRYPTOR XTEA ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER XTEA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/xtea-tmpNT01KZP7.fasl
; compilation finished in 0:00:00.973
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/digest.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +BUFFER-SIZE+ ...)
; processing (DEFTYPE BUFFER-INDEX ...)
; processing (DEFUN UPDATE-DIGEST-FROM-STREAM ...)
; processing (DECLAIM (INLINE STORE-DATA-LENGTH))
; processing (DEFUN STORE-DATA-LENGTH ...)
; processing (DEFMACRO DEFINE-DIGEST-REGISTERS ...)
; processing (DEFMACRO DEFINE-DIGEST-UPDATER ...)
; processing (DEFMACRO DEFINE-DIGEST-FINALIZER ...)
; processing (DEFSTRUCT (MDX # ...) ...)
; processing (DECLAIM (INLINE MDX-UPDATER))
; processing (DEFUN MDX-UPDATER ...)
; processing (DECLAIM (NOTINLINE MDX-UPDATER))
; processing (DEFMETHOD DIGEST-FILE ...)
; processing (DEFMETHOD DIGEST-FILE ...)
; processing (DEFMETHOD DIGEST-FILE ...)
; processing (DEFMETHOD DIGEST-STREAM ...)
; processing (DEFMETHOD DIGEST-STREAM ...)
; processing (DEFMETHOD DIGEST-STREAM ...)
; processing (DEFMETHOD DIGEST-SEQUENCE ...)
; processing (DEFMETHOD DIGEST-SEQUENCE ...)
; processing (DEFUN MAKE-DIGEST ...)
; processing (DEFUN DIGESTP ...)
; processing (DEFUN LIST-ALL-DIGESTS ...)
; processing (DEFUN DIGEST-SUPPORTED-P ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD UPDATE-DIGEST ...)
; processing (DEFUN OPTIMIZED-MAKER-NAME ...)
; processing (DEFMACRO DEFDIGEST ...)
; processing (DEFINE-COMPILER-MACRO MAKE-DIGEST ...)
; processing (DEFUN MAYBE-EXPAND-ONE-SHOT-CALL ...)
; processing (DEFINE-COMPILER-MACRO DIGEST-SEQUENCE ...)
; processing (DEFINE-COMPILER-MACRO DIGEST-STREAM ...)
; processing (DEFINE-COMPILER-MACRO DIGEST-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/digest-tmpSI3EGGWW.fasl
; compilation finished in 0:00:01.614
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/adler32.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT ADLER32-MODULO ...)
; processing (DEFSTRUCT (ADLER32 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER ADLER32 ...)
; processing (DEFINE-DIGEST-FINALIZER (ADLER32 4) ...)
; processing (DEFDIGEST ADLER32 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/adler32-tmp4SS1O70X.fasl
; compilation finished in 0:00:00.570
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/blake2.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +BLAKE2-ROUNDS+ ...)
; processing (DEFCONSTANT +BLAKE2-BLOCK-SIZE+ ...)
; processing (DEFCONST +BLAKE2-SIGMA+ ...)
; processing (DEFCONST +BLAKE2-IV+ ...)
; processing (DEFUN BLAKE2-MAKE-INITIAL-STATE ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN BLAKE2-ROUNDS ...)
; processing (DEFSTRUCT (BLAKE2 # ...) ...)
; processing (DEFSTRUCT (BLAKE2/384 # ...))
; processing (DEFSTRUCT (BLAKE2/256 # ...))
; processing (DEFSTRUCT (BLAKE2/160 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFUN BLAKE2-UPDATE ...)
; processing (DEFUN BLAKE2-FINALIZE ...)
; processing (DEFINE-DIGEST-UPDATER BLAKE2 ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST BLAKE2 ...)
; processing (DEFDIGEST BLAKE2/384 ...)
; processing (DEFDIGEST BLAKE2/256 ...)
; processing (DEFDIGEST BLAKE2/160 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/blake2-tmpEQBTDGD3.fasl
; compilation finished in 0:00:09.277
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/blake2s.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +BLAKE2S-ROUNDS+ ...)
; processing (DEFCONSTANT +BLAKE2S-BLOCK-SIZE+ ...)
; processing (DEFCONST +BLAKE2S-SIGMA+ ...)
; processing (DEFCONST +BLAKE2S-IV+ ...)
; processing (DEFUN BLAKE2S-MAKE-INITIAL-STATE ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN BLAKE2S-ROUNDS ...)
; processing (DEFSTRUCT (BLAKE2S # ...) ...)
; processing (DEFSTRUCT (BLAKE2S/224 # ...))
; processing (DEFSTRUCT (BLAKE2S/160 # ...))
; processing (DEFSTRUCT (BLAKE2S/128 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFUN BLAKE2S-UPDATE ...)
; processing (DEFUN BLAKE2S-FINALIZE ...)
; processing (DEFINE-DIGEST-UPDATER BLAKE2S ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST BLAKE2S ...)
; processing (DEFDIGEST BLAKE2S/224 ...)
; processing (DEFDIGEST BLAKE2S/160 ...)
; processing (DEFDIGEST BLAKE2S/128 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/blake2s-tmp1N1CTFLT.fasl
; compilation finished in 0:00:06.906
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/crc24.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +CRC24-TABLE+ ...)
; processing (DEFSTRUCT (CRC24 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER CRC24 ...)
; processing (DEFINE-DIGEST-FINALIZER (CRC24 3) ...)
; processing (DEFDIGEST CRC24 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/crc24-tmpDP9JZ6II.fasl
; compilation finished in 0:00:00.483
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/crc32.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +CRC32-TABLE+ ...)
; processing (DEFSTRUCT (CRC32 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER CRC32 ...)
; processing (DEFINE-DIGEST-FINALIZER (CRC32 4) ...)
; processing (DEFDIGEST CRC32 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/crc32-tmp5NJA27VC.fasl
; compilation finished in 0:00:00.495
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/groestl.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +GROESTL-ROWS+ ...)
; processing (DEFCONSTANT +GROESTL-LENGTH-FIELD-LENGTH+ ...)
; processing (DEFCONSTANT +GROESTL-COLS-512+ ...)
; processing (DEFCONSTANT +GROESTL-COLS-1024+ ...)
; processing (DEFCONSTANT +GROESTL-SIZE-512+ ...)
; processing (DEFCONSTANT +GROESTL-SIZE-1024+ ...)
; processing (DEFCONSTANT +GROESTL-ROUNDS-512+ ...)
; processing (DEFCONSTANT +GROESTL-ROUNDS-1024+ ...)
; processing (DEFCONST +GROESTL-TABLE+ ...)
; processing (DECLAIM (INLINE GROESTL-TABLE) ...)
; processing (DEFUN GROESTL-TABLE ...)
; processing (DEFMACRO GROESTL-EXT-BYTE ...)
; processing (DEFMACRO GROESTL-COLUMN ...)
; processing (DECLAIM (INLINE GROESTL-RND512P) ...)
; processing (DEFUN GROESTL-RND512P ...)
; processing (DECLAIM (INLINE GROESTL-RND512Q) ...)
; processing (DEFUN GROESTL-RND512Q ...)
; processing (DECLAIM (INLINE GROESTL-RND1024P) ...)
; processing (DEFUN GROESTL-RND1024P ...)
; processing (DECLAIM (INLINE GROESTL-RND1024Q) ...)
; processing (DEFUN GROESTL-RND1024Q ...)
; processing (DEFUN GROESTL-F512 ...)
; processing (DEFUN GROESTL-F1024 ...)
; processing (DEFUN GROESTL-MAKE-INITIAL-STATE ...)
; processing (DEFSTRUCT (GROESTL # ...) ...)
; processing (DEFSTRUCT (GROESTL/384 # ...))
; processing (DEFSTRUCT (GROESTL/256 # ...))
; processing (DEFSTRUCT (GROESTL/224 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFUN GROESTL-UPDATE ...)
; processing (DEFUN GROESTL-FINALIZE ...)
; processing (DEFINE-DIGEST-UPDATER GROESTL ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST GROESTL ...)
; processing (DEFDIGEST GROESTL/384 ...)
; processing (DEFDIGEST GROESTL/256 ...)
; processing (DEFDIGEST GROESTL/224 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/groestl-tmpJBOWX2OW.fasl
; compilation finished in 0:00:52.740
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/jh.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +JH-ROUNDS+ ...)
; processing (DEFCONSTANT +JH-BLOCK-SIZE+ ...)
; processing (DEFCONST +JH224-H0+ ...)
; processing (DEFCONST +JH256-H0+ ...)
; processing (DEFCONST +JH384-H0+ ...)
; processing (DEFCONST +JH512-H0+ ...)
; processing (DEFCONST +JH-ROUND-CONSTANTS+ ...)
; processing (DEFMACRO JH-SWAP-1 ...)
; processing (DEFMACRO JH-SWAP-2 ...)
; processing (DEFMACRO JH-SWAP-4 ...)
; processing (DEFMACRO JH-SWAP-8 ...)
; processing (DEFMACRO JH-SWAP-16 ...)
; processing (DEFMACRO JH-SWAP-32 ...)
; processing (DEFMACRO JH-L ...)
; processing (DEFMACRO JH-SS ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN JH-E8 ...)
; processing (DEFUN JH-F8 ...)
; processing (DEFSTRUCT (JH # ...) ...)
; processing (DEFSTRUCT (JH/384 # ...))
; processing (DEFSTRUCT (JH/256 # ...))
; processing (DEFSTRUCT (JH/224 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFUN JH-UPDATE ...)
; processing (DEFUN JH-FINALIZE ...)
; processing (DEFINE-DIGEST-UPDATER JH ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST JH ...)
; processing (DEFDIGEST JH/384 ...)
; processing (DEFDIGEST JH/256 ...)
; processing (DEFDIGEST JH/224 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/jh-tmpFT0CI08X.fasl
; compilation finished in 0:00:05.820
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/kupyna.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +KUPYNA-T+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DECLAIM (INLINE KUPYNA-G256))
; processing (DEFUN KUPYNA-G256 ...)
; processing (DECLAIM (INLINE KUPYNA-ROUND-P256))
; processing (DEFUN KUPYNA-ROUND-P256 ...)
; processing (DECLAIM (INLINE KUPYNA-ROUND-Q256))
; processing (DEFUN KUPYNA-ROUND-Q256 ...)
; processing (DEFUN KUPYNA-OUTPUT-TRANSFORM256 ...)
; processing (DEFUN KUPYNA-TRANSFORM256 ...)
; processing (DECLAIM (INLINE KUPYNA-G512))
; processing (DEFUN KUPYNA-G512 ...)
; processing (DECLAIM (INLINE KUPYNA-ROUND-P512))
; processing (DEFUN KUPYNA-ROUND-P512 ...)
; processing (DECLAIM (INLINE KUPYNA-ROUND-Q512))
; processing (DEFUN KUPYNA-ROUND-Q512 ...)
; processing (DEFUN KUPYNA-OUTPUT-TRANSFORM512 ...)
; processing (DEFUN KUPYNA-TRANSFORM512 ...)
; processing (DEFSTRUCT (KUPYNA # ...) ...)
; processing (DEFSTRUCT (KUPYNA/256 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER KUPYNA ...)
; processing (DEFINE-DIGEST-FINALIZER (# #) ...)
; processing (DEFDIGEST KUPYNA ...)
; processing (DEFDIGEST KUPYNA/256 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/kupyna-tmpPR2O0H9L.fasl
; compilation finished in 0:00:43.044
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md2.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +MD2-PERMUTATION+ ...)
; processing (DEFUN UPDATE-MD2-REGS ...)
; processing (DECLAIM (INLINE MD2REGS-DIGEST))
; processing (DEFUN MD2REGS-DIGEST ...)
; processing (DEFSTRUCT (MD2 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER MD2 ...)
; processing (DEFINE-DIGEST-FINALIZER (MD2 16) ...)
; processing (DEFDIGEST MD2 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/md2-tmpY08KX6ZY.fasl
; compilation finished in 0:00:01.006
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md4.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFINE-DIGEST-REGISTERS (MD4 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-MD4-REGISTERS+ ...)
; processing (DEFUN UPDATE-MD4-BLOCK ...)
; processing (DEFSTRUCT (MD4 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER MD4 ...)
; processing (DEFINE-DIGEST-FINALIZER (MD4 16) ...)
; processing (DEFDIGEST MD4 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/md4-tmpCPQCUTF9.fasl
; compilation finished in 0:00:02.345
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md5.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFPARAMETER *T* ...)
; processing (DEFINE-DIGEST-REGISTERS (MD5 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-MD5-REGISTERS+ ...)
; processing (DEFUN UPDATE-MD5-BLOCK ...)
; processing (DEFSTRUCT (MD5 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER MD5 ...)
; processing (DEFINE-DIGEST-FINALIZER (MD5 16) ...)
; processing (DEFDIGEST MD5 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/md5-tmpANOWE495.fasl
; compilation finished in 0:00:03.660
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md5-lispworks-int32.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CL-USER)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/md5-lispworks-int32-tmpMJCK845K.fasl
; compilation finished in 0:00:00.026
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/ripemd-128.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFINE-DIGEST-REGISTERS (RIPEMD-128 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-RIPEMD-128-REGISTERS+ ...)
; processing (DEFUN UPDATE-RIPEMD-128-BLOCK ...)
; processing (DEFSTRUCT (RIPEMD-128 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER RIPEMD-128 ...)
; processing (DEFINE-DIGEST-FINALIZER (RIPEMD-128 16) ...)
; processing (DEFDIGEST RIPEMD-128 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/ripemd-128-tmpN70YMP5V.fasl
; compilation finished in 0:00:04.883
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/ripemd-160.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFINE-DIGEST-REGISTERS (RIPEMD-160 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-RIPEMD-160-REGISTERS+ ...)
; processing (DEFUN UPDATE-RIPEMD-160-BLOCK ...)
; processing (DEFSTRUCT (RIPEMD-160 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER RIPEMD-160 ...)
; processing (DEFINE-DIGEST-FINALIZER (RIPEMD-160 20) ...)
; processing (DEFDIGEST RIPEMD-160 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/ripemd-160-tmp9JS4WNN3.fasl
; compilation finished in 0:00:09.469
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha1.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +K1+ ...)
; processing (DEFCONSTANT +K2+ ...)
; processing (DEFCONSTANT +K3+ ...)
; processing (DEFCONSTANT +K4+ ...)
; processing (DEFINE-DIGEST-REGISTERS (SHA1 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-SHA1-REGISTERS+ ...)
; processing (DEFUN UPDATE-SHA1-BLOCK ...)
; processing (DECLAIM (INLINE EXPAND-BLOCK))
; processing (DEFUN EXPAND-BLOCK ...)
; processing (DEFSTRUCT (SHA1 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SHA1 ...)
; processing (DEFINE-DIGEST-FINALIZER (SHA1 20) ...)
; processing (DEFDIGEST SHA1 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/sha1-tmpGS7Q722F.fasl
; compilation finished in 0:00:05.669
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha256.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFINE-DIGEST-REGISTERS (SHA224 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-SHA224-REGISTERS+ ...)
; processing (DEFINE-DIGEST-REGISTERS (SHA256 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-SHA256-REGISTERS+ ...)
; processing (DEFCONST +SHA256-ROUND-CONSTANTS+ ...)
; processing (DEFUN UPDATE-SHA256-BLOCK ...)
; processing (DEFUN SHA256-EXPAND-BLOCK ...)
; processing (DEFSTRUCT (SHA256 # ...) ...)
; processing (DEFSTRUCT (SHA224 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SHA256 ...)
; processing (DEFINE-DIGEST-FINALIZER (# #) ...)
; processing (DEFDIGEST SHA256 ...)
; processing (DEFDIGEST SHA224 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/sha256-tmpZPXYCAVV.fasl
; compilation finished in 0:00:11.713
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha3.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +KECCAK-STATE-COLUMNS+ ...)
; processing (DEFCONSTANT +KECCAK-STATE-ROWS+ ...)
; processing (DEFCONSTANT +KECCAK-STATE-LANES+ ...)
; processing (DEFCONSTANT +KECCAK-LANE-WIDTH+ ...)
; processing (DEFCONSTANT +KECCAK-LANE-BYTE-WIDTH+ ...)
; processing (DEFCONSTANT +KECCAK-ROUNDS+ ...)
; processing (DEFTYPE KECCAK-LANE ...)
; processing (DEFTYPE KECCAK-STATE ...)
; processing (DEFCONST +KECCAK-ROTATE-OFFSETS+ ...)
; processing (DEFCONST +KECCAK-ROUND-CONSTANTS+ ...)
; processing (DEFMACRO GET-KECCAK-ROTATE-OFFSET ...)
; processing (DECLAIM (INLINE GET-KECCAK-ROUND-CONSTANT) ...)
; processing (DEFUN GET-KECCAK-ROUND-CONSTANT ...)
; processing (DECLAIM (INLINE MAKE-KECCAK-STATE) ...)
; processing (DEFUN MAKE-KECCAK-STATE ...)
; processing (DEFUN KECCAK-STATE-MERGE-INPUT ...)
; processing (DEFUN KECCAK-STATE-EXTRACT-OUTPUT ...)
; processing (DEFMACRO WITH-KECCAK-STATE-ACCESSORS ...)
; processing (DEFMACRO WITH-TEMP-KECCAK-STATE ...)
; processing (DEFMACRO WITH-TEMP-KECCAK-ROWS ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN KECCAK-ROUNDS ...)
; processing (DEFUN PAD-MESSAGE-TO-WIDTH ...)
; processing (DEFSTRUCT (SHA3 # ...) ...)
; processing (DEFSTRUCT (SHA3/384 # ...))
; processing (DEFSTRUCT (SHA3/256 # ...))
; processing (DEFSTRUCT (SHA3/224 # ...))
; processing (DEFSTRUCT (KECCAK # ...))
; processing (DEFSTRUCT (KECCAK/384 # ...))
; processing (DEFSTRUCT (KECCAK/256 # ...))
; processing (DEFSTRUCT (KECCAK/224 # ...))
; processing (DEFSTRUCT (SHAKE256 # ...))
; processing (DEFSTRUCT (SHAKE128 # ...))
; processing (DEFUN %MAKE-SHAKE256-DIGEST ...)
; processing (DEFUN %MAKE-SHAKE128-DIGEST ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFUN SHA3-UPDATE ...)
; processing (DEFUN SHA3-FINALIZE ...)
; processing (DEFINE-DIGEST-UPDATER SHA3 ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST SHA3 ...)
; processing (DEFDIGEST SHA3/384 ...)
; processing (DEFDIGEST SHA3/256 ...)
; processing (DEFDIGEST SHA3/224 ...)
; processing (DEFDIGEST KECCAK ...)
; processing (DEFDIGEST KECCAK/384 ...)
; processing (DEFDIGEST KECCAK/256 ...)
; processing (DEFDIGEST KECCAK/224 ...)
; processing (DEFMETHOD PRODUCE-DIGEST ...)
; processing (DEFMETHOD PRODUCE-DIGEST ...)
; processing (SETF (GET # ...) ...)
; processing (SETF (GET # ...) ...)
; processing (SETF (GET # ...) ...)
; processing (SETF (GET # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/sha3-tmp8I8UEPNR.fasl
; compilation finished in 0:00:05.168
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha512.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFINE-DIGEST-REGISTERS (SHA384 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-SHA384-REGISTERS+ ...)
; processing (DEFINE-DIGEST-REGISTERS (SHA512 :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-SHA512-REGISTERS+ ...)
; processing (DEFCONST +SHA512-ROUND-CONSTANTS+ ...)
; processing (DEFUN UPDATE-SHA512-BLOCK ...)
; processing (DEFUN SHA512-EXPAND-BLOCK ...)
; processing (DEFSTRUCT (SHA512 # ...) ...)
; processing (DEFSTRUCT (SHA384 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SHA512 ...)
; processing (DEFINE-DIGEST-FINALIZER (# #) ...)
; processing (DEFDIGEST SHA512 ...)
; processing (DEFDIGEST SHA384 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/sha512-tmp248YL1D3.fasl
; compilation finished in 0:00:12.458
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/skein.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONSTANT +SKEIN-KEY+ ...)
; processing (DEFCONSTANT +SKEIN-CFG+ ...)
; processing (DEFCONSTANT +SKEIN-PRS+ ...)
; processing (DEFCONSTANT +SKEIN-PK+ ...)
; processing (DEFCONSTANT +SKEIN-KDF+ ...)
; processing (DEFCONSTANT +SKEIN-NON+ ...)
; processing (DEFCONSTANT +SKEIN-MSG+ ...)
; processing (DEFCONSTANT +SKEIN-OUT+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DECLAIM (TYPE # ...))
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +SKEIN256-IV-128+ ...)
; processing (DEFCONST +SKEIN256-IV-160+ ...)
; processing (DEFCONST +SKEIN256-IV-224+ ...)
; processing (DEFCONST +SKEIN256-IV-256+ ...)
; processing (DEFCONST +SKEIN512-IV-128+ ...)
; processing (DEFCONST +SKEIN512-IV-160+ ...)
; processing (DEFCONST +SKEIN512-IV-224+ ...)
; processing (DEFCONST +SKEIN512-IV-256+ ...)
; processing (DEFCONST +SKEIN512-IV-384+ ...)
; processing (DEFCONST +SKEIN512-IV-512+ ...)
; processing (DEFCONST +SKEIN1024-IV-384+ ...)
; processing (DEFCONST +SKEIN1024-IV-512+ ...)
; processing (DEFCONST +SKEIN1024-IV-1024+ ...)
; processing (DEFUN SKEIN-GET-IV ...)
; processing (DECLAIM (INLINE SKEIN-INCREMENT-COUNTER))
; processing (DEFUN SKEIN-INCREMENT-COUNTER ...)
; processing (DEFUN SKEIN-UPDATE-TWEAK ...)
; processing (DEFUN SKEIN-MAKE-TWEAK ...)
; processing (DEFUN SKEIN-MAKE-CONFIGURATION-STRING ...)
; processing (DEFGENERIC SKEIN-VALUE ...)
; processing (DEFGENERIC SKEIN-TWEAK ...)
; processing (DEFGENERIC SKEIN-CFG ...)
; processing (DEFGENERIC SKEIN-BUFFER ...)
; processing (DEFGENERIC SKEIN-BUFFER-LENGTH ...)
; processing (DEFGENERIC SKEIN-CIPHER ...)
; processing (DECLAIM (INLINE SKEIN-UPDATE-CIPHER))
; processing (DEFUN SKEIN-UPDATE-CIPHER ...)
; processing (DEFUN SKEIN-UBI ...)
; processing (DEFUN SKEIN-FINALIZE ...)
; processing (DEFUN SKEIN-COPY-CIPHER ...)
; processing (DEFSTRUCT (SKEIN256 # ...) ...)
; processing (DEFSTRUCT (SKEIN256/128 # ...))
; processing (DEFSTRUCT (SKEIN256/160 # ...))
; processing (DEFSTRUCT (SKEIN256/224 # ...))
; processing (DEFMETHOD SKEIN-VALUE ...)
; processing (DEFMETHOD SKEIN-TWEAK ...)
; processing (DEFMETHOD SKEIN-CFG ...)
; processing (DEFMETHOD SKEIN-BUFFER ...)
; processing (DEFMETHOD SKEIN-BUFFER-LENGTH ...)
; processing (DEFMETHOD (SETF SKEIN-BUFFER-LENGTH) ...)
; processing (DEFMETHOD SKEIN-CIPHER ...)
; processing (DEFMETHOD (SETF SKEIN-CIPHER) ...)
; processing (DEFUN %REINITIALIZE-SKEIN256 ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SKEIN256 ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST SKEIN256 ...)
; processing (DEFDIGEST SKEIN256/128 ...)
; processing (DEFDIGEST SKEIN256/160 ...)
; processing (DEFDIGEST SKEIN256/224 ...)
; processing (DEFSTRUCT (SKEIN512 # ...) ...)
; processing (DEFSTRUCT (SKEIN512/128 # ...))
; processing (DEFSTRUCT (SKEIN512/160 # ...))
; processing (DEFSTRUCT (SKEIN512/224 # ...))
; processing (DEFSTRUCT (SKEIN512/256 # ...))
; processing (DEFSTRUCT (SKEIN512/384 # ...))
; processing (DEFMETHOD SKEIN-VALUE ...)
; processing (DEFMETHOD SKEIN-TWEAK ...)
; processing (DEFMETHOD SKEIN-CFG ...)
; processing (DEFMETHOD SKEIN-BUFFER ...)
; processing (DEFMETHOD SKEIN-BUFFER-LENGTH ...)
; processing (DEFMETHOD (SETF SKEIN-BUFFER-LENGTH) ...)
; processing (DEFMETHOD SKEIN-CIPHER ...)
; processing (DEFMETHOD (SETF SKEIN-CIPHER) ...)
; processing (DEFUN %REINITIALIZE-SKEIN512 ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SKEIN512 ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST SKEIN512 ...)
; processing (DEFDIGEST SKEIN512/128 ...)
; processing (DEFDIGEST SKEIN512/160 ...)
; processing (DEFDIGEST SKEIN512/224 ...)
; processing (DEFDIGEST SKEIN512/256 ...)
; processing (DEFDIGEST SKEIN512/384 ...)
; processing (DEFSTRUCT (SKEIN1024 # ...) ...)
; processing (DEFSTRUCT (SKEIN1024/384 # ...))
; processing (DEFSTRUCT (SKEIN1024/512 # ...))
; processing (DEFMETHOD SKEIN-VALUE ...)
; processing (DEFMETHOD SKEIN-TWEAK ...)
; processing (DEFMETHOD SKEIN-CFG ...)
; processing (DEFMETHOD SKEIN-BUFFER ...)
; processing (DEFMETHOD SKEIN-BUFFER-LENGTH ...)
; processing (DEFMETHOD (SETF SKEIN-BUFFER-LENGTH) ...)
; processing (DEFMETHOD SKEIN-CIPHER ...)
; processing (DEFMETHOD (SETF SKEIN-CIPHER) ...)
; processing (DEFUN %REINITIALIZE-SKEIN1024 ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SKEIN1024 ...)
; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...)
; processing (DEFDIGEST SKEIN1024 ...)
; processing (DEFDIGEST SKEIN1024/384 ...)
; processing (DEFDIGEST SKEIN1024/512 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/skein-tmp10I286H8.fasl
; compilation finished in 0:00:07.183
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sm3.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +SM3-INITIAL-STATE+ ...)
; processing (DEFMACRO SM3-P0 ...)
; processing (DEFMACRO SM3-P1 ...)
; processing (DEFMACRO SM3-EE ...)
; processing (DEFMACRO SM3-FF ...)
; processing (DEFMACRO SM3-GG ...)
; processing (DEFMACRO SM3-R1 ...)
; processing (DEFMACRO SM3-R2 ...)
; processing (DEFUN SM3-HASH ...)
; processing (DEFSTRUCT (SM3 # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER SM3 ...)
; processing (DEFINE-DIGEST-FINALIZER (SM3 32) ...)
; processing (DEFDIGEST SM3 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/sm3-tmpWPLPJOS5.fasl
; compilation finished in 0:00:17.230
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/streebog.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +STREEBOG-BUFFER0+ ...)
; processing (DEFCONST +STREEBOG-BUFFER512+ ...)
; processing (DEFCONST +STREEBOG-C+ ...)
; processing (DEFCONST +STREEBOG-AX+ ...)
; processing (DECLAIM (INLINE STREEBOG-AX) ...)
; processing (DEFUN STREEBOG-AX ...)
; processing (DEFMACRO STREEBOG-X ...)
; processing (DEFMACRO STREEBOG-XLPS ...)
; processing (DEFMACRO STREEBOG-ROUND ...)
; processing (DEFUN STREEBOG-ADD512 ...)
; processing (DEFUN STREEBOG-G ...)
; processing (DEFSTRUCT (STREEBOG # ...) ...)
; processing (DEFSTRUCT (STREEBOG/256 # ...))
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFUN STREEBOG-STAGE2 ...)
; processing (DEFUN STREEBOG-PAD ...)
; processing (DEFUN STREEBOG-STAGE3 ...)
; processing (DEFINE-DIGEST-UPDATER STREEBOG ...)
; processing (DEFINE-DIGEST-FINALIZER (# #) ...)
; processing (DEFDIGEST STREEBOG ...)
; processing (DEFDIGEST STREEBOG/256 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/streebog-tmpEP3DCDT5.fasl
; compilation finished in 0:00:08.986
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/tiger.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +TIGER-WORDSIZE+ ...)
; processing (DEFCONSTANT +TIGER-BLOCK-N-WORDS+ ...)
; processing (DEFCONSTANT +TIGER-BLOCK-COPY-FN+ ...)
; processing (DEFTYPE TIGER-STATE-BLOCK ...)
; processing (DEFTYPE TIGER-SBOX ...)
; processing (DEFINE-DIGEST-REGISTERS (TIGER :ENDIAN ...) ...)
; processing (DEFCONST +PRISTINE-TIGER-REGISTERS+ ...)
; processing (DECLAIM (TYPE TIGER-SBOX ...))
; processing (DEFUN MAKE-TIGER-SBOX ...)
; processing (DEFCONST TIGER-T1 ...)
; processing (DEFCONST TIGER-T2 ...)
; processing (DEFCONST TIGER-T3 ...)
; processing (DEFCONST TIGER-T4 ...)
; processing (DEFUN UPDATE-TIGER-BLOCK ...)
; processing (DEFSTRUCT (TIGER # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER TIGER ...)
; processing (DEFINE-DIGEST-FINALIZER (TIGER 24) ...)
; processing (DEFDIGEST TIGER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/tiger-tmpITKEB6CQ.fasl
; compilation finished in 0:00:05.222
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/tree-hash.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFPARAMETER *LEAF-BYTE* ...)
; processing (DEFPARAMETER *INTERNAL-BYTE* ...)
; processing (DEFUN MAKE-TREE-HASH-LEAF-DIGEST ...)
; processing (DEFSTRUCT (TREE-HASH # ...) ...)
; processing (DEFUN %MAKE-TREE-HASH-DIGEST ...)
; processing (DEFUN MAKE-TIGER-TREE-HASH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER TREE-HASH ...)
; processing (DEFUN UPDATE-TREE-HASH-BRANCH ...)
; processing (DEFUN MERGE-TREE-HASH-BRANCH ...)
; processing (DEFUN COMBINE-HASH-TREE-DIGESTS ...)
; processing (DEFMETHOD PRODUCE-DIGEST ...)
; processing (SETF (GET # ...) ...)
; processing (SETF (GET # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/tree-hash-tmpGDVYG5EZ.fasl
; compilation finished in 0:00:00.532
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/whirlpool.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFTYPE WHIRLPOOL-REGS ...)
; processing (DEFUN INITIAL-WHIRLPOOL-REGS ...)
; processing (DEFCONSTANT +WHIRLPOOL-REGS-HASH-OFFSET+ ...)
; processing (DEFCONSTANT +WHIRLPOOL-REGS-K-OFFSET+ ...)
; processing (DEFCONSTANT +WHIRLPOOL-REGS-STATE-OFFSET+ ...)
; processing (DEFCONSTANT +WHIRLPOOL-REGS-L-OFFSET+ ...)
; processing (DEFCONST +PRISTINE-WHIRLPOOL-REGISTERS+ ...)
; processing (DEFUN WHIRLPOOLREGS-DIGEST ...)
; processing (DEFCONSTANT +WHIRLPOOL-ROUNDS+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +RC+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +C-EVEN+ ...)
; processing (DEFCONST +C-ODD+ ...)
; processing (DEFUN EXTRACT-BYTE ...)
; processing (DEFUN SPLIT ...)
; processing (DEFUN GENERATE-XOR ...)
; processing (DEFUN ONE-SLICE ...)
; processing (DEFMACRO LOOKUP-IN-C ...)
; processing (DEFUN UPDATE-WHIRLPOOL-BLOCK ...)
; processing (DEFSTRUCT (WHIRLPOOL # ...) ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COPY-DIGEST ...)
; processing (DEFINE-DIGEST-UPDATER WHIRLPOOL ...)
; processing (DEFINE-DIGEST-FINALIZER (WHIRLPOOL 64) ...)
; processing (DEFDIGEST WHIRLPOOL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/whirlpool-tmpCY8SPTQY.fasl
; compilation finished in 0:00:06.491
; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/prng.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFVAR *PRNG* ...)
; processing (DEFUN LIST-ALL-PRNGS ...)
; processing (DEFMETHOD MAKE-PRNG ...)
; processing (DEFUN RANDOM-DATA ...)
; processing (DEFUN READ-OS-RANDOM-SEED ...)
; processing (DEFUN RANDOM-BITS ...)
; processing (DEFUN STRONG-RANDOM ...)
; processing (DEFUN OS-RANDOM-SEED ...)
; processing (DEFUN READ-SEED ...)
; processing (DEFUN WRITE-SEED ...)
; processing (DEFUN FEED-FIFO ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/prng-tmpS67FKBX3.fasl
; compilation finished in 0:00:00.468
; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/generator.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFVAR +FORTUNA-CIPHER-BLOCK-SIZE+ ...)
; processing (DEFCLASS FORTUNA-GENERATOR ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRNG-RESEED ...)
; processing (DEFUN %GENERATE-BLOCKS ...)
; processing (DEFMETHOD PRNG-RANDOM-DATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/generator-tmp38832E9.fasl
; compilation finished in 0:00:00.282
; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/fortuna.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFPARAMETER +MIN-POOL-SIZE+ ...)
; processing (DEFPARAMETER +FORTUNA-SEED-LENGTH+ ...)
; processing (DEFCLASS FORTUNA-POOL ...)
; processing (DEFCLASS FORTUNA-PRNG ...)
; processing (DEFMETHOD PRNG-RANDOM-DATA ...)
; processing (DEFUN ADD-RANDOM-EVENT ...)
; processing (DEFMETHOD PRNG-SEED-LENGTH ...)
; processing (DEFMETHOD PRNG-RESEED ...)
; processing (DEFUN MAKE-FORTUNA ...)
; processing (DEFMETHOD MAKE-PRNG ...)
; processing (DEFMETHOD MAKE-PRNG ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/fortuna-tmpPC0NBPQ.fasl
; compilation finished in 0:00:00.454
; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/os-prng.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS OS-PRNG ...)
; processing (DEFMETHOD PRNG-RANDOM-DATA ...)
; processing (DEFMETHOD MAKE-PRNG ...)
; processing (SETF *PRNG* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/os-prng-tmpG3126E8T.fasl
; compilation finished in 0:00:00.101
; compiling file "/usr/share/common-lisp/source/ironclad/src/math.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN EGCD ...)
; processing (DEFUN JACOBI ...)
; processing (DEFUN POWER-MOD-TAB ...)
; processing (DEFUN POWER-MOD ...)
; processing (DEFUN MILLER-RABIN-DECOMPOSITION ...)
; processing (DEFUN MILLER-RABIN-KERNEL ...)
; processing (DEFUN LUCAS-SEQUENCE ...)
; processing (DEFUN PRIMEP-LUCAS ...)
; processing (DEFUN MODULAR-INVERSE ...)
; processing (DEFUN MODULAR-INVERSE-WITH-BLINDING ...)
; processing (DEFUN EXPT-MOD ...)
; processing (DEFUN EXPT-MOD/UNSAFE ...)
; processing (DEFCONST +SMALL-PRIMES+ ...)
; processing (DEFCONSTANT +LAST-SMALL-PRIME+ ...)
; processing (DEFUN GENERATE-SMALL-PRIMES ...)
; processing (DEFPARAMETER *NUMBER-OF-MILLER-RABIN-TESTS* ...)
; processing (DEFUN PRIME-P ...)
; processing (DEFUN GENERATE-PRIME-IN-RANGE ...)
; processing (DEFUN GENERATE-PRIME ...)
; processing (DEFUN GENERATE-SAFE-PRIME ...)
; processing (DEFUN FIND-GENERATOR ...)
; processing (DEFUN FIND-SUBGROUP-GENERATOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/math-tmp5JEXSP3Q.fasl
; compilation finished in 0:00:01.506
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/mac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS MAC ...)
; processing (DEFUN MACP ...)
; processing (DEFUN LIST-ALL-MACS ...)
; processing (DEFUN MAC-SUPPORTED-P ...)
; processing (DEFMACRO DEFMAC ...)
; processing (DEFUN MAKE-MAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/mac-tmpLLDF3K1T.fasl
; compilation finished in 0:00:00.153
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/blake2-mac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS BLAKE2-MAC ...)
; processing (DEFUN MAKE-BLAKE2-MAC ...)
; processing (DEFMETHOD COPY-BLAKE2-MAC ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN UPDATE-BLAKE2-MAC ...)
; processing (DEFUN BLAKE2-MAC-DIGEST ...)
; processing (DEFMAC BLAKE2-MAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/blake2-mac-tmpJXYIMMJQ.fasl
; compilation finished in 0:00:00.576
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/blake2s-mac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS BLAKE2S-MAC ...)
; processing (DEFUN MAKE-BLAKE2S-MAC ...)
; processing (DEFMETHOD COPY-BLAKE2S-MAC ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN UPDATE-BLAKE2S-MAC ...)
; processing (DEFUN BLAKE2S-MAC-DIGEST ...)
; processing (DEFMAC BLAKE2S-MAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/blake2s-mac-tmp3O86T7P9.fasl
; compilation finished in 0:00:00.646
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/cmac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS CMAC ...)
; processing (DEFUN MAKE-CMAC ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFUN UPDATE-CMAC ...)
; processing (DEFUN CMAC-DIGEST ...)
; processing (DEFMAC CMAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/cmac-tmpSU7VPU68.fasl
; compilation finished in 0:00:00.536
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/hmac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS HMAC ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MAKE-HMAC ...)
; processing (DEFMETHOD REINITIALIZE-INSTANCE ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN UPDATE-HMAC ...)
; processing (DEFUN HMAC-DIGEST ...)
; processing (DEFMAC HMAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/hmac-tmpNSMC798T.fasl
; compilation finished in 0:00:00.522
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/gmac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS GMAC ...)
; processing (DEFUN MAKE-GMAC ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DECLAIM (INLINE GMAC-SWAP-16))
; processing (DEFUN GMAC-SWAP-16 ...)
; processing (DEFUN GMAC-MUL ...)
; processing (DEFUN UPDATE-GMAC ...)
; processing (DEFUN GMAC-DIGEST ...)
; processing (DEFMAC GMAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/gmac-tmpS29GF1P4.fasl
; compilation finished in 0:00:10.120
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/poly1305.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS POLY1305 ...)
; processing (DEFUN MAKE-POLY1305 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN POLY1305-PROCESS-FULL-BLOCKS ...)
; processing (DEFUN UPDATE-POLY1305 ...)
; processing (DEFUN POLY1305-DIGEST ...)
; processing (DEFMAC POLY1305 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/poly1305-tmpQXNG4IU7.fasl
; compilation finished in 0:00:01.055
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/siphash.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS SIPHASH ...)
; processing (DEFUN MAKE-SIPHASH ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMACRO SIPHASH-ROUND ...)
; processing (DEFUN SIPHASH-COMPRESS ...)
; processing (DEFUN SIPHASH-FINALIZE ...)
; processing (DEFUN UPDATE-SIPHASH ...)
; processing (DEFUN SIPHASH-DIGEST ...)
; processing (DEFMAC SIPHASH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/siphash-tmpEUCVFYP4.fasl
; compilation finished in 0:00:00.990
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/skein-mac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS SKEIN-MAC ...)
; processing (DEFUN MAKE-SKEIN-MAC ...)
; processing (DEFMETHOD COPY-SKEIN-MAC ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN UPDATE-SKEIN-MAC ...)
; processing (DEFUN SKEIN-MAC-DIGEST ...)
; processing (DEFMAC SKEIN-MAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/skein-mac-tmpYNYD5896.fasl
; compilation finished in 0:00:00.520
; compiling file "/usr/share/common-lisp/source/ironclad/src/octet-stream.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFVAR *BINARY-INPUT-STREAM-CLASS* ...)
; processing (DEFVAR *BINARY-OUTPUT-STREAM-CLASS* ...)
; processing (DEFVAR *STREAM-ELEMENT-TYPE-FUNCTION* ...)
; processing (DEFVAR *STREAM-READ-BYTE-FUNCTION* ...)
; processing (DEFVAR *STREAM-WRITE-BYTE-FUNCTION* ...)
; processing (DEFVAR *STREAM-READ-SEQUENCE-FUNCTION* ...)
; processing (DEFVAR *STREAM-WRITE-SEQUENCE-FUNCTION* ...)
; processing (DEFVAR *STREAM-FINISH-OUTPUT-FUNCTION* ...)
; processing (DEFVAR *STREAM-FORCE-OUTPUT-FUNCTION* ...)
; processing (DEFVAR *STREAM-CLEAR-OUTPUT-FUNCTION* ...)
; processing (DEFCLASS OCTET-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMACRO DEFINE-STREAM-READ-SEQUENCE ...)
; processing (DEFMACRO DEFINE-STREAM-WRITE-SEQUENCE ...)
; processing (DEFCLASS OCTET-INPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFINE-STREAM-READ-SEQUENCE OCTET-INPUT-STREAM ...)
; processing (DEFUN MAKE-OCTET-INPUT-STREAM ...)
; processing (DEFMACRO WITH-OCTET-INPUT-STREAM ...)
; processing (DEFCLASS OCTET-OUTPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE OCTET-OUTPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-CLEAR-OUTPUT ...)
; processing (DEFUN GET-OUTPUT-STREAM-OCTETS ...)
; processing (DEFUN MAKE-OCTET-OUTPUT-STREAM ...)
; processing (DEFMACRO WITH-OCTET-OUTPUT-STREAM ...)
; processing (DEFCLASS DIGESTING-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFUN MAKE-DIGESTING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE DIGESTING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD PRODUCE-DIGEST ...)
; processing (DEFUN EXECUTE-WITH-DIGESTING-STREAM ...)
; processing (DEFMACRO WITH-DIGESTING-STREAM ...)
; processing (DEFCLASS CRYPTING-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFCLASS ENCRYPTING-INPUT-STREAM ...)
; processing (DEFCLASS ENCRYPTING-OUTPUT-STREAM ...)
; processing (DEFCLASS DECRYPTING-INPUT-STREAM ...)
; processing (DEFCLASS DECRYPTING-OUTPUT-STREAM ...)
; processing (DEFTYPE STREAM-DIRECTION ...)
; processing (DEFUN MAKE-ENCRYPTING-STREAM ...)
; processing (DEFUN MAKE-DECRYPTING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-READ-SEQUENCE ENCRYPTING-INPUT-STREAM ...)
; processing (DEFINE-STREAM-READ-SEQUENCE DECRYPTING-INPUT-STREAM ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE ENCRYPTING-OUTPUT-STREAM ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE DECRYPTING-OUTPUT-STREAM ...)
; processing (DEFMACRO WITH-ENCRYPTING-STREAM ...)
; processing (DEFMACRO WITH-DECRYPTING-STREAM ...)
; processing (DEFCLASS AUTHENTICATING-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFUN MAKE-AUTHENTICATING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE AUTHENTICATING-STREAM ...)
; processing (DEFMETHOD PRODUCE-MAC ...)
; processing (DEFMACRO WITH-AUTHENTICATING-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/octet-stream-tmpYABDVJMA.fasl
; compilation finished in 0:00:03.350
; compiling file "/usr/share/common-lisp/source/ironclad/src/util.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DECLAIM (INLINE BYTE-ARRAY-TO-HEX-STRING ...))
; processing (DEFUN BYTE-ARRAY-TO-HEX-STRING ...)
; processing (DEFUN HEX-STRING-TO-BYTE-ARRAY ...)
; processing (DEFUN ASCII-STRING-TO-BYTE-ARRAY ...)
; processing (DECLAIM (NOTINLINE BYTE-ARRAY-TO-HEX-STRING ...))
; processing (DEFUN CONSTANT-TIME-EQUAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/util-tmpRES877G9.fasl
; compilation finished in 0:00:00.394
; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/aead.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS AEAD-MODE ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN AEADP ...)
; processing (DEFUN LIST-ALL-AUTHENTICATED-ENCRYPTION-MODES ...)
; processing (DEFUN AUTHENTICATED-ENCRYPTION-MODE-SUPPORTED-P ...)
; processing (DEFMACRO DEFAEAD ...)
; processing (DEFUN MAKE-AUTHENTICATED-ENCRYPTION-MODE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/aead/aead-tmpSVJWWVYG.fasl
; compilation finished in 0:00:00.147
; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/eax.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS EAX ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD PROCESS-ASSOCIATED-DATA ...)
; processing (DEFMETHOD PRODUCE-TAG ...)
; processing (DEFMETHOD ENCRYPT ...)
; processing (DEFMETHOD DECRYPT ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFAEAD EAX)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/aead/eax-tmpDR1MTKJH.fasl
; compilation finished in 0:00:00.580
; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/etm.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS ETM ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD PROCESS-ASSOCIATED-DATA ...)
; processing (DEFMETHOD PRODUCE-TAG ...)
; processing (DEFMETHOD ENCRYPT ...)
; processing (DEFMETHOD DECRYPT ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFAEAD ETM)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/aead/etm-tmpIOTCOAB5.fasl
; compilation finished in 0:00:00.473
; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/gcm.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS GCM ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD PROCESS-ASSOCIATED-DATA ...)
; processing (DEFMETHOD PRODUCE-TAG ...)
; processing (DEFMETHOD ENCRYPT ...)
; processing (DEFMETHOD DECRYPT ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFAEAD GCM)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/aead/gcm-tmpS6ZNIF72.fasl
; compilation finished in 0:00:00.726
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/kdf-common.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS PBKDF1 ...)
; processing (DEFCLASS PBKDF2 ...)
; processing (DEFCLASS HMAC-KDF ...)
; processing (DEFCLASS SCRYPT-KDF ...)
; processing (DEFCLASS ARGON2 ...)
; processing (DEFCLASS ARGON2I ...)
; processing (DEFCLASS ARGON2D ...)
; processing (DEFUN MAKE-KDF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/kdf-common-tmpXGANRN8X.fasl
; compilation finished in 0:00:00.163
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/argon2.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONSTANT +ARGON2-BLOCK-SIZE+ ...)
; processing (DEFTYPE ARGON2-BLOCK ...)
; processing (DEFUN ARGON2-LOAD-BLOCK ...)
; processing (DEFUN ARGON2-STORE-BLOCK ...)
; processing (DEFUN ARGON2-COPY-BLOCK ...)
; processing (DEFUN ARGON2-XOR-BLOCK ...)
; processing (DEFUN ARGON2-UPDATE-DIGESTER-32 ...)
; processing (DEFUN ARGON2-EXTENDED-HASH ...)
; processing (DEFMACRO ARGON2-G ...)
; processing (DEFMACRO ARGON2-ROUND ...)
; processing (DEFUN ARGON2-G-ROUNDS ...)
; processing (DEFUN ARGON2-G-COPY ...)
; processing (DEFUN ARGON2-G-XOR ...)
; processing (DEFUN ARGON2-UNARY-G ...)
; processing (DEFUN ARGON2I-GIDX-REFRESH ...)
; processing (DEFUN ARGON2I-GIDX-INIT ...)
; processing (DEFUN ARGON2I-GIDX-NEXT ...)
; processing (DEFUN ARGON2D-GIDX-INIT ...)
; processing (DEFUN ARGON2D-GIDX-NEXT ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD DERIVE-KEY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/argon2-tmpHENEB9BR.fasl
; compilation finished in 0:00:17.124
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/pkcs5.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD DERIVE-KEY ...)
; processing (DEFUN PBKDF2-DERIVE-KEY ...)
; processing (DEFMETHOD DERIVE-KEY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/pkcs5-tmpD1JSGF7S.fasl
; compilation finished in 0:00:00.355
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/password-hash.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN MAKE-RANDOM-SALT ...)
; processing (DEFUN PBKDF2-HASH-PASSWORD ...)
; processing (DEFUN PBKDF2-HASH-PASSWORD-TO-COMBINED-STRING ...)
; processing (DEFUN PBKDF2-CHECK-PASSWORD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/password-hash-tmpS364M8M7.fasl
; compilation finished in 0:00:00.179
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/scrypt.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN SCRYPT-VECTOR-SALSA ...)
; processing (DEFUN BLOCK-MIX ...)
; processing (DEFUN SMIX ...)
; processing (DEFMETHOD DERIVE-KEY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/scrypt-tmpQFSX2LB2.fasl
; compilation finished in 0:00:00.509
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/hmac.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN HKDF-EXTRACT ...)
; processing (DEFUN HKDF-EXPAND ...)
; processing (DEFUN HMAC-DERIVE-KEY ...)
; processing (DEFMETHOD DERIVE-KEY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/hmac-tmp3CGEZU30.fasl
; compilation finished in 0:00:00.520
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/public-key.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS DISCRETE-LOGARITHM-GROUP ...)
; processing (DEFUN OCTETS-TO-INTEGER ...)
; processing (DEFUN INTEGER-TO-OCTETS ...)
; processing (DEFUN MAYBE-INTEGERIZE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/public-key-tmpU0DA5CGH.fasl
; compilation finished in 0:00:00.280
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/curve25519.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS CURVE25519-PUBLIC-KEY ...)
; processing (DEFCLASS CURVE25519-PRIVATE-KEY ...)
; processing (DEFTYPE CURVE25519-POINT ...)
; processing (DEFCONSTANT +CURVE25519-BITS+ ...)
; processing (DEFCONSTANT +CURVE25519-P+ ...)
; processing (DEFCONSTANT +CURVE25519-A24+ ...)
; processing (DECLAIM (TYPE CURVE25519-POINT ...))
; processing (DEFCONST +CURVE25519-G+ ...)
; processing (DECLAIM (INLINE CURVE25519-INV))
; processing (DEFUN CURVE25519-INV ...)
; processing (DEFUN CURVE25519-DOUBLE-AND-ADD ...)
; processing (DEFUN CURVE25519-SCALAR-MULT ...)
; processing (DEFUN CURVE25519-ENCODE-INT ...)
; processing (DEFUN CURVE25519-DECODE-INT ...)
; processing (DEFUN CURVE25519-ENCODE-POINT ...)
; processing (DEFUN CURVE25519-DECODE-POINT ...)
; processing (DEFUN CURVE25519-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; processing (DEFMETHOD DIFFIE-HELLMAN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/curve25519-tmp40CMQUFC.fasl
; compilation finished in 0:00:00.619
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/curve448.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS CURVE448-PUBLIC-KEY ...)
; processing (DEFCLASS CURVE448-PRIVATE-KEY ...)
; processing (DEFTYPE CURVE448-POINT ...)
; processing (DEFCONSTANT +CURVE448-BITS+ ...)
; processing (DEFCONSTANT +CURVE448-P+ ...)
; processing (DEFCONSTANT +CURVE448-A24+ ...)
; processing (DECLAIM (TYPE CURVE448-POINT ...))
; processing (DEFCONST +CURVE448-G+ ...)
; processing (DECLAIM (INLINE CURVE448-INV))
; processing (DEFUN CURVE448-INV ...)
; processing (DEFUN CURVE448-DOUBLE-AND-ADD ...)
; processing (DEFUN CURVE448-SCALAR-MULT ...)
; processing (DEFUN CURVE448-ENCODE-INT ...)
; processing (DEFUN CURVE448-DECODE-INT ...)
; processing (DEFUN CURVE448-ENCODE-POINT ...)
; processing (DEFUN CURVE448-DECODE-POINT ...)
; processing (DEFUN CURVE448-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; processing (DEFMETHOD DIFFIE-HELLMAN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/curve448-tmpT9YJERDD.fasl
; compilation finished in 0:00:00.522
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/dsa.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS DSA-KEY ...)
; processing (DEFCLASS DSA-PUBLIC-KEY ...)
; processing (DEFCLASS DSA-PRIVATE-KEY ...)
; processing (DEFUN DSA-KEY-P ...)
; processing (DEFUN DSA-KEY-Q ...)
; processing (DEFUN DSA-KEY-G ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; processing (DECLAIM (NOTINLINE DSA-GENERATE-K))
; processing (DEFUN DSA-GENERATE-K ...)
; processing (DEFMETHOD MAKE-SIGNATURE ...)
; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...)
; processing (DEFMETHOD SIGN-MESSAGE ...)
; processing (DEFMETHOD VERIFY-SIGNATURE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/dsa-tmp5FFPYUUZ.fasl
; compilation finished in 0:00:00.785
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS ED25519-PUBLIC-KEY ...)
; processing (DEFCLASS ED25519-PRIVATE-KEY ...)
; processing (DEFTYPE ED25519-POINT ...)
; processing (DEFCONSTANT +ED25519-BITS+ ...)
; processing (DEFCONSTANT +ED25519-Q+ ...)
; processing (DEFCONSTANT +ED25519-L+ ...)
; processing (DEFCONSTANT +ED25519-D+ ...)
; processing (DEFCONSTANT +ED25519-I+ ...)
; processing (DECLAIM (TYPE ED25519-POINT ...))
; processing (DEFCONST +ED25519-B+ ...)
; processing (DECLAIM (INLINE ED25519-INV))
; processing (DEFUN ED25519-INV ...)
; processing (DEFUN ED25519-RECOVER-X ...)
; processing (DEFUN ED25519-EDWARDS-ADD ...)
; processing (DEFUN ED25519-EDWARDS-DOUBLE ...)
; processing (DEFUN ED25519-SCALAR-MULT ...)
; processing (DEFUN ED25519-ON-CURVE-P ...)
; processing (DEFUN ED25519-POINT-EQUAL ...)
; processing (DEFUN ED25519-ENCODE-INT ...)
; processing (DEFUN ED25519-DECODE-INT ...)
; processing (DEFUN ED25519-ENCODE-POINT ...)
; processing (DEFUN ED25519-DECODE-POINT ...)
; processing (DEFUN ED25519-HASH ...)
; processing (DEFUN ED25519-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-SIGNATURE ...)
; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...)
; processing (DEFUN ED25519-SIGN ...)
; processing (DEFUN ED25519-VERIFY ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD SIGN-MESSAGE ...)
; processing (DEFMETHOD VERIFY-SIGNATURE ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/ed25519-tmp3ODYPKXB.fasl
; compilation finished in 0:00:01.405
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS ED448-PUBLIC-KEY ...)
; processing (DEFCLASS ED448-PRIVATE-KEY ...)
; processing (DEFTYPE ED448-POINT ...)
; processing (DEFCONSTANT +ED448-BITS+ ...)
; processing (DEFCONSTANT +ED448-Q+ ...)
; processing (DEFCONSTANT +ED448-L+ ...)
; processing (DEFCONSTANT +ED448-D+ ...)
; processing (DECLAIM (TYPE ED448-POINT ...))
; processing (DEFCONST +ED448-B+ ...)
; processing (DEFUN ED448-DOM ...)
; processing (DEFCONST +ED448-DOM+ ...)
; processing (DECLAIM (INLINE ED448-INV))
; processing (DEFUN ED448-INV ...)
; processing (DEFUN ED448-RECOVER-X ...)
; processing (DEFUN ED448-EDWARDS-ADD ...)
; processing (DEFUN ED448-EDWARDS-DOUBLE ...)
; processing (DEFUN ED448-SCALAR-MULT ...)
; processing (DEFUN ED448-ON-CURVE-P ...)
; processing (DEFUN ED448-POINT-EQUAL ...)
; processing (DEFUN ED448-ENCODE-INT ...)
; processing (DEFUN ED448-DECODE-INT ...)
; processing (DEFUN ED448-ENCODE-POINT ...)
; processing (DEFUN ED448-DECODE-POINT ...)
; processing (DEFUN ED448-HASH ...)
; processing (DEFUN ED448-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-SIGNATURE ...)
; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...)
; processing (DEFUN ED448-SIGN ...)
; processing (DEFUN ED448-VERIFY ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD SIGN-MESSAGE ...)
; processing (DEFMETHOD VERIFY-SIGNATURE ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/ed448-tmpD0IKH6VH.fasl
; compilation finished in 0:00:01.414
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/pkcs1.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN MGF ...)
; processing (DECLAIM (NOTINLINE OAEP-ENCODE))
; processing (DEFUN OAEP-ENCODE ...)
; processing (DEFUN OAEP-DECODE ...)
; processing (DECLAIM (NOTINLINE PSS-ENCODE))
; processing (DEFUN PSS-ENCODE ...)
; processing (DEFUN PSS-VERIFY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/pkcs1-tmp8ESK6FB7.fasl
; compilation finished in 0:00:01.299
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/elgamal.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS ELGAMAL-KEY ...)
; processing (DEFCLASS ELGAMAL-PUBLIC-KEY ...)
; processing (DEFCLASS ELGAMAL-PRIVATE-KEY ...)
; processing (DEFUN ELGAMAL-KEY-P ...)
; processing (DEFUN ELGAMAL-KEY-G ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; processing (DECLAIM (NOTINLINE ELGAMAL-GENERATE-K))
; processing (DEFUN ELGAMAL-GENERATE-K ...)
; processing (DEFMETHOD MAKE-MESSAGE ...)
; processing (DEFMETHOD DESTRUCTURE-MESSAGE ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFMETHOD MAKE-SIGNATURE ...)
; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...)
; processing (DEFMETHOD SIGN-MESSAGE ...)
; processing (DEFMETHOD VERIFY-SIGNATURE ...)
; processing (DEFMETHOD DIFFIE-HELLMAN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/elgamal-tmpNP2BTE1F.fasl
; compilation finished in 0:00:00.842
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/rsa.lisp" (written 20 JAN 2020 09:00:38 AM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS RSA-KEY ...)
; processing (DEFCLASS RSA-PUBLIC-KEY ...)
; processing (DEFCLASS RSA-PRIVATE-KEY ...)
; processing (DEFMETHOD MAKE-PUBLIC-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFMETHOD MAKE-PRIVATE-KEY ...)
; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFMETHOD GENERATE-KEY-PAIR ...)
; processing (DEFUN RSA-CORE ...)
; processing (DEFMETHOD MAKE-MESSAGE ...)
; processing (DEFMETHOD DESTRUCTURE-MESSAGE ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFMETHOD MAKE-SIGNATURE ...)
; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...)
; processing (DEFMETHOD SIGN-MESSAGE ...)
; processing (DEFMETHOD VERIFY-SIGNATURE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/rsa-tmp7ZC9DOIW.fasl
; compilation finished in 0:00:00.703
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/list-of.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (DEFPACKAGE :LIST-OF ...)
; processing (IN-PACKAGE :LIST-OF)
; processing (DEFUN SEQUENCE-OF-PREDICATE-FOR ...)
; processing (DEFUN LIST-OF-PREDICATE-FOR ...)
; processing (DEFUN VECTOR-OF-PREDICATE-FOR ...)
; processing (DEFUN LIST-OF-TYPE-PREDICATE ...)
; processing (DEFUN VECTOR-OF-TYPE-PREDICATE ...)
; processing (DEFUN ENSURE-LIST-OF-PREDICATE ...)
; processing (DEFUN ENSURE-VECTOR-OF-PREDICATE ...)
; processing (DEFTYPE LIST-OF ...)
; processing (DEFTYPE VECTOR-OF ...)
; processing (DEFMACRO DECLARE-LIST-OF ...)
; processing (DEFMACRO DECLARE-VECTOR-OF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/list-of-tmpQJ4H8AW8.fasl
; compilation finished in 0:00:00.265
; compiling file "/usr/share/common-lisp/source/chipz/package.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (DEFPACKAGE :CHIPZ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/package-tmpOISLJO3A.fasl
; compilation finished in 0:00:00.006
; compiling file "/usr/share/common-lisp/source/chipz/constants.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFMACRO DEFINE-CONSTANT ...)
; processing (DEFINE-CONSTANT +BLOCK-NO-COMPRESS+ ...)
; processing (DEFINE-CONSTANT +BLOCK-FIXED-CODES+ ...)
; processing (DEFINE-CONSTANT +BLOCK-DYNAMIC-CODES+ ...)
; processing (DEFINE-CONSTANT +BLOCK-INVALID+ ...)
; processing (DEFINE-CONSTANT +MAX-CODE-LENGTH+ ...)
; processing (DEFINE-CONSTANT +MAX-CODES+ ...)
; processing (DEFINE-CONSTANT +MAX-N-CODE-LENGTHS+ ...)
; processing (DEFINE-CONSTANT +DEFLATE-MAX-BITS+ ...)
; processing (DEFINE-CONSTANT +LENGTH-CODE-EXTRA-BITS+ ...)
; processing (DEFINE-CONSTANT +LENGTH-CODE-BASE-LENGTHS+ ...)
; processing (DEFCONSTANT +BZ-HEADER-B+ ...)
; processing (DEFCONSTANT +BZ-HEADER-Z+ ...)
; processing (DEFCONSTANT +BZ-HEADER-H+ ...)
; processing (DEFCONSTANT +BZ-HEADER-0+ ...)
; processing (DEFCONSTANT +100K+ ...)
; processing (DEFCONSTANT +MTFA-SIZE+ ...)
; processing (DEFCONSTANT +MTFL-SIZE+ ...)
; processing (DEFCONSTANT +BZ-MAX-ALPHA-SIZE+ ...)
; processing (DEFCONSTANT +BZ-MAX-CODE-LEN+ ...)
; processing (DEFCONSTANT +BZ-RUNA+ ...)
; processing (DEFCONSTANT +BZ-RUNB+ ...)
; processing (DEFCONSTANT +BZ-N-GROUPS+ ...)
; processing (DEFCONSTANT +BZ-G-SIZE+ ...)
; processing (DEFCONSTANT +BZ-N-ITERS+ ...)
; processing (DEFCONSTANT +BZ-MAX-SELECTORS+ ...)
; processing (DEFCONSTANT +DEFAULT-BUFFER-SIZE+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFINE-CONSTANT +CRC32-TABLE+ ...)
; processing (DEFINE-CONSTANT +BZIP2-CRC32-TABLE+ ...)
; processing (DEFCONSTANT ADLER32-MODULO ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/constants-tmpDPMQWO2N.fasl
; compilation finished in 0:00:00.080
; compiling file "/usr/share/common-lisp/source/chipz/types-and-tables.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFTYPE INDEX ...)
; processing (DEFTYPE SIMPLE-OCTET-VECTOR ...)
; processing (DEFTYPE DEFLATE-CODE-LENGTH ...)
; processing (DEFTYPE DEFLATE-CODE ...)
; processing (DEFTYPE DEFLATE-CODE-VALUE ...)
; processing (DEFPARAMETER *DISTANCE-CODE-EXTRA-BITS* ...)
; processing (DEFPARAMETER *DISTANCE-CODE-BASE-DISTANCES* ...)
; processing (DECLAIM (INLINE N-LENGTH-EXTRA-BITS ...))
; processing (DEFUN N-LENGTH-EXTRA-BITS ...)
; processing (DEFUN N-DISTANCE-EXTRA-BITS ...)
; processing (DEFUN LENGTH-BASE ...)
; processing (DEFUN DISTANCE-BASE ...)
; processing (DEFPARAMETER *CODE-LENGTH-CODE-ORDER* ...)
; processing (DEFSTRUCT (CODE-RANGE-DESCRIPTOR # ...) ...)
; processing (DEFSTRUCT (HUFFMAN-DECODE-TABLE # ...) ...)
; processing (DEFUN CONSTRUCT-HUFFMAN-DECODE-TABLE ...)
; processing (DEFPARAMETER *FIXED-BLOCK-CODE-LENGTHS* ...)
; processing (DEFPARAMETER *FIXED-BLOCK-DISTANCE-LENGTHS* ...)
; processing (DEFUN CODE-N-VALUES ...)
; processing (DEFUN COMPUTE-HUFFMAN-DECODE-STRUCTURE ...)
; processing (DEFPARAMETER *FIXED-LITERAL/LENGTH-TABLE* ...)
; processing (DEFPARAMETER *FIXED-DISTANCE-TABLE* ...)
; processing (DEFMACRO PROBABLY-THE-FIXNUM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/types-and-tables-tmpSE6DK4YB.fasl
; compilation finished in 0:00:00.784
; compiling file "/usr/share/common-lisp/source/chipz/crc32.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFSTRUCT (CRC32 #) ...)
; processing (DEFUN UPDATE-CRC32 ...)
; processing (DEFUN PRODUCE-CRC32 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/crc32-tmp7H2A2EGG.fasl
; compilation finished in 0:00:00.139
; compiling file "/usr/share/common-lisp/source/chipz/adler32.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFSTRUCT (ADLER32 #) ...)
; processing (DEFUN UPDATE-ADLER32 ...)
; processing (DEFUN PRODUCE-ADLER32 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/adler32-tmp9QBJ6NNR.fasl
; compilation finished in 0:00:00.216
; compiling file "/usr/share/common-lisp/source/chipz/conditions.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFINE-CONDITION CHIPZ-ERROR ...)
; processing (DEFINE-CONDITION DECOMPRESSION-ERROR ...)
; processing (DEFINE-CONDITION INVALID-FORMAT-ERROR ...)
; processing (DEFINE-CONDITION INVALID-CHECKSUM-ERROR ...)
; processing (DEFINE-CONDITION PREMATURE-END-OF-STREAM ...)
; processing (DEFINE-CONDITION INFLATE-ERROR ...)
; processing (DEFINE-CONDITION INVALID-ZLIB-HEADER-ERROR ...)
; processing (DEFINE-CONDITION INVALID-GZIP-HEADER-ERROR ...)
; processing (DEFINE-CONDITION RESERVED-BLOCK-TYPE-ERROR ...)
; processing (DEFINE-CONDITION INVALID-STORED-BLOCK-LENGTH-ERROR ...)
; processing (DEFINE-CONDITION BZIP2-ERROR ...)
; processing (DEFINE-CONDITION INVALID-BZIP2-DATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/conditions-tmpLXV44MR8.fasl
; compilation finished in 0:00:00.182
; compiling file "/usr/share/common-lisp/source/chipz/dstate.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFSTRUCT (DECOMPRESSION-STATE # ...) ...)
; processing (DEFUN MAKE-DSTATE ...)
; processing (DEFUN FINISH-DSTATE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/dstate-tmpAM15T9FH.fasl
; compilation finished in 0:00:00.614
; compiling file "/usr/share/common-lisp/source/chipz/inflate-state.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFTYPE SLIDING-WINDOW ...)
; processing (DEFSTRUCT (INFLATE-STATE # ...) ...)
; processing (DEFUN MAKE-INFLATE-STATE ...)
; processing (DEFUN FINISH-INFLATE-STATE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/inflate-state-tmpMA2Q8TN6.fasl
; compilation finished in 0:00:01.024
; compiling file "/usr/share/common-lisp/source/chipz/gzip.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFCLASS GZIP-HEADER ...)
; processing (DEFCONSTANT +GZIP-FLAG-TEXT+ ...)
; processing (DEFCONSTANT +GZIP-FLAG-CRC+ ...)
; processing (DEFCONSTANT +GZIP-FLAG-EXTRA+ ...)
; processing (DEFCONSTANT +GZIP-FLAG-NAME+ ...)
; processing (DEFCONSTANT +GZIP-FLAG-COMMENT+ ...)
; processing (DEFCONSTANT +GZIP-DEFLATE-METHOD+ ...)
; processing (DEFCONSTANT +GZIP-XFL-MAX-COMPRESSION+ ...)
; processing (DEFCONSTANT +GZIP-XFL-FAST-COMPRESSION+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/gzip-tmpFL02PHAD.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/chipz/zlib.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFCLASS ZLIB-HEADER ...)
; processing (DEFCONSTANT +ZLIB-COMPRESSION-METHOD+ ...)
; processing (DEFUN ZLIB-COMPRESSION-METHOD ...)
; processing (DEFUN ZLIB-COMPRESSION-INFO ...)
; processing (DEFCONSTANT +ZLIB-FLAG-FDICT+ ...)
; processing (DEFUN ZLIB-FLAG-FCHECK ...)
; processing (DEFCONSTANT +ZLIB-FLEVEL-FASTEST+ ...)
; processing (DEFCONSTANT +ZLIB-FLEVEL-FAST+ ...)
; processing (DEFCONSTANT +ZLIB-FLEVEL-DEFAULT+ ...)
; processing (DEFCONSTANT +ZLIB-FLEVEL-MAXIMUM+ ...)
; processing (DEFUN ZLIB-FLAG-FLEVEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/zlib-tmpTKINKNY6.fasl
; compilation finished in 0:00:00.045
; compiling file "/usr/share/common-lisp/source/chipz/inflate.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFUN UPDATE-WINDOW ...)
; processing (DEFUN %INFLATE ...)
; processing (DEFUN RECORD-CODE-LENGTH ...)
; processing (DEFUN %INFLATE-STATE-MACHINE ...)
; file: /usr/share/common-lisp/source/chipz/inflate.lisp
; in: DEFUN %INFLATE-STATE-MACHINE
; (* (CHIPZ::CMF CHIPZ::HEADER) 256)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; associate */(* /) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; (ZEROP (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31))
; ==>
; (= (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL 0 (31)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a RATIONAL.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= CHIPZ::STORED (CHIPZ::PRODUCE-CRC32 CHIPZ::CRC32))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (COERCE (FUNCALL CHIPZ::SLOT CHIPZ::HEADER) '(VECTOR (UNSIGNED-BYTE 8)))
; --> THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (FUNCALL (CHIPZ::INFLATE-STATE-STATE CHIPZ::STATE) CHIPZ::STATE)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (CHIPZ::INFLATE-STATE-STATE CHIPZ::STATE))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY)
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (MINUSP CHIPZ::COPY-INDEX)
; ==>
; (< CHIPZ::COPY-INDEX 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * 1.07377459d9)
; (SINGLE-FLOAT * 1.0737746e9)
; (RATIONAL * 1073774589)), not a FLOAT.
; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)))
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0))
; (RATIONAL * (0))), not a RATIONAL.
; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE))
; ==>
; (= (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (ZEROP CHIPZ::BITS)
; ==>
; (= CHIPZ::BITS 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE))
; CHIPZ::DISTANCE-EXTRA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)
; CHIPZ::+MAX-N-CODE-LENGTHS+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES)
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE))
; ==>
; (= (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (ZEROP CHIPZ::N-COPIED-BYTES)
; ==>
; (= CHIPZ::N-COPIED-BYTES 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (= CHIPZ::STORED (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (+ (CHIPZ::HDT-BITS CHIPZ::DECODER) 7)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))
; ==>
; (- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN)
; --> LET*
; ==>
; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)))
; --> TAGBODY LET WHEN IF
; ==>
; (= #:TEMP5 #:TEMP6)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (LOOP CHIPZ::WITH CHIPZ::OUTPUT = (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE)
; CHIPZ::FOR CHIPZ::I CHIPZ::FROM CHIPZ::INDEX CHIPZ::BELOW (THE FIXNUM
; (+
; CHIPZ::INDEX
; CHIPZ::N-BYTES-TO-COPY))
; CHIPZ::FOR ...)
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * 5.36870912d8)
; (SINGLE-FLOAT * 5.368709e8)
; (RATIONAL * 536870911)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT -5.36870912d8)
; (SINGLE-FLOAT -5.368709e8)
; (RATIONAL -536870911)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START))
; --> OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT -5.36870912d8)
; (SINGLE-FLOAT -5.368709e8)
; (RATIONAL -536870911)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9
; 32767.0d0)), not a RATIONAL.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9
; 32767.0d0)), not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; (MIN CHIPZ::N-BYTES-TO-COPY
; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))
; CHIPZ::COPY-INDEX))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL (0))), not a RATIONAL.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL (0))), not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)
; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE))
; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE)))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT -5.36870912d8)
; (SINGLE-FLOAT -5.368709e8)
; (RATIONAL -536870911)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (+ (CHIPZ::HDT-BITS CHIPZ::DECODER) 7)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ 11 (CHIPZ::READ-BITS 7 CHIPZ::STATE))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 11 4294967306) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 11 4294967306) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (+ 3 (CHIPZ::READ-BITS 3 CHIPZ::STATE))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 3 4294967298) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 3 4294967298) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))
; ==>
; (- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ 3 (CHIPZ::READ-BITS 2 CHIPZ::STATE))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 3 4294967298) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 3 4294967298) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN)
;
; 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 second argument is a (OR #1=(INTEGER 0 0) (INTEGER 3 4294967306)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (OR #1# (INTEGER 3 4294967306)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN)
; --> LET*
; ==>
; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR #1=(INTEGER 0 0) (INTEGER 3 4294967306)), not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR #1# (INTEGER 3 4294967306)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)))
; --> TAGBODY LET WHEN IF
; ==>
; (= #:TEMP5 #:TEMP6)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY)
; --> LET* 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 T, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY)
; --> LET*
; ==>
; (+ CHIPZ::N-BYTES-TO-COPY
; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ)
; 9)))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (+ CHIPZ::INDEX CHIPZ::N-BYTES-TO-COPY)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (+ CHIPZ::COPY-INDEX CHIPZ::N-BYTES-TO-COPY)
;
; 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 second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (LOOP CHIPZ::WITH CHIPZ::OUTPUT = (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE)
; CHIPZ::FOR CHIPZ::I CHIPZ::FROM CHIPZ::INDEX CHIPZ::BELOW (THE FIXNUM
; (+
; CHIPZ::INDEX
; CHIPZ::N-BYTES-TO-COPY))
; CHIPZ::FOR ...)
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; (* (CHIPZ::CMF CHIPZ::HEADER) 256)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE)
;
; 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 32), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL #2=(-31) #3=(31)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #4=(0) #5=(62)))
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL #2# #3#) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #4# #5#))
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND LET
; --> UNLESS IF OR LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND IF >=
; --> IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (RATIONAL #2=(-31) #3=(62)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (RATIONAL #2# #3#), not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND LET
; --> UNLESS IF OR LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND IF <
; --> IF
; ==>
; (< (TRULY-THE RATIONAL #:OBJECT289) 31)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (RATIONAL 0 #2=(62)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (RATIONAL 0 #2#), not a FIXNUM.
; etc.
; (+ (CHIPZ::READ-BITS 5 CHIPZ::STATE) 257)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 257 4294967552) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 257 4294967552) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (+ (CHIPZ::READ-BITS 5 CHIPZ::STATE) 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 4294967296) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 4294967296) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (+ (CHIPZ::READ-BITS 4 CHIPZ::STATE) 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 4 4294967299) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 4 4294967299) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE))
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)
; CHIPZ::+MAX-N-CODE-LENGTHS+)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (+ (CHIPZ::LENGTH-BASE CHIPZ::LENGTH-CODE) CHIPZ::LENGTH-EXTRA)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4295032831) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The result is a (VALUES (MOD 4295032831) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE))
; CHIPZ::DISTANCE-EXTRA)
;
; 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 second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; etc.
; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START))
; --> OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; etc.
; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (DOUBLE-FLOAT -5.36870912d8)
; (SINGLE-FLOAT -5.368709e8)
; (RATIONAL -536870911)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL * 536903678) (SINGLE-FLOAT * 5.369037e8)
; (DOUBLE-FLOAT * 5.36903679d8))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a (OR (DOUBLE-FLOAT -5.36870912d8)
; (SINGLE-FLOAT -5.368709e8)
; (RATIONAL -536870911)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES
; (OR (RATIONAL * 536903678) (SINGLE-FLOAT * 5.369037e8)
; (DOUBLE-FLOAT * 5.36903679d8))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (RATIONAL * 536903678)
; (SINGLE-FLOAT * 5.369037e8)
; (DOUBLE-FLOAT * 5.36903679d8)), not a FIXNUM.
; The result is a (VALUES
; (OR (DOUBLE-FLOAT * 1.07377459d9)
; (SINGLE-FLOAT * 1.0737746e9)
; (RATIONAL * 1073774589))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR (RATIONAL * 536903678)
; (SINGLE-FLOAT * 5.369037e8)
; (DOUBLE-FLOAT * 5.36903679d8)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES
; (OR (DOUBLE-FLOAT * 1.07377459d9)
; (SINGLE-FLOAT * 1.0737746e9)
; (RATIONAL * 1073774589))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (MINUSP CHIPZ::COPY-INDEX)
; ==>
; (< CHIPZ::COPY-INDEX 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (DOUBLE-FLOAT * 1.07377459d9)
; (SINGLE-FLOAT * 1.0737746e9)
; (RATIONAL * 1073774589)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (DOUBLE-FLOAT * 1.07377459d9)
; (SINGLE-FLOAT * 1.0737746e9)
; (RATIONAL * 1073774589)), not a FIXNUM.
; etc.
; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 1.07377459d9)
; (SINGLE-FLOAT 0.0 1.0737746e9)
; (RATIONAL 0 1073774589)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9 32767.0d0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 1.07377459d9)
; (SINGLE-FLOAT 0.0 1.0737746e9)
; (RATIONAL 0 1073774589)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES
; (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9 32767.0d0))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9 32767.0d0)), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9 32767.0d0)), not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9 32767.0d0)), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (RATIONAL -1073774589 32767)
; (SINGLE-FLOAT -1.0737746e9 32767.0)
; (DOUBLE-FLOAT -1.07377459d9 32767.0d0)), not a DOUBLE-FLOAT.
; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0))
; (SINGLE-FLOAT * #3=(0.0)) (RATIONAL * #4=(0))), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL * #5=(32768)) (SINGLE-FLOAT * 32768.0)
; (DOUBLE-FLOAT * 32768.0d0))
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#)
; (RATIONAL * #4#)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL * #5#) (SINGLE-FLOAT * 32768.0)
; (DOUBLE-FLOAT * 32768.0d0))
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL * #1=(32768))
; (SINGLE-FLOAT * 32768.0)
; (DOUBLE-FLOAT * 32768.0d0)), not a FIXNUM.
; The result is a (VALUES
; (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL #2=(0)))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a (OR (RATIONAL * #1#) (SINGLE-FLOAT * 32768.0)
; (DOUBLE-FLOAT * 32768.0d0)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES
; (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL #2#))
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (MIN CHIPZ::N-BYTES-TO-COPY
; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))
; CHIPZ::COPY-INDEX))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL #2=(0))), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL #2#)), not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL #2=(0))), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL #2#)), not a DOUBLE-FLOAT.
; (- CHIPZ::INDEX CHIPZ::DISTANCE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)
; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE))
; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE)))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; etc.
; (+ (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (+ (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (INCF (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES)
; --> LET*
; ==>
; (+ CHIPZ::N-COPIED-BYTES
; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ)
; 5)))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES)
; --> LET*
; ==>
; (+ CHIPZ::N-COPIED-BYTES
; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ)
; 9)))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES)
; --> LET* 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 T, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (LET ((CHIPZ::STORED
; (LET (#)
; (LOGIOR # # # #)))
; (CHIPZ::ADLER32
; (CHIPZ::COPY-ADLER32 (CHIPZ::INFLATE-STATE-CHECKSUM CHIPZ::STATE))))
; (CHIPZ::UPDATE-ADLER32 CHIPZ::ADLER32
; (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-OUTPUT-START CHIPZ::STATE)
; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))
; (UNLESS (= CHIPZ::STORED (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32))
; (ERROR 'CHIPZ:INVALID-CHECKSUM-ERROR :STORED CHIPZ::STORED :COMPUTED
; (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32) :KIND :ADLER32))
; (SETF (CHIPZ::INFLATE-STATE-DONE CHIPZ::STATE) T)
; (CHIPZ::TRANSITION-TO CHIPZ::DONE))
;
; note: doing unsigned word to integer coercion (cost 20) to STORED
; (ZEROP (LOGAND CHIPZ::LEN CHIPZ::NLEN))
; --> = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CHIPZ::READ-BITS (CHIPZ::N CHIPZ::STATE)
; (DECLARE (TYPE (INTEGER 0 32) CHIPZ::N))
; (DECLARE (TYPE CHIPZ:INFLATE-STATE CHIPZ::STATE))
; (PROG1 (LDB (BYTE CHIPZ::N 0) (CHIPZ::INFLATE-STATE-BITS CHIPZ::STATE))
; (SETF (CHIPZ::INFLATE-STATE-BITS CHIPZ::STATE) (ASH # #))
; (DECF (CHIPZ::INFLATE-STATE-N-BITS CHIPZ::STATE) CHIPZ::N)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/inflate-tmpNE46GCCQ.fasl
; compilation finished in 0:00:01.867
; compiling file "/usr/share/common-lisp/source/chipz/bzip2.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFUN REVERSE-UB4 ...)
; processing (DEFUN REVERSE-UB8 ...)
; processing (DEFUN REVERSE-UB16 ...)
; processing (DEFVAR *DUMMY-VEC* ...)
; processing (DEFSTRUCT (BZIP2-STATE # ...) ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MAKE-MAPS ...)
; processing (DEFUN MAKE-DECODE-TABLES ...)
; processing (DEFUN UNDO-RLE-OBUF-TO-OUTPUT ...)
; file: /usr/share/common-lisp/source/chipz/bzip2.lisp
; in: DEFUN UNDO-RLE-OBUF-TO-OUTPUT
; (CHIPZ::GET-FAST)
; --> PROG2 PROG1 LET PROGN SETF SETQ THE AREF SB-KERNEL:DATA-VECTOR-REF
; --> SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the third argument of CHECK-BOUND
; processing (DEFUN %BZIP2-STATE-MACHINE ...)
; file: /usr/share/common-lisp/source/chipz/bzip2.lisp
; in: DEFUN %BZIP2-STATE-MACHINE
; 'CHIPZ:INVALID-BZIP2-DATA
;
; note: deleting unreachable code
; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE))
; --> < IF
; ==>
; (< (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 27))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)
; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE))
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * 899999.0d0)
; (SINGLE-FLOAT * 899999.0)
; (RATIONAL * 899999)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)
; (1+ (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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 (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)
; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; associate */(* /) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 22))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (LDB (BYTE CHIPZ::N 0)
; (ASH (CHIPZ::BZIP2-STATE-BITS CHIPZ::STATE)
; (THE (INTEGER -31 0)
; (- CHIPZ::N (CHIPZ::BZIP2-STATE-N-BITS CHIPZ::STATE)))))
; ==>
; (SB-KERNEL:%LDB CHIPZ::N 0
; (ASH (CHIPZ::BZIP2-STATE-BITS CHIPZ::STATE)
; (THE (INTEGER -31 0)
; (- CHIPZ::N
; (CHIPZ::BZIP2-STATE-N-BITS CHIPZ::STATE)))))
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (LOOP CHIPZ::WITH CHIPZ::N-GROUPS = (CHIPZ::BZIP2-STATE-N-GROUPS
; CHIPZ::STATE)
; CHIPZ::WITH CHIPZ::LEN = (CHIPZ::BZIP2-STATE-LEN CHIPZ::STATE)
; CHIPZ::FOR CHIPZ::X CHIPZ::FROM ...)
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (MAX CHIPZ::MAXLEN CHIPZ::XY)
; --> LET LET IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET LET IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * 255.0d0) (SINGLE-FLOAT * 255.0)
; (RATIONAL * 255)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MIN CHIPZ::MINLEN CHIPZ::XY)
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0)
; (RATIONAL 0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE))
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; (>= (INCF (CHIPZ::BZIP2-STATE-GROUP-NUMBER CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE))
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (MAKE-ARRAY CHIPZ::+BZ-N-GROUPS+ :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; --> TRULY-THE
; ==>
; (SB-KERNEL:ALLOCATE-VECTOR 146 (THE SB-INT:INDEX 6) 2)
;
; note: could not stack allocate:
; (MAKE-ARRAY +BZ-N-GROUPS+ :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; (< CHIPZ::N-BITS CHIPZ::N)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF CHIPZ::N-BITS 8)
; --> SETQ THE
; ==>
; (+ 8 CHIPZ::N-BITS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 8) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 8) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (LET ((CHIPZ::HEADER-FIELD (CHIPZ::ENSURE-AND-READ-BITS 32 CHIPZ::STATE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) CHIPZ::HEADER-FIELD))
; (UNLESS
; (AND (= (LDB # CHIPZ::HEADER-FIELD) CHIPZ::+BZ-HEADER-B+)
; (= (LDB # CHIPZ::HEADER-FIELD) CHIPZ::+BZ-HEADER-Z+)
; (= (LDB # CHIPZ::HEADER-FIELD) CHIPZ::+BZ-HEADER-H+))
; (ERROR 'CHIPZ::INVALID-BZIP2-MAGIC))
; (LET ((CHIPZ::BLOCK-SIZE-MAGIC-BYTE (LDB # CHIPZ::HEADER-FIELD)))
; (UNLESS
; (<= (+ CHIPZ::+BZ-HEADER-0+ 1) CHIPZ::BLOCK-SIZE-MAGIC-BYTE
; (+ CHIPZ::+BZ-HEADER-0+ 9))
; (ERROR 'CHIPZ::INVALID-BZIP2-MAGIC))
; (SETF (CHIPZ::BZIP2-STATE-100K-BLOCK-SIZE CHIPZ::STATE)
; (- CHIPZ::BLOCK-SIZE-MAGIC-BYTE CHIPZ::+BZ-HEADER-0+))
; (SETF (CHIPZ::BZIP2-STATE-TT CHIPZ::STATE)
; (MAKE-ARRAY # :ELEMENT-TYPE '#))
; (CHIPZ::TRANSITION-TO CHIPZ::BZIP2-BLOCK-HEADER1)))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF OR LET IF TYPEP LET
; --> SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)
; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE))
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (LOOP CHIPZ::WITH CHIPZ::N-GROUPS = (CHIPZ::BZIP2-STATE-N-GROUPS
; CHIPZ::STATE)
; CHIPZ::WITH CHIPZ::LEN = (CHIPZ::BZIP2-STATE-LEN CHIPZ::STATE)
; CHIPZ::FOR CHIPZ::X CHIPZ::FROM ...)
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (MAX CHIPZ::MAXLEN CHIPZ::XY)
; --> LET LET IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (MIN CHIPZ::MINLEN CHIPZ::XY)
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 22))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (ASH CHIPZ::CRC32-HI 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST
; T).
; etc.
; (LOGIOR (ASH CHIPZ::CRC32-HI 16) CHIPZ::CRC32-LO)
;
; 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 second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; (SETF (CHIPZ::BZIP2-STATE-STORED-BLOCK-CRC CHIPZ::STATE)
; (LOGIOR (ASH CHIPZ::CRC32-HI 16) CHIPZ::CRC32-LO))
; --> SB-KERNEL:%RAW-INSTANCE-SET/WORD SB-KERNEL:THE* MULTIPLE-VALUE-BIND LET
; --> UNLESS IF OR LET IF TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE
; --> <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (<= 0 CHIPZ::ORIGINAL-POINTER
; (+ 10
; (* (CHIPZ::BZIP2-STATE-100K-BLOCK-SIZE CHIPZ::STATE) CHIPZ::+100K+)))
; -->
; --> (LAMBDA (#:G7 #:G6 #:G5) (DECLARE (TYPE REAL #:G7 #:G6 #:G5)) (IF (<= #:G7 #:G6) (IF (<= #:G6 #:G5) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (LOGBITP (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) CHIPZ::IN-USE-16)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY AND THE >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> IF >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; etc.
; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (<= 2 CHIPZ::N-GROUPS 6)
; -->
; --> (LAMBDA (#:G14 #:G13 #:G12) (DECLARE (TYPE REAL #:G14 #:G13 #:G12)) (IF (<= #:G14 #:G13) (IF (<= #:G13 #:G12) T NIL) NIL))
; --> SB-C::%FUNCALL IF <= >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; etc.
; -->
; --> (LAMBDA (#:G14 #:G13 #:G12) (DECLARE (TYPE REAL #:G14 #:G13 #:G12)) (IF (<= #:G14 #:G13) (IF (<= #:G13 #:G12) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (INTEGER 2), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (INTEGER 2), not a FIXNUM.
; etc.
; (PLUSP CHIPZ::N-SELECTORS)
; ==>
; (> CHIPZ::N-SELECTORS 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; etc.
; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE))
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE))
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (DOTIMES (CHIPZ::I CHIPZ::N-GROUPS)
; (SETF (AREF CHIPZ::POS CHIPZ::I) CHIPZ::I))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (DOTIMES (CHIPZ::I CHIPZ::N-SELECTORS)
; (LET* ((CHIPZ::V (AREF CHIPZ::SELECTOR-MTF CHIPZ::I))
; (CHIPZ::TMP (AREF CHIPZ::POS CHIPZ::V)))
; (LOOP CHIPZ::UNTIL (ZEROP CHIPZ::V)
; DO (SETF # #) (DECF CHIPZ::V))
; (SETF (AREF CHIPZ::POS 0) CHIPZ::TMP)
; (SETF (AREF CHIPZ::SELECTOR-TABLE CHIPZ::I) CHIPZ::TMP)))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (SETF (CHIPZ::BZIP2-STATE-STORED-COMBINED-CRC CHIPZ::STATE)
; (CHIPZ::ENSURE-AND-READ-BITS 8 CHIPZ::STATE))
; --> SB-KERNEL:%RAW-INSTANCE-SET/WORD SB-KERNEL:THE* MULTIPLE-VALUE-BIND LET
; --> UNLESS IF OR LET IF TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE
; --> <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LOGIOR (ASH (CHIPZ::BZIP2-STATE-STORED-COMBINED-CRC CHIPZ::STATE) 8) BYTE)
; ==>
; (LOGAND 'SB-C::DUMMY 4294967295)
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF
; (AREF (CHIPZ::BZIP2-STATE-UNZFTAB CHIPZ::STATE)
; (AREF (CHIPZ::BZIP2-STATE-SEQ-TO-UNSEQ CHIPZ::STATE) CHIPZ::UC)))
; --> LET*
; ==>
; (+ 1 (AREF #:G78 #:G79))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 4294967296) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 4294967296) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF
; --> OR LET IF LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (INTEGER 1 4294967296), not a (UNSIGNED-BYTE 32).
; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE))
; --> < IF
; ==>
; (< (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)
; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE))
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF (AREF CHIPZ::CFTAB CHIPZ::I) (AREF CHIPZ::CFTAB (1- CHIPZ::I)))
; --> LET*
; ==>
; (+ (AREF CHIPZ::CFTAB (1- CHIPZ::I)) (AREF #:CFTAB84 #:I85))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 8589934591) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The result is a (VALUES (MOD 8589934591) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; etc.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF
; --> OR LET IF LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE))
; --> LET*
; ==>
; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 27))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (INCF (AREF CHIPZ::CFTAB CHIPZ::UC))
; --> LET*
; ==>
; (+ 1 (AREF #:CFTAB92 #:UC93))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 4294967296) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 4294967296) . #2#), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF
; --> OR LET IF LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (INTEGER 1 4294967296), not a (UNSIGNED-BYTE 32).
; (INCF (AREF (CHIPZ::BZIP2-STATE-UNZFTAB CHIPZ::STATE) CHIPZ::UC)
; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)))
; --> LET*
; ==>
; (+ (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)) (AREF #:G53 #:UC54))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870911 4831838206) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (INTEGER -536870911 4831838206) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST
; T).
; etc.
; (>= (INCF (CHIPZ::BZIP2-STATE-GROUP-NUMBER CHIPZ::STATE))
; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE))
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (- CHIPZ::ZVEC (AREF CHIPZ::G-BASE CHIPZ::ZN))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -4294967295 1048576) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST
; T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The result is a (VALUES (INTEGER -4294967295 1048576) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST
; T).
; etc.
; (< CHIPZ::INDEX 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (INTEGER -4294967295 1048576), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (INTEGER -4294967295 1048576), not a FIXNUM.
; etc.
; (LOGIOR (ASH (CHIPZ::BZIP2-STATE-ZVEC CHIPZ::STATE) 1) CHIPZ::ZJ)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (SIGNED-BYTE 32)
; &REST T).
; etc.
; (ERROR 'CHIPZ::CHECKSUM-MISMATCH :STORED
; (CHIPZ::BZIP2-STATE-STORED-COMBINED-CRC CHIPZ::STATE) :COMPUTED
; (CHIPZ::BZIP2-STATE-CALCULATED-COMBINED-CRC CHIPZ::STATE) :KIND :CRC32)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (ERROR 'CHIPZ::CHECKSUM-MISMATCH :STORED CHIPZ::STORED :COMPUTED
; CHIPZ::CALCULATED :KIND :CRC32)
; ==>
; CHIPZ::CALCULATED
;
; note: doing unsigned word to integer coercion (cost 20) from CALCULATED
;
; note: doing unsigned word to integer coercion (cost 20)
; (INCF (AREF CHIPZ::CFTAB CHIPZ::I) (AREF CHIPZ::CFTAB (1- CHIPZ::I)))
; --> LET*
; ==>
; (+ (AREF CHIPZ::CFTAB (1- CHIPZ::I)) (AREF #:CFTAB84 #:I85))
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (AREF CHIPZ::CFTAB CHIPZ::UC)
; ==>
; (SB-KERNEL:DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION ARRAY 0)
; SB-INT:INDEX))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of DATA-VECTOR-REF/SIMPLE-ARRAY-UNSIGNED-BYTE-32
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of DATA-VECTOR-REF/SIMPLE-ARRAY-UNSIGNED-BYTE-32
; (INCF (AREF CHIPZ::CFTAB CHIPZ::UC))
; --> LET*
; ==>
; (+ 1 (AREF #:CFTAB92 #:UC93))
;
; note: doing unsigned word to integer coercion (cost 20)
; (INCF
; (AREF (CHIPZ::BZIP2-STATE-UNZFTAB CHIPZ::STATE)
; (AREF (CHIPZ::BZIP2-STATE-SEQ-TO-UNSEQ CHIPZ::STATE) CHIPZ::UC)))
; --> LET*
; ==>
; (+ 1 (AREF #:G78 #:G79))
;
; note: doing unsigned word to integer coercion (cost 20)
; (- CHIPZ::ZVEC (AREF CHIPZ::G-BASE CHIPZ::ZN))
;
; note: doing unsigned word to integer coercion (cost 20)
; (AREF (CHIPZ::BZIP2-STATE-G-PERM CHIPZ::STATE) CHIPZ::INDEX)
; ==>
; (SB-KERNEL:DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION ARRAY 0)
; SB-INT:INDEX))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of DATA-VECTOR-REF/SIMPLE-ARRAY-UNSIGNED-BYTE-32
; (INCF (AREF (CHIPZ::BZIP2-STATE-UNZFTAB CHIPZ::STATE) CHIPZ::UC)
; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)))
; --> LET*
; ==>
; (+ (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)) (AREF #:G53 #:UC54))
;
; note: doing unsigned word to integer coercion (cost 20)
; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)
; (CHIPZ::BZIP2-STATE-N CHIPZ::STATE))
; --> LET*
; ==>
; (+ (CHIPZ::BZIP2-STATE-N CHIPZ::STATE)
; (SB-KERNEL:THE* (FIXNUM :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ)
; 60)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (* (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) 2)
; ==>
; (ASH SB-C::X 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline ASH
; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)
; (* (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) 2))
; --> LET*
; ==>
; (+ (* (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) 2)
; (SB-KERNEL:THE* (FIXNUM :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ)
; 60)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (LDB (BYTE CHIPZ::N 0)
; (ASH (CHIPZ::BZIP2-STATE-BITS CHIPZ::STATE)
; (THE (INTEGER -31 0)
; (- CHIPZ::N (CHIPZ::BZIP2-STATE-N-BITS CHIPZ::STATE)))))
; ==>
; (SB-KERNEL:%LDB CHIPZ::N 0
; (ASH (CHIPZ::BZIP2-STATE-BITS CHIPZ::STATE)
; (THE (INTEGER -31 0)
; (- CHIPZ::N
; (CHIPZ::BZIP2-STATE-N-BITS CHIPZ::STATE)))))
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFUN %BZIP2-DECOMPRESS ...)
; processing (DEFUN MAKE-BZIP2-STATE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/bzip2-tmpA5BYRD0R.fasl
; compilation finished in 0:00:06.213
; compiling file "/usr/share/common-lisp/source/chipz/decompress.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFGENERIC DECOMPRESS ...)
; processing (DEFUN %DECOMPRESS ...)
; processing (DEFUN MAYBE-SUBSEQ ...)
; processing (DEFUN DECOMPRESS-FUN-FOR-STATE ...)
; processing (DEFUN %DECOMPRESS-FROM-PATHNAME ...)
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFUN %DECOMPRESS/NULL-VECTOR ...)
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFUN %DECOMPRESS/NULL-STREAM ...)
; file: /usr/share/common-lisp/source/chipz/decompress.lisp
; in: DEFUN %DECOMPRESS/NULL-STREAM
; (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; --> TRULY-THE
; ==>
; (SB-KERNEL:ALLOCATE-VECTOR 146 (THE SB-INT:INDEX 8192) 2048)
;
; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFUN %DECOMPRESS/VECTOR-VECTOR ...)
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFUN %DECOMPRESS/STREAM-VECTOR ...)
; file: /usr/share/common-lisp/source/chipz/decompress.lisp
; in: DEFUN %DECOMPRESS/STREAM-VECTOR
; (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; --> TRULY-THE
; ==>
; (SB-KERNEL:ALLOCATE-VECTOR 146 (THE SB-INT:INDEX 8192) 2048)
;
; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; processing (DEFMETHOD DECOMPRESS ...)
; processing (DEFUN %DECOMPRESS/STREAM-STREAM ...)
; file: /usr/share/common-lisp/source/chipz/decompress.lisp
; in: DEFUN %DECOMPRESS/STREAM-STREAM
; (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; --> TRULY-THE
; ==>
; (SB-KERNEL:ALLOCATE-VECTOR 146 (THE SB-INT:INDEX 8192) 2048)
;
; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
;
; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; processing (DEFMETHOD DECOMPRESS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/decompress-tmpSWKL11PK.fasl
; compilation finished in 0:00:01.096
; compiling file "/usr/share/common-lisp/source/chipz/stream.lisp" (written 21 JAN 2019 01:34:02 PM):
; processing (IN-PACKAGE :CHIPZ)
; processing (DEFVAR *BINARY-INPUT-STREAM-CLASS* ...)
; processing (DEFVAR *STREAM-READ-BYTE-FUNCTION* ...)
; processing (DEFVAR *STREAM-READ-SEQUENCE-FUNCTION* ...)
; processing (DEFMACRO DEFINE-STREAM-READ-SEQUENCE ...)
; processing (DEFCLASS DECOMPRESSING-STREAM ...)
; processing (DEFUN MAKE-DECOMPRESSING-STREAM ...)
; processing (DEFUN OUTPUT-AVAILABLE-P ...)
; processing (DEFUN INPUT-AVAILABLE-P ...)
; processing (DEFUN REFILL-STREAM-INPUT-BUFFER ...)
; processing (DEFUN REFILL-STREAM-OUTPUT-BUFFER ...)
; processing (DEFUN READ-AND-DECOMPRESS-BYTE ...)
; processing (DEFUN COPY-EXISTING-OUTPUT ...)
; processing (DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ...)
; file: /usr/share/common-lisp/source/chipz/stream.lisp
; in: DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM
; (CALL-NEXT-METHOD)
;
; note: deleting unreachable code
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chipz/stream-tmpO84FEKS4.fasl
; compilation finished in 0:00:00.508
; compiling file "/usr/share/common-lisp/source/qmynd/src/pkgdcl.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QMYND ...)
; processing (DEFPACKAGE QMYND-IMPL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/pkgdcl-tmpVAGRUKQ.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/charsets.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFCONSTANT +MYSQL-CS-COLL-BIG5-CHINESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN2-CZECH-CS+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-DEC8-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP850-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-GERMAN1-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-HP8-ENGLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-KOI8R-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN2-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-SWE7-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-ASCII-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UJIS-JAPANESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-SJIS-JAPANESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1251-BULGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-DANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-HEBREW-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-WIN1251+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-TIS620-THAI-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-EUCKR-KOREAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN7-ESTONIAN-CS+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN2-HUNGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-KOI8U-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1251-UKRAINIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GB2312-CHINESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GREEK-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1250-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN2-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GBK-CHINESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1257-LITHUANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN5-TURKISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-GERMAN2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-ARMSCII8-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1250-CZECH-CS+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP866-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-KEYBCS2-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-MACCE-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-MACROMAN-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP852-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN7-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN7-GENERAL-CS+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-MACCE-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1250-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-GENERAL-CS+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1251-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1251-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1251-GENERAL-CS+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-MACROMAN-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16LE-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1256-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1257-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1257-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16LE-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-ARMSCII8-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-ASCII-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1250-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1256-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP866-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-DEC8-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GREEK-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-HEBREW-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-HP8-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-KEYBCS2-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-KOI8R-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-KOI8U-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN2-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN5-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN7-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP850-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP852-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-SWE7-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-BIG5-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-EUCKR-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GB2312-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GBK-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-SJIS-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-TIS620-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UJIS-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GEOSTD8-GENERAL-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-GEOSTD8-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-LATIN1-SPANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP932-JAPANESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP932-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-EUCJPMS-JAPANESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-EUCJPMS-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-CP1250-POLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-UNICODE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-ICELANDIC-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-LATVIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-ROMANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-SLOVENIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-POLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-ESTONIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-SPANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-TURKISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-CZECH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-DANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-LITHUANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-SLOVAK-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-SPANISH2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-ROMAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-PERSIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-ESPERANTO-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-HUNGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-SINHALA-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-GERMAN2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-UNICODE-520-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF16-VIETNAMESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-UNICODE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-ICELANDIC-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-LATVIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-ROMANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-SLOVENIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-POLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-ESTONIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-SPANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-TURKISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-CZECH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-DANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-LITHUANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-SLOVAK-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-SPANISH2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-ROMAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-PERSIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-ESPERANTO-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-HUNGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-SINHALA-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-GERMAN2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-UNICODE-520-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-VIETNAMESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UCS2-GENERAL-MYSQL500-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-UNICODE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-ICELANDIC-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-LATVIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-ROMANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-SLOVENIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-POLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-ESTONIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-SPANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-TURKISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-CZECH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-DANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-LITHUANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-SLOVAK-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-SPANISH2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-ROMAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-PERSIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-ESPERANTO-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-HUNGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-SINHALA-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-GERMAN2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-UNICODE-520-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF32-VIETNAMESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-UNICODE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-ICELANDIC-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-LATVIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-ROMANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-SLOVENIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-POLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-ESTONIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-SPANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-TURKISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-CZECH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-DANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-LITHUANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-SLOVAK-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-SPANISH2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-ROMAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-PERSIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-ESPERANTO-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-HUNGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-SINHALA-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-GERMAN2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-UNICODE-520-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-VIETNAMESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8-GENERAL-MYSQL500-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-UNICODE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-ICELANDIC-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-LATVIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-ROMANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-SLOVENIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-POLISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-ESTONIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-SPANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-SWEDISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-TURKISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-CZECH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-DANISH-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-LITHUANIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-SLOVAK-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-SPANISH2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-ROMAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-PERSIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-ESPERANTO-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-HUNGARIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-SINHALA-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-GERMAN2-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-CROATIAN-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-UNICODE-520-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB4-VIETNAMESE-CI+ ...)
; processing (DEFCONSTANT +MYSQL-CS-COLL-UTF8MB3-GENERAL-CS+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/charsets-tmpGGRS86U4.fasl
; compilation finished in 0:00:00.100
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/constants.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFCONSTANT +MYSQL-COMMAND-SLEEP+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-QUIT+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-INITIALIZE-DATABASE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-QUERY+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-FIELD-LIST+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-CREATE-DATABASE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-DROP-DATABASE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-REFRESH+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-SHUTDOWN+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATISTICS+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-PROCESS-INFORMATION+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-CONNECT+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-PROCESS-KILL+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-DEBUG+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-PING+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-TIME+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-DELAYED-INSERT+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-CHANGE-USER+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-DAEMON+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATEMENT-PREPARE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATEMENT-EXECUTE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATEMENT-SEND-LONG-DATA+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATEMENT-CLOSE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATEMENT-RESET+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-SET-OPTION+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-STATEMENT-FETCH+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-BINARY-LOG-DUMP+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-TABLE-DUMP+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-CONNECT-OUT+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-REGISTER-SLAVE+ ...)
; processing (DEFCONSTANT +MYSQL-COMMAND-BINARY-LOG-DUMP-GTID+ ...)
; processing (DEFCONSTANT +MYSQL-RESPONSE-OK+ ...)
; processing (DEFCONSTANT +MYSQL-RESPONSE-END-OF-FILE+ ...)
; processing (DEFCONSTANT +MYSQL-RESPONSE-ERROR+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-DEFAULT+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-WAIT-CONNECTIONS+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-WAIT-TRANSACTIONS+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-WAIT-UPDATES+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-WAIT-ALL-BUFFERS+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-WAIT-CRITICAL-BUFFERS+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-KILL-QUERY+ ...)
; processing (DEFCONSTANT +MYSQL-SHUTDOWN-KILL-CONNECTION+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-LONG-PASSWORD+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-FOUND-ROWS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-LONG-FLAG+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-CONNECT-WITH-DB+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-NO-SCHEMA+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-COMPRESS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-ODBC+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-LOCAL-FILES+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-IGNORE-SPACE+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-PROTOCOL-41+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-INTERACTIVE+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-SSL+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-IGNORE-SIGPIPE+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-TRANSACTIONS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-RESERVED+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-SECURE-CONNECTION+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-MULTI-STATEMENTS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-MULTI-RESULTS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-PS-MULTI-RESULTS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-PLUGIN-AUTH+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-CONNECT-ATTRS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-PLUGIN-AUTH-LENEC-CLIENT-DATA+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-VERIFY-SERVER-CERT+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITY-CLIENT-REMEMBER-OPTIONS+ ...)
; processing (DEFCONSTANT +MYSQL-CAPABILITIES-REQUIRED+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-IN-TRANSACTION+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-AUTOCOMMIT+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-MORE-RESULTS-EXIST+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-NO-GOOD-INDEX-USED+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-NO-INDEX-USED+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-CURSOR-EXISTS+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-SERVER-STATUS-LAST-ROW-SENT+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-DATABASE-DROPPED+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-NO-BACKSLASH-ESCAPES+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-STATUS-METADATA-CHANGED+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-QUERY-WAS-SLOW+ ...)
; processing (DEFCONSTANT +MYSQL-SERVER-PS-OUT-PARAMS+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-DECIMAL+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-TINY+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-SHORT+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-LONG+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-FLOAT+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-DOUBLE+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-NULL+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-TIMESTAMP+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-LONGLONG+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-INT24+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-DATE+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-TIME+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-DATETIME+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-YEAR+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-NEWDATE+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-VARCHAR+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-BIT+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-NEWDECIMAL+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-ENUM+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-SET+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-TINY-BLOB+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-MEDIUM-BLOB+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-LONG-BLOB+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-BLOB+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-VAR-STRING+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-STRING+ ...)
; processing (DEFCONSTANT +MYSQL-TYPE-GEOMETRY+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-NON-NULLABLE+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-PRIMARY-KEY+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-UNIQUE-KEY+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-MULTIPLE-KEY+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-BLOB+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-UNSIGNED+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-ZERO-FILL+ ...)
; processing (DEFCONSTANT +MYSQL-FLAG-COLUMN-BINARY+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-GRANT+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-LOG+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-TABLES+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-HOSTS+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-STATUS+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-THREADS+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-SLAVE+ ...)
; processing (DEFCONSTANT +MYSQL-REFRESH-MASTER+ ...)
; processing (DEFCONSTANT +SECONDS-PER-MINUTE+ ...)
; processing (DEFCONSTANT +MINUTES-PER-HOUR+ ...)
; processing (DEFCONSTANT +HOURS-PER-DAY+ ...)
; processing (DEFCONSTANT +MYSQL-MINIMUM-COMPRESSION-LENGTH+ ...)
; processing (DEFUN MYSQL-CAPABILITIES-SUPPORTED ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/constants-tmp9NR3MC9G.fasl
; compilation finished in 0:00:00.070
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/conditions.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFINE-CONDITION MYSQL-BASE-ERROR ...)
; processing (DEFINE-CONDITION MYSQL-INTERNAL-ERROR ...)
; processing (DEFINE-CONDITION MYSQL-EXTERNAL-ERROR ...)
; processing (DEFINE-CONDITION BAD-MYSQL-TYPE-SPEC ...)
; processing (DEFINE-CONDITION INVALID-LENGTH-ENCODED-INTEGER ...)
; processing (DEFINE-CONDITION UNEXPECTED-SEQUENCE-ID ...)
; processing (DEFINE-CONDITION MYSQL-ERROR ...)
; processing (DEFINE-CONDITION SSL-NOT-SUPPORTED ...)
; processing (DEFINE-CONDITION INVALID-PREPARED-STATEMENT ...)
; processing (DEFINE-CONDITION UNEXPECTED-PARAMETER-COUNT ...)
; processing (DEFINE-CONDITION MYSQL-INSUFFICIENT-CAPABILITIES ...)
; processing (DEFINE-CONDITION MYSQL-UNSUPPORTED-AUTHENTICATION ...)
; processing (DEFINE-CONDITION UNEXPECTED-PACKET ...)
; processing (DEFINE-CONDITION VALUE-IS-NOT-DECIMAL ...)
; processing (DEFINE-CONDITION PROTOCOL-VERSION-MISMATCH ...)
; processing (DEFINE-CONDITION PARTIAL-READ ...)
; processing (DEFINE-CONDITION DECODING-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/conditions-tmpRNNDBNVK.fasl
; compilation finished in 0:00:00.136
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/feature-detection.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN HAVE-SSL ...)
; processing (DEFUN HAVE-COMPRESSION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/feature-detection-tmpAYN2NK16.fasl
; compilation finished in 0:00:00.030
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/utilities.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFPARAMETER +OPTIMIZE-DEFAULT+ ...)
; processing (DEFPARAMETER +OPTIMIZE-FAST-UNSAFE+ ...)
; processing (DEFMACRO I+ ...)
; processing (DEFMACRO I- ...)
; processing (DEFMACRO I* ...)
; processing (DEFMACRO I= ...)
; processing (DEFMACRO I< ...)
; processing (DEFMACRO I<= ...)
; processing (DEFMACRO I> ...)
; processing (DEFMACRO I>= ...)
; processing (DEFMACRO IASH ...)
; processing (DEFMACRO ILOGIOR ...)
; processing (DEFMACRO ILOGAND ...)
; processing (DEFINE-MODIFY-MACRO IINCF ...)
; processing (DEFINE-MODIFY-MACRO IDECF ...)
; processing (DEFMACRO ILDB ...)
; processing (DEFMACRO WITH-GENSYMS ...)
; processing (DEFUN MAKE-LISP-SYMBOL ...)
; processing (DEFUN FINTERN ...)
; processing (DEFUN KINTERN ...)
; processing (DEFUN KEYWORDIFY ...)
; processing (DEFMACRO WITH-PREFIXED-ACCESSORS ...)
; processing (DEFUN CURRY ...)
; processing (DEFINE-COMPILER-MACRO CURRY ...)
; processing (DEFUN PARSE-DECIMAL ...)
; processing (DEFUN %DENOMINATOR-DIVISIBLE-BY-2-OR-5-ONLY ...)
; processing (DEFUN WRITE-DECIMAL-TO-STRING ...)
; processing (DEFUN SINGLE-FLOAT-BITS ...)
; processing (DEFUN DOUBLE-FLOAT-BITS ...)
; processing (DEFUN MAKE-SINGLE-FLOAT ...)
; processing (DEFUN MAKE-DOUBLE-FLOAT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/utilities-tmpRHDQXMUX.fasl
; compilation finished in 0:00:01.001
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/date-time.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFCLASS MYSQL-DATE-TIME ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MYSQL-DATE-TIME-TO-UNIVERSAL-TIME ...)
; processing (DEFUN UNIVERSAL-TIME-TO-MYSQL-DATE-TIME ...)
; processing (DEFUN PARSE-DATE-TIME-STRING ...)
; processing (DEFCLASS MYSQL-TIME-INTERVAL ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MYSQL-TIME-INTERVAL-TO-SECONDS ...)
; processing (DEFUN SECONDS-TO-MYSQL-TIME-INTERVAL ...)
; processing (DEFUN PARSE-TIME-INTERVAL-STRING ...)
; processing (DEFCLASS MYSQL-YEAR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/date-time-tmpJ1X9UQ6V.fasl
; compilation finished in 0:00:00.319
; compiling file "/usr/share/common-lisp/source/qmynd/src/common/misc.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN MYSQL-CS-COLL-TO-CHARACTER-ENCODING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/common/misc-tmpM0YHRI32.fasl
; compilation finished in 0:00:00.505
; compiling file "/usr/share/common-lisp/source/qmynd/src/wire-protocol/wire-packet.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFCONSTANT +MAX-PACKET-LENGTH+ ...)
; processing (DEFVAR *MAX-ALLOWED-PACKETS* ...)
; processing (DEFSTRUCT (MY-PACKET-STREAM #) ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN READ-WIRE-PACKET ...)
; processing (DECLAIM (INLINE %READ-3-OCTETS))
; processing (DEFUN %READ-3-OCTETS ...)
; processing (DEFUN PREPARE-NEXT-CHUNK ...)
; processing (DECLAIM (INLINE MAYBE-READ-NEXT-CHUNK))
; processing (DEFUN MAYBE-READ-NEXT-CHUNK ...)
; processing (DEFUN READ-MY-OCTET ...)
; processing (DEFUN PEEK-FIRST-OCTET ...)
; processing (DEFUN READ-MY-SEQUENCE ...)
; processing (DEFUN CONCATENATE-VECTORS ...)
; processing (DEFUN READ-WHOLE-CHUNK ...)
; processing (DEFUN READ-REST-OF-PACKET-OCTETS ...)
; processing (DEFUN WRITE-WIRE-PACKET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/wire-protocol/wire-packet-tmp9CSWMZSA.fasl
; compilation finished in 0:00:00.851
; compiling file "/usr/share/common-lisp/source/qmynd/src/wire-protocol/basic-types.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFINE-COMPILER-MACRO READ-FIXED-LENGTH-INTEGER ...)
; processing (DEFUN READ-FIXED-LENGTH-INTEGER ...)
; processing (DECLAIM (INLINE UNSIGNED-TO-SIGNED ...))
; processing (DEFUN UNSIGNED-TO-SIGNED ...)
; processing (DEFUN READ-1-OCTET-INTEGER ...)
; processing (DEFUN READ-2-OCTETS-INTEGER ...)
; processing (DEFUN READ-3-OCTETS-INTEGER ...)
; processing (DEFUN READ-4-OCTETS-INTEGER ...)
; processing (DEFUN READ-6-OCTETS-INTEGER ...)
; processing (DEFUN READ-8-OCTETS-INTEGER ...)
; processing (DEFUN READ-10-OCTETS-INTEGER ...)
; processing (DEFUN WRITE-FIXED-LENGTH-INTEGER ...)
; processing (DEFUN READ-LENGTH-ENCODED-INTEGER ...)
; processing (DEFUN WRITE-LENGTH-ENCODED-INTEGER ...)
; processing (DEFUN READ-FIXED-LENGTH-OCTETS ...)
; processing (DEFUN READ-NULL-TERMINATED-OCTETS ...)
; processing (DEFUN WRITE-NULL-TERMINATED-OCTETS ...)
; processing (DEFUN READ-LENGTH-ENCODED-OCTETS ...)
; processing (DEFUN WRITE-LENGTH-ENCODED-OCTETS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/wire-protocol/basic-types-tmpNQB806HM.fasl
; compilation finished in 0:00:00.914
; compiling file "/usr/share/common-lisp/source/qmynd/src/wire-protocol/compressed-protocol.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN READ-COMPRESSED-WIRE-PACKET ...)
; processing (DEFUN WRITE-COMPRESSED-WIRE-PACKET ...)
; processing (DEFCLASS MYSQL-COMPRESSED-STREAM ...)
; processing (DEFUN FILL-INPUT-BUFFER ...)
; processing (DEFMETHOD SB-GRAY:STREAM-LISTEN ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFMETHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-FORCE-OUTPUT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/wire-protocol/compressed-protocol-tmpUQXQTJZV.fasl
; compilation finished in 0:00:00.524
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/define-packet.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFCLASS PACKET-SLOT ...)
; processing (DEFUN PARSE-SLOT ...)
; processing (DEFUN EMIT-PACKET-SLOT-LISP-TYPE ...)
; processing (DEFUN EMIT-PACKET-STRUCT ...)
; processing (DEFUN EMIT-PACKET-PARSER-SLOT-READER ...)
; processing (DEFUN EMIT-PACKET-PARSER-SLOT ...)
; processing (DEFUN EMIT-PACKET-PARSER ...)
; processing (DEFMACRO DEFINE-PACKET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/define-packet-tmp7D4I88HT.fasl
; compilation finished in 0:00:00.387
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/connection.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFVAR *MYSQL-CONNECTION* ...)
; processing (DEFVAR *MYSQL-ENCODING* ...)
; processing (DEFMACRO WITH-MYSQL-CONNECTION ...)
; processing (DEFCLASS MYSQL-BASE-CONNECTION ...)
; processing (DEFGENERIC MYSQL-CONNECTION-CLOSE-SOCKET ...)
; processing (DEFCLASS MYSQL-INET-CONNECTION ...)
; processing (DEFMETHOD MYSQL-CONNECTION-CLOSE-SOCKET ...)
; processing (DEFCLASS MYSQL-LOCAL-CONNECTION ...)
; processing (DEFMETHOD MYSQL-CONNECTION-CLOSE-SOCKET ...)
; processing (DEFMETHOD MYSQL-CONNECTION-REMOVE-STALE-PREPARED-STATEMENTS ...)
; processing (DEFUN FLAGSP ...)
; processing (DEFMETHOD MYSQL-CONNECTION-HAS-STATUS ...)
; processing (DEFMETHOD MYSQL-CONNECTION-HAS-CAPABILITY ...)
; processing (DEFMETHOD MYSQL-CONNECTION-HAS-SOME-CAPABILITY ...)
; processing (DEFUN MYSQL-HAS-CAPABILITY ...)
; processing (DEFUN MYSQL-HAS-SOME-CAPABILITY ...)
; processing (DEFUN MYSQL-ADD-REQUIRED-CAPABILITY ...)
; processing (DEFMETHOD MYSQL-CONNECTION-WRITE-PACKET ...)
; processing (DEFMETHOD MYSQL-CONNECTION-READ-PACKET ...)
; processing (DEFMETHOD MYSQL-CONNECTION-COMMAND-INIT ...)
; processing (DEFUN MYSQL-COMMAND-INIT ...)
; processing (DEFUN MYSQL-CURRENT-COMMAND-P ...)
; processing (DEFUN MYSQL-WRITE-PACKET ...)
; processing (DEFUN MYSQL-READ-PACKET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/connection-tmpVT4X607J.fasl
; compilation finished in 0:00:00.410
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-packets.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFINE-PACKET RESPONSE-OK ...)
; processing (DEFINE-PACKET RESPONSE-ERROR-NO-SQL-STATE ...)
; processing (DEFINE-PACKET RESPONSE-ERROR ...)
; processing (DEFINE-PACKET RESPONSE-END-OF-FILE ...)
; processing (DEFUN PARSE-RESPONSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-packets-tmpV437I30X.fasl
; compilation finished in 0:00:01.221
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/authentication.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN MYSQL-WEAK-HASH-PASSWORD ...)
; processing (DEFSTRUCT MYSQL-RAND-ST ...)
; processing (DEFUN MYSQL-OLD-RANDOM-INIT ...)
; processing (DEFUN MY-RND ...)
; processing (DEFUN MYSQL-OLD-PASSWORD-AUTH-RESPONSE ...)
; processing (DEFUN MYSQL-NATIVE-PASSWORD-AUTH-RESPONSE ...)
; processing (DEFUN MYSQL-CLEAR-PASSWORD-AUTH-RESPONSE ...)
; processing (DEFUN GENERATE-AUTH-RESPONSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/authentication-tmpHFBOSDVZ.fasl
; compilation finished in 0:00:00.467
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/handshake.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFINE-PACKET INITIAL-HANDSHAKE-V10 ...)
; processing (DEFINE-PACKET AUTH-SWITCH-REQUEST ...)
; processing (DEFINE-PACKET OLD-AUTH-SWITCH-REQUEST ...)
; processing (DEFUN SEND-AUTH-SWITCH-RESPONSE ...)
; processing (DEFUN PROCESS-INITIAL-HANDSHAKE-V10 ...)
; processing (DEFUN SEND-SSL-REQUEST-PACKET ...)
; processing (DEFUN SEND-HANDSHAKE-RESPONSE-41 ...)
; processing (DEFUN PROCESS-INITIAL-HANDSHAKE-PAYLOAD ...)
; processing (DEFUN MYSQL-CONNECT-DO-HANDSHAKE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/handshake-tmp6RRH7R9U.fasl
; compilation finished in 0:00:01.341
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN PARSE-COLUMN-COUNT ...)
; processing (DEFINE-PACKET COLUMN-DEFINITION-V41 ...)
; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp
; in: DEFINE-PACKET COLUMN-DEFINITION-V41
; (QMYND-IMPL:DEFINE-PACKET QMYND-IMPL::COLUMN-DEFINITION-V41
; ((QMYND-IMPL::CATALOG :MYSQL-TYPE (STRING :LENENC))
; (QMYND-IMPL::SCHEMA :MYSQL-TYPE (STRING :LENENC))
; (QMYND-IMPL::TABLE :MYSQL-TYPE (STRING :LENENC))
; (QMYND-IMPL::ORG-TABLE :MYSQL-TYPE
; (STRING :LENENC))
; (QMYND-IMPL::NAME :MYSQL-TYPE (STRING :LENENC))
; (QMYND-IMPL::ORG-NAME :MYSQL-TYPE
; (STRING :LENENC))
; (QMYND-IMPL::LEN-FIXED-FIELDS :MYSQL-TYPE
; (INTEGER :LENENC) :VALUE 12 :TRANSIENT T :BIND
; NIL)
; (QMYND-IMPL::CS-COLL :MYSQL-TYPE (INTEGER 2))
; (QMYND-IMPL::COLUMN-LENGTH :MYSQL-TYPE
; (INTEGER 4))
; (TYPE :MYSQL-TYPE (INTEGER 1))
; (QMYND-IMPL::FLAGS :MYSQL-TYPE (INTEGER 2))
; (QMYND-IMPL::DECIMALS :MYSQL-TYPE (INTEGER 1))
; ...))
; --> PROGN EVAL-WHEN DEFSTRUCT PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET {54E5FCA9}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled calls to QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-SCHEMA,
; QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-TABLE,
; QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-NAME and
; QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-CS-COLL could not be inlined because
; the structure definition for QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET was not
; yet seen. To avoid this warning, DEFSTRUCT should precede references to the
; affected functions, or they must be declared locally notinline at each call
; site.
; processing (DEFUN COLUMN-DEFINITION-TYPE ...)
; processing (DEFUN COLUMN-DEFINITION-ENCODING ...)
; processing (DECLAIM (INLINE PARSE-TEXT-PROTOCOL-RESULT-COLUMN-AS-TEXT))
; processing (DEFUN PARSE-RESULTSET-ROW-AS-VECTOR ...)
; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp
; in: DEFUN PARSE-RESULTSET-ROW-AS-VECTOR
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT
; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...)
; --> BLOCK LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (< (QMYND-IMPL::MY-LEN STREAM) 9)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; processing (DEFUN PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ...)
; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp
; in: DEFUN PARSE-RESULTSET-ROW-AS-TEXT-VECTOR
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT
; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...)
; --> BLOCK LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (< (QMYND-IMPL::MY-LEN STREAM) 9)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (DEFUN QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR
; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS)
; (DECLARE (OPTIMIZE SPEED))
; (LET* ((STREAM (QMYND-IMPL:MYSQL-READ-PACKET))
; (QMYND-IMPL::TAG (QMYND-IMPL::PEEK-FIRST-OCTET STREAM))
; (QMYND-IMPL::ROW
; (MAKE-ARRAY QMYND-IMPL::COLUMN-COUNT :INITIAL-ELEMENT NIL)))
; (IF (OR (AND # #) (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+))
; (QMYND-IMPL:PARSE-RESPONSE STREAM)
; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT
; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...))))
; --> PROGN
; ==>
; (SB-IMPL::%DEFUN 'QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR
; (SB-INT:NAMED-LAMBDA QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR
; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE SPEED))
; (BLOCK QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR
; (LET* (# # #)
; (IF #
; #
; #)))))
;
; caught STYLE-WARNING:
; Call to QMYND-IMPL::PARSE-TEXT-PROTOCOL-RESULT-COLUMN-AS-TEXT could not be
; inlined because no definition for it was seen prior to its first use.
; processing (DEFUN PARSE-RESULTSET-ROW-AS-LIST ...)
; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp
; in: DEFUN PARSE-RESULTSET-ROW-AS-LIST
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT
; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...)
; --> BLOCK LET LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (< (QMYND-IMPL::MY-LEN STREAM) 9)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; processing (DEFUN PARSE-RESULTSET-ROW-AS-TEXT-LIST ...)
; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp
; in: DEFUN PARSE-RESULTSET-ROW-AS-TEXT-LIST
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT
; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...)
; --> BLOCK LET LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (< (QMYND-IMPL::MY-LEN STREAM) 9)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; processing (DECLAIM (INLINE PARSE-RESULTSET-ROW-AS-LIST ...))
; processing (DEFUN MAP-RESULTSET-ROWS ...)
; processing (DEFUN PARSE-RESULTSET-ROWS ...)
; processing (DEFUN DECODE-OCTETS-TO-STRING ...)
; processing (DEFUN PARSE-TEXT-PROTOCOL-RESULT-COLUMN-AS-TEXT ...)
; processing (DEFUN PARSE-TEXT-PROTOCOL-RESULT-COLUMN ...)
; processing (DEFUN PARSE-BINARY-RESULTSET-ROWS ...)
; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp
; in: DEFUN PARSE-BINARY-RESULTSET-ROWS
; (DEFUN QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS
; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS)
; (FLET ((QMYND-IMPL::PARSE-BINARY-RESULTSET-ROW ()
; (LET* #
; #)))
; (COERCE
; (LOOP QMYND-IMPL::FOR QMYND-IMPL::ROW = (QMYND-IMPL::PARSE-BINARY-RESULTSET-ROW) QMYND-IMPL::THEN (QMYND-IMPL::PARSE-BINARY-RESULTSET-ROW)
; QMYND-IMPL::UNTIL (TYPEP QMYND-IMPL::ROW
; 'QMYND-IMPL::RESPONSE-END-OF-FILE-PACKET)
; QMYND-IMPL::COLLECT QMYND-IMPL::ROW)
; 'VECTOR)))
; --> PROGN
; ==>
; (SB-IMPL::%DEFUN 'QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS
; (SB-INT:NAMED-LAMBDA QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS
; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS
; (FLET (#)
; (COERCE # 'VECTOR)))))
;
; caught STYLE-WARNING:
; Call to QMYND-IMPL::READ-FIXED-LENGTH-INTEGER could not be inlined because its
; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
; must be in effect to save function definitions for inlining.
; processing (DEFUN PARSE-BINARY-PROTOCOL-RESULT-COLUMN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set-tmpU99PNW2T.fasl
; compilation finished in 0:00:01.981
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "qmynd" "src" "mysql-protocol" "response-result-set">
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-quit.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-QUIT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-quit-tmpAEQPQNJL.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-initialize-database.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-INITIALIZE-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-initialize-database-tmpHJQRCQP0.fasl
; compilation finished in 0:00:00.026
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-query.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-query-tmp9LQLNC98.fasl
; compilation finished in 0:00:00.116
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-field-list.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-FIELD-LIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-field-list-tmp1TV8PTH0.fasl
; compilation finished in 0:00:00.055
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-refresh.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-REFRESH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-refresh-tmpVHV8BHDO.fasl
; compilation finished in 0:00:00.019
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-shutdown.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-SHUTDOWN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-shutdown-tmp51QS6XF7.fasl
; compilation finished in 0:00:00.037
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-statistics.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-STATISTICS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-statistics-tmpGSR8HZE.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-information.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-PROCESS-INFORMATION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-information-tmpPMCKWNTP.fasl
; compilation finished in 0:00:00.059
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-kill.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-PROCESS-KILL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-kill-tmpZLKGODJ7.fasl
; compilation finished in 0:00:00.019
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-debug.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-DEBUG ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-debug-tmpTQCNKHD2.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-ping.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-PING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-ping-tmpRXWUSWXI.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-change-user.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN SEND-COMMAND-CHANGE-USER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-change-user-tmpIUGH7AOX.fasl
; compilation finished in 0:00:00.119
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/binary-protocol-encoding.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN ENCODE-BINARY-PARAMETER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/binary-protocol-encoding-tmpE6T9Q6SZ.fasl
; compilation finished in 0:00:00.304
; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/prepared-statement.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFCLASS MYSQL-PREPARED-STATEMENT ...)
; processing (DEFINE-PACKET COMMAND-STATEMENT-PREPARE-OK ...)
; processing (DEFUN SEND-COMMAND-STATEMENT-PREPARE ...)
; processing (DEFUN SEND-COMMAND-STATEMENT-SEND-LONG-DATA ...)
; processing (DEFMETHOD SEND-COMMAND-STATEMENT-EXECUTE ...)
; processing (DEFMETHOD PARSE-COMMAND-STATEMENT-EXECUTE-RESPONSE ...)
; processing (DEFMETHOD SEND-COMMAND-STATEMENT-CLOSE ...)
; processing (DEFMETHOD SEND-COMMAND-STATEMENT-RESET ...)
; processing (ASDF-FINALIZERS:FINAL-FORMS)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/prepared-statement-tmpD44J8ZE7.fasl
; compilation finished in 0:00:00.711
; compiling file "/usr/share/common-lisp/source/qmynd/src/api.lisp" (written 22 JAN 2018 03:04:17 PM):
; processing (IN-PACKAGE :QMYND-IMPL)
; processing (DEFUN MYSQL-CONNECT ...)
; processing (DEFUN MYSQL-LOCAL-CONNECT ...)
; processing (DEFMETHOD MYSQL-DISCONNECT ...)
; processing (DEFUN MYSQL-QUERY ...)
; processing (DEFUN MYSQL-STATEMENT-PREPARE ...)
; processing (DEFMETHOD MYSQL-STATEMENT-EXECUTE ...)
; processing (DEFMETHOD MYSQL-STATEMENT-CLOSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/qmynd/src/api-tmp9PV4IHAW.fasl
; compilation finished in 0:00:00.358
; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL-PPCRE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/packages-tmpXG52EBQV.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...)
; processing (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...)
; processing (DEFVAR *EXTENDED-MODE-P* ...)
; processing (DECLAIM (BOOLEAN *EXTENDED-MODE-P*))
; processing (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...)
; processing (DECLAIM (FIXNUM *REGEX-CHAR-CODE-LIMIT*))
; processing (DEFVAR *STRING* ...)
; processing (DECLAIM (SIMPLE-STRING *STRING*))
; processing (DEFVAR *START-POS* ...)
; processing (DECLAIM (FIXNUM *START-POS*))
; processing (DEFVAR *REAL-START-POS* ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFVAR *END-POS* ...)
; processing (DECLAIM (FIXNUM *END-POS*))
; processing (DEFVAR *REG-STARTS* ...)
; processing (DECLAIM (SIMPLE-VECTOR *REG-STARTS*))
; processing (DEFVAR *REGS-MAYBE-START* ...)
; processing (DECLAIM (SIMPLE-VECTOR *REGS-MAYBE-START*))
; processing (DEFVAR *REG-ENDS* ...)
; processing (DECLAIM (SIMPLE-VECTOR *REG-ENDS*))
; processing (DEFVAR *END-STRING-POS* ...)
; processing (DEFVAR *REP-NUM* ...)
; processing (DECLAIM (FIXNUM *REP-NUM*))
; processing (DEFVAR *ZERO-LENGTH-NUM* ...)
; processing (DECLAIM (FIXNUM *ZERO-LENGTH-NUM*))
; processing (DEFVAR *REPEAT-COUNTERS* ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFVAR *LAST-POS-STORES* ...)
; processing (DECLAIM (SIMPLE-VECTOR *LAST-POS-STORES*))
; processing (DEFVAR *USE-BMH-MATCHERS* ...)
; processing (DEFVAR *OPTIMIZE-CHAR-CLASSES* ...)
; processing (DEFVAR *PROPERTY-RESOLVER* ...)
; processing (DEFVAR *ALLOW-QUOTING* ...)
; processing (DEFVAR *ALLOW-NAMED-REGISTERS* ...)
; processing (PUSHNEW :CL-PPCRE ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/specials-tmpR1W6QIC5.fasl
; compilation finished in 0:00:00.101
; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFMACRO DEFCONSTANT ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFMACRO WITH-REBINDING ...)
; processing (DECLAIM (INLINE DIGIT-CHAR-P))
; processing (DEFUN DIGIT-CHAR-P ...)
; processing (DECLAIM (INLINE WORD-CHAR-P))
; processing (DEFUN WORD-CHAR-P ...)
; processing (DEFCONSTANT +WHITESPACE-CHAR-STRING+ ...)
; processing (DEFUN WHITESPACEP ...)
; processing (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...)
; processing (DECLAIM (INLINE NSUBSEQ))
; processing (DEFUN NSUBSEQ ...)
; processing (DEFUN NORMALIZE-VAR-LIST ...)
; processing (DEFUN STRING-LIST-TO-SIMPLE-STRING ...)
; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp
; in: DEFUN STRING-LIST-TO-SIMPLE-STRING
; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a SIMPLE-BASE-STRING.
; (INCF CL-PPCRE::TOTAL-SIZE (LENGTH STRING))
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G21)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (INCF CL-PPCRE::CURR-POS (LENGTH STRING))
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G29)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFUN COMPLEMENT* ...)
; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp
; in: DEFUN COMPLEMENT*
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/util-tmp6RORHZZV.fasl
; compilation finished in 0:00:00.411
; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFVAR *SYNTAX-ERROR-STRING* ...)
; processing (DEFINE-CONDITION PPCRE-ERROR ...)
; processing (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...)
; processing (DEFMACRO SIGNAL-SYNTAX-ERROR* ...)
; processing (DEFMACRO SIGNAL-SYNTAX-ERROR ...)
; processing (DEFMACRO SIGNAL-INVOCATION-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/errors-tmpX327IYBG.fasl
; compilation finished in 0:00:00.132
; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFCONSTANT +PROBE-DEPTH+ ...)
; processing (DEFUN MAKE-CHAR-VECTOR ...)
; processing (DEFSTRUCT (CHARSET #) ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DECLAIM (INLINE MIX))
; processing (DEFUN MIX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp
; in: DEFUN MIX
; (+ CL-PPCRE::CODE CL-PPCRE::HASH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (LOGAND MOST-POSITIVE-FIXNUM (+ CL-PPCRE::CODE CL-PPCRE::HASH))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DECLAIM (INLINE COMPUTE-INDEX))
; processing (DEFUN COMPUTE-INDEX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp
; in: DEFUN COMPUTE-INDEX
; (LENGTH VECTOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
; ==>
; (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1)
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-536870907) (536870907)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a RATIONAL.
; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-536870907) (536870907)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (RATIONAL #1=(-536870907) #2=(536870907))
; DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL #3=(-536870908) #4=(1073741814)))
; . #5=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR (RATIONAL #1# #2#) DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (OR (INTEGER -1 -1) (INTEGER 1 536870907)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #3# #4#))
; . #5#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND LET
; --> UNLESS IF OR LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND IF
; ==>
; (> (TRULY-THE RATIONAL #:OBJECT18) -536870907)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (RATIONAL #1=(-536870908) #2=(1073741814)), not a FIXNUM.
; unable to do inline (signed-byte 32) comparison (cost 6) because:
; The first argument is a (RATIONAL #1# #2#), not a (SIGNED-BYTE 32).
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND LET
; --> UNLESS IF OR LET TYPEP LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND IF <
; --> IF
; ==>
; (< (TRULY-THE RATIONAL #:OBJECT18) 536870907)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (RATIONAL #1=(-536870907) #2=(1073741814)), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (RATIONAL #1# #2#), not a (UNSIGNED-BYTE 32).
; etc.
; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
; ==>
; (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL #2=(-536870907) #3=(536870907))
; DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL #4=(-536870906) #5=(536870908)))
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL #2# #3#) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #4# #5#))
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN IN-CHARSET-P ...)
; processing (DEFUN ADD-TO-CHARSET ...)
; processing (DEFUN %ADD-TO-CHARSET ...)
; processing (DEFUN %ADD-TO-CHARSET/EXPAND ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp
; in: DEFUN %ADD-TO-CHARSET/EXPAND
; (* 2 CL-PPCRE::NEW-SIZE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; associate */(* /) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (>= CL-PPCRE::NEW-SIZE 371370)
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * 371370.0d0)
; (SINGLE-FLOAT * 371370.0)
; (RATIONAL * 371370)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (* 2 CL-PPCRE::NEW-SIZE)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (>= CL-PPCRE::NEW-SIZE 371370)
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (LET* ((CL-PPCRE::OLD-VECTOR (CL-PPCRE::CHARSET-VECTOR SET))
; (CL-PPCRE::NEW-SIZE (* 2 (LENGTH CL-PPCRE::OLD-VECTOR))))
; (TAGBODY
; :RETRY
; (MULTIPLE-VALUE-BIND (CL-PPCRE::NEW-DEPTH CL-PPCRE::NEW-VECTOR)
; (IF (>= CL-PPCRE::NEW-SIZE 371370)
; (VALUES 0 #)
; (VALUES CL-PPCRE::+PROBE-DEPTH+ #))
; (SETF # CL-PPCRE::NEW-DEPTH
; # CL-PPCRE::NEW-VECTOR)
; (FLET (#)
; (CL-PPCRE::TRY-ADD CHAR)
; (DOTIMES # #))))
; (INCF (CL-PPCRE::CHARSET-COUNT SET))
; T)
;
; note: doing signed word to integer coercion (cost 20) to NEW-SIZE
; processing (DEFUN MAP-CHARSET ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp
; in: DEFUN MAP-CHARSET
; (DECF CL-PPCRE::N)
; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ZEROP (DECF CL-PPCRE::N))
; ==>
; (= (DECF CL-PPCRE::N) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (DECF CL-PPCRE::N)
; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp
; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (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>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/charset-tmpCOZWO5IA.fasl
; compilation finished in 0:00:00.694
; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFSTRUCT (CHARMAP #) ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DECLAIM (INLINE IN-CHARMAP-P))
; processing (DEFUN IN-CHARMAP-P ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp
; in: DEFUN IN-CHARMAP-P
; (SBIT (THE SIMPLE-BIT-VECTOR (CL-PPCRE::CHARMAP-VECTOR CL-PPCRE::CHARMAP))
; (- CHAR-CODE CL-PPCRE::CHARMAP-START))
; --> AREF SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of CHECK-BOUND
; processing (DEFUN CHARMAP-CONTENTS ...)
; processing (DEFUN MAKE-CHARMAP ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp
; in: DEFUN MAKE-CHARMAP
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
; processing (DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ...)
; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp
; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> BLOCK LET LET TAGBODY WHEN IF
; ==>
; (< CL-PPCRE::CODE #:LOOP-LIMIT-18)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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
;
; 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 ...)
; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (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)
; ==>
; (- CL-PPCRE::END 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> BLOCK LET LET TAGBODY WHEN IF
; ==>
; (< CL-PPCRE::CODE #:LOOP-LIMIT-18)
;
; note: forced to do full call
; unable to do #1=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 #1# (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>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/charmap-tmpLL3IS2PA.fasl
; compilation finished in 0:00:00.580
; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ...)
; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp
; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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::WITH HASH-TABLE = (MAKE-HASH-TABLE)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; processing (DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ...)
; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp
; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-2) (2)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-2) (2)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (<= (HASH-TABLE-COUNT HASH-TABLE)
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2))
; --> IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (- 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET)
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2))
; --> IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (CL-PPCRE::IN-CHARMAP-P CHAR CL-PPCRE::CHARMAP)
; --> BLOCK LET* LET AND IF = IF = SBIT AREF SB-KERNEL:DATA-VECTOR-REF
; --> SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of CHECK-BOUND
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/chartest-tmpWPVW4IY9.fasl
; compilation finished in 0:00:00.247
; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS))
; processing (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...)
; processing (DECLAIM (INLINE MAKE-LEXER-INTERNAL))
; processing (DEFSTRUCT (LEXER #) ...)
; processing (DEFUN MAKE-LEXER ...)
; processing (DECLAIM (INLINE END-OF-STRING-P))
; processing (DEFUN END-OF-STRING-P ...)
; processing (DECLAIM (INLINE LOOKING-AT-P))
; processing (DEFUN LOOKING-AT-P ...)
; processing (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED))
; processing (DEFUN NEXT-CHAR-NON-EXTENDED ...)
; processing (DEFUN NEXT-CHAR ...)
; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp
; in: DEFUN NEXT-CHAR
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "Comment group not closed.")
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS CL-PPCRE::ERROR-POS :FORMAT-CONTROL
; "Comment group not closed." :FORMAT-ARGUMENTS (LIST))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DECLAIM (INLINE FAIL))
; processing (DEFUN FAIL ...)
; processing (DEFUN GET-NUMBER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp
; in: DEFUN GET-NUMBER
; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN)
; CL-PPCRE::END-POS
; CL-PPCRE::LEXER-LEN)
; ==>
; CL-PPCRE::END-POS
;
; note: doing signed word to integer coercion (cost 20)
; processing (DECLAIM (INLINE TRY-NUMBER))
; processing (DEFUN TRY-NUMBER ...)
; processing (DECLAIM (INLINE MAKE-CHAR-FROM-CODE))
; processing (DEFUN MAKE-CHAR-FROM-CODE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X." NUMBER)
; --> ERROR
; ==>
; CL-PPCRE::ERROR-POS
;
; note: deleting unreachable code
; processing (DEFUN UNESCAPE-CHAR ...)
; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp
; in: DEFUN UNESCAPE-CHAR
; (CL-PPCRE::MAKE-CHAR-FROM-CODE NUMBER CL-PPCRE::ERROR-POS)
; --> BLOCK LET OR LET IF CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR LIST CONS
; ==>
; NUMBER
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; processing (DEFUN READ-CHAR-PROPERTY ...)
; processing (DEFUN COLLECT-CHAR-CLASS ...)
; processing (DEFUN MAYBE-PARSE-FLAGS ...)
; processing (DEFUN GET-QUANTIFIER ...)
; processing (DEFUN PARSE-REGISTER-NAME-AUX ...)
; processing (DECLAIM (INLINE UNGET-TOKEN))
; processing (DEFUN UNGET-TOKEN ...)
; processing (DEFUN GET-TOKEN ...)
; processing (DECLAIM (INLINE START-OF-SUBEXPR-P))
; processing (DEFUN START-OF-SUBEXPR-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/lexer-tmpE4RA4GKY.fasl
; compilation finished in 0:00:02.215
; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFUN GROUP ...)
; file: /usr/share/common-lisp/source/cl-ppcre/parser.lisp
; in: DEFUN GROUP
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2)
; "Opening paren has no matching closing paren.")
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS (+ CL-PPCRE::OPEN-PAREN-POS 2)
; :FORMAT-CONTROL "Opening paren has no matching closing paren."
; :FORMAT-ARGUMENTS (LIST))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFUN GREEDY-QUANT ...)
; processing (DEFUN QUANT ...)
; processing (DEFUN SEQ ...)
; processing (DEFUN REG-EXPR ...)
; processing (DEFUN PARSE-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/parser-tmpGATE1O1G.fasl
; compilation finished in 0:00:00.306
; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFCLASS REGEX ...)
; processing (DEFCLASS SEQ ...)
; processing (DEFCLASS ALTERNATION ...)
; processing (DEFCLASS LOOKAHEAD ...)
; processing (DEFCLASS LOOKBEHIND ...)
; processing (DEFCLASS REPETITION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS REGISTER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS STANDALONE ...)
; processing (DEFCLASS BACK-REFERENCE ...)
; processing (DEFCLASS CHAR-CLASS ...)
; processing (DEFCLASS STR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS ANCHOR ...)
; processing (DEFCLASS EVERYTHING ...)
; processing (DEFCLASS WORD-BOUNDARY ...)
; processing (DEFCLASS BRANCH ...)
; processing (DEFCLASS FILTER ...)
; processing (DEFCLASS VOID ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING)
; --> THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (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>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpYMSI79EA.fasl
; compilation finished in 0:00:00.188
; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFMETHOD LEN ...)
; processing (DEFMETHOD STR ...)
; processing (DEFMETHOD SKIP ...)
; processing (DEFMETHOD START-OF-END-STRING-P ...)
; processing (DEFGENERIC CASE-MODE ...)
; processing (DEFMETHOD CASE-MODE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD CASE-MODE (STR T)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR))
; ==>
; (= (CL-PPCRE::LEN CL-PPCRE::STR) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; processing (DEFMETHOD CASE-MODE ...)
; processing (DEFGENERIC COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFMETHOD COPY-REGEX ...)
; processing (DEFGENERIC REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFMETHOD REMOVE-REGISTERS ...)
; processing (DEFGENERIC EVERYTHINGP ...)
; processing (DEFMETHOD EVERYTHINGP ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD EVERYTHINGP (SEQ)
; (LENGTH CL-PPCRE::CLEANED-ELEMENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; processing (DEFMETHOD EVERYTHINGP ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD EVERYTHINGP (ALTERNATION)
; (AND (= 1 (LENGTH CL-PPCRE::CHOICES))
; (CL-PPCRE::EVERYTHINGP (FIRST CL-PPCRE::CHOICES)))
; --> IF =
; ==>
; (LENGTH
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::CHOICES)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::CHOICES)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFMETHOD EVERYTHINGP ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD EVERYTHINGP (REPETITION)
; (AND CL-PPCRE::MAXIMUM (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; (CL-PPCRE::EVERYTHINGP CL-PPCRE::REGEX))
; --> IF IF =
; --> (LAMBDA (#:G5 #:G4 #:G3) (DECLARE (TYPE NUMBER #:G5 #:G4 #:G3)) (IF (= #:G5 #:G4) (IF (= #:G4 #:G3) T NIL) NIL))
; --> SB-C::%FUNCALL IF
; ==>
; (= #:G5 #:G4)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; --> IF IF =
; --> (LAMBDA (#:G5 #:G4 #:G3) (DECLARE (TYPE NUMBER #:G5 #:G4 #:G3)) (IF (= #:G5 #:G4) (IF (= #:G4 #:G3) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF
; ==>
; (= #:G4 #:G3)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a (OR
; (COMPLEX
; SINGLE-FLOAT)
; (COMPLEX
; DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a (COMPLEX
; SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a (COMPLEX
; SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a (COMPLEX
; DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a (COMPLEX
; DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0)
; (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0)
; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0)
; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1)
; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))
; (COMPLEX (SINGLE-FLOAT 1.0 1.0))
; (COMPLEX (INTEGER 1 1))), not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; processing (DEFMETHOD EVERYTHINGP ...)
; processing (DEFMETHOD EVERYTHINGP ...)
; processing (DEFMETHOD EVERYTHINGP ...)
; processing (DEFMETHOD EVERYTHINGP ...)
; processing (DEFGENERIC REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-LENGTH (SEQ)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
; CL-PPCRE::SEQ)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH
; CL-PPCRE::SUB-REGEX)
; IF (NOT CL-PPCRE::LEN)
; DO ...)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-5 CL-PPCRE::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD REGEX-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-LENGTH (ALTERNATION)
; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN)
; --> IF
; ==>
; (= CL-PPCRE::LEN CL-PPCRE::OLD-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
; processing (DEFMETHOD REGEX-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-LENGTH (BRANCH)
; (EQL CL-PPCRE::THEN-LENGTH
; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
;
; note: 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 32) comparison (cost 6) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD REGEX-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-LENGTH (REPETITION)
; (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
; --> IF
; ==>
; (EQL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; '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.
; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; CL-PPCRE::REPETITION
; (IF (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
; NIL))
; --> LET SYMBOL-MACROLET IF
; ==>
; (*
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
; --> IF
; ==>
; (EQL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; '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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; CL-PPCRE::REPETITION
; (IF (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
; NIL))
; --> LET SYMBOL-MACROLET IF
; ==>
; (*
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The second argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFMETHOD REGEX-LENGTH ...)
; processing (DEFGENERIC REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
; CL-PPCRE::SEQ)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
; CL-PPCRE::SUB-REGEX)
; CL-PPCRE::SUM CL-PPCRE::LEN)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-5 CL-PPCRE::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES
; CL-PPCRE::ALTERNATION)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
; CL-PPCRE::SUB-REGEX)
; CL-PPCRE::MINIMIZE CL-PPCRE::LEN)
; --> BLOCK LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF
; ==>
; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH)
; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH))
; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION)
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The second argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFMETHOD REGEX-MIN-LENGTH ...)
; processing (DEFGENERIC COMPUTE-OFFSETS ...)
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T)
; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET)
; --> IF
; ==>
; (= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T)
; (EQL CL-PPCRE::THEN-OFFSET
; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::START-POS))
;
; note: 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 32) comparison (cost 6) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T)
; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; CL-PPCRE::REPETITION
; (IF (AND CL-PPCRE::LEN (EQ CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM))
; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN))
; NIL))
; --> LET SYMBOL-MACROLET IF +
; ==>
; (*
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; --> LET SYMBOL-MACROLET IF
; ==>
; (+ CL-PPCRE::START-POS
; (*
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::LEN))))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LET SYMBOL-MACROLET IF +
; ==>
; (*
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The second argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; --> LET SYMBOL-MACROLET IF
; ==>
; (+ CL-PPCRE::START-POS
; (*
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::LEN))))
;
; 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 second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T)
; (1+ CL-PPCRE::START-POS)
; ==>
; (+ CL-PPCRE::START-POS 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T)
; (1+ CL-PPCRE::START-POS)
; ==>
; (+ CL-PPCRE::START-POS 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (STR T)
; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T)
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-OFFSETS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmpEVZDMMPC.fasl
; compilation finished in 0:00:01.890
; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFMACRO CASE-INSENSITIVE-MODE-P ...)
; processing (DEFMACRO MULTI-LINE-MODE-P ...)
; processing (DEFMACRO SINGLE-LINE-MODE-P ...)
; processing (DEFUN SET-FLAG ...)
; processing (DEFGENERIC RESOLVE-PROPERTY ...)
; processing (DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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.
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; 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))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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.
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; 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)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-UPCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; 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)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; 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)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
; processing (DEFUN MAYBE-SPLIT-REPETITION ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFUN MAYBE-SPLIT-REPETITION
; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFUN MAYBE-ACCUMULATE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFUN MAYBE-ACCUMULATE
; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; (CL-PPCRE::STR CL-PPCRE::STR)
; (CL-PPCRE::SKIP CL-PPCRE::STR) T)
; --> PROGN SETF LET*
; ==>
; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 29)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; . #1#).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER . #1=((*))).
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; . #1#)
; &REST T).
; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DECLAIM (INLINE CONVERT-AUX))
; processing (DEFUN CONVERT-AUX ...)
; processing (DEFGENERIC CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T)
; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T)
; (ZEROP LENGTH)
; --> = IF
; ==>
; (= LENGTH 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T)
; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T)
; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (AND (NOT NULL) SYMBOL) CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (AND (NOT NULL) SYMBOL)
; CHARACTER), not a SIMPLE-STRING.
; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1- CL-PPCRE::BACKREF-NUMBER)
; ==>
; (- CL-PPCRE::BACKREF-NUMBER 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (COPY-SEQ CL-PPCRE::BACKREF-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (1- CL-PPCRE::BACKREF-NUMBER)
; ==>
; (- CL-PPCRE::BACKREF-NUMBER 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES
; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0
; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
; CL-PPCRE::COLLECT ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY
; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+
; ==>
; (+ CL-PPCRE::REG-INDEX 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...)
; processing (DEFGENERIC CONVERT-SIMPLE-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...)
; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...)
; processing (DEFUN CONVERT ...)
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFUN CONVERT
; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING)
; --> THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/convert-tmpTV2GHUDU.fasl
; compilation finished in 0:00:02.625
; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFGENERIC FLATTEN ...)
; processing (DEFMETHOD FLATTEN ...)
; processing (DEFMETHOD FLATTEN ...)
; processing (DEFMETHOD FLATTEN ...)
; processing (DEFMETHOD FLATTEN ...)
; processing (DEFGENERIC GATHER-STRINGS ...)
; processing (DEFMETHOD GATHER-STRINGS ...)
; file: /usr/share/common-lisp/source/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)
; --> LET TRULY-THE SB-C::MAKE-ARRAY-HEADER* LET
; ==>
; (REPLACE SB-C::DATA SB-C::INITIAL-CONTENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a VECTOR, not a SIMPLE-BASE-STRING.
; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT))
; --> SETQ THE
; ==>
; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (SETF (SUBSEQ CL-PPCRE::COLLECTOR CL-PPCRE::OLD-COLLECTOR-LENGTH)
; (CL-PPCRE::STR CL-PPCRE::ELEMENT)
; CL-PPCRE::SKIP (CL-PPCRE::SKIP CL-PPCRE::ELEMENT))
; --> PROGN SETF LET*
; ==>
; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY SINGLE-FLOAT . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY DOUBLE-FLOAT . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY DOUBLE-FLOAT
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 29) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 8)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 16)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY FIXNUM . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 32)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; . #1=((*))).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; . #1#).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; . #1#)
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER . #1=((*))).
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; . #1#)
; &REST T).
; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT))
; --> SETQ THE
; ==>
; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH)
;
; note: forced to do 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFMETHOD GATHER-STRINGS ...)
; processing (DEFMETHOD GATHER-STRINGS ...)
; processing (DEFMETHOD GATHER-STRINGS ...)
; processing (DEFGENERIC START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD START-ANCHORED-P (REPETITION)
; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION))
; ==>
; (> (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; processing (DEFMETHOD START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; processing (DEFMETHOD START-ANCHORED-P ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD START-ANCHORED-P (REGEX)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX))
; ==>
; (= (CL-PPCRE::LEN CL-PPCRE::REGEX) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; processing (DEFGENERIC END-STRING-AUX ...)
; processing (DEFMETHOD END-STRING-AUX ...)
; processing (DEFMETHOD END-STRING-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD END-STRING-AUX (SEQ)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END))
; --> = IF
; ==>
; (= (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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)
; --> UNLESS IF =
; ==>
; (LENGTH SB-C::INITIAL-CONTENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> UNLESS IF ERROR
; ==>
; (LENGTH SB-C::INITIAL-CONTENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET TRULY-THE SB-C::MAKE-ARRAY-HEADER* LET
; ==>
; (REPLACE SB-C::DATA SB-C::INITIAL-CONTENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (SIMPLE-ARRAY * . #1=((*))) CONS NULL
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; CHARACTER
; . #1#).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL
; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.
; (CHAR CL-PPCRE::STR CL-PPCRE::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF CL-PPCRE::CONCATENATED-LENGTH CL-PPCRE::LEN)
; --> SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CONCATENATED-LENGTH)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; processing (DEFMETHOD END-STRING-AUX ...)
; processing (DEFMETHOD END-STRING-AUX ...)
; processing (DEFMETHOD END-STRING-AUX ...)
; processing (DEFUN END-STRING ...)
; processing (DEFGENERIC COMPUTE-MIN-REST ...)
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T)
; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES
; CL-PPCRE::ALTERNATION)
; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE
; CL-PPCRE::CURRENT-MIN-REST))
; --> BLOCK LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF
; ==>
; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T)
; (MIN
; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::CURRENT-MIN-REST)
; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::CURRENT-MIN-REST))
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET LET IF <= OR LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF <= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (STR T)
; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T)
; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T)
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (+ CL-PPCRE::CURRENT-MIN-REST
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* (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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The second argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; (+ CL-PPCRE::CURRENT-MIN-REST
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T)
; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFMETHOD COMPUTE-MIN-REST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T)
; (1+ CL-PPCRE::CURRENT-MIN-REST)
; ==>
; (+ CL-PPCRE::CURRENT-MIN-REST 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/optimize-tmpJAS47U5Q.fasl
; compilation finished in 0:00:01.236
; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DECLAIM (INLINE *STRING*= ...))
; processing (DEFUN *STRING*= ...)
; processing (DEFUN *STRING*-EQUAL ...)
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; processing (DEFGENERIC CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T)
; (FUNCALL CL-PPCRE::TEST-MATCHER (- CL-PPCRE::START-POS CL-PPCRE::LEN))
; ==>
; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL 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)
; processing (DEFMACRO INSERT-CHAR-CLASS-TESTER ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::START-POS))
; (LAMBDA (CL-PPCRE::START-POS)
; (DECLARE (FIXNUM CL-PPCRE::START-POS))
; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
; (CL-PPCRE::CHAR-CLASS-TEST)
; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS)))))
; --> LET LET LAMBDA FUNCTION AND IF IF FUNCALL SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION6)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (STR T)
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR)
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS)
; CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (LENGTH CL-PPCRE::END-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (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
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
; ==>
; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::NEXT-FN)
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
; (LET ((CL-PPCRE::TEST-END-POS
; (+ CL-PPCRE::START-POS CL-PPCRE::END-STRING-LEN)))
; (DECLARE (FIXNUM CL-PPCRE::TEST-END-POS))
; (AND
; (OR (= CL-PPCRE::START-POS CL-PPCRE::*END-STRING-POS*)
; (AND (<= CL-PPCRE::TEST-END-POS CL-PPCRE::*END-POS*)
; (CL-PPCRE::*STRING*= CL-PPCRE::END-STRING CL-PPCRE::START-POS
; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN)))
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G86)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
; ==>
; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::NEXT-FN)
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
; (LET ((CL-PPCRE::TEST-END-POS
; (+ CL-PPCRE::START-POS CL-PPCRE::END-STRING-LEN)))
; (DECLARE (FIXNUM CL-PPCRE::TEST-END-POS))
; (AND
; (OR (= CL-PPCRE::START-POS CL-PPCRE::*END-STRING-POS*)
; (AND (<= CL-PPCRE::TEST-END-POS CL-PPCRE::*END-POS*)
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING
; CL-PPCRE::START-POS CL-PPCRE::TEST-END-POS 0
; CL-PPCRE::END-STRING-LEN)))
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G94)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
; ==>
; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::NEXT-FN)
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DECLAIM (INLINE WORD-BOUNDARY-P))
; processing (DEFUN WORD-BOUNDARY-P ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T)
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS
; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::START-POS
; (- (THE FIXNUM CL-PPCRE::REG-END) (THE FIXNUM CL-PPCRE::REG-START)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T)
; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::FN)
;
; 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)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::NEXT-FN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; NEXT-FN is not known to be a function
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/closures-tmpWS2NSXU2.fasl
; compilation finished in 0:00:03.036
; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFMACRO INCF-AFTER ...)
; processing (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; processing (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFUN CREATE-GREEDY-EVERYTHING-MATCHER
; (- CL-PPCRE::*END-POS* CL-PPCRE::MIN-REST)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (MIN (+ CL-PPCRE::START-POS CL-PPCRE::MAXIMUM)
; (- CL-PPCRE::*END-POS* CL-PPCRE::MIN-REST))
; --> LET LET IF
; ==>
; #:ARG02
;
; note: doing signed word to integer coercion (cost 20)
; ==>
; SB-C::MINREST
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; processing (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> BLOCK TAGBODY WHEN IF FUNCALL SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION30)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL CL-PPCRE::CHR
; (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 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))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG038
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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)))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G333)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG035
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G177)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE MULTIPLE-VALUE-BIND LET UNLESS
; --> IF
; ==>
; (SB-INT:FIXNUMP #:G323)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> MIN LET LET IF
; ==>
; #:ARG031
;
; note: doing signed word to integer coercion (cost 20)
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE MULTIPLE-VALUE-BIND LET UNLESS
; --> IF
; ==>
; (SB-INT:FIXNUMP #:G191)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G315)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE MULTIPLE-VALUE-BIND
; --> LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G319)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG023
;
; note: doing signed word to integer coercion (cost 20)
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G207)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE MULTIPLE-VALUE-BIND
; --> LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G211)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G223)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE MULTIPLE-VALUE-BIND
; --> LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G227)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG016
;
; note: doing signed word to integer coercion (cost 20)
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G241)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE MULTIPLE-VALUE-BIND
; --> LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G245)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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)))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G299)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG011
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G255)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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)))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G289)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG08
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT
; --> BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G279)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...)
; processing (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; processing (DEFGENERIC CREATE-GREEDY-MATCHER ...)
; processing (DEFMETHOD CREATE-GREEDY-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0
; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; processing (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; processing (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; processing (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION102)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL CL-PPCRE::CHR
; (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G492)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG0134
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G480)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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)))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-129)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG0125
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-123)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G438)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG0116
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G426)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-110)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET MIN LET LET IF
; ==>
; #:ARG0106
;
; note: doing signed word to integer coercion (cost 20)
; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-104)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION
; --> LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G378)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G382)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG092
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G260)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G264)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G360)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G364)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG079
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G280)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G284)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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)))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-72)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG068
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-66)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; 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)))
; --> IF LAMBDA FUNCTION LET 1+
; ==>
; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-63)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; #:ARG059
;
; note: doing signed word to integer coercion (cost 20)
; --> IF LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-57)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> IF LAMBDA FUNCTION LET MIN LET LET IF
; ==>
; SB-C::MINREST
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; processing (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; processing (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...)
; processing (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0
; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; processing (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...)
; processing (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; processing (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in:
; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION36)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL CL-PPCRE::CHR
; (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> LAMBDA FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> LAMBDA FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; --> LAMBDA FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G206)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-41)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; (+ CL-PPCRE::START-POS CL-PPCRE::REPETITIONS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LET LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-38)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> LAMBDA FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS 0
; CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G162)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> LAMBDA FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G166)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> LAMBDA FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G112)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> LAMBDA FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G116)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-25)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:LOOP-STEP-BY-23)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; processing (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...)
; processing (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0
; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; ==>
; (= (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* + AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* SB-IMPL::XSUBTRACT AREF SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
; --> THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)).
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE FIXNUM SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; processing (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T)
; (AND CL-PPCRE::MAXIMUM (ZEROP CL-PPCRE::MAXIMUM))
; --> IF ZEROP
; ==>
; (=
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MAXIMUM))
; 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1))
; --> IF =
; --> (LAMBDA (#:G8 #:G7 #:G6) (DECLARE (TYPE NUMBER #:G8 #:G7 #:G6)) (IF (= #:G8 #:G7) (IF (= #:G7 #:G6) T NIL) NIL))
; --> SB-C::%FUNCALL IF
; ==>
; (= #:G8 #:G7)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> IF =
; --> (LAMBDA (#:G8 #:G7 #:G6) (DECLARE (TYPE NUMBER #:G8 #:G7 #:G6)) (IF (= #:G8 #:G7) (IF (= #:G7 #:G6) T NIL) NIL))
; --> SB-C::%FUNCALL IF IF
; ==>
; (= #:G7 #:G6)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (OR
; (COMPLEX
; SINGLE-FLOAT)
; (COMPLEX
; DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN
; (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; --> IF IF
; ==>
; (EQL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; '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.
; (COND
; ((AND CL-PPCRE::MAXIMUM (ZEROP CL-PPCRE::MAXIMUM))
; (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)"))
; ((AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1))
; (ERROR "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)"))
; ((AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN
; (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; (CL-PPCRE::CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER
; CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN))
; ((EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; (CL-PPCRE::CREATE-CONSTANT-REPETITION-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; ((AND CL-PPCRE::GREEDYP CL-PPCRE::LEN (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; ((AND CL-PPCRE::GREEDYP
; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)))
; (CL-PPCRE::CREATE-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; (CL-PPCRE::GREEDYP
; (CL-PPCRE::CREATE-GREEDY-MATCHER CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN))
; ((AND CL-PPCRE::LEN (PLUSP CL-PPCRE::LEN)
; (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; ((OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))
; (CL-PPCRE::CREATE-NON-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; (T
; (CL-PPCRE::CREATE-NON-GREEDY-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN)))
; --> IF IF IF IF
; ==>
; (EQL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; '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.
; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))
; --> LET PLUSP > IF
; ==>
; (>
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MIN-LEN))
; 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (AND CL-PPCRE::LEN (PLUSP CL-PPCRE::LEN) (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; --> IF IF PLUSP
; ==>
; (>
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))
; 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))
; --> LET PLUSP > IF
; ==>
; (>
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MIN-LEN))
; 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1))
; --> IF =
; --> (LAMBDA (#:G8 #:G7 #:G6) (DECLARE (TYPE NUMBER #:G8 #:G7 #:G6)) (IF (= #:G8 #:G7) (IF (= #:G7 #:G6) T NIL) NIL))
; --> SB-C::%FUNCALL IF
; ==>
; (= #:G8 #:G7)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; (AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN
; (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; --> IF IF
; ==>
; (EQL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; '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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; (COND
; ((AND CL-PPCRE::MAXIMUM (ZEROP CL-PPCRE::MAXIMUM))
; (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)"))
; ((AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1))
; (ERROR "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)"))
; ((AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN
; (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; (CL-PPCRE::CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER
; CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN))
; ((EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
; (CL-PPCRE::CREATE-CONSTANT-REPETITION-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; ((AND CL-PPCRE::GREEDYP CL-PPCRE::LEN (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; ((AND CL-PPCRE::GREEDYP
; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)))
; (CL-PPCRE::CREATE-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; (CL-PPCRE::GREEDYP
; (CL-PPCRE::CREATE-GREEDY-MATCHER CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN))
; ((AND CL-PPCRE::LEN (PLUSP CL-PPCRE::LEN)
; (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; ((OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))
; (CL-PPCRE::CREATE-NON-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN))
; (T
; (CL-PPCRE::CREATE-NON-GREEDY-MATCHER CL-PPCRE::REPETITION
; CL-PPCRE::NEXT-FN)))
; --> IF IF IF IF
; ==>
; (EQL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MINIMUM))
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; '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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))
; --> LET PLUSP > IF
; ==>
; (>
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MIN-LEN))
; 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (AND CL-PPCRE::LEN (PLUSP CL-PPCRE::LEN) (NOT CL-PPCRE::CONTAINS-REGISTER-P))
; --> IF IF PLUSP
; ==>
; (>
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))
; 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))
; --> LET PLUSP > IF
; ==>
; (>
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'CL-PPCRE::MIN-LEN))
; 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmp61QND6X9.fasl
; compilation finished in 0:00:04.532
; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFMACRO BMH-MATCHER-AUX ...)
; processing (DEFUN CREATE-BMH-MATCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF AND IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (LENGTH CL-PPCRE::PATTERN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a 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.
; (CL-PPCRE::BMH-MATCHER-AUX)
; --> LAMBDA FUNCTION IF OR LET IF > IF > THE
; ==>
; (+ CL-PPCRE::START-POS CL-PPCRE::M)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G111)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; ==>
; (SB-INT:FIXNUMP #:G115)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION IF OR LET IF > IF > THE
; ==>
; (+ CL-PPCRE::START-POS CL-PPCRE::M)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G101)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; ==>
; (SB-INT:FIXNUMP #:G105)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFMACRO CHAR-SEARCHER-AUX ...)
; processing (DEFUN CREATE-CHAR-SEARCHER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-CHAR-SEARCHER
; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF
; --> CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
; CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; processing (DECLAIM (INLINE NEWLINE-SKIPPER))
; processing (DEFUN NEWLINE-SKIPPER ...)
; processing (DEFMACRO INSERT-ADVANCE-FN ...)
; processing (DEFUN CREATE-SCANNER-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LAMBDA 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY
; --> UNLESS IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR
; --> LET < IF
; ==>
; (< SB-C::X SB-C::Y)
;
; 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 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; --> LAMBDA 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 NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
; --> LAMBDA 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 #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G2043)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1962)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1887)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1808)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1721)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1632)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
; --> EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
; --> EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1428)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
; --> EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
; --> SB-C::%FUNCALL
; ==>
; CL-PPCRE::TRY-POS
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
; --> EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
; --> SB-C::%FUNCALL
; ==>
; CL-PPCRE::TRY-POS
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK
; --> TAGBODY PROGN LET COND IF = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> IF AND IF NOT IF CL-PPCRE::*STRING*=
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF
; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL
; ==>
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; (- CL-PPCRE::*END-POS* (THE FIXNUM CL-PPCRE::END-STRING-LEN))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G1527)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/scanner-tmpIC2OJ5AS.fasl
; compilation finished in 0:00:07.340
; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 07 APR 2019 03:51:26 PM):
; processing (IN-PACKAGE :CL-PPCRE)
; processing (DEFVAR *LOOK-AHEAD-FOR-SUFFIX* ...)
; processing (DEFGENERIC CREATE-SCANNER ...)
; processing (DEFMETHOD CREATE-SCANNER ...)
; file: /usr/share/common-lisp/source/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.
; processing (DEFMETHOD CREATE-SCANNER ...)
; processing (DEFMETHOD CREATE-SCANNER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMETHOD CREATE-SCANNER (T)
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; processing (DEFGENERIC SCAN ...)
; processing (DEFMETHOD SCAN ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMETHOD SCAN (STRING T)
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START CL-PPCRE::END)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING))
;
; 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)
; --> LET COND IF THE COERCE THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; processing (DEFMETHOD SCAN ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMETHOD SCAN #'T
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; --> LET COND IF THE COERCE THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; processing (DEFMETHOD SCAN ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMETHOD SCAN (T T)
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START CL-PPCRE::END)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE))
;
; 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)
; --> LET COND IF THE COERCE THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; processing (DEFINE-COMPILER-MACRO SCAN ...)
; processing (DEFUN SCAN-TO-STRINGS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; 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)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G30)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET LET MIN LET
; ==>
; (LENGTH #:G31)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...)
; processing (DEFMACRO REGISTER-GROUPS-BIND ...)
; processing (DEFMACRO DO-SCANS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMACRO DO-SCANS
; (DEFMACRO CL-PPCRE:DO-SCANS
; (
; (CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END)
; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV)
; #<(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. ... {5569E80F}>
; (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)
; processing (DEFMACRO DO-MATCHES ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMACRO DO-MATCHES
; (DEFMACRO CL-PPCRE:DO-MATCHES
; (
; (CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END)
; &BODY CL-PPCRE::BODY)
; #<(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,
; ... {5596280F}>
; (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)
; processing (DEFMACRO DO-MATCHES-AS-STRINGS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMACRO DO-MATCHES-AS-STRINGS
; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS
; (
; (CL-PPCRE::MATCH-VAR
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END
; CL-PPCRE::SHAREDP)
; &BODY CL-PPCRE::BODY)
; #<(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... {55B09007}>
; (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)
; processing (DEFMACRO DO-REGISTER-GROUPS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMACRO DO-REGISTER-GROUPS
; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS
; (CL-PPCRE::VAR-LIST
; (CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END
; CL-PPCRE::SHAREDP)
; &BODY CL-PPCRE::BODY)
; #<(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... {55CBB007}>
; (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)
; processing (DEFUN ALL-MATCHES ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; 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))
; --> CL-PPCRE:DO-SCANS 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.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE THE IF
; --> REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second 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:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a RATIONAL.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFINE-COMPILER-MACRO ALL-MATCHES ...)
; processing (DEFUN ALL-MATCHES-AS-STRINGS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; 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 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 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 THE IF
; --> REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE
; --> IF
; ==>
; (= #:MATCH-START2 #:MATCH-END3)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE
; --> IF 1+
; ==>
; (+ #:MATCH-END3 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a RATIONAL.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE
; --> IF
; ==>
; (= #:MATCH-START2 #:MATCH-END3)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE
; --> IF 1+
; ==>
; (+ #:MATCH-END3 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...)
; processing (DEFUN SPLIT ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; 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 (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* OR LET IF
; ==>
; (LENGTH #:TARGET-STRING1)
;
; 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 THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second 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::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 (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (OR
; (COMPLEX
; SINGLE-FLOAT)
; (COMPLEX
; DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a REAL.
; The second 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::LIMIT)
; ==>
; (> CL-PPCRE::LIMIT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...)
; --> BLOCK LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (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 (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a RATIONAL.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
; --> OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to open code because: The operands might not be the same type.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; (PLUSP CL-PPCRE::LIMIT)
; ==>
; (> CL-PPCRE::LIMIT 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; etc.
; (INCF CL-PPCRE::COUNTER)
; --> SETQ THE
; ==>
; (+ 1 CL-PPCRE::COUNTER)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
; --> OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a (OR (DOUBLE-FLOAT #1=(0.0d0))
; (SINGLE-FLOAT #2=(0.0)) (RATIONAL #3=(0))), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; The second argument is a (OR (DOUBLE-FLOAT #1#) (SINGLE-FLOAT #2#)
; (RATIONAL #3#)), not a (UNSIGNED-BYTE 32).
; 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 (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do #1=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 #1# (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+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
; etc.
; processing (DEFINE-COMPILER-MACRO SPLIT ...)
; processing (DEFUN STRING-CASE-MODIFIER ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFUN STRING-CASE-MODIFIER
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-PPCRE::STR CL-PPCRE::TO)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (UPPER-CASE-P CL-PPCRE::CHR)
; --> BLOCK SB-IMPL::WITH-CASE-INFO BLOCK LOCALLY LET LET* IF LET = IF = EQL IF
; --> EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the second argument of IF-EQ
; processing (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...)
; processing (LET* (# #) ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING)
; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START
; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
; SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START))
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (< 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 32) comparison (cost 6) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (1-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START
; :JUNK-ALLOWED T))
; ==>
; (-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START
; :JUNK-ALLOWED T)
; 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR INTEGER . #2=(NULL)), not a FIXNUM.
; The result is a (VALUES INTEGER . #3=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR INTEGER . #2#), not a FIXNUM.
; The result is a (VALUES INTEGER . #3#), not a (VALUES FIXNUM &REST T).
; etc.
; (< CL-PPCRE::TOKEN 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; processing (DEFUN BUILD-REPLACEMENT ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFUN BUILD-REPLACEMENT
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0)
;
; note: unable to
; optimize
; because:
; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK
; ==>
; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE
; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE
; :DISPLACED-INDEX-OFFSET CL-PPCRE::START)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
; --> TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G47 #:G48)
;
; note: unable to open code because: can't determine sequence argument type
; (APPLY CL-PPCRE::TOKEN
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS))
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TOKEN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
; --> TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G51 #:G52)
;
; note: unable to open code because: can't determine sequence argument type
; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START
; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TOKEN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE)
; (LOOP CL-PPCRE::FOR CL-PPCRE::TOKEN CL-PPCRE::IN CL-PPCRE::REPLACEMENT-TEMPLATE
; DO (TYPECASE CL-PPCRE::TOKEN
; (STRING (WRITE-STRING CL-PPCRE::TOKEN CL-PPCRE::S))
; (INTEGER (WHEN # #) (WHEN # #))
; (FUNCTION (WRITE-STRING # CL-PPCRE::S))
; (SYMBOL (CASE CL-PPCRE::TOKEN # # # # #)))))
; --> LET MAKE-STRING THE
; ==>
; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK
; ==>
; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE
; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE
; :DISPLACED-INDEX-OFFSET CL-PPCRE::START)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK
; ==>
; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE
; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE
; :DISPLACED-INDEX-OFFSET CL-PPCRE::START)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
; --> IF
; ==>
; (< SB-C::X SB-C::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.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (1+ CL-PPCRE::TOKEN)
; ==>
; (+ CL-PPCRE::TOKEN 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- 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 T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- 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 T, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
;
; 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 second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFUN REPLACE-AUX ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFUN REPLACE-AUX
; (FUNCALL
; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM
; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END)
; CL-PPCRE::CURR-REPLACEMENT)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM
; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE)
; (LOOP CL-PPCRE::FOR (CL-PPCRE::FROM CL-PPCRE::TO) CL-PPCRE::ON (APPEND
; (LIST
; CL-PPCRE::START)
; CL-PPCRE::POS-LIST
; (LIST
; CL-PPCRE::END))
; CL-PPCRE::FOR REPLACE = NIL CL-PPCRE::THEN (AND (NOT REPLACE)
; CL-PPCRE::TO)
; CL-PPCRE::FOR ...))
; --> LET MAKE-STRING THE
; ==>
; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; processing (DEFUN REGEX-REPLACE ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFUN REGEX-REPLACE
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a 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.
; processing (DEFINE-COMPILER-MACRO REGEX-REPLACE ...)
; processing (DEFUN REGEX-REPLACE-ALL ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; 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))
; --> LET 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.
; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND
; --> IF THE COERCE THE IF REPLACE MAKE-ARRAY
; ==>
; (LENGTH SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS NULL
; (AND (NOT (SIMPLE-ARRAY CHARACTER . #1=((*))))
; (NOT (SIMPLE-ARRAY NIL . #1#))
; (NOT SIMPLE-BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), 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))
; --> 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 #1=inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL
; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
; (COMPLEX RATIONAL)), not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...)
; processing (DEFMACRO REGEX-APROPOS-AUX ...)
; processing (DEFUN REGEX-APROPOS-LIST ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFUN REGEX-APROPOS-LIST
; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE (OPTIMIZE SPEED (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... {528F1797}>
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (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... {528F1797}>
; (DECLARE (OPTIMIZE SPEED (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))
; processing (DEFUN PRINT-SYMBOL-INFO ...)
; processing (DEFUN REGEX-APROPOS ...)
; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp
; in: DEFUN REGEX-APROPOS
; (DEFUN CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; #<(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 ... {52FCC9D7}>
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (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 ... {52FCC9D7}>
; (DECLARE (OPTIMIZE SPEED (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))
; processing (LET* (# #) ...)
; processing (LET* (# # ...) ...)
; processing (LET* (# # ...) ...)
; processing (DEFUN PARSE-TREE-SYNONYM ...)
; processing (DEFUN (SETF PARSE-TREE-SYNONYM) ...)
; processing (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-ppcre/api-tmpIC5EI0OL.fasl
; compilation finished in 0:00:04.015
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-ppcre" "api">
; compiling file "/usr/share/common-lisp/source/cl-unicode/packages.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL-UNICODE ...)
; processing (DEFPACKAGE :CL-UNICODE-NAMES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/packages-tmpXCUVXHP5.fasl
; compilation finished in 0:00:00.013
; compiling file "/usr/share/common-lisp/source/cl-unicode/specials.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFCONSTANT +CODE-POINT-LIMIT+ ...)
; processing (DEFVAR *CANONICAL-NAMES* ...)
; processing (DEFVAR *NAMES-TO-CODE-POINTS* ...)
; processing (DEFVAR *UNICODE1-NAMES-TO-CODE-POINTS* ...)
; processing (DEFVAR *CODE-POINTS-TO-NAMES* ...)
; processing (DEFVAR *CODE-POINTS-TO-UNICODE1-NAMES* ...)
; processing (DEFVAR *CASE-MAPPINGS* ...)
; processing (DEFVAR *GENERAL-CATEGORIES* ...)
; processing (DEFVAR *SCRIPTS* ...)
; processing (DEFVAR *CODE-BLOCKS* ...)
; processing (DEFVAR *BINARY-PROPERTIES* ...)
; processing (DEFVAR *BIDI-CLASSES* ...)
; processing (DEFVAR *PROPERTY-MAP* ...)
; processing (DEFVAR *PROPERTY-TESTS* ...)
; processing (DEFVAR *PROPERTY-ALIASES* ...)
; processing (DEFVAR *JAMO-SHORT-NAMES* ...)
; processing (DEFVAR *HANGUL-SYLLABLES-TO-CODE-POINTS* ...)
; processing (DEFVAR *TRY-UNICODE1-NAMES-P* ...)
; processing (DEFVAR *TRY-ABBREVIATIONS-P* ...)
; processing (DEFVAR *SCRIPTS-TO-TRY* ...)
; processing (DEFVAR *TRY-HEX-NOTATION-P* ...)
; processing (DEFVAR *TRY-LISP-NAMES-P* ...)
; processing (DEFVAR *PREVIOUS-READTABLES* ...)
; processing (PUSHNEW :CL-UNICODE ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/specials-tmp19HGUQIS.fasl
; compilation finished in 0:00:00.073
; compiling file "/usr/share/common-lisp/source/cl-unicode/util.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFUN PARSE-HEX ...)
; processing (DEFUN CANONICALIZE-NAME ...)
; processing (DEFUN PROPERTY-SYMBOL ...)
; processing (DEFUN REGISTER-PROPERTY-SYMBOL ...)
; processing (DEFUN LOOKUP-PROPERTY-ALIAS ...)
; processing (DEFUN PROPERTY-NAME ...)
; processing (DEFUN TREE-LOOKUP ...)
; processing (DEFGENERIC MAPPING ...)
; processing (DEFUN CJK-UNIFIED-IDEOGRAPH-P ...)
; processing (DEFUN MAYBE-COMPUTE-CJK-NAME ...)
; processing (DEFUN MAYBE-FIND-CJK-CODE-POINT ...)
; processing (DEFMACRO DEFINE-HANGUL-CONSTANT ...)
; processing (DEFINE-HANGUL-CONSTANT "SBase" ...)
; processing (DEFINE-HANGUL-CONSTANT "LBase" ...)
; processing (DEFINE-HANGUL-CONSTANT "VBase" ...)
; processing (DEFINE-HANGUL-CONSTANT "TBase" ...)
; processing (DEFINE-HANGUL-CONSTANT "VCount" ...)
; processing (DEFINE-HANGUL-CONSTANT "TCount" ...)
; processing (DEFINE-HANGUL-CONSTANT "NCount" ...)
; processing (DECLAIM (INLINE COMPUTE-HANGUL-NAME))
; processing (DEFUN COMPUTE-HANGUL-NAME ...)
; file: /usr/share/common-lisp/source/cl-unicode/util.lisp
; in: DEFUN COMPUTE-HANGUL-NAME
; (FLOOR CL-UNICODE::S-INDEX CL-UNICODE::+N-COUNT+)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -536870912 536826879), not a (UNSIGNED-BYTE
; 32).
; (MOD CL-UNICODE::S-INDEX CL-UNICODE::+N-COUNT+)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -536870912 536826879), not a (UNSIGNED-BYTE
; 32).
; (MOD CL-UNICODE::S-INDEX CL-UNICODE::+T-COUNT+)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -536870912 536826879), not a (UNSIGNED-BYTE
; 32).
; (LET* ((CL-UNICODE::S-INDEX (- CL-UNICODE::CODE-POINT CL-UNICODE::+S-BASE+))
; (CL-UNICODE::L-VALUE
; (+ CL-UNICODE::+L-BASE+
; (FLOOR CL-UNICODE::S-INDEX CL-UNICODE::+N-COUNT+)))
; (CL-UNICODE::V-VALUE
; (+ CL-UNICODE::+V-BASE+ (FLOOR # CL-UNICODE::+T-COUNT+)))
; (CL-UNICODE::T-VALUE
; (+ CL-UNICODE::+T-BASE+
; (MOD CL-UNICODE::S-INDEX CL-UNICODE::+T-COUNT+))))
; (DECLARE (FIXNUM CL-UNICODE::S-INDEX CL-UNICODE::T-VALUE))
; (FORMAT NIL "~A~A~@[~A~]"
; (GETHASH CL-UNICODE::L-VALUE CL-UNICODE::*JAMO-SHORT-NAMES*)
; (GETHASH CL-UNICODE::V-VALUE CL-UNICODE::*JAMO-SHORT-NAMES*)
; (AND (/= CL-UNICODE::T-VALUE CL-UNICODE::+T-BASE+)
; (GETHASH CL-UNICODE::T-VALUE CL-UNICODE::*JAMO-SHORT-NAMES*))))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G46)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFCONSTANT +FIRST-HANGUL-SYLLABLE+ ...)
; processing (DEFCONSTANT +LAST-HANGUL-SYLLABLE+ ...)
; processing (DEFUN ADD-HANGUL-NAMES ...)
; processing (DEFUN HANGUL-SYLLABLE-P ...)
; processing (DEFUN MAYBE-COMPUTE-HANGUL-SYLLABLE-NAME ...)
; file: /usr/share/common-lisp/source/cl-unicode/util.lisp
; in: DEFUN MAYBE-COMPUTE-HANGUL-SYLLABLE-NAME
; (CL-UNICODE::COMPUTE-HANGUL-NAME CL-UNICODE::CODE-POINT)
; --> BLOCK LET* + FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -536870912 536826879), not a (UNSIGNED-BYTE
; 32).
; --> BLOCK LET* + FLOOR MOD NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -536870912 536826879), not a (UNSIGNED-BYTE
; 32).
; --> BLOCK LET* + MOD NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -536870912 536826879), not a (UNSIGNED-BYTE
; 32).
; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G62)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFUN MAYBE-FIND-HANGUL-SYLLABLE-CODE-POINT ...)
; processing (DEFMACRO ENSURE-CODE-POINT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/util-tmpNV7IFZNS.fasl
; compilation finished in 0:00:00.797
; compiling file "/usr/share/common-lisp/source/cl-unicode/conditions.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFINE-CONDITION UNICODE-ERROR ...)
; processing (DEFINE-CONDITION SIMPLE-UNICODE-ERROR ...)
; processing (DEFUN SIGNAL-UNICODE-ERROR ...)
; processing (DEFINE-CONDITION CHARACTER-NOT-FOUND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/conditions-tmpHJTT78MC.fasl
; compilation finished in 0:00:00.047
; compiling file "/usr/share/common-lisp/source/cl-unicode/lists.lisp" (written 26 JAN 2020 06:05:07 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (SETQ *GENERAL-CATEGORIES* ...)
; processing (SETQ *SCRIPTS* ...)
; processing (SETQ *CODE-BLOCKS* ...)
; processing (SETQ *BINARY-PROPERTIES* ...)
; processing (SETQ *BIDI-CLASSES* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/lists-tmp929P40IZ.fasl
; compilation finished in 0:00:00.036
; compiling file "/usr/share/common-lisp/source/cl-unicode/hash-tables.lisp" (written 26 JAN 2020 06:05:07 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (CLRHASH *CANONICAL-NAMES*)
; processing (LOOP FOR ...)
; processing (CLRHASH *NAMES-TO-CODE-POINTS*)
; processing (LOOP FOR ...)
; processing (CLRHASH *CODE-POINTS-TO-NAMES*)
; processing (LOOP FOR ...)
; processing (CLRHASH *UNICODE1-NAMES-TO-CODE-POINTS*)
; processing (LOOP FOR ...)
; processing (CLRHASH *CODE-POINTS-TO-UNICODE1-NAMES*)
; processing (LOOP FOR ...)
; processing (CLRHASH *CASE-MAPPINGS*)
; processing (LOOP FOR ...)
; processing (CLRHASH *JAMO-SHORT-NAMES*)
; processing (LOOP FOR ...)
; processing (CLRHASH *PROPERTY-ALIASES*)
; processing (LOOP FOR ...)
; processing (ADD-HANGUL-NAMES)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/hash-tables-tmpA16OA1BF.fasl
; compilation finished in 0:00:09.397
;;; Computing Hangul syllable names
; compiling file "/usr/share/common-lisp/source/cl-unicode/api.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFUN TRY-ABBREVIATIONS ...)
; processing (DEFUN UNICODE-NAME-READER ...)
; processing (DEFUN %ENABLE-ALTERNATIVE-CHARACTER-SYNTAX ...)
; processing (DEFUN %DISABLE-ALTERNATIVE-CHARACTER-SYNTAX ...)
; processing (DEFGENERIC UNICODE-NAME ...)
; processing (DEFGENERIC UNICODE1-NAME ...)
; processing (DEFUN CHARACTER-NAMED ...)
; processing (DEFGENERIC SCRIPT ...)
; processing (DEFGENERIC CODE-BLOCK ...)
; processing (DEFGENERIC WORD-BREAK ...)
; processing (DEFGENERIC AGE ...)
; processing (DEFGENERIC GENERAL-CATEGORY ...)
; processing (DEFGENERIC BIDI-CLASS ...)
; processing (DEFUN BIDI-MIRRORING-GLYPH ...)
; processing (DEFGENERIC NUMERIC-TYPE ...)
; processing (DEFGENERIC NUMERIC-VALUE ...)
; processing (DEFGENERIC COMBINING-CLASS ...)
; processing (DEFGENERIC HAS-BINARY-PROPERTY ...)
; processing (DEFUN UPPERCASE-MAPPING ...)
; processing (DEFUN LOWERCASE-MAPPING ...)
; processing (DEFUN TITLECASE-MAPPING ...)
; processing (DEFUN GENERAL-CATEGORIES ...)
; processing (DEFUN SCRIPTS ...)
; processing (DEFUN CODE-BLOCKS ...)
; processing (DEFUN BINARY-PROPERTIES ...)
; processing (DEFUN BIDI-CLASSES ...)
; processing (DEFUN RECOGNIZED-PROPERTIES ...)
; processing (DEFGENERIC PROPERTY-TEST ...)
; processing (DEFUN HAS-PROPERTY ...)
; processing (DEFUN LIST-ALL-CHARACTERS ...)
; file: /usr/share/common-lisp/source/cl-unicode/api.lisp
; in: DEFUN LIST-ALL-CHARACTERS
; (IF CL-UNICODE::WANT-CODE-POINT-P
; CL-UNICODE:+CODE-POINT-LIMIT+
; CHAR-CODE-LIMIT)
; ==>
; CHAR-CODE-LIMIT
;
; note: deleting unreachable code
; processing (DEFMACRO ENABLE-ALTERNATIVE-CHARACTER-SYNTAX ...)
; processing (DEFMACRO DISABLE-ALTERNATIVE-CHARACTER-SYNTAX ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/api-tmpNQEV4YSK.fasl
; compilation finished in 0:00:01.249
; compiling file "/usr/share/common-lisp/source/cl-unicode/methods.lisp" (written 26 JAN 2020 06:05:07 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFMETHOD SCRIPT ...)
; processing (DEFMETHOD CODE-BLOCK ...)
; processing (DEFMETHOD WORD-BREAK ...)
; processing (DEFMETHOD AGE ...)
; processing (DEFMETHOD GENERAL-CATEGORY ...)
; processing (DEFMETHOD BIDI-CLASS ...)
; processing (DEFMETHOD NUMERIC-TYPE ...)
; processing (DEFMETHOD NUMERIC-VALUE ...)
; processing (DEFMETHOD COMBINING-CLASS ...)
; processing (DEFMETHOD BIDI-MIRRORING-GLYPH% ...)
; processing (DEFMETHOD BINARY-PROPS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/methods-tmp5ADTY1IC.fasl
; compilation finished in 0:00:02.730
; compiling file "/usr/share/common-lisp/source/cl-unicode/test-functions.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFUN INSTALL-ONE-TEST ...)
; processing (DEFUN INSTALL-SCRIPT-TESTS ...)
; processing (DEFUN INSTALL-CODE-BLOCK-TESTS ...)
; processing (DEFUN INSTALL-GENERAL-CATEGORY-TESTS ...)
; processing (DEFUN INSTALL-BINARY-PROPERTIES-TESTS ...)
; processing (DEFUN INSTALL-BIDI-CLASS-TESTS ...)
; processing (DEFUN INSTALL-MISCELLANEOUS-TESTS ...)
; processing (DEFUN INSTALL-TESTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/test-functions-tmpXLA08HYB.fasl
; compilation finished in 0:00:00.141
; compiling file "/usr/share/common-lisp/source/cl-unicode/derived.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFCONSTANT +XID-DIFFERENCE+ ...)
; processing (DEFVAR *DERIVED-MAP* ...)
; processing (DEFUN BUILD-DERIVED-TEST-FUNCTION ...)
; processing (DEFUN BUILD-DERIVED-TEST-FUNCTIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/derived-tmpQFGZB4XO.fasl
; compilation finished in 0:00:00.164
; compiling file "/usr/share/common-lisp/source/cl-unicode/alias.lisp" (written 07 APR 2019 03:47:10 PM):
; processing (IN-PACKAGE :CL-UNICODE)
; processing (DEFVAR *ALIAS-MAP* ...)
; processing (DEFVAR *BIDI-ALIAS-MAP* ...)
; processing (DEFUN CREATE-ALIAS ...)
; processing (DEFUN CREATE-ALIASES ...)
; processing (DEFUN BUILD-ALL-PROPERTY-TESTS ...)
; processing (BUILD-ALL-PROPERTY-TESTS)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-unicode/alias-tmpZLYWXAY4.fasl
; compilation finished in 0:00:00.245
; compiling file "/usr/share/common-lisp/source/named-readtables/src/package.lisp" (written 29 JAN 2020 12:03:36 PM):
; processing (IN-PACKAGE :COMMON-LISP-USER)
; processing (HANDLER-BIND (#) ...)
; processing (PUSHNEW :NAMED-READTABLES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/named-readtables/src/package-tmp41U2SYN6.fasl
; compilation finished in 0:00:00.030
; compiling file "/usr/share/common-lisp/source/named-readtables/src/utils.lisp" (written 29 JAN 2020 12:03:36 PM):
; processing (IN-PACKAGE :EDITOR-HINTS.NAMED-READTABLES)
; processing (DEFMACRO WITHOUT-PACKAGE-LOCK ...)
; processing (DEFMACRO DESTRUCTURE-CASE ...)
; processing (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; processing (DEFUN SIMPLE-STYLE-WARN ...)
; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; processing (DEFUN SIMPLE-PROGRAM-ERROR ...)
; processing (DEFUN REQUIRED-ARGUMENT ...)
; processing (DEFUN ENSURE-LIST ...)
; processing (DECLAIM (INLINE ENSURE-FUNCTION))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ENSURE-FUNCTION ...)
; processing (DEFUN PARSE-BODY ...)
; processing (DEFUN PARSE-ORDINARY-LAMBDA-LIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/named-readtables/src/utils-tmpZJO38N9S.fasl
; compilation finished in 0:00:00.395
; compiling file "/usr/share/common-lisp/source/named-readtables/src/define-api.lisp" (written 29 JAN 2020 12:03:36 PM):
; processing (IN-PACKAGE :NAMED-READTABLES)
; processing (DEFMACRO DEFINE-API ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/named-readtables/src/define-api-tmpTONDV3YY.fasl
; compilation finished in 0:00:00.084
; compiling file "/usr/share/common-lisp/source/named-readtables/src/cruft.lisp" (written 29 JAN 2020 12:03:36 PM):
; processing (IN-PACKAGE :EDITOR-HINTS.NAMED-READTABLES)
; processing (DEFMACRO DEFINE-CRUFT ...)
; processing (DEFVAR *READTABLE-NAMES* ...)
; processing (DEFINE-CRUFT %ASSOCIATE-READTABLE-WITH-NAME ...)
; processing (DEFINE-CRUFT %UNASSOCIATE-READTABLE-FROM-NAME ...)
; processing (DEFINE-CRUFT %READTABLE-NAME ...)
; processing (DEFINE-CRUFT %LIST-ALL-READTABLE-NAMES ...)
; processing (DEFVAR *NAMED-READTABLES* ...)
; processing (DEFINE-CRUFT %ASSOCIATE-NAME-WITH-READTABLE ...)
; processing (DEFINE-CRUFT %UNASSOCIATE-NAME-FROM-READTABLE ...)
; processing (DEFINE-CRUFT %FIND-READTABLE ...)
; processing (DEFINE-CRUFT FUNCTION= ...)
; processing (DEFINE-CRUFT DISPATCH-MACRO-CHAR-P ...)
; processing (DEFMACRO WITH-READTABLE-ITERATOR ...)
; processing (DEFUN %MAKE-READTABLE-ITERATOR ...)
; file: /usr/share/common-lisp/source/named-readtables/src/cruft.lisp
; in: DEFUN %MAKE-READTABLE-ITERATOR
; (SB-IMPL:CHARACTER-MACRO-ARRAY READTABLE)
;
; caught STYLE-WARNING:
; The function SB-IMPL:CHARACTER-MACRO-ARRAY has been deprecated as of #1=SBCL version 2.0.6.
;
; Use SB-IMPL::BASE-CHAR-MACRO-ARRAY instead.
;
; In future #1# versions SB-IMPL:CHARACTER-MACRO-ARRAY will signal a full warning
; at compile-time.
; See also:
; The SBCL Manual, Node "Deprecation Conditions"
; (SB-IMPL:CHARACTER-MACRO-HASH-TABLE READTABLE)
;
; caught STYLE-WARNING:
; The function SB-IMPL:CHARACTER-MACRO-HASH-TABLE has been deprecated as of #1=SBCL version 2.0.6.
;
; Use SB-IMPL::EXTENDED-CHAR-TABLE instead.
;
; In future #1# versions SB-IMPL:CHARACTER-MACRO-HASH-TABLE will signal a full
; warning at compile-time.
; See also:
; The SBCL Manual, Node "Deprecation Conditions"
; processing (DEFMACRO DO-READTABLE ...)
; processing (DEFINE-CRUFT %STANDARD-READTABLE ...)
; processing (DEFINE-CRUFT %CLEAR-READTABLE ...)
; processing (DEFINE-CRUFT %GET-DISPATCH-MACRO-CHARACTER ...)
; processing (DEFINE-CRUFT %GET-MACRO-CHARACTER ...)
; processing (WITHOUT-PACKAGE-LOCK (:COMMON-LISP) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/named-readtables/src/cruft-tmpGMDY266S.fasl
; compilation finished in 0:00:00.626
WARNING:
Lisp compilation had style-warnings while
compiling #<NAMED-READTABLES-SOURCE-FILE "named-readtables" "cruft">
; compiling file "/usr/share/common-lisp/source/named-readtables/src/named-readtables.lisp" (written 29 JAN 2020 12:03:36 PM):
; processing (IN-PACKAGE :EDITOR-HINTS.NAMED-READTABLES)
; processing (DEFMACRO DEFREADTABLE ...)
; processing (DEFMACRO IN-READTABLE ...)
; processing (DEFUN %FROB-SWANK-READTABLE-ALIST ...)
; processing (DEFTYPE READTABLE-DESIGNATOR ...)
; processing (DEFTYPE NAMED-READTABLE-DESIGNATOR ...)
; processing (DEFUN CONSTANT-STANDARD-READTABLE-EXPRESSION-P ...)
; processing (DEFUN SIGNAL-SUSPICIOUS-REGISTRATION-WARNING ...)
; processing (DEFINE-COMPILER-MACRO REGISTER-READTABLE ...)
; processing (DEFINE-COMPILER-MACRO ENSURE-READTABLE ...)
; processing (DECLAIM (SPECIAL *STANDARD-READTABLE* ...))
; processing (DEFINE-API MAKE-READTABLE ...)
; file: /usr/share/common-lisp/source/named-readtables/src/named-readtables.lisp
; in: DEFINE-API MAKE-READTABLE
; (EDITOR-HINTS.NAMED-READTABLES::DEFINE-API EDITOR-HINTS.NAMED-READTABLES:MAKE-READTABLE
; (&OPTIONAL
; (EDITOR-HINTS.NAMED-READTABLES::NAME NIL
; EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P)
; &KEY MERGE)
; (&OPTIONAL EDITOR-HINTS.NAMED-READTABLES:NAMED-READTABLE-DESIGNATOR &KEY
; (:MERGE LIST) EDITOR-HINTS.NAMED-READTABLES::=> READTABLE)
; #<(SIMPLE-ARRAY CHARACTER
; (620)) Creates and returns a new readtable under the specified
; NAME.
;
; MERGE takes a list of NAMED-READTABLE-DESIGNATORS and specifies the
; readtables the new readtable is created from. (See the :MERGE c... {558A0007}>
; (COND
; ((NOT EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P)
; (COPY-READTABLE EDITOR-HINTS.NAMED-READTABLES::*EMPTY-READTABLE*))
; ((EDITOR-HINTS.NAMED-READTABLES::RESERVED-READTABLE-NAME-P
; EDITOR-HINTS.NAMED-READTABLES::NAME)
; (ERROR "~A is the designator for a predefined readtable. ~
; Not acceptable as a user-specified readtable name."
; EDITOR-HINTS.NAMED-READTABLES::NAME))
; ((LET (#)
; (AND EDITOR-HINTS.NAMED-READTABLES::RT #)))
; (T
; (LET (#)
; (EDITOR-HINTS.NAMED-READTABLES:REGISTER-READTABLE
; EDITOR-HINTS.NAMED-READTABLES::NAME
; EDITOR-HINTS.NAMED-READTABLES::RESULT)))))
; --> PROGN LOCALLY DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA EDITOR-HINTS.NAMED-READTABLES:MAKE-READTABLE
; (&OPTIONAL
; (EDITOR-HINTS.NAMED-READTABLES::NAME NIL
; EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P)
; &KEY MERGE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; #<(SIMPLE-ARRAY CHARACTER
; (620)) Creates and returns a new readtable under the specified
; NAME.
;
; MERGE takes a list of NAMED-READTABLE-DESIGNATORS and specifies the
; readtables the new readtable is created from. (See the :MERGE c... {558A0007}>
; (DECLARE (UNMUFFLE-CONDITIONS STYLE-WARNING))
; (BLOCK EDITOR-HINTS.NAMED-READTABLES:MAKE-READTABLE
; (COND
; ((NOT EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P)
; (COPY-READTABLE EDITOR-HINTS.NAMED-READTABLES::*EMPTY-READTABLE*))
; ((EDITOR-HINTS.NAMED-READTABLES::RESERVED-READTABLE-NAME-P
; EDITOR-HINTS.NAMED-READTABLES::NAME)
; (ERROR "~A is the designator for a predefined readtable. ~
; Not acceptable as a user-specified readtable name."
; EDITOR-HINTS.NAMED-READTABLES::NAME))
; ((LET #
; #))
; (T
; (LET #
; #)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL
; (NAME NIL NAME-SUPPLIED-P)
; &KEY MERGE)
; processing (DEFINE-API RENAME-READTABLE ...)
; processing (DEFINE-API MERGE-READTABLES-INTO ...)
; processing (DEFUN ENSURE-DISPATCH-MACRO-CHARACTER ...)
; processing (DEFINE-API COPY-NAMED-READTABLE ...)
; processing (DEFINE-API LIST-ALL-NAMED-READTABLES ...)
; processing (DEFINE-CONDITION READTABLE-ERROR ...)
; processing (DEFINE-CONDITION READTABLE-DOES-NOT-EXIST ...)
; processing (DEFINE-CONDITION READTABLE-DOES-ALREADY-EXIST ...)
; processing (DEFINE-CONDITION READER-MACRO-CONFLICT ...)
; processing (DEFUN CHECK-READER-MACRO-CONFLICT ...)
; processing (DEFVAR *STANDARD-READTABLE* ...)
; processing (DEFVAR *EMPTY-READTABLE* ...)
; processing (DEFVAR *CASE-PRESERVING-STANDARD-READTABLE* ...)
; processing (DEFPARAMETER *RESERVED-READTABLE-NAMES* ...)
; processing (DEFUN RESERVED-READTABLE-NAME-P ...)
; processing (DEFUN FIND-RESERVED-READTABLE ...)
; processing (DEFINE-API FIND-READTABLE ...)
; processing (DEFSETF FIND-READTABLE ...)
; processing (DEFINE-API ENSURE-READTABLE ...)
; processing (DEFINE-API REGISTER-READTABLE ...)
; processing (DEFINE-API UNREGISTER-READTABLE ...)
; processing (DEFINE-API READTABLE-NAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/named-readtables/src/named-readtables-tmpI9AXLRQN.fasl
; compilation finished in 0:00:01.224
WARNING:
Lisp compilation had style-warnings while
compiling #<NAMED-READTABLES-SOURCE-FILE "named-readtables" "named-readtables">
; compiling file "/usr/share/common-lisp/source/cl-interpol/packages.lisp" (written 09 MAY 2018 09:57:56 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL-INTERPOL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-interpol/packages-tmpZF4X07W8.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/cl-interpol/specials.lisp" (written 09 MAY 2018 09:57:56 AM):
; processing (IN-PACKAGE :CL-INTERPOL)
; processing (DEFVAR *LIST-DELIMITER* ...)
; processing (DEFVAR *INNER-DELIMITERS* ...)
; processing (DEFVAR *OUTER-DELIMITERS* ...)
; processing (DEFVAR *REGEX-DELIMITERS* ...)
; processing (DEFVAR *UNICODE-ALIASES* ...)
; processing (DEFVAR *OPTIONAL-DELIMITERS-P* ...)
; processing (DEFVAR *INTERPOLATE-FORMAT-DIRECTIVES* ...)
; processing (DEFMACRO DEFVAR-UNBOUND ...)
; processing (DEFVAR-UNBOUND *SAW-BACKSLASH* ...)
; processing (DEFVAR-UNBOUND *PAIR-LEVEL* ...)
; processing (DEFVAR-UNBOUND *STREAM* ...)
; processing (DEFVAR-UNBOUND *START-CHAR* ...)
; processing (DEFVAR-UNBOUND *TERM-CHAR* ...)
; processing (DEFVAR *PREVIOUS-READTABLES* ...)
; processing (DEFVAR-UNBOUND *READTABLE-COPY* ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-interpol/specials-tmpMVKG2ZTN.fasl
; compilation finished in 0:00:00.112
; compiling file "/usr/share/common-lisp/source/cl-interpol/util.lisp" (written 09 MAY 2018 09:57:56 AM):
; processing (IN-PACKAGE :CL-INTERPOL)
; processing (DEFINE-CONDITION SIMPLE-READER-ERROR ...)
; processing (DEFMACRO SIGNAL-READER-ERROR ...)
; processing (DEFUN STRING-LIST-TO-STRING ...)
; processing (DEFUN GET-END-DELIMITER ...)
; processing (DECLAIM (INLINE MAKE-COLLECTOR))
; processing (DEFUN MAKE-COLLECTOR ...)
; processing (DECLAIM (INLINE MAKE-CHAR-FROM-CODE))
; processing (DEFUN MAKE-CHAR-FROM-CODE ...)
; file: /usr/share/common-lisp/source/cl-interpol/util.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-INTERPOL::SIGNAL-READER-ERROR "No character for char-code #x~X" NUMBER)
; --> ERROR
; ==>
; "No character for char-code #x~X"
;
; note: deleting unreachable code
; processing (DECLAIM (INLINE LOWER-CASE-P*))
; processing (DEFUN LOWER-CASE-P* ...)
; processing (DEFMACRO READ-CHAR* ...)
; processing (DEFMACRO PEEK-CHAR* ...)
; processing (DECLAIM (INLINE COPY-READTABLE*))
; processing (DEFUN COPY-READTABLE* ...)
; processing (DECLAIM (INLINE NSUBVEC))
; processing (DEFUN NSUBVEC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-interpol/util-tmpDS61DXCL.fasl
; compilation finished in 0:00:00.188
; compiling file "/usr/share/common-lisp/source/cl-interpol/alias.lisp" (written 09 MAY 2018 09:57:56 AM):
; processing (IN-PACKAGE :CL-INTERPOL)
; processing (LOOP FOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-interpol/alias-tmpINGWFQGR.fasl
; compilation finished in 0:00:00.025
; compiling file "/usr/share/common-lisp/source/cl-interpol/read.lisp" (written 09 MAY 2018 09:57:56 AM):
; processing (IN-PACKAGE :CL-INTERPOL)
; processing (DEFUN READ-WHILE ...)
; processing (DECLAIM (INLINE GET-NUMBER))
; processing (DEFUN GET-NUMBER ...)
; processing (DEFUN RESOLVE-UNICODE-NAME ...)
; processing (DEFUN GET-CHAR-FROM-UNICODE-NAME ...)
; processing (DEFUN UNESCAPE-CHAR ...)
; processing (DECLAIM (INLINE NORMAL-NAME-CHAR-P) ...)
; processing (DEFUN NORMAL-NAME-CHAR-P ...)
; processing (DEFUN NEVER-NAME-CHAR-P ...)
; processing (DEFVAR QUELL-WARNINGS-FORM ...)
; processing (DEFUN READ-LONGEST-NAME ...)
; processing (DEFUN READ-OPTIONAL-DELIMITED ...)
; processing (DECLAIM (INLINE READ-FORM))
; processing (DEFUN READ-FORM ...)
; processing (DEFUN READ-FORMAT-DIRECTIVE ...)
; processing (DEFUN INTERPOL-READER ...)
; processing (DEFUN INNER-READER ...)
; processing (DEFUN %ENABLE-INTERPOL-SYNTAX ...)
; processing (DEFUN %DISABLE-INTERPOL-SYNTAX ...)
; processing (DEFMACRO ENABLE-INTERPOL-SYNTAX ...)
; processing (DEFMACRO DISABLE-INTERPOL-SYNTAX ...)
; processing (DEFREADTABLE :INTERPOL-SYNTAX ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-interpol/read-tmpI8XOJZUN.fasl
; compilation finished in 0:00:01.479
; compiling file "/usr/share/common-lisp/source/cl-csv/packages.lisp" (written 12 JUL 2018 08:12:46 PM):
; processing (DEFPACKAGE :CL-CSV ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-csv/packages-tmp5XF0B0TS.fasl
; compilation finished in 0:00:00.006
; compiling file "/usr/share/common-lisp/source/cl-csv/vars.lisp" (written 12 JUL 2018 08:12:46 PM):
; processing (IN-PACKAGE :CL-CSV)
; processing (CL-INTERPOL:ENABLE-INTERPOL-SYNTAX)
; processing (DEFVAR *QUOTE* ...)
; processing (DEFVAR *SEPARATOR* ...)
; processing (DEFVAR *ESCAPE-MODE* ...)
; processing (DEFVAR *READ-NEWLINE* ...)
; processing (DEFVAR *WRITE-NEWLINE* ...)
; processing (DEFVAR *ALWAYS-QUOTE* ...)
; processing (DEFVAR *QUOTE-ESCAPE* ...)
; processing (DEFVAR *UNQUOTED-EMPTY-STRING-IS-NIL* ...)
; processing (DEFVAR *QUOTED-EMPTY-STRING-IS-NIL* ...)
; processing (DEFVAR *TRIM-OUTER-WHITESPACE* ...)
; processing (DEFVAR *ENABLE-SIGNALS* ...)
; processing (DEFVAR *EOF-CHAR* ...)
; processing (DEFVAR *BUFFER-SIZE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-csv/vars-tmpYAEH2GZM.fasl
; compilation finished in 0:00:00.017
; compiling file "/usr/share/common-lisp/source/cl-csv/read-until.lisp" (written 12 JUL 2018 08:12:46 PM):
; processing (IN-PACKAGE :CL-CSV)
; processing (DEFUN READ-INTO-BUFFER-UNTIL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-csv/read-until-tmpPR910SGQ.fasl
; compilation finished in 0:00:00.096
; compiling file "/usr/share/common-lisp/source/cl-csv/csv.lisp" (written 12 JUL 2018 08:12:46 PM):
; processing (IN-PACKAGE :CL-CSV)
; processing (CL-INTERPOL:ENABLE-INTERPOL-SYNTAX)
; processing (DEFUN WHITE-SPACE? ...)
; processing (DEFINE-CONDITION CSV-PARSE-ERROR ...)
; processing (DEFUN CSV-PARSE-ERROR ...)
; processing (DEFINE-CONDITION CSV-DATA-READ ...)
; processing (DEFUN CSV-DATA-READ ...)
; processing (DEFINE-CONDITION CSV-ROW-READ ...)
; processing (DEFUN CSV-ROW-READ ...)
; processing (DEFGENERIC FORMAT-CSV-VALUE ...)
; processing (DEFUN %CHAR-IN ...)
; processing (DEFUN CHARS-IN ...)
; processing (DEFGENERIC WRITE-CSV-VALUE ...)
; processing (DEFMACRO WITH-CSV-OUTPUT-STREAM ...)
; processing (DEFUN %OUT-STREAM ...)
; processing (DEFUN WRITE-CSV-ROW ...)
; processing (DEFUN WRITE-CSV ...)
; processing (DEFUN %ESCAPE-SEQ? ...)
; processing (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; processing (DEFUN %IN-STREAM ...)
; processing (DEFMACRO WITH-CSV-INPUT-STREAM ...)
; processing (DEFUN RESTARTABLE-READ-ROW ...)
; processing (DEFMACRO-CLAUSE (FOR VAR ...) ...)
; processing (DEFMACRO-CLAUSE (SAMPLING EXPR ...) ...)
; processing (DEFUN READ-CSV-SAMPLE ...)
; processing (DEFMACRO DO-CSV ...)
; processing (DEFUN READ-CSV-ROW ...)
; processing (DEFUN READ-CSV ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-csv/csv-tmp53I39IT7.fasl
; compilation finished in 0:00:01.542
; compiling file "/usr/share/common-lisp/source/cl-csv/parser.lisp" (written 12 JUL 2018 08:12:46 PM):
; processing (IN-PACKAGE :CL-CSV)
; processing (DEFCLASS READ-DISPATCH-TABLE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS READ-DISPATCH-TABLE-ENTRY ...)
; processing (DEFUN MAKE-TABLE-ENTRY ...)
; processing (DEFUN RESET-TABLE-ENTRY ...)
; processing (DEFMETHOD CHECK-TABLE-ENTRY ...)
; processing (DEFCLASS CSV-READER ...)
; processing (DEFUN MAP-EMPTY-STRING-TO-NIL ...)
; processing (DEFUN LAST-ITEM ...)
; processing (DEFUN (SETF LAST-ITEM) ...)
; processing (DEFUN %NEXT-CHAR ...)
; processing (DEFMETHOD READING-QUOTED-OR-ESCAPED ...)
; processing (DEFMETHOD READING-QUOTED ...)
; processing (DEFMETHOD READING-FOLLOWING-ESCAPED ...)
; processing (DEFMETHOD READING-ESCAPED ...)
; processing (DEFUN %TRIM-DATUM ...)
; processing (DEFUN COLLECT-DATUM ...)
; processing (DEFUN COLLECT-ROW-DATA ...)
; processing (DEFUN DROP-DELIMITER-CHARS ...)
; processing (DEFMETHOD READING-SEPARATOR ...)
; processing (DEFMETHOD READING-NEWLINE ...)
; processing (DEFUN READING-CHARACTER ...)
; processing (DEFUN %ESCAPE-IS-DOUBLE-QUOTE ...)
; processing (DEFUN MAKE-DEFAULT-CSV-READER ...)
; processing (DEFUN CHECK-AND-DISTPATCH ...)
; processing (DEFUN READ-WITH-DISPATCH-TABLE ...)
; processing (DEFUN READ-CSV-WITH-READER ...)
; processing (DEFUN READ-CSV-ROW-WITH-READER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-csv/parser-tmpEYDZ61SQ.fasl
; compilation finished in 0:00:01.127
; compiling file "/usr/share/common-lisp/source/cl-fad/packages.lisp" (written 22 JAN 2020 02:54:50 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE :CL-FAD ...)
; processing (DEFPACKAGE :PATH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-fad/packages-tmp8MGBJN76.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/cl-fad/fad.lisp" (written 22 JAN 2020 02:54:50 PM):
; processing (IN-PACKAGE :CL-FAD)
; processing (DEFUN COMPONENT-PRESENT-P ...)
; processing (DEFUN DIRECTORY-PATHNAME-P ...)
; processing (DEFUN PATHNAME-AS-DIRECTORY ...)
; processing (DEFUN DIRECTORY-WILDCARD ...)
; processing (DEFUN LIST-DIRECTORY ...)
; processing (DEFUN PATHNAME-AS-FILE ...)
; processing (DEFUN FILE-EXISTS-P ...)
; processing (DEFUN DIRECTORY-EXISTS-P ...)
; processing (DEFUN WALK-DIRECTORY ...)
; processing (DEFVAR *STREAM-BUFFER-SIZE* ...)
; processing (DEFUN COPY-STREAM ...)
; processing (DEFUN COPY-FILE ...)
; processing (DEFUN DELETE-DIRECTORY-AND-FILES ...)
; processing (DEFUN PATHNAME-DIRECTORY-PATHNAME ...)
; processing (DEFUN PATHNAME-PARENT-DIRECTORY ...)
; processing (DEFUN CANONICAL-PATHNAME ...)
; processing (DEFUN MERGE-PATHNAMES-AS-DIRECTORY ...)
; processing (DEFUN MERGE-PATHNAMES-AS-FILE ...)
; processing (DEFMACRO WITH-COMPONENT-TESTERS ...)
; processing (DEFUN PATHNAME-HOST-EQUAL ...)
; file: /usr/share/common-lisp/source/cl-fad/fad.lisp
; in: DEFUN PATHNAME-HOST-EQUAL
; (CL-FAD::WITH-COMPONENT-TESTERS (CL-FAD::A CL-FAD::B #'PATHNAME-HOST)
; (EQ CL-FAD::A CL-FAD::B)
; (CL-FAD::COMPONENTS-ARE-MEMBER '(NIL :UNSPECIFIC))
; (CL-FAD::COMPONENTS-ARE-STRING=)
; (CL-FAD::COMPONENTS-ARE-EVERY #'STRING=))
; --> LET* LABELS CL-FAD::COMPONENTS-ARE-STRING= BLOCK AND IF IF STRINGP
; ==>
; CL-FAD::B
;
; note: deleting unreachable code
; --> LET* LABELS CL-FAD::COMPONENTS-ARE-STRING= BLOCK AND IF STRING=
; ==>
; CL-FAD::A
;
; note: deleting unreachable code
; --> LET* LABELS CL-FAD::COMPONENTS-ARE-EVERY BLOCK AND IF IF CONSP
; ==>
; CL-FAD::B
;
; note: deleting unreachable code
; --> LET* LABELS CL-FAD::COMPONENTS-ARE-EVERY BLOCK AND IF EVERY LET BLOCK
; --> SB-INT:DX-FLET FLET SB-KERNEL:%MAP
; ==>
; CL-FAD::A
;
; note: deleting unreachable code
; processing (DEFUN PATHNAME-DEVICE-EQUAL ...)
; processing (DEFUN PATHNAME-DIRECTORY-EQUAL ...)
; processing (DEFUN PATHNAME-NAME-EQUAL ...)
; processing (DEFUN PATHNAME-TYPE-EQUAL ...)
; processing (DEFUN PATHNAME-VERSION-EQUAL ...)
; processing (DEFUN PATHNAME-EQUAL ...)
; processing (DEFUN PATHNAME-ABSOLUTE-P ...)
; processing (DEFUN PATHNAME-RELATIVE-P ...)
; processing (DEFUN PATHNAME-ROOT-P ...)
; processing (PUSHNEW :CL-FAD ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-fad/fad-tmpFRR3PO3W.fasl
; compilation finished in 0:00:01.476
; compiling file "/usr/share/common-lisp/source/cl-fad/path.lisp" (written 22 JAN 2020 02:54:50 PM):
; processing (IN-PACKAGE :CL-FAD)
; processing (DEFMACRO DEFALIAS ...)
; processing (DEFALIAS PATH:DIRNAME ...)
; processing (DEFUN PATH:BASENAME ...)
; processing (DEFALIAS PATH:-E ...)
; processing (DEFALIAS PATH:-D ...)
; processing (DEFALIAS PATH:CATFILE ...)
; processing (DEFALIAS PATH:CATDIR ...)
; processing (DEFALIAS PATH:= ...)
; processing (DEFALIAS PATH:ABSOLUTE-P ...)
; processing (DEFALIAS PATH:RELATIVE-P ...)
; processing (DEFALIAS PATH:ROOT-P ...)
; processing (DEFALIAS PATH:RM-R ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-fad/path-tmpOP5VLUO2.fasl
; compilation finished in 0:00:00.211
; compiling file "/usr/share/common-lisp/source/cl-fad/temporary-files.lisp" (written 22 JAN 2020 02:54:50 PM):
; processing (IN-PACKAGE :CL-FAD)
; processing (DEFPARAMETER *DEFAULT-TEMPLATE* ...)
; processing (DEFPARAMETER *MAX-TRIES* ...)
; processing (DEFVAR *NAME-RANDOM-STATE* ...)
; processing (DEFUN GETENV ...)
; processing (DEFUN DIRECTORY-FROM-ENVIRONMENT ...)
; processing (DEFUN GET-DEFAULT-TEMPORARY-DIRECTORY ...)
; processing (HANDLER-CASE (LOGICAL-PATHNAME-TRANSLATIONS "TEMPORARY-FILES") ...)
; processing (DEFVAR *CREATE-FILE-NAME-LOCK* ...)
; processing (DEFMACRO WITH-FILE-NAME-LOCK-HELD ...)
; processing (DEFUN GENERATE-RANDOM-STRING ...)
; processing (DEFINE-CONDITION INVALID-TEMPORARY-PATHNAME-TEMPLATE ...)
; processing (DEFUN GENERATE-RANDOM-PATHNAME ...)
; processing (DEFINE-CONDITION CANNOT-CREATE-TEMPORARY-FILE ...)
; processing (DEFUN OPEN-TEMPORARY ...)
; processing (DEFMACRO WITH-OUTPUT-TO-TEMPORARY-FILE ...)
; processing (DEFMACRO WITH-OPEN-TEMPORARY-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-fad/temporary-files-tmpTL22HQPZ.fasl
; compilation finished in 0:00:00.422
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/package.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.UTIL ...)
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/package-tmpPO723770.fasl
; compilation finished in 0:00:00.013
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/config.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; processing (DEFVAR *NORMAL-OPTIMIZE* ...)
; processing (DEFVAR *FULL-OPTIMIZE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/config-tmp6R81FEHC.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/misc.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; processing (DEFMACRO ALIAS-FUNCTION ...)
; processing (DEFMACRO ALIAS-MACRO ...)
; processing (DEFUN UNSPLICE ...)
; processing (DEFUN SYMBOLICATE/PACKAGE ...)
; processing (DEFUN SYMBOLICATE/NO-INTERN ...)
; processing (DEFMACRO WITH-PARSED-BODY ...)
; processing (DECLAIM (INLINE TO-BOOLEAN))
; processing (DEFUN TO-BOOLEAN ...)
; processing (DEFUN INTERACT ...)
; processing (DEFMACRO REPEAT ...)
; processing (DEFMACRO DOSEQUENCE ...)
; processing (DEFMACRO UNWIND-PROTECT/EXT ...)
; processing (DEFTYPE INDEX ...)
; processing (ALIAS-FUNCTION PARTIAL-APPLY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/misc-tmpZSG6NLZB.fasl
; compilation finished in 0:00:00.420
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defmacro.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; processing (DEFMACRO DEFMACRO/ONCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/defmacro-tmpDIBZD6K2.fasl
; compilation finished in 0:00:00.169
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defun.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; processing (DEFUN CONSTRAIN-RETURN-TYPE ...)
; processing (DEFMACRO DEFUN/INLINE ...)
; processing (DEFMACRO DEFUN/TYPE ...)
; processing (DEFMACRO DEFUN/TYPE/INLINE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/defun-tmpQN4Y84HS.fasl
; compilation finished in 0:00:00.202
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defslots.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; processing (DEFUN PLIST-KEYS ...)
; processing (DEFUN PLIST-VALUES-FOR-KEY ...)
; processing (DEFUN PARSE-DEFSLOTS ...)
; processing (DEFUN DEFSLOTS-NAMES ...)
; processing (DEFMACRO DEFINE-SLOTS-MACROLET ...)
; processing (DEFMACRO DEFINE-WITH-SLOTS-MACRO ...)
; processing (DEFMACRO DEFINE-STRUCT ...)
; processing (DEFMACRO DEFINE-READER ...)
; processing (DEFMACRO DEFINE-READERS ...)
; processing (DEFMACRO %DEFSLOTS ...)
; processing (DEFMACRO DEFSLOTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/defslots-tmp340KG985.fasl
; compilation finished in 0:00:00.564
; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defpair.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.UTIL)
; processing (DEFMACRO DEFPAIR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/util/defpair-tmpYG12T9AF.fasl
; compilation finished in 0:00:00.214
; compiling file "/usr/share/common-lisp/source/lparallel/src/thread-util.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.THREAD-UTIL ...)
; processing (IN-PACKAGE #:LPARALLEL.THREAD-UTIL)
; processing (PUSHNEW :LPARALLEL.WITHOUT-BORDEAUX-THREADS-CONDITION-WAIT-TIMEOUT ...)
; processing (DEFUN CONDITION-WAIT ...)
; processing (ALIAS-FUNCTION CONDITION-NOTIFY ...)
; processing (DEFMACRO CAS ...)
; processing (DEFUN MAKE-SPIN-LOCK ...)
; processing (DEFMACRO/ONCE WITH-SPIN-LOCK-HELD ...)
; processing (DEFMACRO WITH-ABORT-RESTART ...)
; processing (DEFMACRO WITH-THREAD ...)
; processing (DEFMACRO WITH-LOCK-PREDICATE/NO-WAIT ...)
; processing (DEFMACRO WITH-LOCK-PREDICATE/WAIT ...)
; processing (DEFUN/INLINE GET-REAL-TIME-IN-SECONDS ...)
; processing (DEFUN %TIME-REMAINING ...)
; processing (DEFMACRO/ONCE WITH-COUNTDOWN ...)
; processing (DEFMACRO DEFINE-LOCKING-FN/BASE ...)
; processing (DEFMACRO DEFINE-LOCKING-FN ...)
; processing (DEFMACRO DEFINE-SIMPLE-LOCKING-FN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/thread-util-tmpRJ9I5SG8.fasl
; compilation finished in 0:00:00.622
; compiling file "/usr/share/common-lisp/source/lparallel/src/raw-queue.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.RAW-QUEUE ...)
; processing (IN-PACKAGE #:LPARALLEL.RAW-QUEUE)
; processing (DEFTYPE RAW-QUEUE-COUNT ...)
; processing (DEFSTRUCT (RAW-QUEUE # ...) ...)
; processing (DEFUN/INLINE MAKE-RAW-QUEUE ...)
; processing (DEFUN/TYPE PUSH-RAW-QUEUE ...)
; processing (DEFUN/TYPE POP-RAW-QUEUE ...)
; processing (DEFUN/INLINE RAW-QUEUE-COUNT ...)
; processing (DEFUN/INLINE RAW-QUEUE-EMPTY-P ...)
; processing (DEFUN/INLINE PEEK-RAW-QUEUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/raw-queue-tmpEASBRXZL.fasl
; compilation finished in 0:00:00.107
; compiling file "/usr/share/common-lisp/source/lparallel/src/cons-queue.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.CONS-QUEUE ...)
; processing (IN-PACKAGE #:LPARALLEL.CONS-QUEUE)
; processing (DEFSLOTS CONS-QUEUE ...)
; processing (DEFUN %MAKE-CONS-QUEUE ...)
; processing (DEFMACRO WITH-LOCKED-CONS-QUEUE ...)
; processing (DEFINE-LOCKING-FN PUSH-CONS-QUEUE ...)
; processing (DEFINE-LOCKING-FN POP-CONS-QUEUE ...)
; processing (DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ...)
; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp
; in: DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT
; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING)
; ==>
; (> LPARALLEL.THREAD-UTIL::TIME-REMAINING 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; processing (DEFUN TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ...)
; processing (DEFUN TRY-POP-CONS-QUEUE ...)
; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp
; in: DEFUN TRY-POP-CONS-QUEUE
; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT)
; ==>
; (> LPARALLEL.CONS-QUEUE::TIMEOUT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; processing (DEFUN TRY-POP-CONS-QUEUE/NO-LOCK ...)
; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp
; in: DEFUN TRY-POP-CONS-QUEUE/NO-LOCK
; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT)
; ==>
; (> LPARALLEL.CONS-QUEUE::TIMEOUT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; processing (DEFMACRO DEFINE-QUEUE-FN ...)
; processing (DEFINE-QUEUE-FN CONS-QUEUE-COUNT ...)
; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp
; in: DEFINE-QUEUE-FN CONS-QUEUE-COUNT
; (LPARALLEL.CONS-QUEUE::DEFINE-QUEUE-FN LPARALLEL.CONS-QUEUE:CONS-QUEUE-COUNT
; (LPARALLEL.CONS-QUEUE:CONS-QUEUE)
; LPARALLEL.RAW-QUEUE:RAW-QUEUE-COUNT
; LPARALLEL.RAW-QUEUE:RAW-QUEUE-COUNT)
; --> LPARALLEL.THREAD-UTIL::DEFINE-SIMPLE-LOCKING-FN
; --> LPARALLEL.THREAD-UTIL::DEFINE-LOCKING-FN/BASE PROGN
; --> LPARALLEL.UTIL:DEFUN/TYPE PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; ==>
; (THE (VALUES LPARALLEL.RAW-QUEUE:RAW-QUEUE-COUNT &OPTIONAL)
; (PROGN
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.CONS-QUEUE::LOCK
; LPARALLEL.CONS-QUEUE::QUEUE))
; (LPARALLEL.CONS-QUEUE:CONS-QUEUE-COUNT/NO-LOCK
; LPARALLEL.CONS-QUEUE::QUEUE))))
;
; caught STYLE-WARNING:
; Constant NIL conflicts with its asserted type (VALUES UNSIGNED-BYTE &OPTIONAL).
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFINE-QUEUE-FN CONS-QUEUE-EMPTY-P ...)
; processing (DEFINE-QUEUE-FN PEEK-CONS-QUEUE ...)
; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp
; in: DEFINE-QUEUE-FN PEEK-CONS-QUEUE
; (LPARALLEL.CONS-QUEUE::DEFINE-QUEUE-FN LPARALLEL.CONS-QUEUE:PEEK-CONS-QUEUE
; (LPARALLEL.CONS-QUEUE:CONS-QUEUE)
; LPARALLEL.RAW-QUEUE:PEEK-RAW-QUEUE
; (VALUES T BOOLEAN))
; --> LPARALLEL.THREAD-UTIL::DEFINE-SIMPLE-LOCKING-FN
; --> LPARALLEL.THREAD-UTIL::DEFINE-LOCKING-FN/BASE PROGN
; --> LPARALLEL.UTIL:DEFUN/TYPE PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; ==>
; (THE (VALUES T BOOLEAN &OPTIONAL)
; (PROGN
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.CONS-QUEUE::LOCK
; LPARALLEL.CONS-QUEUE::QUEUE))
; (LPARALLEL.CONS-QUEUE:PEEK-CONS-QUEUE/NO-LOCK
; LPARALLEL.CONS-QUEUE::QUEUE))))
;
; caught STYLE-WARNING:
; Constant NIL conflicts with its asserted type (VALUES T BOOLEAN &OPTIONAL).
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFUN MAKE-CONS-QUEUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cons-queue-tmpCKNP2Q0I.fasl
; compilation finished in 0:00:00.530
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "lparallel" "src" "cons-queue">
; compiling file "/usr/share/common-lisp/source/lparallel/src/vector-queue.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.VECTOR-QUEUE ...)
; processing (IN-PACKAGE #:LPARALLEL.VECTOR-QUEUE)
; processing (DEFTYPE RAW-QUEUE-COUNT ...)
; processing (DEFSLOTS RAW-QUEUE ...)
; processing (DEFUN MAKE-RAW-QUEUE ...)
; processing (DEFUN/TYPE PUSH-RAW-QUEUE ...)
; processing (DEFUN/TYPE POP-RAW-QUEUE ...)
; processing (DEFUN/TYPE PEEK-RAW-QUEUE ...)
; processing (DEFUN/TYPE/INLINE RAW-QUEUE-EMPTY-P ...)
; processing (DEFUN/TYPE/INLINE RAW-QUEUE-FULL-P ...)
; processing (DEFUN/TYPE/INLINE RAW-QUEUE-CAPACITY ...)
; processing (DEFSLOTS VECTOR-QUEUE ...)
; processing (DEFUN %MAKE-VECTOR-QUEUE ...)
; processing (DEFMACRO WITH-LOCKED-VECTOR-QUEUE ...)
; processing (DEFINE-LOCKING-FN PUSH-VECTOR-QUEUE ...)
; processing (DEFINE-LOCKING-FN POP-VECTOR-QUEUE ...)
; processing (DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ...)
; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp
; in: DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT
; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING)
; ==>
; (> LPARALLEL.THREAD-UTIL::TIME-REMAINING 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; processing (DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK/NO-TIMEOUT ...)
; processing (DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ...)
; processing (DEFUN TRY-POP-VECTOR-QUEUE ...)
; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp
; in: DEFUN TRY-POP-VECTOR-QUEUE
; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT)
; ==>
; (> LPARALLEL.VECTOR-QUEUE::TIMEOUT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; processing (DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK ...)
; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp
; in: DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK
; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT)
; ==>
; (> LPARALLEL.VECTOR-QUEUE::TIMEOUT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; processing (DEFMACRO DEFINE-QUEUE-FN ...)
; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-COUNT ...)
; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp
; in: DEFINE-QUEUE-FN VECTOR-QUEUE-COUNT
; (LPARALLEL.VECTOR-QUEUE::DEFINE-QUEUE-FN
; LPARALLEL.VECTOR-QUEUE:VECTOR-QUEUE-COUNT
; (LPARALLEL.VECTOR-QUEUE:VECTOR-QUEUE)
; LPARALLEL.VECTOR-QUEUE::RAW-QUEUE-COUNT
; LPARALLEL.VECTOR-QUEUE::RAW-QUEUE-COUNT)
; --> LPARALLEL.THREAD-UTIL::DEFINE-SIMPLE-LOCKING-FN
; --> LPARALLEL.THREAD-UTIL::DEFINE-LOCKING-FN/BASE PROGN
; --> LPARALLEL.UTIL:DEFUN/TYPE PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; ==>
; (THE (VALUES LPARALLEL.VECTOR-QUEUE::RAW-QUEUE-COUNT &OPTIONAL)
; (PROGN
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.VECTOR-QUEUE::LOCK
; LPARALLEL.VECTOR-QUEUE::QUEUE))
; (LPARALLEL.VECTOR-QUEUE:VECTOR-QUEUE-COUNT/NO-LOCK
; LPARALLEL.VECTOR-QUEUE::QUEUE))))
;
; caught STYLE-WARNING:
; Constant
; NIL conflicts with its asserted type
; (VALUES (MOD 536870909) &OPTIONAL).
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-CAPACITY ...)
; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp
; in: DEFINE-QUEUE-FN VECTOR-QUEUE-CAPACITY
; (LPARALLEL.VECTOR-QUEUE::DEFINE-QUEUE-FN
; LPARALLEL.VECTOR-QUEUE:VECTOR-QUEUE-CAPACITY
; (LPARALLEL.VECTOR-QUEUE:VECTOR-QUEUE)
; LPARALLEL.VECTOR-QUEUE::RAW-QUEUE-CAPACITY
; LPARALLEL.VECTOR-QUEUE::RAW-QUEUE-COUNT)
; --> LPARALLEL.THREAD-UTIL::DEFINE-SIMPLE-LOCKING-FN
; --> LPARALLEL.THREAD-UTIL::DEFINE-LOCKING-FN/BASE PROGN
; --> LPARALLEL.UTIL:DEFUN/TYPE PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; ==>
; (THE (VALUES LPARALLEL.VECTOR-QUEUE::RAW-QUEUE-COUNT &OPTIONAL)
; (PROGN
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.VECTOR-QUEUE::LOCK
; LPARALLEL.VECTOR-QUEUE::QUEUE))
; (LPARALLEL.VECTOR-QUEUE::VECTOR-QUEUE-CAPACITY/NO-LOCK
; LPARALLEL.VECTOR-QUEUE::QUEUE))))
;
; caught STYLE-WARNING:
; Constant
; NIL conflicts with its asserted type
; (VALUES (MOD 536870909) &OPTIONAL).
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-EMPTY-P ...)
; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-FULL-P ...)
; processing (DEFINE-QUEUE-FN PEEK-VECTOR-QUEUE ...)
; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp
; in: DEFINE-QUEUE-FN PEEK-VECTOR-QUEUE
; (LPARALLEL.VECTOR-QUEUE::DEFINE-QUEUE-FN
; LPARALLEL.VECTOR-QUEUE:PEEK-VECTOR-QUEUE
; (LPARALLEL.VECTOR-QUEUE:VECTOR-QUEUE) LPARALLEL.VECTOR-QUEUE::PEEK-RAW-QUEUE
; (VALUES T BOOLEAN))
; --> LPARALLEL.THREAD-UTIL::DEFINE-SIMPLE-LOCKING-FN
; --> LPARALLEL.THREAD-UTIL::DEFINE-LOCKING-FN/BASE PROGN
; --> LPARALLEL.UTIL:DEFUN/TYPE PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; ==>
; (THE (VALUES T BOOLEAN &OPTIONAL)
; (PROGN
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.VECTOR-QUEUE::LOCK
; LPARALLEL.VECTOR-QUEUE::QUEUE))
; (LPARALLEL.VECTOR-QUEUE:PEEK-VECTOR-QUEUE/NO-LOCK
; LPARALLEL.VECTOR-QUEUE::QUEUE))))
;
; caught STYLE-WARNING:
; Constant NIL conflicts with its asserted type (VALUES T BOOLEAN &OPTIONAL).
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFUN MAKE-VECTOR-QUEUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/vector-queue-tmpH1UXERVA.fasl
; compilation finished in 0:00:00.965
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "lparallel" "src" "vector-queue">
; compiling file "/usr/share/common-lisp/source/lparallel/src/queue.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.QUEUE ...)
; processing (IN-PACKAGE #:LPARALLEL.QUEUE)
; processing (DEFTYPE QUEUE ...)
; processing (DEFUN %MAKE-QUEUE ...)
; processing (DEFUN MAKE-QUEUE ...)
; processing (DEFINE-COMPILER-MACRO MAKE-QUEUE ...)
; processing (DEFUN CALL-WITH-LOCKED-CONS-QUEUE ...)
; processing (DEFUN CALL-WITH-LOCKED-VECTOR-QUEUE ...)
; processing (DEFMACRO WITH-LOCKED-QUEUE ...)
; processing (DEFUN/INLINE CONS-QUEUE-FULL-P ...)
; processing (DEFUN/INLINE CONS-QUEUE-FULL-P/NO-LOCK ...)
; processing (DEFMACRO DEFINE-QUEUE-FN ...)
; processing (DEFINE-QUEUE-FN PUSH-QUEUE ...)
; processing (DEFINE-QUEUE-FN PUSH-QUEUE/NO-LOCK ...)
; processing (DEFINE-QUEUE-FN POP-QUEUE ...)
; processing (DEFINE-QUEUE-FN POP-QUEUE/NO-LOCK ...)
; processing (DEFINE-QUEUE-FN PEEK-QUEUE ...)
; processing (DEFINE-QUEUE-FN PEEK-QUEUE/NO-LOCK ...)
; processing (DEFINE-QUEUE-FN QUEUE-COUNT ...)
; processing (DEFINE-QUEUE-FN QUEUE-COUNT/NO-LOCK ...)
; processing (DEFINE-QUEUE-FN QUEUE-EMPTY-P ...)
; processing (DEFINE-QUEUE-FN QUEUE-EMPTY-P/NO-LOCK ...)
; processing (DEFINE-QUEUE-FN QUEUE-FULL-P ...)
; processing (DEFINE-QUEUE-FN QUEUE-FULL-P/NO-LOCK ...)
; processing (DEFMACRO DEFINE-TRY-POP-QUEUE ...)
; processing (DEFINE-TRY-POP-QUEUE TRY-POP-QUEUE ...)
; processing (DEFINE-TRY-POP-QUEUE TRY-POP-QUEUE/NO-LOCK ...)
; processing (DEFINE-QUEUE-FN CALL-WITH-LOCKED-QUEUE ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (DO-EXTERNAL-SYMBOLS (SYM *PACKAGE*) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/queue-tmpJBYP38D2.fasl
; compilation finished in 0:00:00.638
; compiling file "/usr/share/common-lisp/source/lparallel/src/counter.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.COUNTER ...)
; processing (IN-PACKAGE #:LPARALLEL.COUNTER)
; processing (DEFTYPE COUNTER-VALUE ...)
; processing (DEFSTRUCT (COUNTER #) ...)
; processing (DEFMACRO DEFINE-COUNTER-FN ...)
; processing (DEFINE-COUNTER-FN INC-COUNTER ...)
; processing (DEFINE-COUNTER-FN DEC-COUNTER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/counter-tmpP72SYZFZ.fasl
; compilation finished in 0:00:00.164
; compiling file "/usr/share/common-lisp/source/lparallel/src/spin-queue/package.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.SPIN-QUEUE ...)
; processing (IN-PACKAGE #:LPARALLEL.SPIN-QUEUE)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/spin-queue/package-tmpSMN3OT3O.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/lparallel/src/spin-queue/cas-spin-queue.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.SPIN-QUEUE)
; processing (DEFTYPE NODE ...)
; processing (ALIAS-FUNCTION MAKE-NODE ...)
; processing (DEFMACRO NODE-CAR ...)
; processing (DEFMACRO NODE-CDR ...)
; processing (DEFCONSTANT +DUMMY+ ...)
; processing (DEFCONSTANT +DEAD-END+ ...)
; processing (DEFSTRUCT (SPIN-QUEUE #) ...)
; processing (DEFUN MAKE-SPIN-QUEUE ...)
; processing (DEFUN/TYPE PUSH-SPIN-QUEUE ...)
; processing (DEFUN/TYPE POP-SPIN-QUEUE ...)
; processing (DEFUN SPIN-QUEUE-EMPTY-P ...)
; processing (DEFUN TRY-EACH-ELEM ...)
; processing (DEFUN SPIN-QUEUE-COUNT ...)
; processing (DEFUN PEEK-SPIN-QUEUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/spin-queue/cas-spin-queue-tmpCXZ5UQTG.fasl
; compilation finished in 0:00:00.224
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/package.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.KERNEL ...)
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/package-tmpLPG1WV0Z.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/specials.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFVAR *DEBUGGER-ERROR* ...)
; processing (DEFVAR *HANDLER-ACTIVE-P* ...)
; processing (DEFVAR *CLIENT-HANDLERS* ...)
; processing (DEFVAR *TASK-CATEGORY* ...)
; processing (DEFVAR *TASK-PRIORITY* ...)
; processing (DEFVAR *WORKER* ...)
; processing (DEFVAR *KERNEL* ...)
; processing (DEFVAR *MAKE-LIMITER-DATA*)
; processing (DEFVAR *KERNEL-SPIN-COUNT* ...)
; processing (DEFVAR *DEBUG-TASKS-P* ...)
; processing (DEFVAR *LISP-EXITING-P* ...)
; processing (DEFVAR *ERRORING-WORKERS* ...)
; processing (DEFVAR *ERRORING-WORKERS-LOCK* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/specials-tmp2BQ0W66.fasl
; compilation finished in 0:00:00.019
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/handling.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFSLOTS WRAPPED-ERROR ...)
; processing (DEFUN WRAP-ERROR ...)
; processing (DEFUN UNWRAP-RESULT ...)
; processing (DEFMACRO TASK-HANDLER-BIND ...)
; processing (DEFUN INVOKE-TRANSFER-ERROR ...)
; processing (DEFUN CONDITION-HANDLER ...)
; processing (DEFUN CALL-WITH-TRACKED-ERROR ...)
; processing (DEFMACRO WITH-TRACKED-ERROR ...)
; processing (DEFUN MAKE-DEBUGGER-HOOK ...)
; processing (DEFUN TRANSFER-ERROR-REPORT ...)
; processing (DEFCONSTANT +CURRENT-TASK+ ...)
; processing (DEFUN TRANSFER-ERROR-RESTART ...)
; processing (DEFMACRO WITH-TASK-CONTEXT ...)
; processing (DEFUN %CALL-WITH-TASK-HANDLER ...)
; processing (DEFUN CALL-WITH-TASK-HANDLER ...)
; processing (DEFINE-CONDITION TASK-KILLED-ERROR ...)
; processing (DEFINE-CONDITION NO-KERNEL-ERROR ...)
; processing (DEFINE-CONDITION KERNEL-CREATION-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/handling-tmpPYCJEVS9.fasl
; compilation finished in 0:00:00.442
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/classes.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFSLOTS WORKER-INFO ...)
; processing (DEFSLOTS WORKER-NOTIFICATIONS ...)
; processing (DEFSLOTS WORKER ...)
; processing (DEFSLOTS SCHEDULER ...)
; processing (DEFSTRUCT (LIMITER #) ...)
; processing (DEFSLOTS KERNEL ...)
; processing (DEFSLOTS CHANNEL ...)
; processing (DEFPAIR TASK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/classes-tmpNTDAWR8E.fasl
; compilation finished in 0:00:01.471
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFMACRO DEFINE-MOD-INC-DEC ...)
; processing (DEFINE-MOD-INC-DEC MOD-INC ...)
; processing (DEFINE-MOD-INC-DEC MOD-DEC ...)
; processing (DEFMACRO DEFINE-MOD-INCF-DECF ...)
; processing (DEFINE-MOD-INCF-DECF MOD-INCF ...)
; processing (DEFINE-MOD-INCF-DECF MOD-DECF ...)
; processing (DEFMACRO WITH-POP-SUCCESS ...)
; processing (DEFMACRO REPEAT/FIXNUM ...)
; processing (DEFMACRO DO-INDEXES ...)
; processing (DEFUN MAKE-SCHEDULER ...)
; processing (DEFUN/TYPE/INLINE PUSH-TO-RANDOM-WORKER ...)
; processing (DEFUN/TYPE MAYBE-WAKE-A-WORKER ...)
; file: /usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler.lisp
; in: DEFUN/TYPE MAYBE-WAKE-A-WORKER
; (INCF LPARALLEL.KERNEL::NOTIFY-COUNT)
; --> LET*
; ==>
; (+ 1
; (SB-KERNEL:THE* ((INTEGER 0) :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF
; (THE LPARALLEL.KERNEL::SCHEDULER #:OBJ) 5)))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN/TYPE SCHEDULE-TASK ...)
; processing (DEFMACRO DO-WORKERS ...)
; processing (DEFUN/TYPE NEXT-TASK ...)
; file: /usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler.lisp
; in: DEFUN/TYPE NEXT-TASK
; (PLUSP LPARALLEL.KERNEL::NOTIFY-COUNT)
; ==>
; (> LPARALLEL.KERNEL::NOTIFY-COUNT 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; etc.
; (DECF LPARALLEL.KERNEL::NOTIFY-COUNT)
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST
; T).
; etc.
; processing (DEFUN/TYPE STEAL-TASK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler-tmpPV91TU4G.fasl
; compilation finished in 0:00:00.810
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/kill.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFCONSTANT +WORKER-SUICIDE-TAG+ ...)
; processing (DEFUN KILL ...)
; processing (DEFUN KILL-ERRORS ...)
; processing (DEFUN KILL-ERRORS-REPORT ...)
; processing (DEFMACRO WITH-WORKER-RESTARTS ...)
; processing (DEFUN KILL-TASKS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/kill-tmpI3J72C7T.fasl
; compilation finished in 0:00:00.197
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/core.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFUN/TYPE EXEC-TASK/WORKER ...)
; processing (DEFUN/TYPE/INLINE EXEC-TASK/NON-WORKER ...)
; processing (DEFUN/TYPE STEAL-WORK ...)
; processing (DEFUN HANDSHAKE/TO-WORKER/START ...)
; processing (DEFUN HANDSHAKE/TO-WORKER/FINISH ...)
; processing (DEFUN HANDSHAKE/FROM-WORKER/START ...)
; processing (DEFUN HANDSHAKE/FROM-WORKER/FINISH ...)
; processing (DEFUN NOTIFY-EXIT ...)
; processing (DEFUN WAIT-FOR-WORKER ...)
; processing (DEFUN REPLACE-WORKER ...)
; processing (DEFUN/TYPE WORKER-LOOP ...)
; processing (DEFUN CALL-WITH-WORKER-CONTEXT ...)
; processing (DEFUN ENTER-WORKER-LOOP ...)
; processing (DEFUN MAKE-ALL-BINDINGS ...)
; processing (DEFUN %MAKE-WORKER ...)
; processing (DEFUN MAKE-WORKER-THREAD ...)
; processing (DEFUN MAKE-WORKER ...)
; processing (DEFMACRO WITH-FILL-WORKERS-HANDLER ...)
; processing (DEFUN %FILL-WORKERS ...)
; processing (DEFUN FILL-WORKERS ...)
; processing (DEFUN MAKE-KERNEL ...)
; processing (DEFUN CHECK-KERNEL ...)
; processing (DEFMACRO DEFINE-WORKER-INFO-READER ...)
; processing (DEFINE-WORKER-INFO-READER KERNEL-BINDINGS ...)
; processing (DEFINE-WORKER-INFO-READER KERNEL-NAME ...)
; processing (DEFINE-WORKER-INFO-READER KERNEL-CONTEXT ...)
; processing (DEFUN/TYPE/INLINE %KERNEL-WORKER-COUNT ...)
; processing (DEFUN KERNEL-WORKER-COUNT ...)
; processing (DEFUN KERNEL-WORKER-INDEX ...)
; processing (DEFUN %MAKE-CHANNEL ...)
; processing (DEFUN MAKE-CHANNEL ...)
; processing (DEFINE-COMPILER-MACRO MAKE-CHANNEL ...)
; processing (DEFMACRO TASK-LAMBDA ...)
; processing (DEFUN/TYPE/INLINE MAKE-TASK ...)
; processing (DEFUN/TYPE MAKE-CHANNELED-TASK ...)
; processing (DEFUN/TYPE/INLINE SUBMIT-RAW-TASK ...)
; processing (DEFUN SUBMIT-TASK ...)
; processing (DEFUN RECEIVE-RESULT ...)
; processing (DEFUN TRY-RECEIVE-RESULT ...)
; processing (DEFMACRO/ONCE DO-FAST-RECEIVES ...)
; processing (DEFUN SHUTDOWN ...)
; processing (DEFUN END-KERNEL ...)
; processing (DEFUN TASK-CATEGORIES-RUNNING ...)
; processing (DEFUN KERNEL-INFO ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN BROADCAST-TASK ...)
; processing (DEFUN TRACK-EXIT ...)
; processing (PUSHNEW (QUOTE TRACK-EXIT) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/core-tmpC2M3G5VV.fasl
; compilation finished in 0:00:01.264
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/timeout.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (DEFSLOTS TIMEOUT ...)
; processing (DEFUN SUBMIT-TIMEOUT ...)
; processing (DEFUN CANCEL-TIMEOUT ...)
; processing (DEFUN DEPRECATED-TIMEOUT ...)
; processing (DEFINE-COMPILER-MACRO SUBMIT-TIMEOUT ...)
; processing (DEFINE-COMPILER-MACRO CANCEL-TIMEOUT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel/timeout-tmpDW89DWK1.fasl
; compilation finished in 0:00:00.275
; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel-util.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.KERNEL-UTIL ...)
; processing (IN-PACKAGE #:LPARALLEL.KERNEL-UTIL)
; processing (DEFUN STEAL-UNTIL-RECEIVE-RESULT ...)
; processing (DEFUN RECEIVE-RESULTS ...)
; file: /usr/share/common-lisp/source/lparallel/src/kernel-util.lisp
; in: DEFUN RECEIVE-RESULTS
; (LPARALLEL.UTIL:REPEAT COUNT
; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL
; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN))
; --> LOOP BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> LOOP BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LOOP BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT
; LPARALLEL.KERNEL:CHANNEL COUNT)
; (LOCALLY
; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN))
; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT)))
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT
; LPARALLEL.KERNEL:CHANNEL COUNT)
; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT)))
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT
; LPARALLEL.KERNEL:CHANNEL COUNT)
; (LOCALLY
; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN))
; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT)))
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #1=(-1) #2=(1)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (OR (RATIONAL #1# #2#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE
; --> SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST
; T).
; etc.
; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT
; LPARALLEL.KERNEL:CHANNEL COUNT)
; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT)))
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #1=(-1) #2=(1)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (OR (RATIONAL #1# #2#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING CEILING
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> LET LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE
; --> SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST
; T).
; etc.
; (LPARALLEL.UTIL:REPEAT COUNT
; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL
; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN))
; --> LOOP BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> TRUNCATE LET VALUES LOCALLY
; ==>
; (- SB-C::X SB-C::RES)
;
; 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 second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #1=(-1) #2=(1)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (OR (RATIONAL #1# #2#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; --> LOOP BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LOOP BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION IF VALUES
; ==>
; (+ SB-C::TRU 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; --> LOOP BLOCK LET TAGBODY IF <= IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> LOOP BLOCK LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST
; T).
; etc.
; processing (DEFMACRO WITH-SUBMIT-COUNTED ...)
; processing (DEFUN INDEXING-WRAPPER ...)
; processing (DEFMACRO/ONCE WITH-SUBMIT-INDEXED ...)
; processing (DEFMACRO WITH-SUBMIT-CANCELABLE ...)
; processing (DEFUN CALL-WITH-TEMP-KERNEL ...)
; processing (DEFMACRO WITH-TEMP-KERNEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/kernel-util-tmp9VCC8HYY.fasl
; compilation finished in 0:00:00.382
; compiling file "/usr/share/common-lisp/source/lparallel/src/promise.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.PROMISE ...)
; processing (IN-PACKAGE #:LPARALLEL.PROMISE)
; processing (DEFCONSTANT +NO-RESULT+ ...)
; processing (DEFSLOTS PROMISE-BASE ...)
; processing (DEFSLOTS %PROMISE ...)
; processing (DEFSLOTS PLAN ...)
; processing (DEFSLOTS %FUTURE ...)
; processing (DEFSLOTS %DELAY ...)
; processing (DEFSLOTS %CHAIN ...)
; processing (DEFMACRO WITH-LOCK-OPERATION ...)
; processing (DEFMACRO WITH-UNFULFILLED/NO-WAIT ...)
; processing (DEFMACRO WITH-UNFULFILLED/WAIT ...)
; processing (DEFUN PROMISE ...)
; processing (DEFUN FULFILL-PROMISE ...)
; processing (DEFUN FORCE-PROMISE ...)
; processing (DEFUN/INLINE FULFILL-PLAN/VALUES ...)
; processing (DEFUN/INLINE FULFILL-PLAN/CALL ...)
; processing (DEFUN FULFILL-PLAN/ERROR ...)
; processing (DEFMACRO DELAY ...)
; processing (DEFUN FULFILL-DELAY ...)
; processing (DEFUN FORCE-DELAY ...)
; processing (DEFUN FULFILL-FUTURE ...)
; processing (DEFUN FORCE-FUTURE ...)
; processing (DEFMACRO WITH-UNFULFILLED-FUTURE/NO-WAIT ...)
; processing (DEFUN/TYPE MAKE-FUTURE-TASK ...)
; processing (DEFUN/TYPE MAKE-FUTURE ...)
; processing (DEFMACRO FUTURE ...)
; processing (DEFMACRO SPECULATE ...)
; processing (DEFUN CHAIN ...)
; processing (DEFUN FULFILL-OBJECT ...)
; processing (DEFMACRO FULFILL ...)
; processing (DEFUN FULFILLEDP ...)
; processing (DEFUN REPLACE-ERROR ...)
; processing (DEFUN FORCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/promise-tmpMVBWZ55K.fasl
; compilation finished in 0:00:01.586
; compiling file "/usr/share/common-lisp/source/lparallel/src/ptree.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.PTREE ...)
; processing (IN-PACKAGE #:LPARALLEL.PTREE)
; processing (DEFINE-CONDITION PTREE-ERROR ...)
; processing (DEFINE-CONDITION PTREE-REDEFINITION-ERROR ...)
; processing (DEFINE-CONDITION PTREE-UNDEFINED-FUNCTION-ERROR ...)
; processing (DEFINE-CONDITION PTREE-LAMBDA-LIST-KEYWORD-ERROR ...)
; processing (DEFCONSTANT +NO-RESULT+ ...)
; processing (DEFSLOTS NODE ...)
; processing (DEFUN CLEAR-NODE ...)
; processing (DEFUN CLEAR-NODE-ERROR ...)
; processing (DEFUN CHECK-NODE ...)
; processing (DEFUN/TYPE/INLINE COMPUTEDP ...)
; processing (DEFUN/TYPE COMPUTE-NODE ...)
; processing (DEFUN/TYPE/INLINE FREEP ...)
; processing (DEFUN/TYPE PROPAGATE-ERROR ...)
; processing (DEFUN/TYPE LOCK-NODE ...)
; processing (DEFUN/TYPE UNLOCK-NODE ...)
; processing (DEFUN/TYPE/INLINE CHILDREN-DONE-P ...)
; processing (DEFVAR *PTREE-NODE-KERNEL* ...)
; processing (DEFUN/TYPE MAKE-NODE-TASK ...)
; processing (DEFUN/TYPE SUBMIT-NODE ...)
; processing (DEFUN/TYPE FIND-NODE ...)
; processing (DEFSLOTS PTREE ...)
; processing (DEFUN MAKE-PTREE ...)
; processing (DEFUN/TYPE COMPUTE-PTREE ...)
; file: /usr/share/common-lisp/source/lparallel/src/ptree.lisp
; in: DEFUN/TYPE COMPUTE-PTREE
; (DECF LPARALLEL.PTREE::PENDING)
; --> LET* SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (INCF LPARALLEL.PTREE::PENDING)
; --> LET*
; ==>
; (+ 1
; (SB-KERNEL:THE* (INTEGER :DERIVE-TYPE-ONLY T)
; (SB-KERNEL:%INSTANCE-REF (THE LPARALLEL.PTREE:PTREE #:OBJ)
; 3)))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN WAIT-FOR-COMPUTE ...)
; processing (DEFUN EACH-NODE ...)
; processing (DEFUN CHECK-PTREE ...)
; processing (DEFUN CLEAR-PTREE ...)
; processing (DEFUN CLEAR-PTREE-ERRORS ...)
; processing (DEFUN PTREE-FN ...)
; processing (DEFUN PTREE-COMPUTED-P ...)
; processing (DEFUN CALL-PTREE ...)
; file: /usr/share/common-lisp/source/lparallel/src/ptree.lisp
; in: DEFUN CALL-PTREE
; (LPARALLEL.PTREE::RESULT
; (IF (LPARALLEL.PTREE::COMPUTEDP LPARALLEL.PTREE::ROOT)
; LPARALLEL.PTREE::ROOT
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.PTREE::LOCK
; LPARALLEL.PTREE:PTREE))
; (LPARALLEL.PTREE::WAIT-FOR-COMPUTE LPARALLEL.PTREE:PTREE)
; (IF (LPARALLEL.PTREE::COMPUTEDP LPARALLEL.PTREE::ROOT)
; LPARALLEL.PTREE::ROOT
; (LPARALLEL.PTREE::COMPUTE-PTREE LPARALLEL.PTREE::ROOT
; LPARALLEL.PTREE:PTREE #)))))
; --> LPARALLEL.PTREE::%%%%.NODE.RESULT SB-KERNEL:%INSTANCE-REF
; ==>
; (THE LPARALLEL.PTREE::NODE
; (IF (LPARALLEL.PTREE::COMPUTEDP LPARALLEL.PTREE::ROOT)
; LPARALLEL.PTREE::ROOT
; (BORDEAUX-THREADS:WITH-LOCK-HELD ((LPARALLEL.PTREE::LOCK
; LPARALLEL.PTREE:PTREE))
; (LPARALLEL.PTREE::WAIT-FOR-COMPUTE LPARALLEL.PTREE:PTREE)
; (IF (LPARALLEL.PTREE::COMPUTEDP LPARALLEL.PTREE::ROOT)
; LPARALLEL.PTREE::ROOT
; (LPARALLEL.PTREE::COMPUTE-PTREE LPARALLEL.PTREE::ROOT
; LPARALLEL.PTREE:PTREE #)))))
;
; caught STYLE-WARNING:
; Constant NIL conflicts with its asserted type LPARALLEL.PTREE::NODE.
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMACRO PTREE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/ptree-tmpC3NXPP59.fasl
; compilation finished in 0:00:01.397
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "lparallel" "src" "ptree">
; compiling file "/usr/share/common-lisp/source/lparallel/src/slet.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.SLET ...)
; processing (IN-PACKAGE #:LPARALLEL.SLET)
; processing (DEFUN PARSE-BINDINGS ...)
; processing (DEFUN MAKE-TEMP-VAR ...)
; processing (DEFUN MAKE-BINDING-DATUM ...)
; processing (DEFUN MAKE-BINDING-DATA ...)
; processing (DEFMACRO BIND ...)
; processing (DEFMACRO %SLET ...)
; processing (DEFMACRO SLET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/slet-tmpUBJL36LS.fasl
; compilation finished in 0:00:00.282
; compiling file "/usr/share/common-lisp/source/lparallel/src/defpun.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.DEFPUN ...)
; processing (IN-PACKAGE #:LPARALLEL.DEFPUN)
; processing (DEFCONSTANT +CHECKED-KEY+ ...)
; processing (DEFCONSTANT +UNCHECKED-KEY+ ...)
; processing (DEFVAR *REGISTERED-NAMES* ...)
; processing (DEFVAR *REGISTRATION-LOCK* ...)
; processing (DEFUN UNCHECKED-NAME ...)
; processing (DEFUN REGISTER-NAME ...)
; processing (DEFUN REGISTER-FN ...)
; processing (DEFUN REGISTERED-FN-P ...)
; processing (DEFUN VALID-REGISTERED-FN-P ...)
; processing (DEFUN VALID-REGISTERED-NAME-P ...)
; processing (DEFUN DELETE-STALE-REGISTRATIONS ...)
; processing (DEFUN REGISTERED-MACROLETS ...)
; processing (DEFMACRO DECLAIM-DEFPUN ...)
; processing (DEFUN DELETE-REGISTERED-NAMES ...)
; processing (DEFUN INITIAL-LIMITER-COUNT ...)
; processing (DEFUN MAKE-LIMITER-DATA ...)
; processing (SETF *MAKE-LIMITER-DATA* ...)
; processing (DEFMACRO ACCEPT-TASK-P ...)
; processing (DEFUN/TYPE UPDATE-LIMITER-COUNT/NO-LOCK ...)
; processing (DEFUN/TYPE UPDATE-LIMITER-COUNT ...)
; processing (DEFCONSTANT +NO-RESULT+ ...)
; processing (DEFMACRO MSETQ ...)
; processing (DEFUN CLIENT-VARS ...)
; processing (DEFUN TEMP-VARS ...)
; processing (DEFUN PRIMARY-TEMP-VARS ...)
; processing (DEFMACRO WITH-TEMP-BINDINGS ...)
; processing (DEFMACRO WITH-CLIENT-BINDINGS ...)
; processing (DEFMACRO SPAWN ...)
; processing (DEFMACRO SPAWN-TASKS ...)
; processing (DEFMACRO EXEC-TASK ...)
; processing (DEFMACRO SYNC ...)
; processing (DEFMACRO SCAN-FOR-ERRORS ...)
; processing (DEFMACRO %%%%PLET ...)
; processing (DEFMACRO WITH-LOCK-PREDICATES ...)
; processing (DEFMACRO %%%PLET ...)
; processing (DEFMACRO %%PLET ...)
; processing (DEFMACRO %PLET ...)
; processing (DEFMACRO %PLET-IF ...)
; processing (DEFMACRO DEFUN/WRAPPER ...)
; processing (DEFUN CALL-WITH-TOPLEVEL-HANDLER ...)
; processing (DEFUN CALL-INSIDE-WORKER ...)
; processing (DEFUN CALL-IMPL-FN ...)
; processing (DEFMACRO DEFINE-DEFPUN ...)
; processing (DEFINE-DEFPUN DEFPUN ...)
; processing (DEFINE-DEFPUN DEFPUN/TYPE ...)
; processing (DEFMACRO DEFPUN* ...)
; processing (DEFMACRO DEFPUN/TYPE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/defpun-tmpY36UJJ8B.fasl
; compilation finished in 0:00:01.466
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/package.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (DEFPACKAGE #:LPARALLEL.COGNATE ...)
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/package-tmpAREPR0YY.fasl
; compilation finished in 0:00:00.013
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/util.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN ZIP/VECTOR ...)
; processing (DEFUN FIND-MIN-LENGTH ...)
; processing (DEFUN ITEM-PREDICATE ...)
; file: /usr/share/common-lisp/source/lparallel/src/cognate/util.lisp
; in: DEFUN ITEM-PREDICATE
; (EQL LPARALLEL.COGNATE::ITEM LPARALLEL.COGNATE::X)
;
; 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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN SUBSIZE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/util-tmpDMNTMNQC.fasl
; compilation finished in 0:00:00.069
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/option.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN GET-PARTS-HINT ...)
; processing (DEFMACRO POP-PLIST ...)
; processing (DEFUN %PARSE-OPTIONS ...)
; processing (DEFUN PARSE-OPTIONS ...)
; processing (DEFMACRO WITH-PARSED-OPTIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/option-tmpF3MD9WEP.fasl
; compilation finished in 0:00:00.119
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/subdivide.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN FIND-NUM-PARTS ...)
; processing (DEFMACRO WITH-PARTS ...)
; processing (DEFUN SUBDIVIDE-ARRAY ...)
; processing (DEFUN SUBDIVIDE-LIST ...)
; processing (DEFUN SUBDIVIDE-LIST/SLICE ...)
; processing (DEFUN MAKE-PARTS ...)
; processing (DEFUN MAKE-RESULT-PARTS ...)
; processing (DEFUN MAKE-INPUT-PARTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/subdivide-tmpU35O33G.fasl
; compilation finished in 0:00:00.350
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pandor.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFMACRO WITH-FORMS-SUBMITTED ...)
; processing (DEFMACRO PAND ...)
; processing (DEFMACRO POR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pandor-tmpG4VD6HME.fasl
; compilation finished in 0:00:00.107
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/plet.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN DECLARATION-INFORMATION ...)
; processing (DEFUN CUSTOM-DECLARATION-P ...)
; processing (DEFPARAMETER *STANDARD-DECLARATION-IDENTIFIERS* ...)
; processing (DEFUN DECLARATIONP ...)
; processing (DEFUN ZIP-REPEAT ...)
; processing (DEFUN DECL-SPEC->TYPED-VARS ...)
; processing (DEFUN DECL-SPECS->TYPED-VARS ...)
; processing (DEFUN DECLARES->DECL-SPECS ...)
; processing (DEFUN DECLARES->TYPED-VARS ...)
; processing (DEFSLOTS BINDING-DATUM ...)
; processing (DEFUN MAKE-SV-BINDING-DATUM ...)
; processing (DEFUN MAKE-MV-BINDING-DATUM ...)
; processing (DEFUN PARTITION ...)
; processing (DEFUN MAKE-BINDING-DATA ...)
; processing (DEFUN LOOKUP-ALL ...)
; processing (DEFUN VAR-TYPE ...)
; processing (DEFUN FUTURE-LET-BINDING ...)
; processing (DEFUN FUTURE-LET-BINDINGS ...)
; processing (DEFUN FUTURE-MACROLET-BINDING ...)
; processing (DEFUN FUTURE-MACROLET-BINDINGS ...)
; processing (DEFUN %MV-MACROLET-BINDINGS ...)
; processing (DEFUN MV-MACROLET-BINDINGS ...)
; processing (DEFUN BINDING-DECL-SPEC ...)
; processing (DEFUN BINDING-DECL-SPECS ...)
; processing (DEFUN ALL-BINDING-VARS ...)
; processing (DEFUN UNKNOWN-TYPED-VARS ...)
; processing (DEFMACRO %PLET ...)
; processing (DEFMACRO PLET ...)
; processing (DEFMACRO PLET-IF ...)
; processing (ALIAS-MACRO TOPLEVEL-PLET ...)
; processing (DEFMACRO PFUNCALL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/plet-tmp54373I1F.fasl
; compilation finished in 0:00:00.834
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pmap.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN PMAP-INTO/PARTS ...)
; processing (DEFUN MAP-NIL ...)
; processing (DEFUN MAPLIST-INTO ...)
; processing (DEFUN MAP-ITERATE ...)
; file: /usr/share/common-lisp/source/lparallel/src/cognate/pmap.lisp
; in: DEFUN MAP-ITERATE
; (DEFUN LPARALLEL.COGNATE::MAP-ITERATE
; (MAP LPARALLEL.COGNATE::SIZE LPARALLEL.COGNATE::FN
; LPARALLEL.COGNATE::SEQS)
; "A variation of (map nil ...)/mapc/mapl with size constrained.
; Without a result to delineate sublist boundaries, we must enforce them
; manually."
; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0))
; (LET ((LPARALLEL.COGNATE::FN
; (ALEXANDRIA.1.0.0:ENSURE-FUNCTION LPARALLEL.COGNATE::FN))
; (LPARALLEL.UTIL:INDEX 0))
; (APPLY MAP
; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS)
; (DECLARE #)
; (DECLARE #)
; (WHEN # #)
; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS)
; (INCF LPARALLEL.UTIL:INDEX))
; LPARALLEL.COGNATE::SEQS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; ==>
; (BLOCK LPARALLEL.COGNATE::MAP-ITERATE
; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0))
; (LET ((LPARALLEL.COGNATE::FN
; (ALEXANDRIA.1.0.0:ENSURE-FUNCTION LPARALLEL.COGNATE::FN))
; (LPARALLEL.UTIL:INDEX 0))
; (APPLY MAP
; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS)
; (DECLARE #)
; (DECLARE #)
; (WHEN # #)
; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS)
; (INCF LPARALLEL.UTIL:INDEX))
; LPARALLEL.COGNATE::SEQS)))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM MAP-ITERATE NIL). Use GO/RETURN-FROM with SAFETY 0, or declare the
; exit function DYNAMIC-EXTENT to avoid.
; (EQL LPARALLEL.UTIL:INDEX LPARALLEL.COGNATE::SIZE)
;
; 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 T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF LPARALLEL.UTIL:INDEX)
; --> SETQ THE
; ==>
; (+ 1 LPARALLEL.UTIL:INDEX)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN PMAP-INTO/POWDER/ARRAY ...)
; processing (DEFUN PMAP-INTO/POWDER/LIST ...)
; processing (DEFUN PMAP-INTO/POWDER ...)
; processing (DEFUN PMAP-INTO/PARSED ...)
; processing (DEFUN PMAP-INTO/UNPARSED ...)
; processing (DEFUN PMAP-INTO ...)
; processing (DEFUN PMAP-ITERATE/PARTS ...)
; processing (DEFUN PMAP-ITERATE/POWDER ...)
; processing (DEFUN PMAP-ITERATE ...)
; processing (DEFUN PMAP/PARSED ...)
; processing (DEFUN PMAP/UNPARSED ...)
; processing (DEFUN PMAP ...)
; processing (DEFUN PMAPCAR ...)
; processing (DEFUN PMAPLIST-INTO ...)
; processing (DEFUN PMAPLIST ...)
; processing (DEFUN PMAPL ...)
; processing (DEFUN PMAPC ...)
; processing (DEFUN PMAPCAN ...)
; processing (DEFUN PMAPCON ...)
; processing (DEFUN PMAP-REDUCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pmap-tmpWC6YNTKL.fasl
; compilation finished in 0:00:00.612
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pmap-open-coded.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFMACRO CHECK-SYMBOLS ...)
; processing (DEFMACRO DEFMACRO/SYMS ...)
; processing (DEFUN QUOTEDP ...)
; processing (DEFUN QUOTED-VECTOR-TYPE-P ...)
; processing (DEFMACRO/SYMS MAP-INTO/VECTOR/1-VECTOR/RANGE ...)
; processing (DEFMACRO/SYMS PMAP-INTO/VECTOR/1-VECTOR ...)
; processing (DEFINE-COMPILER-MACRO PMAP-INTO ...)
; processing (DEFINE-COMPILER-MACRO PMAP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pmap-open-coded-tmpUOCSYEYQ.fasl
; compilation finished in 0:00:00.548
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pdotimes.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN %PDOTIMES ...)
; file: /usr/share/common-lisp/source/lparallel/src/cognate/pdotimes.lisp
; in: DEFUN %PDOTIMES
; (LPARALLEL.COGNATE::WITH-PARTS LPARALLEL.COGNATE::SIZE
; LPARALLEL.COGNATE::PARTS
; (LOOP LPARALLEL.COGNATE::WHILE (LPARALLEL.COGNATE::NEXT-PART)
; DO (LPARALLEL.KERNEL:SUBMIT-TASK LPARALLEL.KERNEL:CHANNEL
; #'LPARALLEL.COGNATE::COMPUTE-PART
; (LPARALLEL.COGNATE::PART-OFFSET)
; (LPARALLEL.COGNATE::PART-SIZE)))
; (LPARALLEL.UTIL:REPEAT (LPARALLEL.COGNATE::NUM-PARTS)
; (LPARALLEL.KERNEL:RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL)))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET FLET
; --> LPARALLEL.COGNATE::NEXT-PART BLOCK WHEN IF PROGN UNLESS IF INCF SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G33)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; (+ LPARALLEL.COGNATE::PART-OFFSET LPARALLEL.COGNATE::PART-SIZE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; processing (DEFMACRO/ONCE PDOTIMES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pdotimes-tmpNW5NV5N9.fasl
; compilation finished in 0:00:00.156
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pquantifier.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN PQUANTIFIER ...)
; processing (DEFUN PEVERY ...)
; processing (DEFUN PSOME ...)
; processing (DEFUN PNOTEVERY ...)
; processing (DEFUN PNOTANY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pquantifier-tmpGTGYQJZ.fasl
; compilation finished in 0:00:00.100
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/preduce.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFMACRO WITH-PREDUCE-CONTEXT ...)
; processing (DEFUN PREDUCE-PARTIAL/VECTOR ...)
; processing (DEFUN PREDUCE-PARTIAL/LIST ...)
; processing (DEFUN %PREDUCE-PARTIAL ...)
; processing (DEFUN PREDUCE/COMMON ...)
; processing (DEFUN PREDUCE ...)
; processing (DEFUN PREDUCE-PARTIAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/preduce-tmp1GG4VZOF.fasl
; compilation finished in 0:00:00.408
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/premove.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN PREMOVE-IF-NOT/LIST ...)
; processing (DEFUN PREMOVE-IF-NOT ...)
; processing (DEFUN PREMOVE-IF ...)
; processing (DEFUN PREMOVE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/premove-tmpWZRM9C8X.fasl
; compilation finished in 0:00:00.208
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pfind.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFMACRO WITH-PFIND-CONTEXT ...)
; processing (DEFUN PFIND-IF/VECTOR ...)
; processing (DEFUN PFIND-IF/LIST ...)
; processing (DEFUN PFIND-IF ...)
; processing (DEFUN PFIND-IF-NOT ...)
; processing (DEFUN PFIND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pfind-tmpD9ADTX47.fasl
; compilation finished in 0:00:00.457
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pcount.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN PCOUNT-IF ...)
; processing (DEFUN PCOUNT-IF-NOT ...)
; processing (DEFUN PCOUNT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/pcount-tmp6P8D3243.fasl
; compilation finished in 0:00:00.169
; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/psort.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.COGNATE)
; processing (DEFUN/TYPE/INLINE MIDPOINT ...)
; processing (DEFMACRO DEFINE-QUICKSORT-FN ...)
; processing (DEFMACRO DEFINE-QUICKSORT-FNS ...)
; processing (DEFINE-QUICKSORT-FNS)
; processing (LPARALLEL.DEFPUN::DELETE-REGISTERED-NAMES (QUOTE #))
; processing (DEFUN CALL-QUICKSORT ...)
; processing (DEFUN PSORT ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (DEFUN PSORT* ...)
; processing (DEFINE-COMPILER-MACRO PSORT* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/cognate/psort-tmpY30N954O.fasl
; compilation finished in 0:00:01.268
; compiling file "/usr/share/common-lisp/source/lparallel/src/package.lisp" (written 20 JUL 2016 02:52:58 PM):
; processing (IN-PACKAGE #:LPARALLEL.KERNEL)
; processing (PACKAGE #:LPARALLEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/lparallel/src/package-tmpP9H21HZJ.fasl
; compilation finished in 0:00:00.071
; compiling file "/usr/share/common-lisp/source/esrap/src/package.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (DEFPACKAGE #:ESRAP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/package-tmpPQTP28SH.fasl
; compilation finished in 0:00:00.009
; compiling file "/usr/share/common-lisp/source/esrap/src/types.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFTYPE INPUT-POSITION ...)
; processing (DEFTYPE INPUT-LENGTH ...)
; processing (DEFTYPE LEFT-RECURSION-POLICY ...)
; processing (DEFTYPE NONTERMINAL ...)
; processing (DEFTYPE TERMINAL ...)
; processing (DEFTYPE CHARACTER-RANGE ...)
; processing (DEFTYPE PREDICATE-NAME ...)
; processing (DEFTYPE PREDICATE ...)
; processing (DEFTYPE ERROR-REPORT-PART ...)
; processing (DEFTYPE RULE-ERROR-REPORT ...)
; processing (DEFTYPE RULE-ERROR-REPORT-PATTERN ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ERROR-REPORT-BEHAVIOR-SUITABLE-FOR-REPORT-PART-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/types-tmpJNLC1BSW.fasl
; compilation finished in 0:00:00.079
; compiling file "/usr/share/common-lisp/source/esrap/src/protocol.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFGENERIC ESRAP-ERROR-POSITION ...)
; processing (DEFGENERIC ESRAP-PARSE-ERROR-RESULT ...)
; processing (DEFGENERIC ESRAP-PARSE-ERROR-CONTEXT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/protocol-tmpBK4B90N5.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/esrap/src/variables.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DECLAIM (TYPE LEFT-RECURSION-POLICY ...))
; processing (DEFVAR *ON-LEFT-RECURSION* ...)
; processing (DEFPARAMETER *EVAL-NONTERMINALS* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/variables-tmpOBPSDXL4.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/esrap/src/conditions.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFINE-CONDITION INVALID-EXPRESSION-ERROR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN INVALID-EXPRESSION-ERROR ...)
; processing (DEFINE-CONDITION ESRAP-ERROR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFINE-CONDITION ESRAP-PARSE-ERROR ...)
; processing (DEFMETHOD ESRAP-ERROR-POSITION ...)
; processing (DEFMETHOD ESRAP-PARSE-ERROR-CONTEXT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ESRAP-PARSE-ERROR ...)
; processing (DEFINE-CONDITION LEFT-RECURSION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN LEFT-RECURSION ...)
; processing (DEFINE-CONDITION UNDEFINED-RULE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFINE-CONDITION UNDEFINED-RULE-ERROR ...)
; processing (DEFUN UNDEFINED-RULE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/conditions-tmpMM3LMR5.fasl
; compilation finished in 0:00:00.598
; compiling file "/usr/share/common-lisp/source/esrap/src/expressions.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFVAR *EXPRESSION-KINDS* ...)
; processing (DEFMACRO EXPRESSION-CASE ...)
; processing (DEFMACRO WITH-EXPRESSION ...)
; processing (DEFUN CHECK-FUNCTION-REFERENCE ...)
; processing (DEFUN CHECK-EXPRESSION ...)
; processing (DEFUN %EXPRESSION-DEPENDENCIES ...)
; processing (DEFUN %EXPRESSION-DIRECT-DEPENDENCIES ...)
; processing (DEFUN EXPRESSION-START-TERMINALS ...)
; processing (DEFUN EXPRESSION< ...)
; processing (DEFUN EXPRESSION-EQUAL-P ...)
; processing (DEFUN DESCRIBE-TERMINAL ...)
; processing (DEFUN PRINT-TERMINAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/expressions-tmp3VXURP4N.fasl
; compilation finished in 0:00:04.246
; compiling file "/usr/share/common-lisp/source/esrap/src/rule.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFVAR *RULES* ...)
; processing (DEFUN CLEAR-RULES ...)
; processing (DEFSTRUCT (RULE-CELL # ...) ...)
; processing (DECLAIM (INLINE CELL-FUNCTION))
; processing (DEFUN CELL-FUNCTION ...)
; processing (DEFUN CELL-RULE ...)
; processing (DEFUN SET-CELL-INFO ...)
; processing (DEFUN UNDEFINED-RULE-FUNCTION ...)
; processing (DEFUN ENSURE-RULE-CELL ...)
; processing (DEFUN DELETE-RULE-CELL ...)
; processing (DEFUN REFERENCE-RULE-CELL ...)
; processing (DEFUN DEREFERENCE-RULE-CELL ...)
; processing (DEFUN FIND-RULE-CELL ...)
; processing (DEFCLASS RULE ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN RULE-SUITABLE-FOR-REPORT-PART-P ...)
; processing (DEFUN DETACH-RULE ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN SORT-DEPENDENCIES ...)
; processing (DEFUN RULE-DEPENDENCIES ...)
; processing (DEFUN RULE-DIRECT-DEPENDENCIES ...)
; processing (DEFUN %RULE-DIRECT-DEPENDENCIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/rule-tmpJ94TMTDS.fasl
; compilation finished in 0:00:00.440
; compiling file "/usr/share/common-lisp/source/esrap/src/results.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFSTRUCT (RESULT # ...) ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN RESULT-POSITION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFSTRUCT (ERROR-RESULT # ...))
; processing (DEFSTRUCT (INACTIVE-RULE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN INACTIVE-RULE-RULE ...)
; processing (DEFSTRUCT (FAILED-PARSE # ...))
; processing (DECLAIM (INLINE MAKE-LEFT-RECURSION-RESULT ...))
; processing (DEFSTRUCT (LEFT-RECURSION-RESULT # ...) ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN LEFT-RECURSION-RESULT-RULE ...)
; processing (DEFSTRUCT (SUCCESSFUL-PARSE # ...) ...)
; processing (DEFUN SUCCESSFUL-PARSE-PRODUCTION ...)
; processing (DEFMACRO MAKE-SUCCESSFUL-PARSE ...)
; processing (DEFUN RESULT-NONTERMINAL-P ...)
; processing (DEFUN RESULT-UNSATISFIED-PREDICATE-P ...)
; processing (DEFUN RESULT-TRIVIAL-PREDICATE-P ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN RESULT-SUITABLE-FOR-REPORT-PART-P ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MAX-OF-RESULT-POSITIONS ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN LIST-OF-RESULT-PRODUCTIONS ...)
; processing (DEFUN LIST-OF-RESULT-PRODUCTIONS/BUTLAST ...)
; processing (DEFUN MAYBE-AUGMENT-INACTIVE-RULES ...)
; processing (DECLAIM (FTYPE # ...) ...)
; processing (DEFUN MAP-RESULTS ...)
; processing (DEFUN MAP-MAX-RESULTS ...)
; processing (DEFUN MAP-MAX-LEAF-RESULTS ...)
; processing (DECLAIM (INLINE FLATTENED-CHILDREN))
; processing (DEFUN FLATTENED-CHILDREN ...)
; processing (DEFUN RESULT-CONTEXT ...)
; processing (DEFUN RESULT-ROOT-CAUSE ...)
; processing (DEFUN RESULT-EXPECTED-INPUT ...)
; processing (DEFUN PARTITION-RESULTS ...)
; processing (DEFUN ERROR-REPORT ...)
; processing (DEFVAR *RESULT-PPRINT-DISPATCH* ...)
; processing (DEFUN PRINT-RESULT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/results-tmpHIU99HX9.fasl
; compilation finished in 0:00:02.094
; compiling file "/usr/share/common-lisp/source/esrap/src/cache.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DECLAIM (INLINE MAKE-CACHE ...))
; processing (DEFUN MAKE-CACHE ...)
; processing (DEFUN GET-CACHED ...)
; processing (DEFUN (SETF GET-CACHED) ...)
; processing (DEFSTRUCT (HEAD # ...) ...)
; processing (DECLAIM (INLINE MAKE-HEADS ...))
; processing (DEFUN MAKE-HEADS ...)
; processing (DEFUN GET-HEAD ...)
; processing (DEFUN (SETF GET-HEAD) ...)
; processing (DEFUN RECALL ...)
; processing (DECLAIM (INLINE MAKE-CONTEXT ...))
; processing (DEFSTRUCT (CONTEXT #) ...)
; processing (DECLAIM (TYPE CONTEXT ...))
; processing (DEFVAR *CONTEXT* ...)
; processing (DEFMACRO WITH-PUSHED-NONTERMINAL ...)
; processing (DEFMACRO WITH-CACHED-RESULT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/cache-tmpUCJ0Y7I4.fasl
; compilation finished in 0:00:00.534
; compiling file "/usr/share/common-lisp/source/esrap/src/evaluator.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN RESOLVE-FUNCTION ...)
; processing (DEFVAR *CURRENT-RULE* ...)
; processing (DEFUN COMPILE-RULE ...)
; processing (DEFUN EVAL-EXPRESSION ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN COMPILE-EXPRESSION ...)
; processing (DEFMACRO EXPRESSION-LAMBDA ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN EVAL-CHARACTER ...)
; processing (DEFUN COMPILE-CHARACTER ...)
; processing (DECLAIM (INLINE EXEC-STRING))
; processing (DEFUN EXEC-STRING ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN EVAL-STRING ...)
; processing (DEFUN COMPILE-STRING ...)
; processing (DECLAIM (INLINE MATCH-TERMINAL/CASE-SENSITIVE-P ...))
; processing (DEFUN MATCH-TERMINAL/CASE-SENSITIVE-P ...)
; processing (DEFUN MATCH-TERMINAL/CASE-INSENSITIVE-P ...)
; processing (DEFUN MATCH-TERMINAL/1/CASE-SENSITIVE-P ...)
; processing (DEFUN MATCH-TERMINAL/1/CASE-INSENSITIVE-P ...)
; processing (DEFUN EVAL-TERMINAL ...)
; processing (DEFUN COMPILE-TERMINAL ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN EXEC-TERMINAL-FUNCTION ...)
; processing (DEFUN EVAL-TERMINAL-FUNCTION ...)
; processing (DEFUN COMPILE-TERMINAL-FUNCTION ...)
; processing (DEFUN EXEC-NONTERMINAL ...)
; processing (DEFUN EVAL-NONTERMINAL ...)
; processing (DEFUN COMPILE-NONTERMINAL ...)
; processing (DEFUN EVAL-SEQUENCE ...)
; processing (DEFUN COMPILE-SEQUENCE ...)
; processing (DECLAIM (INLINE MAKE-ORDERED-CHOISE-RESULT))
; processing (DEFUN MAKE-ORDERED-CHOISE-RESULT ...)
; processing (DEFUN EVAL-ORDERED-CHOISE ...)
; processing (DEFUN CHECK-ORDERED-CHOISE-PREFIX ...)
; processing (DEFUN ANALYZE-ORDERED-CHOISE ...)
; processing (DEFUN COMPILE-ORDERED-CHOISE ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN EXEC-NEGATION ...)
; processing (DEFUN EVAL-NEGATION ...)
; processing (DEFUN COMPILE-NEGATION ...)
; processing (DEFUN EVAL-GREEDY-REPETITION ...)
; processing (DEFUN COMPILE-GREEDY-REPETITION ...)
; processing (DEFUN EVAL-GREEDY-POSITIVE-REPETITION ...)
; processing (DEFUN COMPILE-GREEDY-POSITIVE-REPETITION ...)
; processing (DEFUN EVAL-OPTIONAL ...)
; processing (DEFUN COMPILE-OPTIONAL ...)
; processing (DEFUN EVAL-FOLLOWED-BY ...)
; processing (DEFUN COMPILE-FOLLOWED-BY ...)
; processing (DEFUN EVAL-NOT-FOLLOWED-BY ...)
; processing (DEFUN COMPILE-NOT-FOLLOWED-BY ...)
; processing (DEFINE-LOOK :BEHIND ...)
; processing (DEFINE-LOOK :AHEAD ...)
; processing (DEFUN EVAL-SEMANTIC-PREDICATE ...)
; processing (DEFUN COMPILE-SEMANTIC-PREDICATE ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN EXEC-CHARACTER-RANGES ...)
; processing (DEFUN EVAL-CHARACTER-RANGES ...)
; processing (DEFUN COMPILE-CHARACTER-RANGES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/evaluator-tmpEUYVGW0Y.fasl
; compilation finished in 0:00:04.054
; compiling file "/usr/share/common-lisp/source/esrap/src/macros.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFUN TEXT ...)
; processing (DEFUN SINGLETON-OPTION ...)
; processing (DEFMACRO WITH-CURRENT-SOURCE-FORM ...)
; processing (DEFUN PARSE-LAMBDA-LIST-MAYBE-CONTAINING-&BOUNDS ...)
; processing (DEFUN CHECK-LAMBDA-LIST ...)
; processing (DEFUN PARSE-DEFRULE-OPTIONS ...)
; processing (DEFUN EXPAND-TRANSFORMS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/macros-tmpHUNBNUEZ.fasl
; compilation finished in 0:00:00.644
; compiling file "/usr/share/common-lisp/source/esrap/src/interface.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFUN PARSE ...)
; processing (DEFINE-COMPILER-MACRO PARSE ...)
; processing (DEFUN PROCESS-PARSE-RESULT ...)
; processing (DEFMACRO DEFRULE ...)
; processing (DEFUN ADD-RULE ...)
; processing (DEFUN FIND-RULE ...)
; processing (DEFUN REMOVE-RULE ...)
; processing (DEFVAR *TRACE-LEVEL* ...)
; processing (DEFUN TRACE-RULE ...)
; processing (DEFUN UNTRACE-RULE ...)
; processing (DEFUN RULE-EXPRESSION ...)
; processing (DEFUN (SETF RULE-EXPRESSION) ...)
; processing (DEFUN CHANGE-RULE ...)
; processing (DEFUN DESCRIBE-GRAMMAR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/interface-tmp6OV59W68.fasl
; compilation finished in 0:00:00.907
; compiling file "/usr/share/common-lisp/source/esrap/src/editor-support.lisp" (written 04 APR 2018 08:41:47 AM):
; processing (IN-PACKAGE #:ESRAP)
; processing (DEFVAR *INDENTATION-HINT-TABLE* ...)
; processing (DEFUN HINT-SLIME-INDENTATION ...)
; processing (HINT-SLIME-INDENTATION)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/esrap/src/editor-support-tmpC6PPV7ZG.fasl
; compilation finished in 0:00:00.041
; compiling file "/usr/share/common-lisp/source/puri/src.lisp" (written 07 MAY 2010 06:04:19 PM):
; processing (DEFPACKAGE #:PURI ...)
; processing (IN-PACKAGE #:PURI)
; processing (DEFUN PARSE-BODY ...)
; processing (DEFUN SHRINK-VECTOR ...)
; processing (DEFINE-CONDITION URI-PARSE-ERROR ...)
; processing (DEFUN .PARSE-ERROR ...)
; processing (DEFUN INTERNAL-READER-ERROR ...)
; processing (DEFVAR *CURRENT-CASE-MODE* ...)
; processing (DEFMETHOD POSITION-CHAR ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFMETHOD POSITION-CHAR (T STRING T T)
; (CHAR STRING PURI::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; processing (DEFUN DELIMITED-STRING-TO-LIST ...)
; processing (DEFVAR IF*-KEYWORD-LIST ...)
; processing (DEFMACRO IF* ...)
; processing (DEFCLASS URI ...)
; processing (DEFCLASS URN ...)
; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-SCHEME)
; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-HOST)
; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-PORT)
; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-PATH)
; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-QUERY)
; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-FRAGMENT)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DEFMETHOD URI-P ...)
; processing (DEFMETHOD URI-P ...)
; processing (DEFUN COPY-URI ...)
; processing (DEFMETHOD URI-PARSED-PATH ...)
; processing (DEFMETHOD (SETF URI-PARSED-PATH) ...)
; processing (DEFUN URI-AUTHORITY ...)
; processing (DEFUN URI-NID ...)
; processing (DEFUN URI-NSS ...)
; processing (DEFPARAMETER *EXCLUDED-CHARACTERS* ...)
; processing (DEFUN RESERVED-CHAR-VECTOR ...)
; processing (DEFPARAMETER *RESERVED-CHARACTERS* ...)
; processing (DEFPARAMETER *RESERVED-AUTHORITY-CHARACTERS* ...)
; processing (DEFPARAMETER *RESERVED-PATH-CHARACTERS* ...)
; processing (DEFPARAMETER *RESERVED-FRAGMENT-CHARACTERS* ...)
; processing (DEFPARAMETER *VALID-NID-CHARACTERS* ...)
; processing (DEFPARAMETER *RESERVED-NSS-CHARACTERS* ...)
; processing (DEFPARAMETER *ILLEGAL-CHARACTERS* ...)
; processing (DEFPARAMETER *STRICT-ILLEGAL-QUERY-CHARACTERS* ...)
; processing (DEFPARAMETER *ILLEGAL-QUERY-CHARACTERS* ...)
; processing (DEFUN PARSE-URI ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN PARSE-URI
; (FUNCALL
; (CASE PURI::*CURRENT-CASE-MODE*
; ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE)
; ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE))
; (PURI::DECODE-ESCAPED-ENCODING PURI::SCHEME PURI::ESCAPE))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (CASE PURI::*CURRENT-CASE-MODE*
; ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE)
; ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (PLUSP PURI::PORT)
; ==>
; (> PURI::PORT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (STRING= "" PURI::PATH)
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= "/" PURI::PATH)
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (PLUSP PURI::PORT)
; ==>
; (> PURI::PORT 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; etc.
; processing (DEFMETHOD URI ...)
; processing (DEFMETHOD URI ...)
; processing (DEFMETHOD URI ...)
; processing (DEFVAR *STRICT-PARSE* ...)
; processing (DEFUN PARSE-URI-STRING ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN PARSE-URI-STRING
; (PURI::.PARSE-ERROR "internal error in parse engine, wrong state: ~s."
; PURI::STATE)
; ==>
; "internal error in parse engine, wrong state: ~s."
;
; note: deleting unreachable code
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR STRING PURI::START)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (SUBSEQ STRING PURI::SINDEX PURI::START)
;
; 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.
; (PURI::FAILURE (&OPTIONAL PURI::WHY)
; (PURI::.PARSE-ERROR "illegal URI: ~s [~d]~@[: ~a~]" STRING PURI::STATE
; PURI::WHY))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; processing (DEFUN ESCAPE-P ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN ESCAPE-P
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR STRING PURI::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFUN PARSE-PATH ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN PARSE-PATH
; (STRING= "" (CAR PURI::XPATH-LIST))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= "" (CAR PURI::PL))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; processing (DEFUN DECODE-ESCAPED-ENCODING ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN DECODE-ESCAPED-ENCODING
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (COPY-SEQ 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.
; (= PURI::I MAX)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (CHAR STRING PURI::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR STRING (INCF PURI::I))
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (1+ PURI::I)
; ==>
; (+ PURI::I 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (1+ PURI::NEW-I)
; ==>
; (+ PURI::NEW-I 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (1+ PURI::I)
; ==>
; (+ PURI::I 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ PURI::NEW-I)
; ==>
; (+ PURI::NEW-I 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN RENDER-URI ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN RENDER-URI
; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URI))
; ==>
; (FORMAT SB-C::DEST
; (SB-INT:NAMED-LAMBDA "fmt$~a"
; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
; (BLOCK NIL (PRINC SB-FORMAT::FORMAT-ARG1 STREAM))
; NIL)
; #:G175)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T) STREAM (VECTOR CHARACTER) (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER . #1=(T)) STREAM (VECTOR CHARACTER)
; (VECTOR NIL) BASE-STRING), not a (MEMBER . #1#).
; processing (DEFUN RENDER-PARSED-PATH ...)
; processing (DEFUN RENDER-URN ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN RENDER-URN
; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URN))
; ==>
; (FORMAT SB-C::DEST
; (SB-INT:NAMED-LAMBDA "fmt$~a"
; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
; (BLOCK NIL (PRINC SB-FORMAT::FORMAT-ARG1 STREAM))
; NIL)
; #:G72)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T) STREAM (VECTOR CHARACTER) (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER . #1=(T)) STREAM (VECTOR CHARACTER)
; (VECTOR NIL) BASE-STRING), not a (MEMBER . #1#).
; processing (DEFPARAMETER *ESCAPED-ENCODING* ...)
; processing (DEFUN ENCODE-ESCAPED-ENCODING ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN ENCODE-ESCAPED-ENCODING
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (INCF PURI::NEW-I)
; --> SETQ THE
; ==>
; (+ 1 PURI::NEW-I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (CHAR STRING PURI::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (INCF PURI::NEW-I)
; --> SETQ THE
; ==>
; (+ 1 PURI::NEW-I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (ELT PURI::*ESCAPED-ENCODING* PURI::Q)
;
; 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.
; (INCF PURI::NEW-I)
; --> SETQ THE
; ==>
; (+ 1 PURI::NEW-I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (ELT PURI::*ESCAPED-ENCODING* PURI::R)
;
; 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.
; (INCF PURI::NEW-I)
; --> SETQ THE
; ==>
; (+ 1 PURI::NEW-I)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD MERGE-URIS ...)
; processing (DEFMETHOD MERGE-URIS ...)
; processing (DEFMETHOD MERGE-URIS ...)
; processing (DEFMETHOD MERGE-URIS ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFMETHOD MERGE-URIS (URI URI)
; (STRING= PURI::A
; (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B PURI::ELSE
; (CAR PURI::B)))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= "." (CAR LAST))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= "." (CAAR LAST))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= ".."
; (LET ((PURI::L (CAR #)))
; (PURI::IF* (ATOM PURI::L) PURI::THEN PURI::L PURI::ELSE
; (CAR PURI::L))))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (POSITION ".." PURI::NPL :TEST
; #'(LAMBDA (PURI::A PURI::B)
; (STRING= PURI::A
; (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B
; PURI::ELSE (CAR PURI::B)))))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).
; (STRING= PURI::A PURI::B)
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; processing (DEFMETHOD ENOUGH-URI ...)
; processing (DEFMETHOD ENOUGH-URI ...)
; processing (DEFMETHOD ENOUGH-URI ...)
; processing (DEFMETHOD ENOUGH-URI ...)
; processing (DEFUN MAKE-URI-SPACE ...)
; processing (DEFUN GETHASH-URI ...)
; processing (DEFUN PUTHASH-URI ...)
; processing (DEFUN URI-HASH ...)
; processing (DEFVAR *URIS* ...)
; processing (DEFUN URI-SPACE ...)
; processing (DEFUN (SETF URI-SPACE) ...)
; processing (WHEN (FBOUNDP #) ...)
; processing (DEFGENERIC URI= ...)
; processing (DEFMETHOD URI= ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFMETHOD URI= (URI URI)
; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
;
; 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.
; (STRING= (PURI:URI-PATH PURI::URI1) (PURI:URI-PATH PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= (PURI:URI-QUERY PURI::URI1) (PURI:URI-QUERY PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (STRING= (PURI:URI-FRAGMENT PURI::URI1) (PURI:URI-FRAGMENT PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
; SB-C::START2 SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; SYMBOL CHARACTER), not a SIMPLE-STRING.
; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
;
; 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 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD URI= ...)
; processing (DEFUN URN-NSS-EQUAL ...)
; file: /usr/share/common-lisp/source/puri/src.lisp
; in: DEFUN URN-NSS-EQUAL
; (LENGTH PURI::NSS1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS VECTOR
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (LENGTH PURI::NSS2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS VECTOR
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CHAR PURI::NSS1 PURI::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR PURI::NSS2 PURI::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-NOT-EQUAL PURI::C1 PURI::C2)
; --> IF CHAR-EQUAL
; ==>
; (SB-INT:TWO-ARG-CHAR-EQUAL PURI::C1 PURI::C2)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; processing (DEFMETHOD INTERN-URI ...)
; processing (DEFMETHOD INTERN-URI ...)
; processing (DEFUN UNINTERN-URI ...)
; processing (DEFMACRO DO-ALL-URIS ...)
; processing (DEFUN SHARP-U ...)
; processing (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; processing (PROVIDE :URI)
; processing (DEFUN GC ...)
; processing (DEFUN TIME-URI-MODULE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/puri/src-tmpQWQ2GT89.fasl
; compilation finished in 0:00:04.491
; compiling file "/usr/share/common-lisp/source/cl-base64/package.lisp" (written 04 SEP 2007 06:27:35 AM):
; processing (DEFPACKAGE #:CL-BASE64 ...)
; processing (IN-PACKAGE #:CL-BASE64)
; processing (DEFVAR *ENCODE-TABLE* ...)
; processing (DECLAIM (TYPE SIMPLE-STRING ...))
; processing (DEFVAR *URI-ENCODE-TABLE* ...)
; processing (DECLAIM (TYPE SIMPLE-STRING ...))
; processing (DEFTYPE DECODE-TABLE ...)
; processing (DEFUN MAKE-DECODE-TABLE ...)
; processing (DEFVAR *DECODE-TABLE* ...)
; processing (DEFVAR *URI-DECODE-TABLE* ...)
; processing (DEFVAR *PAD-CHAR* ...)
; processing (DEFVAR *URI-PAD-CHAR* ...)
; processing (DECLAIM (TYPE CHARACTER ...))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-base64/package-tmpZVP4T53N.fasl
; compilation finished in 0:00:00.083
; compiling file "/usr/share/common-lisp/source/cl-base64/encode.lisp" (written 04 SEP 2007 06:27:35 AM):
; processing (IN-PACKAGE #:CL-BASE64)
; processing (DEFUN ROUND-NEXT-MULTIPLE ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEFUN ROUND-NEXT-MULTIPLE
; (MOD CL-BASE64::X CL-BASE64::N)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-536870912) (536870912)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (RATIONAL #1=(-536870912) #2=(536870912))
; DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR (RATIONAL #1# #2#) DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (OR (INTEGER -536870912 -1)
; (INTEGER 1 536870911)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (INTEGER -536870911 536870911) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST
; T).
; etc.
; (+ CL-BASE64::X (THE FIXNUM (- CL-BASE64::N CL-BASE64::REMAINDER)))
;
; 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 32) arithmetic (cost 5) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFMACRO DEF-*-TO-BASE64-* ...)
; processing (DEF-*-TO-BASE64-* :STRING ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEF-*-TO-BASE64-* :STRING
; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STRING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF
; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF
; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + + THE ASH THE CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + THE CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; processing (DEF-*-TO-BASE64-* :STRING ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEF-*-TO-BASE64-* :STRING
; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STREAM)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF
; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF
; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + + THE ASH THE CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + THE CHAR-CODE THE CHAR AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
; processing (DEF-*-TO-BASE64-* :USB8-ARRAY ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEF-*-TO-BASE64-* :USB8-ARRAY
; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STRING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF
; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF
; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + + THE ASH THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; processing (DEF-*-TO-BASE64-* :USB8-ARRAY ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEF-*-TO-BASE64-* :USB8-ARRAY
; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STREAM)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF
; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF
; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + + THE ASH THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY
; --> CL-BASE64::OUTPUT-GROUP THE + + THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; processing (DEFUN INTEGER-TO-BASE64-STRING ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEFUN INTEGER-TO-BASE64-STRING
; (MOD CL-BASE64::PADDED-BITS 24)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; (ZEROP CL-BASE64::REMAINDER-PADDING)
; ==>
; (= CL-BASE64::REMAINDER-PADDING 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL 0 (24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MOD CL-BASE64::PADDED-BITS 24)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a RATIONAL.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (/ CL-BASE64::PADDING-BITS 6)
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL 0 24)), not a INTEGER.
; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6)
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (/ CL-BASE64::PADDING-BITS 3)
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL 0 24)), not a INTEGER.
; (MOD CL-BASE64::PADDED-BITS 24)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL #2=(-24) #3=(24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #4=(0) #5=(24)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL #2# #3#) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES (OR (RATIONAL #4# #5#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; (- 24 CL-BASE64::REMAINDER-PADDING)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL 0 #1=(24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #2=(0) 24))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a (OR (RATIONAL 0 #1#) DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #2# 24))
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS)
;
; 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 second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL 0 24)), not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (* CL-BASE64::COLUMNS (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230375077969921)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230375077969921)
; . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (- CL-BASE64::PADDED-LENGTH
; (* CL-BASE64::COLUMNS
; (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (INTEGER -288230375614840832 288230375077969921), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -288230375614840832 288230375077969921), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3))
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; (LOGAND CL-BASE64::INT 63)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (ASH CL-BASE64::INT -6)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFUN INTEGER-TO-BASE64-STREAM ...)
; file: /usr/share/common-lisp/source/cl-base64/encode.lisp
; in: DEFUN INTEGER-TO-BASE64-STREAM
; (MOD CL-BASE64::PADDED-BITS 24)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; (ZEROP CL-BASE64::REMAINDER-PADDING)
; ==>
; (= CL-BASE64::REMAINDER-PADDING 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL 0 (24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MOD CL-BASE64::PADDED-BITS 24)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a RATIONAL.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (/ CL-BASE64::PADDING-BITS 6)
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL 0 24)), not a INTEGER.
; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6)
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (/ CL-BASE64::PADDING-BITS 3)
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL 0 24)), not a INTEGER.
; (= CL-BASE64::STRPOS CL-BASE64::NONPAD-CHARS)
;
; note: unable to open code because: The operands might not be the same type.
; (MOD CL-BASE64::PADDED-BITS 24)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL #2=(-24) #3=(24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL #4=(0) #5=(24)) DOUBLE-FLOAT SINGLE-FLOAT)
; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL #2# #3#) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES (OR (RATIONAL #4# #5#) DOUBLE-FLOAT SINGLE-FLOAT)
; . #6#), not a (VALUES FIXNUM &REST T).
; etc.
; (- 24 CL-BASE64::REMAINDER-PADDING)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL 0 #1=(24)) DOUBLE-FLOAT
; SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #2=(0) 24))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a (OR (RATIONAL 0 #1#) DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL #2# 24))
; . #3#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS)
;
; 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 second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL 0 24)), not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL 0 4) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL -536870916 536870911))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a (OR (RATIONAL 0 4) DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES
; (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL -536870916 536870911))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; etc.
; (1- CL-BASE64::NONPAD-CHARS)
; ==>
; (- CL-BASE64::NONPAD-CHARS 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL -536870916 536870911)), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
; (RATIONAL -536870916 536870911)), not a FIXNUM.
; etc.
; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3))
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; (LOGAND CL-BASE64::INT 63)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (ASH CL-BASE64::INT -6)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; (LOGAND CL-BASE64::INT 63)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-base64/encode-tmpUKKA1XHA.fasl
; compilation finished in 0:00:01.431
; compiling file "/usr/share/common-lisp/source/cl-base64/decode.lisp" (written 27 AUG 2015 05:38:21 AM):
; processing (IN-PACKAGE #:CL-BASE64)
; processing (DECLAIM (INLINE WHITESPACE-P))
; processing (DEFUN WHITESPACE-P ...)
; processing (DEFMACRO DEF-BASE64-STRING-TO-* ...)
; processing (DEF-BASE64-STRING-TO-* :STRING)
; file: /usr/share/common-lisp/source/cl-base64/decode.lisp
; in: DEF-BASE64-STRING-TO-* :STRING
; (CL-BASE64::DEF-BASE64-STRING-TO-* :STRING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET LOOP BLOCK LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a 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.
; processing (DEF-BASE64-STRING-TO-* :STREAM)
; file: /usr/share/common-lisp/source/cl-base64/decode.lisp
; in: DEF-BASE64-STRING-TO-* :STREAM
; (CL-BASE64::DEF-BASE64-STRING-TO-* :STREAM)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET LOOP BLOCK LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a 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.
; processing (DEF-BASE64-STRING-TO-* :USB8-ARRAY)
; file: /usr/share/common-lisp/source/cl-base64/decode.lisp
; in: DEF-BASE64-STRING-TO-* :USB8-ARRAY
; (CL-BASE64::DEF-BASE64-STRING-TO-* :USB8-ARRAY)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK LET LET LOOP BLOCK LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a 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.
; processing (DEFUN BASE64-STRING-TO-INTEGER ...)
; file: /usr/share/common-lisp/source/cl-base64/decode.lisp
; in: DEFUN BASE64-STRING-TO-INTEGER
; (LOOP CL-BASE64::FOR CHAR CL-BASE64::OF-TYPE CHARACTER CL-BASE64::ACROSS STRING
; CL-BASE64::FOR CL-BASE64::SVALUE CL-BASE64::OF-TYPE FIXNUM = ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a 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.
; (ASH CL-BASE64::VALUE 6)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ CL-BASE64::SVALUE (ASH CL-BASE64::VALUE 6))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (ASH CL-BASE64::VALUE -2)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; processing (DEFUN BASE64-STREAM-TO-INTEGER ...)
; file: /usr/share/common-lisp/source/cl-base64/decode.lisp
; in: DEFUN BASE64-STREAM-TO-INTEGER
; (ASH CL-BASE64::VALUE 6)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ CL-BASE64::SVALUE (ASH CL-BASE64::VALUE 6))
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (ASH CL-BASE64::VALUE -2)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-base64/decode-tmpAUGX2KZO.fasl
; compilation finished in 0:00:00.635
; compiling file "/usr/share/common-lisp/source/chunga/packages.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CHUNGA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/packages-tmpJSDTRDO5.fasl
; compilation finished in 0:00:00.011
; compiling file "/usr/share/common-lisp/source/chunga/specials.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFMACRO DEFINE-CONSTANT ...)
; processing (DEFCONSTANT +OUTPUT-BUFFER-SIZE+ ...)
; processing (DEFINE-CONSTANT +CRLF+ ...)
; processing (DEFINE-CONSTANT +HEX-DIGITS+ ...)
; processing (DEFVAR *CURRENT-ERROR-MESSAGE* ...)
; processing (DEFVAR *CURRENT-ERROR-FUNCTION* ...)
; processing (DEFVAR *ACCEPT-BOGUS-EOLS* ...)
; processing (DEFVAR *TREAT-SEMICOLON-AS-CONTINUATION* ...)
; processing (DEFVAR *CHAR-BUFFER* ...)
; processing (PUSHNEW :CHUNGA ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/specials-tmpB0M1693N.fasl
; compilation finished in 0:00:00.102
; compiling file "/usr/share/common-lisp/source/chunga/util.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFUN ENDS-WITH-P ...)
; processing (DEFUN MAKE-KEYWORD ...)
; processing (DEFUN READ-CHAR* ...)
; processing (DEFUN UNREAD-CHAR* ...)
; processing (DEFUN PEEK-CHAR* ...)
; processing (DEFMACRO WITH-CHARACTER-STREAM-SEMANTICS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/util-tmpC9TL49B0.fasl
; compilation finished in 0:00:00.144
; compiling file "/usr/share/common-lisp/source/chunga/known-words.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFINE-CONSTANT +KNOWN-WORDS+ ...)
; processing (DEFINE-CONSTANT +STRING-TO-KEYWORD-HASH+ ...)
; processing (DEFINE-CONSTANT +KEYWORD-TO-STRING-HASH+ ...)
; processing (DEFUN AS-KEYWORD ...)
; processing (DEFUN AS-CAPITALIZED-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/known-words-tmp5XRB0HRA.fasl
; compilation finished in 0:00:00.105
; compiling file "/usr/share/common-lisp/source/chunga/conditions.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFINE-CONDITION CHUNGA-CONDITION ...)
; processing (DEFINE-CONDITION CHUNGA-ERROR ...)
; processing (DEFINE-CONDITION CHUNGA-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION PARAMETER-ERROR ...)
; processing (DEFINE-CONDITION SYNTAX-ERROR ...)
; processing (DEFINE-CONDITION CHUNGA-WARNING ...)
; processing (DEFINE-CONDITION CHUNGA-SIMPLE-WARNING ...)
; processing (DEFINE-CONDITION INPUT-CHUNKING-UNEXPECTED-END-OF-FILE ...)
; processing (DEFINE-CONDITION INPUT-CHUNKING-BODY-CORRUPTED ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/conditions-tmp65MWZENM.fasl
; compilation finished in 0:00:00.055
; compiling file "/usr/share/common-lisp/source/chunga/read.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFUN SIGNAL-UNEXPECTED-CHARS ...)
; processing (DEFUN CHARP ...)
; processing (DEFUN CONTROLP ...)
; processing (DEFUN SEPARATORP ...)
; processing (DEFUN WHITESPACEP ...)
; processing (DEFUN TOKEN-CHAR-P ...)
; processing (DEFUN ASSERT-CHAR ...)
; processing (DEFUN ASSERT-CRLF ...)
; processing (DEFUN READ-LINE* ...)
; processing (DEFUN TRIM-WHITESPACE ...)
; file: /usr/share/common-lisp/source/chunga/read.lisp
; in: DEFUN TRIM-WHITESPACE
; (CHAR STRING CHUNGA::I)
; --> AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFUN READ-HTTP-HEADERS ...)
; processing (DEFUN SKIP-WHITESPACE ...)
; processing (DEFUN READ-TOKEN ...)
; processing (DEFUN READ-QUOTED-STRING ...)
; processing (DEFUN READ-COOKIE-VALUE ...)
; processing (DEFUN READ-NAME-VALUE-PAIR ...)
; processing (DEFUN READ-NAME-VALUE-PAIRS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/read-tmp3KHCY8PU.fasl
; compilation finished in 0:00:00.555
; compiling file "/usr/share/common-lisp/source/chunga/streams.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFCLASS CHUNKED-STREAM ...)
; processing (DEFCLASS CHUNKED-INPUT-STREAM ...)
; processing (DEFCLASS CHUNKED-OUTPUT-STREAM ...)
; processing (DEFCLASS CHUNKED-IO-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD OPEN-STREAM-P ...)
; processing (DEFMETHOD CLOSE ...)
; processing (DEFUN MAKE-CHUNKED-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/streams-tmpMPFDZAEW.fasl
; compilation finished in 0:00:00.139
; compiling file "/usr/share/common-lisp/source/chunga/input.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFMETHOD CHUNKED-INPUT-STREAM-EXTENSIONS ...)
; processing (DEFMETHOD CHUNKED-INPUT-STREAM-TRAILERS ...)
; processing (DEFMETHOD CHUNKED-STREAM-INPUT-CHUNKING-P ...)
; processing (DEFMETHOD (SETF CHUNKED-STREAM-INPUT-CHUNKING-P) ...)
; processing (DEFMETHOD STREAM-CLEAR-INPUT ...)
; processing (DEFMETHOD CHUNKED-INPUT-AVAILABLE-P ...)
; processing (DEFMETHOD STREAM-LISTEN ...)
; processing (DEFMETHOD FILL-BUFFER ...)
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/input-tmpP5WOZMTN.fasl
; compilation finished in 0:00:00.429
; compiling file "/usr/share/common-lisp/source/chunga/output.lisp" (written 03 APR 2020 01:21:00 AM):
; processing (IN-PACKAGE :CHUNGA)
; processing (DEFMETHOD CHUNKED-STREAM-OUTPUT-CHUNKING-P ...)
; processing (DEFMETHOD WRITE-CHUNK ...)
; processing (DEFMETHOD FLUSH-BUFFER ...)
; processing (DEFMETHOD (SETF CHUNKED-STREAM-OUTPUT-CHUNKING-P) ...)
; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD CLOSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/chunga/output-tmpKJ3VKHCI.fasl
; compilation finished in 0:00:00.466
; compiling file "/usr/share/common-lisp/source/drakma/packages.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :DRAKMA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/packages-tmpBWPBK6KC.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/drakma/specials.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFPARAMETER *DRAKMA-VERSION* ...)
; processing (DEFMACRO DEFINE-CONSTANT ...)
; processing (DEFINE-CONSTANT +LATIN-1+ ...)
; processing (DEFINE-CONSTANT +REDIRECT-CODES+ ...)
; processing (DEFINE-CONSTANT +REDIRECT-TO-GET-CODES+ ...)
; processing (DEFINE-CONSTANT +KNOWN-METHODS+ ...)
; processing (DEFINE-CONSTANT +REDIRECT-TO-GET-METHODS+ ...)
; processing (DEFCONSTANT +BUFFER-SIZE+ ...)
; processing (DEFVAR *DRAKMA-DEFAULT-EXTERNAL-FORMAT* ...)
; processing (DEFVAR *HEADER-STREAM* ...)
; processing (DEFVAR *ALLOW-DOTLESS-COOKIE-DOMAINS-P* ...)
; processing (DEFVAR *IGNORE-UNPARSEABLE-COOKIE-DATES-P* ...)
; processing (DEFVAR *REMOVE-DUPLICATE-COOKIES-P* ...)
; processing (DEFVAR *TEXT-CONTENT-TYPES* ...)
; processing (DEFVAR *BODY-FORMAT-FUNCTION* ...)
; processing (DEFVAR *TIME-ZONE-MAP* ...)
; processing (DEFVAR *DEFAULT-HTTP-PROXY* ...)
; processing (DEFVAR *NO-PROXY-DOMAINS* ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/specials-tmpRKILSZW5.fasl
; compilation finished in 0:00:00.125
; compiling file "/usr/share/common-lisp/source/drakma/conditions.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFINE-CONDITION DRAKMA-CONDITION ...)
; processing (DEFINE-CONDITION DRAKMA-ERROR ...)
; processing (DEFINE-CONDITION DRAKMA-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION DRAKMA-WARNING ...)
; processing (DEFINE-CONDITION DRAKMA-SIMPLE-WARNING ...)
; processing (DEFUN DRAKMA-WARN ...)
; processing (DEFINE-CONDITION PARAMETER-ERROR ...)
; processing (DEFUN PARAMETER-ERROR ...)
; processing (DEFINE-CONDITION SYNTAX-ERROR ...)
; processing (DEFUN SYNTAX-ERROR ...)
; processing (DEFINE-CONDITION COOKIE-ERROR ...)
; processing (DEFUN COOKIE-ERROR ...)
; processing (DEFINE-CONDITION COOKIE-DATE-PARSE-ERROR ...)
; processing (DEFUN COOKIE-DATE-PARSE-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/conditions-tmpMZOI9FPX.fasl
; compilation finished in 0:00:00.352
; compiling file "/usr/share/common-lisp/source/drakma/util.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFUN ENDS-WITH-P ...)
; processing (DEFUN STARTS-WITH-P ...)
; processing (DEFUN URL-ENCODE ...)
; processing (DEFUN ALIST-TO-URL-ENCODED-STRING ...)
; processing (DEFUN DEFAULT-PORT ...)
; processing (DEFUN NON-DEFAULT-PORT ...)
; processing (DEFUN USER-AGENT-STRING ...)
; file: /usr/share/common-lisp/source/drakma/util.lisp
; in: DEFUN USER-AGENT-STRING
; (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp")
; --> LET IF
; ==>
; "Common Lisp"
;
; note: deleting unreachable code
; (OR (LISP-IMPLEMENTATION-VERSION) "")
; --> LET IF
; ==>
; ""
;
; note: deleting unreachable code
; processing (DEFUN HEADER-VALUE ...)
; processing (DEFUN PARAMETER-PRESENT-P ...)
; processing (DEFUN PARAMETER-VALUE ...)
; processing (DEFUN MAKE-RANDOM-STRING ...)
; processing (DEFUN SAFE-PARSE-INTEGER ...)
; processing (DEFUN INTERPRET-AS-MONTH ...)
; processing (DEFUN INTERPRET-AS-TIME-ZONE ...)
; file: /usr/share/common-lisp/source/drakma/util.lisp
; in: DEFUN INTERPRET-AS-TIME-ZONE
; (CL-PPCRE:REGISTER-GROUPS-BIND (DRAKMA::SIGN DRAKMA::HOURS DRAKMA::MINUTES)
; ("(?:GMT|)\\s*([+-]?)(\\d\\d):?(\\d\\d)" STRING)
; (*
; (IF (EQUAL DRAKMA::SIGN "-")
; 1
; -1)
; (+ (PARSE-INTEGER DRAKMA::HOURS) (/ (PARSE-INTEGER DRAKMA::MINUTES) 60))))
; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION WHEN IF LET* LET IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a STRING:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; caught STYLE-WARNING:
; This is not a STRING:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFUN SET-REFERER ...)
; processing (DEFUN TEXT-CONTENT-TYPE-P ...)
; processing (DEFMACRO WITH-SEQUENCE-FROM-STRING ...)
; processing (DEFUN SPLIT-SET-COOKIE-STRING ...)
; processing (DEFUN MAKE-SSL-STREAM ...)
; processing (DEFUN DISSECT-QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/util-tmpK1FAQ4UB.fasl
; compilation finished in 0:00:00.950
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "drakma" "util">
; compiling file "/usr/share/common-lisp/source/drakma/read.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFUN READ-STATUS-LINE ...)
; processing (DEFUN GET-CONTENT-TYPE ...)
; processing (DEFUN READ-TOKEN-AND-PARAMETERS ...)
; processing (DEFUN SKIP-MORE-COMMAS ...)
; processing (DEFUN READ-TOKENS-AND-PARAMETERS ...)
; processing (DEFUN SPLIT-TOKENS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/read-tmp7SL3RQ04.fasl
; compilation finished in 0:00:00.222
; compiling file "/usr/share/common-lisp/source/drakma/cookies.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFCLASS COOKIE ...)
; processing (DEFUN RENDER-COOKIE-DATE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN NORMALIZE-COOKIE-DOMAIN ...)
; processing (DEFUN VALID-COOKIE-DOMAIN-P ...)
; processing (DEFUN COOKIE-DOMAIN-MATCHES ...)
; processing (DEFUN SEND-COOKIE-P ...)
; processing (DEFUN CHECK-COOKIE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD (SETF COOKIE-NAME) ...)
; processing (DEFMETHOD (SETF COOKIE-VALUE) ...)
; processing (DEFMETHOD (SETF COOKIE-DOMAIN) ...)
; processing (DEFMETHOD (SETF COOKIE-PATH) ...)
; processing (DEFMETHOD (SETF COOKIE-EXPIRES) ...)
; processing (DEFUN COOKIE= ...)
; processing (DEFCLASS COOKIE-JAR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN PARSE-COOKIE-DATE ...)
; processing (DEFUN PARSE-SET-COOKIE ...)
; processing (DEFUN GET-COOKIES ...)
; processing (DEFUN UPDATE-COOKIES ...)
; processing (DEFUN DELETE-OLD-COOKIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/cookies-tmp59K261JE.fasl
; compilation finished in 0:00:00.738
; compiling file "/usr/share/common-lisp/source/drakma/encoding.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFGENERIC DECODE-STREAM ...)
; processing (DEFMETHOD DECODE-STREAM ...)
; processing (DEFMETHOD DECODE-STREAM ...)
; processing (DEFMETHOD DECODE-STREAM ...)
; processing (DEFMETHOD DECODE-STREAM ...)
; processing (DEFMETHOD DECODE-STREAM ...)
; processing (DEFUN DECODE-RESPONSE-STREAM ...)
; processing (DEFUN DECODE-FLEXI-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/encoding-tmpTHJMOC2P.fasl
; compilation finished in 0:00:00.228
; compiling file "/usr/share/common-lisp/source/drakma/request.lisp" (written 23 OCT 2019 08:11:43 PM):
; processing (IN-PACKAGE :DRAKMA)
; processing (DEFUN DETERMINE-BODY-FORMAT ...)
; processing (DEFUN SEND-CONTENT ...)
; processing (DEFUN MAKE-FORM-DATA-FUNCTION ...)
; processing (DEFUN %READ-BODY ...)
; processing (DEFUN READ-BODY ...)
; processing (DEFUN TRIVIAL-URI-PATH ...)
; processing (DEFUN HTTP-REQUEST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/drakma/request-tmpTRIXIJXI.fasl
; compilation finished in 0:00:01.859
; compiling file "/usr/share/common-lisp/source/local-time/src/package.lisp" (written 26 FEB 2018 03:02:47 PM):
; processing (DEFPACKAGE #:LOCAL-TIME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/local-time/src/package-tmpR7M4CYOJ.fasl
; compilation finished in 0:00:00.011
; compiling file "/usr/share/common-lisp/source/local-time/src/local-time.lisp" (written 16 MAY 2018 09:49:19 AM):
; processing (IN-PACKAGE #:LOCAL-TIME)
; processing (DEFCLASS TIMESTAMP ...)
; processing (DEFSTRUCT SUBZONE ...)
; processing (DEFSTRUCT TIMEZONE ...)
; processing (DEFTYPE TIMEZONE-OFFSET ...)
; processing (DEFUN %VALID-TIME-OF-DAY? ...)
; processing (DEFTYPE TIME-OF-DAY ...)
; processing (DEFUN %VALID-DATE? ...)
; processing (DEFTYPE DATE ...)
; processing (DEFINE-CONDITION INVALID-TIMEZONE-FILE ...)
; processing (DEFINE-CONDITION INVALID-TIME-SPECIFICATION ...)
; processing (DEFINE-CONDITION INVALID-TIMESTRING ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DECLAIM (INLINE NOW ...) ...)
; processing (DEFVAR *DEFAULT-TIMEZONE*)
; processing (DEFPARAMETER *DEFAULT-TIMEZONE-REPOSITORY-PATH* ...)
; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp
; in: DEFPARAMETER *DEFAULT-TIMEZONE-REPOSITORY-PATH*
; (OR #P"/usr/share/common-lisp/source/local-time/src/local-time.lisp"
; *LOAD-TRUENAME*)
; --> LET IF
; ==>
; *LOAD-TRUENAME*
;
; note: deleting unreachable code
; processing (DEFPARAMETER +MONTH-NAMES+ ...)
; processing (DEFPARAMETER +SHORT-MONTH-NAMES+ ...)
; processing (DEFPARAMETER +DAY-NAMES+ ...)
; processing (DEFPARAMETER +DAY-NAMES-AS-KEYWORDS+ ...)
; processing (DEFPARAMETER +SHORT-DAY-NAMES+ ...)
; processing (DEFPARAMETER +MINIMAL-DAY-NAMES+ ...)
; processing (DEFCONSTANT +MONTHS-PER-YEAR+ ...)
; processing (DEFCONSTANT +DAYS-PER-WEEK+ ...)
; processing (DEFCONSTANT +HOURS-PER-DAY+ ...)
; processing (DEFCONSTANT +MINUTES-PER-DAY+ ...)
; processing (DEFCONSTANT +MINUTES-PER-HOUR+ ...)
; processing (DEFCONSTANT +SECONDS-PER-DAY+ ...)
; processing (DEFCONSTANT +SECONDS-PER-HOUR+ ...)
; processing (DEFCONSTANT +SECONDS-PER-MINUTE+ ...)
; processing (DEFCONSTANT +USECS-PER-DAY+ ...)
; processing (DEFPARAMETER +ISO-8601-DATE-FORMAT+ ...)
; processing (DEFPARAMETER +ISO-8601-TIME-FORMAT+ ...)
; processing (DEFPARAMETER +ISO-8601-FORMAT+ ...)
; processing (DEFPARAMETER +RFC3339-FORMAT+ ...)
; processing (DEFPARAMETER +RFC3339-FORMAT/DATE-ONLY+ ...)
; processing (DEFPARAMETER +ASCTIME-FORMAT+ ...)
; processing (DEFPARAMETER +RFC-1123-FORMAT+ ...)
; processing (DEFPARAMETER +ISO-WEEK-DATE-FORMAT+ ...)
; processing (DEFPARAMETER +ROTATED-MONTH-DAYS-WITHOUT-LEAP-DAY+ ...)
; processing (DEFPARAMETER +ROTATED-MONTH-OFFSETS-WITHOUT-LEAP-DAY+ ...)
; processing (DEFPARAMETER +ASTRONOMICAL-JULIAN-DATE-OFFSET+ ...)
; processing (DEFPARAMETER +MODIFIED-JULIAN-DATE-OFFSET+ ...)
; processing (DEFUN %GUESS-OFFSET ...)
; processing (DEFUN %READ-BINARY-INTEGER ...)
; processing (DEFUN %STRING-FROM-UNSIGNED-BYTE-VECTOR ...)
; processing (DEFUN %FIND-FIRST-STD-OFFSET ...)
; processing (DEFUN %TZ-VERIFY-MAGIC-NUMBER ...)
; processing (DEFUN %TZ-READ-HEADER ...)
; processing (DEFUN %TZ-READ-TRANSITIONS ...)
; processing (DEFUN %TZ-READ-INDEXES ...)
; processing (DEFUN %TZ-READ-SUBZONE ...)
; processing (DEFUN LEAP-SECONDS-SEC ...)
; processing (DEFUN LEAP-SECONDS-ADJUSTMENT ...)
; processing (DEFUN %TZ-READ-LEAP-SECONDS ...)
; processing (DEFUN %TZ-READ-ABBREVS ...)
; processing (DEFUN %TZ-READ-INDICATORS ...)
; processing (DEFUN %TZ-MAKE-SUBZONES ...)
; processing (DEFUN %REALIZE-TIMEZONE ...)
; processing (DEFUN %MAKE-SIMPLE-TIMEZONE ...)
; processing (DEFUN PACKAGE-WITH-SYMBOL? ...)
; processing (DEFPARAMETER +UTC-ZONE+ ...)
; processing (DEFPARAMETER +GMT-ZONE+ ...)
; processing (DEFPARAMETER +NONE-ZONE+ ...)
; processing (DEFMACRO DEFINE-TIMEZONE ...)
; processing (LET (#) ...)
; processing (DEFPARAMETER *LOCATION-NAME->TIMEZONE* ...)
; processing (DEFPARAMETER *ABBREVIATED-SUBZONE-NAME->TIMEZONE-LIST* ...)
; processing (DEFUN FIND-TIMEZONE-BY-LOCATION-NAME ...)
; processing (DEFUN TIMEZONE= ...)
; processing (DEFUN REREAD-TIMEZONE-REPOSITORY ...)
; processing (DEFMACRO MAKE-TIMESTAMP ...)
; processing (DEFUN CLONE-TIMESTAMP ...)
; processing (DEFUN TRANSITION-POSITION ...)
; processing (DEFUN TIMESTAMP-SUBTIMEZONE ...)
; processing (DEFUN %ADJUST-TO-OFFSET ...)
; processing (DEFUN %ADJUST-TO-TIMEZONE ...)
; processing (DEFUN TIMESTAMP-MINIMIZE-PART ...)
; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp
; in: DEFUN TIMESTAMP-MINIMIZE-PART
; (IF LOCAL-TIME::TIMEZONE
; NIL
; LOCAL-TIME::OFFSET)
; ==>
; LOCAL-TIME::OFFSET
;
; note: deleting unreachable code
; processing (DEFUN TIMESTAMP-MAXIMIZE-PART ...)
; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp
; in: DEFUN TIMESTAMP-MAXIMIZE-PART
; (IF LOCAL-TIME::TIMEZONE
; NIL
; LOCAL-TIME::OFFSET)
; ==>
; LOCAL-TIME::OFFSET
;
; note: deleting unreachable code
; processing (DEFMACRO WITH-DECODED-TIMESTAMP ...)
; processing (DEFUN %NORMALIZE-MONTH-YEAR-PAIR ...)
; processing (DEFUN DAYS-IN-MONTH ...)
; processing (DEFUN %FIX-OVERFLOW-IN-DAYS ...)
; processing (DEFUN %LIST-LENGTH= ...)
; processing (DEFUN %EXPAND-ADJUST-TIMESTAMP-CHANGES ...)
; processing (DEFUN %EXPAND-ADJUST-TIMESTAMP ...)
; processing (DEFMACRO ADJUST-TIMESTAMP ...)
; processing (DEFMACRO ADJUST-TIMESTAMP! ...)
; processing (DEFUN %SET-TIMESTAMP-PART ...)
; processing (DEFUN %OFFSET-TIMESTAMP-PART ...)
; processing (DEFUN TIMESTAMP-WHOLE-YEAR-DIFFERENCE ...)
; processing (DEFUN TIMESTAMP-DIFFERENCE ...)
; processing (DEFUN TIMESTAMP+ ...)
; processing (DEFUN TIMESTAMP- ...)
; processing (DEFUN TIMESTAMP-DAY-OF-WEEK ...)
; processing (DEFUN VALID-TIMESTAMP-P ...)
; processing (DEFUN ENCODE-TIMESTAMP-INTO-VALUES ...)
; processing (DEFUN ENCODE-TIMESTAMP ...)
; processing (DEFUN UNIVERSAL-TO-TIMESTAMP ...)
; processing (DEFUN TIMESTAMP-TO-UNIVERSAL ...)
; processing (DEFUN UNIX-TO-TIMESTAMP ...)
; processing (DEFUN TIMESTAMP-VALUES-TO-UNIX ...)
; processing (DEFUN TIMESTAMP-TO-UNIX ...)
; processing (DEFUN %GET-CURRENT-TIME ...)
; processing (DEFVAR *CLOCK* ...)
; processing (DEFUN NOW ...)
; processing (DEFUN TODAY ...)
; processing (DEFGENERIC CLOCK-NOW ...)
; processing (DEFGENERIC CLOCK-TODAY ...)
; processing (DEFUN %LEAP-SECONDS-OFFSET ...)
; processing (DEFUN %ADJUST-SEC-FOR-LEAP-SECONDS ...)
; processing (DEFMETHOD CLOCK-NOW ...)
; processing (DEFMETHOD CLOCK-NOW ...)
; processing (DEFMETHOD CLOCK-TODAY ...)
; processing (DEFMACRO %DEFCOMPARATOR ...)
; processing (DEFUN %TIMESTAMP-COMPARE ...)
; processing (%DEFCOMPARATOR TIMESTAMP< ...)
; processing (%DEFCOMPARATOR TIMESTAMP<= ...)
; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp
; in: %DEFCOMPARATOR TIMESTAMP<=
; (LOCAL-TIME::%DEFCOMPARATOR LOCAL-TIME:TIMESTAMP<=
; (NOT
; (NULL
; (MEMBER
; (LOCAL-TIME::%TIMESTAMP-COMPARE LOCAL-TIME::TIME-A LOCAL-TIME::TIME-B)
; '(< =)))))
; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN
; ==>
; (SB-C::%DEFINE-COMPILER-MACRO 'LOCAL-TIME:TIMESTAMP<=
; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
; LOCAL-TIME:TIMESTAMP<=)
; (#:EXPR #:ENV)
; (DECLARE
; (SB-C::LAMBDA-LIST
; (&REST LOCAL-TIME::TIMES)))
; (DECLARE (IGNORE #:ENV))
; (SB-INT:NAMED-DS-BIND (:MACRO
; LOCAL-TIME:TIMESTAMP<=
; . DEFINE-COMPILER-MACRO)
; (&REST LOCAL-TIME::TIMES)
; (SB-C::COMPILER-MACRO-ARGS #:EXPR)
; (BLOCK LOCAL-TIME:TIMESTAMP<=
; (LET #
; `#)))))
;
; caught STYLE-WARNING:
; 1 call to LOCAL-TIME:TIMESTAMP<= was compiled before a compiler-macro was
; defined for it. A declaration of NOTINLINE at the call site will eliminate this
; warning, as will defining the compiler-macro before its first potential use.
; processing (%DEFCOMPARATOR TIMESTAMP> ...)
; processing (%DEFCOMPARATOR TIMESTAMP>= ...)
; processing (%DEFCOMPARATOR TIMESTAMP= ...)
; processing (DEFUN TIMESTAMP/= ...)
; processing (DEFUN CONTEST ...)
; processing (DEFUN TIMESTAMP-MINIMUM ...)
; processing (DEFUN TIMESTAMP-MAXIMUM ...)
; processing (DEFUN YEARS-TO-DAYS ...)
; processing (DEFUN DAYS-TO-YEARS ...)
; processing (DEFUN %TIMESTAMP-DECODE-DATE ...)
; processing (DEFUN %TIMESTAMP-DECODE-ISO-WEEK ...)
; processing (DEFUN %TIMESTAMP-DECODE-TIME ...)
; processing (DEFUN DECODE-TIMESTAMP ...)
; processing (DEFUN TIMESTAMP-YEAR ...)
; processing (DEFUN TIMESTAMP-CENTURY ...)
; processing (DEFUN TIMESTAMP-MILLENNIUM ...)
; processing (DEFUN TIMESTAMP-DECADE ...)
; processing (DEFUN TIMESTAMP-MONTH ...)
; processing (DEFUN TIMESTAMP-DAY ...)
; processing (DEFUN TIMESTAMP-HOUR ...)
; processing (DEFUN TIMESTAMP-MINUTE ...)
; processing (DEFUN TIMESTAMP-SECOND ...)
; processing (DEFUN TIMESTAMP-MICROSECOND ...)
; processing (DEFUN TIMESTAMP-MILLISECOND ...)
; processing (DEFUN SPLIT-TIMESTRING ...)
; processing (DEFUN %SPLIT-TIMESTRING ...)
; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp
; in: DEFUN %SPLIT-TIMESTRING
; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 4)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (+ (CAAR LOCAL-TIME::PARTS) 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (+ (CAAR LOCAL-TIME::PARTS) 4)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 2)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; 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.
; (+ (CAAR LOCAL-TIME::PARTS) 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (*
; (THE (INTEGER 0 999999999)
; (PARSE-INTEGER LOCAL-TIME::TIME-STRING :START LOCAL-TIME::START :END
; LOCAL-TIME::END))
; (AREF #(1000000000 100000000 10000000 1000000 100000 10000 1000 100 10 1)
; (- LOCAL-TIME::END LOCAL-TIME::START)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 1000000000), not a FIXNUM.
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -2147483645852516352 2147483644852516353)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES
; (INTEGER -2147483645852516352 2147483644852516353) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST
; T).
; etc.
; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (+ (CAAR LOCAL-TIME::PARTS) 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ (CAAR LOCAL-TIME::PARTS) 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (+ (CAAR LOCAL-TIME::PARTS) 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (LOCAL-TIME::FULL-DATE (LOCAL-TIME::START-END)
; (LET ((LOCAL-TIME::PARTS (LOCAL-TIME::SPLIT # # LOCAL-TIME::DATE-SEPARATOR)))
; (LOCAL-TIME::PASSERT (LOCAL-TIME::%LIST-LENGTH= 3 LOCAL-TIME::PARTS))
; (LOCAL-TIME::DATE-FULLYEAR (FIRST LOCAL-TIME::PARTS))
; (LOCAL-TIME::DATE-MONTH (SECOND LOCAL-TIME::PARTS))
; (LOCAL-TIME::DATE-MDAY (THIRD LOCAL-TIME::PARTS))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; (ZEROP (- LOCAL-TIME::END LOCAL-TIME::START))
; --> = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (*
; (THE (INTEGER 0 999999999)
; (PARSE-INTEGER LOCAL-TIME::TIME-STRING :START LOCAL-TIME::START :END
; LOCAL-TIME::END))
; (AREF #(1000000000 100000000 10000000 1000000 100000 10000 1000 100 10 1)
; (- LOCAL-TIME::END LOCAL-TIME::START)))
;
; note: doing signed word to integer coercion (cost 20)
; (ZEROP (- LOCAL-TIME::INDEX LOCAL-TIME::LAST-MATCH))
; --> = EQL IF EQL EQ IF
; ==>
; (EQ SB-C::Y SB-C::X)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; processing (DEFUN PARSE-RFC3339-TIMESTRING ...)
; processing (DEFUN PARSE-TIMESTRING ...)
; processing (DEFUN ORDINALIZE ...)
; processing (DEFUN %CONSTRUCT-TIMESTRING ...)
; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp
; in: DEFUN %CONSTRUCT-TIMESTRING
; (DEFUN LOCAL-TIME::%CONSTRUCT-TIMESTRING
; (LOCAL-TIME:TIMESTAMP FORMAT LOCAL-TIME::TIMEZONE)
; "Constructs a string representing TIMESTAMP given the FORMAT of the string and the TIMEZONE. See the documentation of FORMAT-TIMESTRING for the structure of FORMAT."
; (DECLARE (TYPE LOCAL-TIME:TIMESTAMP LOCAL-TIME:TIMESTAMP)
; (OPTIMIZE (SPEED 3)))
; (MULTIPLE-VALUE-BIND
; (LOCAL-TIME::NSEC LOCAL-TIME::SEC LOCAL-TIME::MINUTE LOCAL-TIME::HOUR
; LOCAL-TIME::DAY LOCAL-TIME::MONTH LOCAL-TIME::YEAR LOCAL-TIME::WEEKDAY
; LOCAL-TIME::DAYLIGHT-P LOCAL-TIME::OFFSET LOCAL-TIME::ABBREV)
; (LOCAL-TIME:DECODE-TIMESTAMP LOCAL-TIME:TIMESTAMP :TIMEZONE
; LOCAL-TIME::TIMEZONE)
; (DECLARE (IGNORE LOCAL-TIME::DAYLIGHT-P))
; (MULTIPLE-VALUE-BIND
; (LOCAL-TIME::ISO-YEAR LOCAL-TIME::ISO-WEEK LOCAL-TIME::ISO-WEEKDAY)
; (LOCAL-TIME::%TIMESTAMP-DECODE-ISO-WEEK LOCAL-TIME:TIMESTAMP)
; (LET (# #)
; (WITH-OUTPUT-TO-STRING # #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; ==>
; (SB-C::%FUNCALL #'%CONSTRUCT-TIMESTRING #:G19 #:G20 #:G21)
;
; note: can't open-code test of unknown type TIMESTAMP
; (FLOOR LOCAL-TIME::OFFSET LOCAL-TIME:+SECONDS-PER-HOUR+)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -43200 50400), not a (UNSIGNED-BYTE 32).
; (MOD LOCAL-TIME::YEAR 100)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -1000000 1000000), not a (UNSIGNED-BYTE 32).
; (AREF LOCAL-TIME:+MONTH-NAMES+ LOCAL-TIME::MONTH)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (AREF LOCAL-TIME:+SHORT-MONTH-NAMES+ LOCAL-TIME::MONTH)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (AREF LOCAL-TIME:+DAY-NAMES+ LOCAL-TIME::WEEKDAY)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (AREF LOCAL-TIME:+SHORT-DAY-NAMES+ LOCAL-TIME::WEEKDAY)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (AREF LOCAL-TIME::+MINIMAL-DAY-NAMES+ LOCAL-TIME::WEEKDAY)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (MOD (1- LOCAL-TIME::HOUR) 12)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (INTEGER -1 22), not a (UNSIGNED-BYTE 32).
; (MINUSP LOCAL-TIME::VAL)
; ==>
; (< LOCAL-TIME::VAL 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (ABS LOCAL-TIME::VAL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0))
; (RATIONAL * (0))), not a RATIONAL.
; (MINUSP LOCAL-TIME::VAL)
; ==>
; (< LOCAL-TIME::VAL 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (ABS LOCAL-TIME::VAL)
;
; note: forced to do full call
; unable to do #1=inline float arithmetic (cost 1) because:
; The first argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0))
; (SINGLE-FLOAT * #3=(0.0)) (RATIONAL * #4=(0))), not a SINGLE-FLOAT.
; The result is a (VALUES
; (OR (RATIONAL #5=(0)) (SINGLE-FLOAT #6=(-0.0))
; (DOUBLE-FLOAT #7=(-0.0d0)))
; . #8=(&OPTIONAL)), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do #1# (cost 1) because:
; The first argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#)
; (RATIONAL * #4#)), not a DOUBLE-FLOAT.
; The result is a (VALUES
; (OR (RATIONAL #5#) (SINGLE-FLOAT #6#)
; (DOUBLE-FLOAT #7#))
; . #8#), not a (VALUES DOUBLE-FLOAT &REST T).
; processing (DEFUN FORMAT-TIMESTRING ...)
; processing (DEFUN FORMAT-RFC1123-TIMESTRING ...)
; processing (DEFUN TO-RFC1123-TIMESTRING ...)
; processing (DEFUN FORMAT-RFC3339-TIMESTRING ...)
; processing (DEFUN TO-RFC3339-TIMESTRING ...)
; processing (DEFUN %READ-TIMESTRING ...)
; processing (DEFUN %READ-UNIVERSAL-TIME ...)
; processing (DEFUN ENABLE-READ-MACROS ...)
; processing (DEFVAR *DEBUG-TIMESTAMP* ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ASTRONOMICAL-JULIAN-DATE ...)
; processing (DEFUN MODIFIED-JULIAN-DATE ...)
; processing (DECLAIM (NOTINLINE FORMAT-TIMESTRING))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/local-time/src/local-time-tmpM2YAX03H.fasl
; compilation finished in 0:00:09.265
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "local-time" "src" "local-time">
; compiling file "/usr/share/common-lisp/source/command-line-arguments/pkgdcl.lisp" (written 18 NOV 2015 08:20:48 AM):
; processing (DEFPACKAGE :COMMAND-LINE-ARGUMENTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/command-line-arguments/pkgdcl-tmp48JFDY22.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/command-line-arguments/argv.lisp" (written 18 NOV 2015 08:20:48 AM):
; processing (IN-PACKAGE :COMMAND-LINE-ARGUMENTS)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN GET-COMMAND-LINE-ARGUMENTS ...)
; processing (DEFUN COMPUTE-AND-PROCESS-COMMAND-LINE-OPTIONS ...)
; processing (DEFUN INVOKE-COMMAND-LINE-HANDLER ...)
; processing (DEFUN HANDLE-COMMAND-LINE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/command-line-arguments/argv-tmp1TEW70YL.fasl
; compilation finished in 0:00:00.152
; compiling file "/usr/share/common-lisp/source/command-line-arguments/parse.lisp" (written 18 NOV 2015 08:20:48 AM):
; processing (IN-PACKAGE :COMMAND-LINE-ARGUMENTS)
; processing (DEFVAR *COMMAND-LINE-OPTIONS* ...)
; processing (DEFVAR *COMMAND-LINE-OPTION-SPECIFICATION* ...)
; processing (DEFUN MAKE-OPTION-ACTION ...)
; processing (DEFUN FINALIZE-LIST ...)
; processing (DEFUN ACTUAL-ACTION-FROM-SPEC ...)
; processing (DEFUN COMMAND-LINE-ACTION ...)
; processing (DEFUN PREPARE-COMMAND-LINE-OPTIONS-SPECIFICATION ...)
; processing (DEFUN MAKE-NEGATED-NAMES ...)
; processing (DEFUN COMMAND-LINE-OPTION-SPECIFICATION ...)
; processing (DEFUN SHORT-OPTION-P ...)
; processing (DEFUN NEGATED-SHORT-OPTION-P ...)
; processing (DEFUN LONG-OPTION-P ...)
; processing (DEFUN OPTION-END-P ...)
; processing (DEFUN OPTION-LIKE-P ...)
; processing (DEFUN OPTION-NAME ...)
; processing (DEFUN COERCE-OPTION-PARAMETER ...)
; processing (DEFUN GET-OPTION-PARAMETER ...)
; processing (DEFUN PROCESS-OPTION ...)
; processing (DEFUN PROCESS-SHORT-OPTION ...)
; processing (DEFUN DECOMPOSE-LONG-OPTION-STRING ...)
; processing (DEFUN PROCESS-LONG-OPTION ...)
; processing (DEFUN DO-PROCESS-COMMAND-LINE-OPTIONS ...)
; processing (DEFUN PROCESS-COMMAND-LINE-OPTIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/command-line-arguments/parse-tmpYGEQ7EE3.fasl
; compilation finished in 0:00:00.835
; compiling file "/usr/share/common-lisp/source/command-line-arguments/help.lisp" (written 18 NOV 2015 08:20:48 AM):
; processing (IN-PACKAGE :COMMAND-LINE-ARGUMENTS)
; processing (DEFUN SPLIT-SEQUENCE ...)
; processing (DEFUN SHOW-OPTION-HELP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/command-line-arguments/help-tmp8F25BDNX.fasl
; compilation finished in 0:00:00.498
; compiling file "/usr/share/common-lisp/source/abnf/package.lisp" (written 06 MAY 2015 05:08:23 PM):
; processing (DEFPACKAGE #:ABNF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/abnf/package-tmpWW5SB3SO.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/abnf/abnf.lisp" (written 06 MAY 2015 05:08:23 PM):
; processing (IN-PACKAGE #:ABNF)
; processing (DEFVAR *ABNF-RFC2234-ABNF-DEFINITION* ...)
; processing (DEFVAR *ABNF-RFC-SYSLOG-DRAFT-15* ...)
; processing (DEFVAR *ABNF-RSYSLOG* ...)
; processing (DEFVAR *ABNF-RFC5424-SYSLOG-PROTOCOL* ...)
; processing (DEFVAR *ABNF-DEFAULT-RULES* ...)
; processing (DEFUN RULE-NAME-CHARACTER-P ...)
; processing (DEFUN VCHARP ...)
; processing (DEFRULE VCHAR ...)
; processing (DEFRULE WSP ...)
; processing (DEFRULE COMMENT ...)
; processing (DEFRULE C-NL ...)
; processing (DEFRULE C-WSP ...)
; processing (DEFRULE N-WSP ...)
; processing (DEFUN RULE-NAME-SYMBOL ...)
; processing (DEFRULE RULE-NAME ...)
; processing (DEFRULE EQUAL ...)
; processing (DEFRULE END-OF-RULE ...)
; processing (DEFRULE DIGIT ...)
; processing (DEFRULE DIGITS ...)
; processing (DEFUN CHAR-VAL-CHAR-P ...)
; processing (DEFRULE CHAR-VAL ...)
; processing (DEFRULE DEC-STRING ...)
; processing (DEFRULE DEC-RANGE ...)
; processing (DEFRULE DEC-VAL ...)
; processing (DEFUN HEXADECIMAL-CHAR-P ...)
; processing (DEFRULE HEXDIGITS ...)
; processing (DEFRULE HEX-STRING ...)
; processing (DEFRULE HEX-RANGE ...)
; processing (DEFRULE HEX-VAL ...)
; processing (DEFRULE NUM-VAL ...)
; processing (DEFRULE RULE-NAME-REFERENCE ...)
; processing (DEFUN PROCESS-QUOTED-REGEX ...)
; processing (DEFRULE SINGLE-QUOTED-REGEX ...)
; processing (DEFRULE DOUBLE-QUOTED-REGEX ...)
; processing (DEFRULE PARENS-QUOTED-REGEX ...)
; processing (DEFRULE BRACES-QUOTED-REGEX ...)
; processing (DEFRULE CHEVRON-QUOTED-REGEX ...)
; processing (DEFRULE BRACKETS-QUOTED-REGEX ...)
; processing (DEFRULE SLASH-QUOTED-REGEX ...)
; processing (DEFRULE PIPE-QUOTED-REGEX ...)
; processing (DEFRULE SHARP-QUOTED-REGEX ...)
; processing (DEFRULE QUOTED-REGEX ...)
; processing (DEFRULE ELEMENT ...)
; processing (DEFRULE NUMBER ...)
; processing (DEFRULE REPEAT-VAR ...)
; processing (DEFRULE REPEAT-SPECIFIC ...)
; processing (DEFRULE REPEAT ...)
; processing (DEFRULE REPETITION ...)
; processing (DEFRULE CONCATENATION-ELEMENT ...)
; processing (DEFRULE CONCATENATION ...)
; processing (DEFRULE ALTERNATION-ELEMENT ...)
; processing (DEFRULE ALTERNATION ...)
; processing (DEFRULE GROUP ...)
; processing (DEFRULE OPTION ...)
; processing (DEFRULE TOPLEVEL-ELEMENT ...)
; processing (DEFRULE ALTERNATIONS ...)
; processing (DEFRULE ELEMENTS ...)
; processing (DEFRULE RULE ...)
; processing (DEFRULE RULE-LIST ...)
; processing (DEFUN EXPAND-RULE-DEFINITION ...)
; processing (DEFUN EXPAND-RULE ...)
; processing (DEFUN PARSE-ABNF-GRAMMAR ...)
; processing (DEFUN TEST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/abnf/abnf-tmpEPNB4UYP.fasl
; compilation finished in 0:00:00.862
; compiling file "/usr/share/common-lisp/source/db3/package.lisp" (written 12 FEB 2020 07:50:33 PM):
; processing (DEFPACKAGE #:DB3 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/db3/package-tmp2HTEASEC.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/db3/db3.lisp" (written 12 FEB 2020 07:50:33 PM):
; processing (IN-PACKAGE :DB3)
; processing (DEFPARAMETER *EXTERNAL-FORMAT* ...)
; processing (DEFVAR *CODE-PAGE-LIST* ...)
; processing (DEFUN LANGUAGE-DRIVER-TO-ENCODING ...)
; processing (DEFUN READ-UINT32 ...)
; processing (DEFUN READ-UINT16 ...)
; processing (DEFCLASS DB3 ...)
; processing (DEFCLASS DB3-FIELD ...)
; processing (DEFCLASS DB3-MEMO ...)
; processing (DEFCLASS DB3-MEMO-BLOCK ...)
; processing (DEFUN ASCIIZ->STRING ...)
; processing (DEFUN ASCII->STRING ...)
; processing (DECLAIM (INLINE UNSIGNED-TO-SIGNED ...))
; processing (DEFUN UNSIGNED-TO-SIGNED ...)
; processing (DEFUN BYTES->INTEGER ...)
; processing (DEFUN BYTES->BIGINT ...)
; processing (DEFUN LOAD-FIELD-DESCRIPTOR ...)
; processing (DEFMETHOD FIELD-COUNT ...)
; processing (DEFMETHOD LOAD-HEADER ...)
; processing (DEFMETHOD LOAD-MEMO-HEADER ...)
; processing (DEFMETHOD LOAD-MEMO-RECORD ...)
; processing (DEFMETHOD CLOSE-MEMO ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD CONVERT-FIELD ...)
; processing (DEFMETHOD LOAD-FIELD ...)
; processing (DEFMETHOD LOAD-RECORD ...)
; processing (DEFUN WRITE-RECORD ...)
; processing (DEFUN DUMP-DB3 ...)
; processing (DEFUN SAMPLE-DB3 ...)
; processing (DEFUN INSPECT-DB3 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/db3/db3-tmpDMJ5F3HW.fasl
; compilation finished in 0:00:01.392
; compiling file "/usr/share/common-lisp/source/ieee-floats/ieee-floats.lisp" (written 24 AUG 2017 07:52:41 PM):
; processing (DEFPACKAGE :IEEE-FLOATS ...)
; processing (IN-PACKAGE :IEEE-FLOATS)
; processing (DEFMACRO MAKE-FLOAT-CONVERTERS ...)
; processing (DECLAIM (INLINE ENCODE-FLOAT32 ...))
; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT32 ...)
; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT64 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ieee-floats/ieee-floats-tmpOTUF308O.fasl
; compilation finished in 0:00:00.441
; compiling file "/usr/share/common-lisp/source/ixf/package.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (DEFPACKAGE #:IXF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/package-tmpK5SP30LE.fasl
; compilation finished in 0:00:00.009
; compiling file "/usr/share/common-lisp/source/ixf/records.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (IN-PACKAGE :IXF)
; processing (DEFSTRUCT (IXF-FIELD # ...) ...)
; processing (DEFVAR *IXF-HEADER* ...)
; processing (DEFVAR *IXF-TABLE* ...)
; processing (DEFVAR *IXF-COLUMN* ...)
; processing (DEFVAR *IXF-DATA* ...)
; processing (DEFVAR *IXF-APPLICATION* ...)
; processing (DEFVAR *RECORD-TYPES* ...)
; processing (DEFUN READ-INTEGER ...)
; processing (DEFUN READ-CHARACTER ...)
; processing (DEFUN READ-ASCII-STRING ...)
; processing (DEFUN READ-BINARY-DATA ...)
; processing (DEFUN READ-FIELD ...)
; processing (DEFUN READ-RECORD ...)
; processing (DEFUN READ-NEXT-RECORD ...)
; processing (DEFUN HEADER-RECORD-P ...)
; processing (DEFUN TABLE-RECORD-P ...)
; processing (DEFUN COLUMN-RECORD-P ...)
; processing (DEFUN DATA-RECORD-P ...)
; processing (DEFUN GET-RECORD-PROPERTY ...)
; processing (DEFUN CHECK-RECORD ...)
; processing (DEFUN VALIDATE-FILE ...)
; processing (DEFUN COLLECT-RECORDS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/records-tmpM5HAY0MH.fasl
; compilation finished in 0:00:00.576
; compiling file "/usr/share/common-lisp/source/ixf/types.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (IN-PACKAGE :IXF)
; processing (DEFCONSTANT +BIGINT+ ...)
; processing (DEFCONSTANT +BLOB+ ...)
; processing (DEFCONSTANT +CLOB+ ...)
; processing (DEFCONSTANT +BLOB-FILE+ ...)
; processing (DEFCONSTANT +CLOB-FILE+ ...)
; processing (DEFCONSTANT +DBCLOB-FILE+ ...)
; processing (DEFCONSTANT +CHAR+ ...)
; processing (DEFCONSTANT +DATE+ ...)
; processing (DEFCONSTANT +DBCLOB+ ...)
; processing (DEFCONSTANT +DECIMAL+ ...)
; processing (DEFCONSTANT +DECFLOAT+ ...)
; processing (DEFCONSTANT +FLOAT+ ...)
; processing (DEFCONSTANT +GRAPHIC+ ...)
; processing (DEFCONSTANT +INTEGER+ ...)
; processing (DEFCONSTANT +LONGVARCHAR+ ...)
; processing (DEFCONSTANT +LONGVARGRAPHIC+ ...)
; processing (DEFCONSTANT +SMALLINT+ ...)
; processing (DEFCONSTANT +TIME+ ...)
; processing (DEFCONSTANT +TIMESTAMP+ ...)
; processing (DEFCONSTANT +VARCHAR+ ...)
; processing (DEFCONSTANT +VARGRAPHIC+ ...)
; processing (DEFCONSTANT +BLOB-LOCATION-SPEC+ ...)
; processing (DEFCONSTANT +DBCLOB-LOCATION-SPEC+ ...)
; processing (DEFCONSTANT +DBBLOB-LOCATION-SPEC+ ...)
; processing (DEFUN PARSE-IXF-NULL ...)
; processing (DEFUN UNSIGNED-TO-SIGNED ...)
; processing (DEFUN PARSE-IXF-SMALLINT ...)
; processing (DEFUN PARSE-IXF-UNSIGNED-INTEGER ...)
; processing (DEFUN PARSE-IXF-UNSIGNED-BIGINT ...)
; processing (DEFUN PARSE-IXF-INTEGER ...)
; processing (DEFUN PARSE-IXF-BIGINT ...)
; processing (DEFUN PARSE-IXF-DECIMAL ...)
; processing (DEFUN PARSE-IXF-FLOAT ...)
; processing (DEFUN PARSE-IXF-STRING ...)
; processing (DEFUN PARSE-IXF-TIMESTAMP ...)
; processing (DEFUN PARSE-IXF-TIME ...)
; processing (DEFUN PARSE-IXF-DATE ...)
; processing (DEFUN PARSE-IXF-LLS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/types-tmpS9P74HOA.fasl
; compilation finished in 0:00:00.570
; compiling file "/usr/share/common-lisp/source/ixf/encodings.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (IN-PACKAGE #:IXF)
; processing (DEFVAR *IXF-ENCODINGS-MAPPING* ...)
; processing (DEFUN BABEL-ENCODING-FOR-CODE-PAGE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/encodings-tmp13JZP1K3.fasl
; compilation finished in 0:00:00.025
; compiling file "/usr/share/common-lisp/source/ixf/structs.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (IN-PACKAGE #:IXF)
; processing (DEFSTRUCT IXF-HEADER ...)
; processing (DEFSTRUCT IXF-COLUMN ...)
; processing (DEFSTRUCT IXF-TABLE ...)
; processing (DEFSTRUCT IXF-FILE ...)
; processing (DECLAIM (INLINE GET-CODE-PAGE))
; processing (DEFUN GET-CODE-PAGE ...)
; processing (DEFUN PARSE-ENCODING ...)
; processing (DEFMETHOD PARSE-HEADER ...)
; processing (DEFMETHOD PARSE-TABLE-DEFINITION ...)
; processing (DEFMETHOD PARSE-COLUMN-DEFINITION ...)
; processing (DEFMETHOD READ-HEADERS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/structs-tmpIKH5UDLR.fasl
; compilation finished in 0:00:01.303
; compiling file "/usr/share/common-lisp/source/ixf/data.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (IN-PACKAGE #:IXF)
; processing (DEFUN PARSE-IXF-DATA ...)
; processing (DEFMETHOD MAYBE-READ-RECORD ...)
; processing (DEFMETHOD READ-NEXT-ROW ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/data-tmpNTAFCHU4.fasl
; compilation finished in 0:00:00.252
; compiling file "/usr/share/common-lisp/source/ixf/ixf.lisp" (written 06 MAY 2017 01:08:15 PM):
; processing (IN-PACKAGE #:IXF)
; processing (DEFMACRO WITH-IXF-STREAM ...)
; processing (DEFMACRO WITH-IXF-FILE ...)
; processing (DEFUN MAP-DATA ...)
; processing (DEFMETHOD READ-DATA ...)
; processing (DEFUN READ-IXF-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/ixf/ixf-tmpF62ALJWF.fasl
; compilation finished in 0:00:00.163
; compiling file "/usr/share/common-lisp/source/py-configparser/package.lisp" (written 09 MAR 2009 09:47:15 PM):
; processing (DEFPACKAGE #:PY-CONFIGPARSER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/py-configparser/package-tmpB24U3EFR.fasl
; compilation finished in 0:00:00.007
; compiling file "/usr/share/common-lisp/source/py-configparser/config.lisp" (written 01 SEP 2013 11:54:28 AM):
; processing (IN-PACKAGE :PY-CONFIGPARSER)
; processing (DEFINE-CONDITION CONFIGPARSER-ERROR ...)
; processing (DEFINE-CONDITION CONFIG-ERROR ...)
; processing (DEFINE-CONDITION NO-SECTION-ERROR ...)
; processing (DEFINE-CONDITION DUPLICATE-SECTION-ERROR ...)
; processing (DEFINE-CONDITION NO-OPTION-ERROR ...)
; processing (DEFINE-CONDITION INTERPOLATION-ERROR ...)
; processing (DEFINE-CONDITION INTERPOLATION-DEPTH-ERROR ...)
; processing (DEFINE-CONDITION INTERPOLATION-MISSING-OPTION-ERROR ...)
; processing (DEFINE-CONDITION INTERPOLATION-SYNTAX-ERROR ...)
; processing (DEFSTRUCT SECTION ...)
; processing (DEFSTRUCT CONFIG ...)
; processing (DEFUN NORM-OPTION-NAME ...)
; processing (DEFUN NORM-SECTION-NAME ...)
; processing (DEFUN %VALIDATE-SECTION-NAME ...)
; processing (DEFUN %VALIDATE-OPTION-NAME ...)
; processing (DEFUN %GET-SECTION ...)
; processing (DEFUN %GET-OPTION ...)
; processing (DEFUN DEFAULTS ...)
; processing (DEFUN SECTIONS ...)
; processing (DEFUN HAS-SECTION-P ...)
; processing (DEFUN ADD-SECTION ...)
; processing (DEFUN OPTIONS ...)
; processing (DEFUN HAS-OPTION-P ...)
; processing (DEFUN %EXTRACT-REPLACEMENT ...)
; processing (DEFUN %OPTION-VALUE ...)
; processing (DEFUN %EXPAND-OPTION-VALUE ...)
; processing (DEFUN GET-OPTION ...)
; processing (DEFUN SET-OPTION ...)
; processing (DEFUN ITEMS ...)
; processing (DEFUN REMOVE-OPTION ...)
; processing (DEFUN REMOVE-SECTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/py-configparser/config-tmpRS2B7QDF.fasl
; compilation finished in 0:00:00.976
; compiling file "/usr/share/common-lisp/source/py-configparser/parser.lisp" (written 14 JUN 2008 08:11:01 AM):
; processing (IN-PACKAGE #:PY-CONFIGPARSER)
; processing (DECLAIM (SPECIAL *LINE-NO* ...))
; processing (DEFINE-CONDITION PARSING-ERROR ...)
; processing (DEFINE-CONDITION MISSING-SECTION-HEADER-ERROR ...)
; processing (DECLAIM (INLINE %READ-CHAR ...))
; processing (DEFUN %READ-CHAR ...)
; processing (DEFUN ENSURE-SECTION ...)
; processing (DEFUN IS-WHITESPACE ...)
; processing (DEFUN IS-COMMENT-CHAR ...)
; processing (DEFUN SKIP-WHITESPACE ...)
; processing (DEFUN SKIP-EMPTY-LINE ...)
; processing (DEFUN SKIP-TO-EOL ...)
; processing (DEFUN EXPECT-CHAR ...)
; processing (DEFUN EXPECT-ONE-OF ...)
; processing (DEFUN MAKE-INPUT-BUFFER ...)
; processing (DECLAIM (INLINE EXTEND-INPUT))
; processing (DEFUN EXTEND-INPUT ...)
; file: /usr/share/common-lisp/source/py-configparser/parser.lisp
; in: DEFUN EXTEND-INPUT
; (DEFUN PY-CONFIGPARSER::EXTEND-INPUT (PY-CONFIGPARSER::P PY-CONFIGPARSER::C)
; (VECTOR-PUSH-EXTEND PY-CONFIGPARSER::C PY-CONFIGPARSER::*CURRENT-INPUT* 20))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA PY-CONFIGPARSER::EXTEND-INPUT
; (PY-CONFIGPARSER::P PY-CONFIGPARSER::C)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK PY-CONFIGPARSER::EXTEND-INPUT
; (VECTOR-PUSH-EXTEND PY-CONFIGPARSER::C PY-CONFIGPARSER::*CURRENT-INPUT*
; 20)))
;
; caught STYLE-WARNING:
; The variable P is defined but never used.
; processing (DEFUN FINALIZE-INPUT ...)
; processing (DEFUN READ-SECTION-NAME ...)
; file: /usr/share/common-lisp/source/py-configparser/parser.lisp
; in: DEFUN READ-SECTION-NAME
; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P PY-CONFIGPARSER::C)
;
; caught STYLE-WARNING:
; The variable P is defined but never used.
; processing (DEFUN READ-OPTION-NAME ...)
; file: /usr/share/common-lisp/source/py-configparser/parser.lisp
; in: DEFUN READ-OPTION-NAME
; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P PY-CONFIGPARSER::C)
;
; caught STYLE-WARNING:
; The variable P is defined but never used.
; processing (DEFUN READ-OPTION-VALUE ...)
; file: /usr/share/common-lisp/source/py-configparser/parser.lisp
; in: DEFUN READ-OPTION-VALUE
; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P #\ )
;
; caught STYLE-WARNING:
; The variable P is defined but never used.
; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P PY-CONFIGPARSER::C)
;
; caught STYLE-WARNING:
; The variable P is defined but never used.
; processing (DEFUN READING-DRIVER ...)
; processing (DEFUN READ-FILES ...)
; processing (DEFUN READ-STREAM ...)
; processing (DEFUN %FORMAT-VALUE ...)
; processing (DEFUN WRITE-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/py-configparser/parser-tmpQ2US5JF6.fasl
; compilation finished in 0:00:00.660
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "py-configparser" "parser">
; compiling file "/usr/share/common-lisp/source/sqlite/sqlite-ffi.lisp" (written 10 MAY 2011 09:45:30 AM):
; processing (DEFPACKAGE :SQLITE-FFI ...)
; processing (IN-PACKAGE :SQLITE-FFI)
; processing (DEFINE-FOREIGN-LIBRARY SQLITE3-LIB ...)
; processing (USE-FOREIGN-LIBRARY SQLITE3-LIB)
; processing (DEFCENUM ERROR-CODE ...)
; processing (DEFCSTRUCT SQLITE3)
; processing (DEFCTYPE P-SQLITE3 ...)
; file: /usr/share/common-lisp/source/sqlite/sqlite-ffi.lisp
; in: DEFCTYPE P-SQLITE3
; (CFFI:DEFCTYPE SQLITE-FFI:P-SQLITE3 (:POINTER SQLITE-FFI::SQLITE3))
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; #1=(:STRUCT
; SQLITE3)) or #1# instead.
; processing (DEFCFUN SQLITE3-OPEN ...)
; processing (DEFCFUN SQLITE3-CLOSE ...)
; processing (DEFCFUN SQLITE3-ERRMSG ...)
; processing (DEFCFUN SQLITE3-BUSY-TIMEOUT ...)
; processing (DEFCSTRUCT SQLITE3-STMT)
; processing (DEFCTYPE P-SQLITE3-STMT ...)
; file: /usr/share/common-lisp/source/sqlite/sqlite-ffi.lisp
; in: DEFCTYPE P-SQLITE3-STMT
; (CFFI:DEFCTYPE SQLITE-FFI:P-SQLITE3-STMT (:POINTER SQLITE-FFI::SQLITE3-STMT))
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; #1=(:STRUCT
; SQLITE3-STMT)) or #1# instead.
; processing (DEFCFUN (SQLITE3-PREPARE "sqlite3_prepare_v2") ...)
; processing (DEFCFUN SQLITE3-FINALIZE ...)
; processing (DEFCFUN SQLITE3-STEP ...)
; processing (DEFCFUN SQLITE3-RESET ...)
; processing (DEFCFUN SQLITE3-CLEAR-BINDINGS ...)
; processing (DEFCFUN SQLITE3-COLUMN-COUNT ...)
; processing (DEFCENUM TYPE-CODE ...)
; processing (DEFCFUN SQLITE3-COLUMN-TYPE ...)
; processing (DEFCFUN SQLITE3-COLUMN-TEXT ...)
; processing (DEFCFUN SQLITE3-COLUMN-INT64 ...)
; processing (DEFCFUN SQLITE3-COLUMN-DOUBLE ...)
; processing (DEFCFUN SQLITE3-COLUMN-BYTES ...)
; processing (DEFCFUN SQLITE3-COLUMN-BLOB ...)
; processing (DEFCFUN SQLITE3-COLUMN-NAME ...)
; processing (DEFCFUN SQLITE3-BIND-PARAMETER-COUNT ...)
; processing (DEFCFUN SQLITE3-BIND-PARAMETER-NAME ...)
; processing (DEFCFUN SQLITE3-BIND-PARAMETER-INDEX ...)
; processing (DEFCFUN SQLITE3-BIND-DOUBLE ...)
; processing (DEFCFUN SQLITE3-BIND-INT64 ...)
; processing (DEFCFUN SQLITE3-BIND-NULL ...)
; processing (DEFCFUN SQLITE3-BIND-TEXT ...)
; processing (DEFCFUN SQLITE3-BIND-BLOB ...)
; processing (DEFCONSTANT DESTRUCTOR-TRANSIENT-ADDRESS ...)
; processing (DEFUN DESTRUCTOR-TRANSIENT ...)
; processing (DEFUN DESTRUCTOR-STATIC ...)
; processing (DEFCFUN SQLITE3-LAST-INSERT-ROWID ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/sqlite/sqlite-ffi-tmpM9OVYN6G.fasl
; compilation finished in 0:00:00.803
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "sqlite" "sqlite-ffi">
WARNING:
bare references to struct types are deprecated. Please use (:POINTER
(:STRUCT
SQLITE3)) or (:STRUCT
SQLITE3) instead.
WARNING:
bare references to struct types are deprecated. Please use (:POINTER
(:STRUCT
SQLITE3-STMT)) or (:STRUCT
SQLITE3-STMT) instead.
; compiling file "/usr/share/common-lisp/source/sqlite/cache.lisp" (written 10 MAY 2011 09:45:30 AM):
; processing (DEFPACKAGE :SQLITE.CACHE ...)
; processing (IN-PACKAGE :SQLITE.CACHE)
; processing (DEFCLASS MRU-CACHE ...)
; processing (DEFUN GET-FROM-CACHE ...)
; processing (DEFUN REMOVE-EMPTY-OBJECTS-STACKS ...)
; processing (DEFUN POP-FROM-CACHE ...)
; processing (DEFUN PUT-TO-CACHE ...)
; processing (DEFUN PURGE-CACHE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/sqlite/cache-tmpC2HT6KG.fasl
; compilation finished in 0:00:00.236
; compiling file "/usr/share/common-lisp/source/sqlite/sqlite.lisp" (written 10 MAY 2011 09:45:30 AM):
; processing (DEFPACKAGE :SQLITE ...)
; processing (IN-PACKAGE :SQLITE)
; processing (DEFINE-CONDITION SQLITE-ERROR ...)
; processing (DEFINE-CONDITION SQLITE-CONSTRAINT-ERROR ...)
; processing (DEFUN SQLITE-ERROR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS SQLITE-HANDLE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN CONNECT ...)
; processing (DEFUN SET-BUSY-TIMEOUT ...)
; processing (DEFUN DISCONNECT ...)
; file: /usr/share/common-lisp/source/sqlite/sqlite.lisp
; in: DEFUN DISCONNECT
; (COPY-LIST (SQLITE::SQLITE-HANDLE-STATEMENTS SQLITE::HANDLE))
;
; note: could not stack allocate: (COPY-LIST (SQLITE-HANDLE-STATEMENTS HANDLE))
; processing (DEFCLASS SQLITE-STATEMENT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN PREPARE-STATEMENT ...)
; processing (DEFUN REALLY-FINALIZE-STATEMENT ...)
; processing (DEFUN FINALIZE-STATEMENT ...)
; processing (DEFUN STEP-STATEMENT ...)
; processing (DEFUN RESET-STATEMENT ...)
; processing (DEFUN CLEAR-STATEMENT-BINDINGS ...)
; processing (DEFUN STATEMENT-COLUMN-VALUE ...)
; processing (DEFMACRO WITH-PREPARED-STATEMENT ...)
; processing (DEFMACRO WITH-PREPARED-STATEMENT/NAMED ...)
; processing (DEFUN EXECUTE-NON-QUERY ...)
; processing (DEFUN EXECUTE-NON-QUERY/NAMED ...)
; processing (DEFUN EXECUTE-TO-LIST ...)
; processing (DEFUN EXECUTE-TO-LIST/NAMED ...)
; processing (DEFUN EXECUTE-ONE-ROW-M-V ...)
; processing (DEFUN EXECUTE-ONE-ROW-M-V/NAMED ...)
; processing (DEFUN STATEMENT-PARAMETER-INDEX ...)
; processing (DEFUN BIND-PARAMETER ...)
; processing (DEFUN EXECUTE-SINGLE ...)
; processing (DEFUN EXECUTE-SINGLE/NAMED ...)
; processing (DEFUN LAST-INSERT-ROWID ...)
; processing (DEFMACRO WITH-TRANSACTION ...)
; processing (DEFMACRO WITH-OPEN-DATABASE ...)
; processing (DEFMACRO-DRIVER (FOR VARS ...) ...)
; processing (DEFMACRO-DRIVER (FOR VARS ...) ...)
; processing (DEFMACRO-DRIVER (FOR VARS ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/sqlite/sqlite-tmpL6I3Y6AG.fasl
; compilation finished in 0:00:01.760
; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/packages.lisp" (written 10 JUN 2019 03:43:00 PM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:TRIVIAL-BACKTRACE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-backtrace/dev/packages-tmpC4G9XLPL.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/utilities.lisp" (written 10 JUN 2019 03:43:00 PM):
; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE)
; processing (DEFPARAMETER *DATE-TIME-FORMAT* ...)
; processing (DEFMACRO GENERATE-TIME-PART-FUNCTION ...)
; processing (GENERATE-TIME-PART-FUNCTION SECOND ...)
; processing (GENERATE-TIME-PART-FUNCTION MINUTE ...)
; processing (GENERATE-TIME-PART-FUNCTION HOUR ...)
; processing (GENERATE-TIME-PART-FUNCTION DATE ...)
; processing (GENERATE-TIME-PART-FUNCTION MONTH ...)
; processing (GENERATE-TIME-PART-FUNCTION YEAR ...)
; processing (GENERATE-TIME-PART-FUNCTION DAY-OF-WEEK ...)
; processing (GENERATE-TIME-PART-FUNCTION DAYLIGHT-SAVINGS-TIME-P ...)
; processing (DEFUN DATE-TIME-STRING ...)
; processing (DEFUN FORMAT-DATE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-backtrace/dev/utilities-tmpCWOMAA6N.fasl
; compilation finished in 0:00:00.516
; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/backtrace.lisp" (written 10 JUN 2019 03:43:00 PM):
; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE)
; processing (DEFUN PRINT-CONDITION ...)
; processing (DEFUN PRINT-BACKTRACE ...)
; processing (WHEN (FIND-SYMBOL "*DEBUG-PRINT-VARIABLE-ALIST*" ...) ...)
; processing (DEFUN PRINT-BACKTRACE-TO-STREAM ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-backtrace/dev/backtrace-tmpIOM9M6H4.fasl
; compilation finished in 0:00:00.169
; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/map-backtrace.lisp" (written 10 JUN 2019 03:43:00 PM):
; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE)
; processing (DEFSTRUCT FRAME ...)
; processing (DEFSTRUCT VAR ...)
; processing (DEFSTRUCT POS-FORM-NUMBER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFVAR *TRIVIAL-BACKTRACE-FRAME-PRINT-SPECIALS* ...)
; processing (DEFUN PRINT-FRAME ...)
; processing (DEFUN MAP-BACKTRACE ...)
; processing (DEFUN PRINT-MAP-BACKTRACE ...)
; processing (DEFUN BACKTRACE-STRING ...)
; processing (DEFUN IMPL-MAP-BACKTRACE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-backtrace/dev/map-backtrace-tmpOM94K611.fasl
; compilation finished in 0:00:00.714
; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/fallback.lisp" (written 10 JUN 2019 03:43:00 PM):
; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE)
; processing (UNLESS (FBOUNDP #) ...)
; processing (UNLESS (FBOUNDP #) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-backtrace/dev/fallback-tmpCPTTY76C.fasl
; compilation finished in 0:00:00.022
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/package.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:METABANG.UTILITIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/package-tmp9DXAM74U.fasl
; compilation finished in 0:00:00.020
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/api.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFGENERIC CHOOSE-DIRECTORY-QUESTION* ...)
; processing (DEFGENERIC CHOOSE-FILE-QUESTION* ...)
; processing (DEFGENERIC CHOOSE-ITEM-FROM-PUP* ...)
; processing (DEFGENERIC CHOOSE-ITEM-QUESTION* ...)
; processing (DEFGENERIC CHOOSE-NEW-FILE-QUESTION* ...)
; processing (DEFGENERIC Y-OR-N-QUESTION* ...)
; processing (DEFGENERIC GUI-ERROR* ...)
; processing (DEFGENERIC GUI-WARN* ...)
; processing (DEFGENERIC REPORT-CONDITION ...)
; processing (DEFGENERIC HELP-SPEC ...)
; processing (DEFGENERIC INTERFACE-BEEP* ...)
; processing (DEFGENERIC MAKE-COLOR** ...)
; processing (DEFGENERIC MAKE-GRAY* ...)
; processing (DEFGENERIC MAKE-SCALED-COLOR* ...)
; processing (DEFGENERIC NAME ...)
; processing (DEFGENERIC PROCESS-PARAMETERS* ...)
; processing (DEFGENERIC PROMPT-FOR* ...)
; processing (DEFGENERIC PUT-ITEM-ON-CLIPBOARD* ...)
; processing (DEFGENERIC SELECT-INSTRUMENT* ...)
; processing (DEFGENERIC INSPECT-THING* ...)
; processing (DEFGENERIC SOUND-NOTE* ...)
; processing (DEFGENERIC STOP-NOTES* ...)
; processing (DEFGENERIC MAKE-PROGRESS-BAR ...)
; processing (DEFGENERIC PROGRESS-BAR-VALUE ...)
; processing (DEFGENERIC (SETF PROGRESS-BAR-VALUE) ...)
; processing (DEFGENERIC CLOSE-PROGRESS-BAR ...)
; processing (DEFGENERIC MAKE-UI-POINT* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/api-tmpO8B7UTBA.fasl
; compilation finished in 0:00:00.029
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-utils.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFUN FIXNUMP ...)
; processing (DEFMACRO WITH-STANDARD-PRINTING ...)
; processing (DEFUN NEQ ...)
; processing (DECLAIM (INLINE NEQ))
; processing (DEFINE-COMPILER-MACRO NEQ ...)
; processing (DEFUN FORM-SYMBOL-IN-PACKAGE ...)
; processing (DEFUN FORM-SYMBOL ...)
; processing (DEFUN FORM-KEYWORD ...)
; processing (DEFUN FORM-UNINTERNED-SYMBOL ...)
; processing (DEFUN CURRENT-LOAD-FILE ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFUN ENSURE-LIST ...)
; processing (DEFUN ENSURE-FUNCTION ...)
; processing (DEFVAR *NEWSYM-COUNTER* ...)
; processing (DEFUN NEWSYM ...)
; processing (DEFUN EXPORT-EXPORTED-SYMBOLS ...)
; processing (DEFGENERIC LENGTH-AT-LEAST-P ...)
; processing (DEFMETHOD LENGTH-AT-LEAST-P ...)
; processing (DEFMETHOD LENGTH-AT-LEAST-P ...)
; processing (DEFGENERIC LENGTH-AT-MOST-P ...)
; processing (DEFMETHOD LENGTH-AT-MOST-P ...)
; processing (DEFMETHOD LENGTH-AT-MOST-P ...)
; processing (DECLAIM (INLINE LENGTH-1-LIST-P))
; processing (DEFUN LENGTH-1-LIST-P ...)
; processing (DEFUN NEARLY-ZERO-P ...)
; file: /usr/share/common-lisp/source/metatilities-base/dev/l0-utils.lisp
; in: DEFUN NEARLY-ZERO-P
; (< 0.0 METABANG.UTILITIES::X)
; --> > IF
; ==>
; (> SB-C::Y SB-C::X)
;
; note: unable to
; open-code RATIONAL to FLOAT comparison
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (< 0.0 METABANG.UTILITIES::X)
; --> > IF
; ==>
; (> SB-C::Y SB-C::X)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; processing (DEFUN NEARLY-EQUAL-P ...)
; processing (DEFUN DOTTED-PAIR-P ...)
; processing (DEFUN APPLY-IF-EXISTS ...)
; processing (DEFUN FUNCALL-IF-EXISTS ...)
; processing (DEFUN CALL-IF-EXISTS ...)
; processing (DEFUN ITERATE-OVER-INDEXES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-utils-tmpQFEATZZ8.fasl
; compilation finished in 0:00:00.721
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-strings.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFPARAMETER +WHITESPACE-CHARACTERS+ ...)
; processing (DEFUN WHITESPACEP ...)
; processing (DEFUN STRING-STARTS-WITH ...)
; processing (DEFUN STRING-ENDS-WITH ...)
; processing (DEFUN STRING-TRIM-IF ...)
; processing (DEFUN STRIP-WHITESPACE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-strings-tmpVJOVZ7VM.fasl
; compilation finished in 0:00:00.230
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-macros.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFMACRO NYI ...)
; processing (DEFMACRO DEPRECATED ...)
; processing (DEFMACRO ONCE-ONLY ...)
; processing (DEFMACRO WITH-VARIABLES ...)
; processing (DEFMACRO EVAL-ALWAYS ...)
; processing (DEFMACRO DEFCLASS-PROPERTY ...)
; processing (DEFMACRO WITH-ATOMIC-EXECUTION ...)
; processing (DEFMACRO HANDLER-BIND* ...)
; processing (DEFMACRO WITH-GENSYMS ...)
; processing (DEFVAR *FILE-IF-EXISTS* ...)
; processing (DEFVAR *FILE-PRINT-RIGHT-MARGIN* ...)
; processing (DEFMACRO WITH-NEW-FILE ...)
; processing (DEFMACRO WITH-STREAM-FROM-SPECIFIER ...)
; processing (DEFMACRO WITH-INPUT ...)
; processing (DEFMACRO WITH-OUTPUT ...)
; processing (DEFMACRO MUFFLE-REDEFINITION-WARNINGS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-macros-tmpX02GFPCP.fasl
; compilation finished in 0:00:00.724
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-arrays.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFUN LINEARIZE-ARRAY ...)
; processing (DEFUN COPY-ARRAY ...)
; processing (DEFUN MAPARRAY ...)
; processing (DEFUN MAPARRAY! ...)
; processing (DEFUN ARRAY-ROW ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-arrays-tmp8OO0G3ZC.fasl
; compilation finished in 0:00:00.090
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-clos.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFUN FINALIZE-CLASS-IF-NECESSARY ...)
; processing (DEFGENERIC GET-CLASS ...)
; processing (DECLAIM (SPECIAL *SAMEP-TOLERANCE*))
; processing (DEFVAR *SAMEP-TOLERANCE* ...)
; processing (DECLAIM (SPECIAL *SAMEP-TEST*))
; processing (DEFVAR *SAMEP-TEST* ...)
; processing (DEFGENERIC SAMEP ...)
; processing (DEFGENERIC NEARLY-SAMEP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-clos-tmpB7T5GR4M.fasl
; compilation finished in 0:00:00.398
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-files.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFINE-CONDITION INVALID-STREAM-SPECIFIER-ERROR ...)
; processing (DEFUN INVALID-STREAM-SPECIFIER-ERROR ...)
; processing (DEFUN PATHNAME-NAME+TYPE ...)
; processing (DEFUN PHYSICAL-PATHNAME-DIRECTORY-SEPARATOR ...)
; processing (DEFUN RELATIVE-PATHNAME ...)
; processing (DEFUN DIRECTORY-PATHNAME-P ...)
; processing (DEFUN ENSURE-DIRECTORY-PATHNAME ...)
; processing (DEFUN PATHNAME-SAMEP ...)
; processing (DEFGENERIC MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFGENERIC CLOSE-STREAM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...)
; processing (DEFMETHOD CLOSE-STREAM-SPECIFIER ...)
; processing (DEFMETHOD CLOSE-STREAM-SPECIFIER ...)
; processing (DEFUN MAP-FORMS ...)
; processing (DEFUN MAP-LINES ...)
; processing (DEFUN COLLECT-FORMS ...)
; processing (DEFUN COLLECT-LINES ...)
; processing (DEFUN MAP-MATCHING-FILES ...)
; processing (DEFUN COMPILE-EXPRESSION ...)
; processing (DEFUN COLLECT-MATCHING-FILES ...)
; processing (DEFUN FILE-NEWER-THAN-FILE-P ...)
; processing (DEFUN PATHNAME-WITHOUT-NAME+TYPE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-files-tmpMU84G6IJ.fasl
; compilation finished in 0:00:00.808
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-time.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFCONSTANT +MINUTES-PER-HOUR+ ...)
; processing (DEFCONSTANT +SECONDS-PER-MINUTE+ ...)
; processing (DEFCONSTANT +USUAL-DAYS-PER-YEAR+ ...)
; processing (DEFCONSTANT +SECONDS-PER-HOUR+ ...)
; processing (DEFCONSTANT +HOURS-PER-DAY+ ...)
; processing (DEFCONSTANT +SECONDS-PER-DAY+ ...)
; processing (DEFPARAMETER +DAYS-PER-MONTH+ ...)
; processing (EVAL-ALWAYS (DEFMACRO GENERATE-TIME-PART-FUNCTION ...) ...)
; processing (DEFUN DAYS-IN-MONTH ...)
; processing (DEFUN LEAP-YEAR-P ...)
; processing (DEFUN DAY-OF-YEAR ...)
; processing (DEFUN FORMAT-DATE ...)
; processing (DEFCONSTANT +LONGER-FORMAT-INDEX+ ...)
; processing (DEFCONSTANT +SHORTER-FORMAT-INDEX+ ...)
; processing (DEFPARAMETER +MONTH-OUTPUT-LIST+ ...)
; processing (DEFPARAMETER +DOW-OUTPUT-LIST ...)
; processing (DEFUN DAY->STRING ...)
; processing (DEFUN MONTH->STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/l0-time-tmpOO0NERK1.fasl
; compilation finished in 0:00:00.774
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/set-equal.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFUN SET-EQUAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/set-equal-tmp1LCUF5NQ.fasl
; compilation finished in 0:00:00.050
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/generic-lisp.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFVAR *DEFAULT-INTERFACE* ...)
; processing (DEFUN DEFAULT-INTERFACE ...)
; processing (DEFUN (SETF DEFAULT-INTERFACE) ...)
; processing (DEFGENERIC IS-INTERFACE-AVAILABLE-P ...)
; processing (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...)
; processing (DEFUN IS-DEFAULT-INTERFACE-AVAILABLE-P ...)
; processing (DEFGENERIC QUIT-LISP* ...)
; processing (DEFMETHOD QUIT-LISP* ...)
; processing (DEFUN QUIT-LISP ...)
; processing (DEFGENERIC TOTAL-BYTES-ALLOCATED* ...)
; processing (DEFUN TOTAL-BYTES-ALLOCATED ...)
; processing (DEFGENERIC GC-TIME* ...)
; processing (DEFUN GC-TIME ...)
; processing (DEFGENERIC COLLECT-GARBAGE* ...)
; processing (DEFUN COLLECT-GARBAGE ...)
; processing (DEFMACRO MAKE-LOAD-FORM* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/generic-lisp-tmp4O019067.fasl
; compilation finished in 0:00:00.119
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/generic-interface.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DECLAIM (SPECIAL *DEVELOPMENT-MODE* ...))
; processing (DEFVAR *DEVELOPMENT-MODE* ...)
; processing (DEFVAR *USE-NATIVE-DEBUGGER* ...)
; processing (DEFVAR *DUMMY-PROGRESS-VARIABLE*)
; processing (DEFVAR *PROGRESS-BAR-COUNT* ...)
; processing (DEFMACRO WITH-PROGRESS-BAR ...)
; processing (DEFMACRO WITH-PROCESS-MESSAGE ...)
; processing (DEFMACRO HANDLE-ERRORS ...)
; processing (DEFMETHOD INTERFACE-BEEP* ...)
; processing (DEFUN INTERFACE-BEEP ...)
; processing (DEFMETHOD MAKE-PROGRESS-BAR ...)
; processing (DEFMETHOD PROGRESS-BAR-VALUE ...)
; processing (DEFMETHOD (SETF PROGRESS-BAR-VALUE) ...)
; processing (DEFMETHOD CLOSE-PROGRESS-BAR ...)
; processing (DEFMETHOD REPORT-CONDITION ...)
; processing (DEFMETHOD GUI-ERROR* ...)
; processing (DEFUN GUI-ERROR ...)
; processing (DEFMETHOD GUI-WARN* ...)
; processing (DEFUN GUI-WARN ...)
; processing (DEFMETHOD MAKE-COLOR** ...)
; processing (DEFUN MAKE-COLOR* ...)
; processing (DEFMETHOD MAKE-GRAY* ...)
; processing (DEFUN MAKE-GRAY ...)
; processing (DEFMETHOD MAKE-SCALED-COLOR* ...)
; processing (DEFUN MAKE-SCALED-COLOR ...)
; processing (DEFMETHOD Y-OR-N-QUESTION* ...)
; processing (DEFUN Y-OR-N-QUESTION ...)
; processing (DEFMETHOD CHOOSE-FILE-QUESTION* ...)
; processing (DEFUN CHOOSE-FILE-QUESTION ...)
; processing (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...)
; processing (DEFUN CHOOSE-NEW-FILE-QUESTION ...)
; processing (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...)
; processing (DEFUN CHOOSE-DIRECTORY-QUESTION ...)
; processing (DEFMETHOD CHOOSE-ITEM-QUESTION* ...)
; processing (DEFUN CHOOSE-ITEM-QUESTION ...)
; processing (DEFMETHOD CHOOSE-ITEM-FROM-PUP* ...)
; processing (DEFUN CHOOSE-ITEM-FROM-PUP ...)
; processing (DEFUN CHOOSE-ITEM-FROM-PUP-NO-SINGLETONS ...)
; processing (DEFMETHOD MAKE-UI-POINT* ...)
; processing (DEFUN MAKE-UI-POINT ...)
; processing (DEFMETHOD PROCESS-PARAMETERS* ...)
; processing (DEFUN PROCESS-PARAMETERS ...)
; processing (DEFMETHOD PUT-ITEM-ON-CLIPBOARD* ...)
; processing (DEFUN PUT-ITEM-ON-CLIPBOARD ...)
; processing (DEFMETHOD INSPECT-THING* ...)
; processing (DEFUN INSPECT-THING ...)
; processing (DEFUN INSPECT-THINGS ...)
; processing (DEFMETHOD SOUND-NOTE* ...)
; processing (DEFUN SOUND-NOTE ...)
; processing (DEFMETHOD STOP-NOTES* ...)
; processing (DEFUN STOP-NOTES ...)
; processing (DEFMETHOD SELECT-INSTRUMENT* ...)
; processing (DEFUN SELECT-INSTRUMENT ...)
; processing (DEFUN QUERY-USER-FOR-STRING ...)
; processing (DEFUN QUERY-USER-FOR-INTEGER ...)
; processing (DEFMETHOD PROMPT-FOR* ...)
; processing (DEFMETHOD PROMPT-FOR* ...)
; processing (DEFMETHOD PROMPT-FOR* ...)
; processing (DEFUN PROMPT-FOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/generic-interface-tmpTRKLMYI5.fasl
; compilation finished in 0:00:01.096
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/defclass-star.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (DEFVAR *AUTOMATIC-SLOT-ACCESSORS?* ...)
; processing (DEFVAR *AUTOMATIC-SLOT-INITARGS?* ...)
; processing (DEFVAR *CLOS-SLOT-OPTIONS* ...)
; processing (DEFVAR *PRUNE-UNKNOWN-SLOT-OPTIONS* ...)
; processing (DEFUN PARSE-BRIEF-SLOT ...)
; processing (DEFMACRO DEFCLASS-BRIEF ...)
; processing (DEFPARAMETER *DEFCLASS-COPY-CONDITION-FUNCTION* ...)
; processing (DEFVAR *DEFCLASS-GENERATE-MAKE-LOAD-FORM* ...)
; processing (DEFCLASS-PROPERTY DEFCLASS*-SUPERCLASSES)
; processing (DEFUN CLASS-COPYABLE-P ...)
; processing (DEFMACRO DEFCLASS* ...)
; processing (DEFPARAMETER *DEFCONDITION-OPTIONS* ...)
; processing (DEFMACRO DEFCONDITION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/defclass-star-tmp51QMCPVZ.fasl
; compilation finished in 0:00:01.438
; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/copy-file.lisp" (written 30 MAR 2017 12:37:26 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (EVAL-ALWAYS (EXPORT #))
; processing (DEFINE-CONDITION SOURCE/TARGET-FILE-ERROR ...)
; processing (DEFINE-CONDITION SOURCE/TARGET-TARGET-ALREADY-EXISTS-ERROR ...)
; processing (DEFINE-CONDITION SOURCE/TARGET-SOURCE-DOES-NOT-EXIST-ERROR ...)
; processing (DEFUN COPY-FILE ...)
; processing (DEFUN MOVE-FILE ...)
; processing (DEFVAR *STREAM-BUFFER-SIZE* ...)
; processing (DEFUN COPY-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metatilities-base/dev/copy-file-tmp69OZN5PC.fasl
; compilation finished in 0:00:00.228
; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/packages.lisp" (written 29 NOV 2017 02:36:43 PM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:METABANG.BIND ...)
; processing (DEFPACKAGE #:METABANG.BIND.DEVELOPER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metabang-bind/dev/packages-tmp7NDBRONI.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/macros.lisp" (written 29 NOV 2017 02:36:43 PM):
; processing (IN-PACKAGE #:METABANG.BIND)
; processing (DEFMETHOD DOCUMENTATION ...)
; processing (DEFUN BINDING-FORM-DOCSTRING ...)
; processing (DEFUN (SETF BINDING-FORM-DOCSTRING) ...)
; processing (DEFMACRO DEFBINDING-FORM ...)
; processing (DEFUN NEXT-VALUE ...)
; processing (DEFMACRO LAMBDA-BIND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metabang-bind/dev/macros-tmpPDQBE2MO.fasl
; compilation finished in 0:00:00.432
; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/bind.lisp" (written 29 NOV 2017 02:36:43 PM):
; processing (IN-PACKAGE #:METABANG.BIND)
; processing (DEFCONSTANT +CODE-MARKER+ ...)
; processing (DEFCONSTANT +DECL-MARKER+ ...)
; processing (DEFGENERIC BINDING-FORM-ACCEPTS-MULTIPLE-FORMS-P ...)
; processing (DEFMETHOD BINDING-FORM-ACCEPTS-MULTIPLE-FORMS-P ...)
; processing (DEFPARAMETER *UNUSED-DECLARATIONS-BEHAVIOR* ...)
; processing (DEFPARAMETER *BIND-ALL-DECLARATIONS* ...)
; processing (DEFPARAMETER *BIND-NON-VAR-DECLARATIONS* ...)
; processing (DEFPARAMETER *BIND-SIMPLE-VAR-DECLARATIONS* ...)
; processing (DEFPARAMETER *BIND-LAMBDA-LIST-MARKERS* ...)
; processing (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; processing (DEFUN SIMPLE-STYLE-WARNING ...)
; processing (DEFINE-CONDITION BIND-MISSING-VALUE-FORM-WARNING ...)
; processing (DEFINE-CONDITION BIND-TOO-MANY-VALUE-FORMS-ERROR ...)
; processing (DEFINE-CONDITION BIND-ERROR ...)
; processing (DEFINE-CONDITION BIND-KEYWORD/OPTIONAL-NIL-WITH-DEFAULT-ERROR ...)
; processing (DEFINE-CONDITION BIND-UNUSED-DECLARATIONS-CONDITION ...)
; processing (DEFINE-CONDITION BIND-UNUSED-DECLARATIONS-WARNING ...)
; processing (DEFINE-CONDITION BIND-UNUSED-DECLARATIONS-ERROR ...)
; processing (DEFUN BINDING-FORMS ...)
; processing (DEFUN BINDING-FORM-GROUPS ...)
; processing (DEFUN BINDING-FORM-SYNONYMS ...)
; processing (DEFVAR *ALL-DECLARATIONS*)
; processing (DEFMACRO BIND ...)
; processing (DEFUN CHECK-FOR-UNUSED-VARIABLE-DECLARATIONS ...)
; processing (DEFUN BIND-MACRO-HELPER ...)
; processing (DEFUN VAR-IGNORABLE-P ...)
; processing (DEFUN MINT-IGNORABLE-VARIABLE ...)
; processing (DEFUN BIND-FIX-NILS ...)
; processing (DEFUN BIND-FIX-NILS-DESTRUCTURED ...)
; processing (DEFUN DOTTED-PAIR-P ...)
; processing (DEFMETHOD BIND-COLLECT-VARIABLES ...)
; processing (DEFUN BIND-GET-VARS-FROM-LAMBDA-LIST ...)
; processing (DEFUN BIND-EXPAND-DECLARATIONS ...)
; processing (DEFUN BIND-FILTER-DECLARATIONS ...)
; processing (DEFUN MERGE-BINDING-FORMS-P ...)
; processing (DEFUN MAP-TREE ...)
; processing (DEFUN TREE-FIND ...)
; processing (DEFMACRO FLUID-BIND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metabang-bind/dev/bind-tmpPTGCQDTQ.fasl
; compilation finished in 0:00:00.896
; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/binding-forms.lisp" (written 29 NOV 2017 02:36:43 PM):
; processing (IN-PACKAGE #:METABANG.BIND)
; processing (DEFGENERIC BIND-GENERATE-BINDINGS ...)
; processing (DEFBINDING-FORM (ARRAY :USE-VALUES-P ...) ...)
; processing (DEFBINDING-FORM (SYMBOL :USE-VALUES-P ...) ...)
; processing (DEFBINDING-FORM (:FLET :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (:LABELS :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (CONS :USE-VALUES-P ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFUN FIND-TYPE-DECLARATION ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (:SLOTS :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...)
; processing (DEFBINDING-FORM (:PLIST- :DOCSTRING ...) ...)
; processing (DEFUN HANDLE-PLIST ...)
; processing (DEFBINDING-FORM (:FILE :USE-VALUES-P ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/metabang-bind/dev/binding-forms-tmpRS4KI3U2.fasl
; compilation finished in 0:00:01.667
; compiling file "/usr/share/common-lisp/source/dynamic-classes/dev/package.lisp" (written 21 DEC 2010 01:45:02 PM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:METABANG-DYNAMIC-CLASSES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/dynamic-classes/dev/package-tmp8A8DO67Z.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/dynamic-classes/dev/define-class.lisp" (written 21 DEC 2010 01:45:02 PM):
; processing (IN-PACKAGE #:METABANG-DYNAMIC-CLASSES)
; processing (DEFVAR *DEFINE-CLASS-FORM* ...)
; processing (DEFUN SIMPLE-DEFINE-CLASS ...)
; processing (DEFUN SIMPLE-DEFINE-CLASS-NAME ...)
; processing (DEFUN DEFINE-CLASS ...)
; processing (DEFUN MAP-SUBCLASSES ...)
; processing (DEFUN SUPERCLASSES ...)
; processing (DEFUN FIND-EXISTING-SUBCLASS ...)
; processing (DEFUN FIND-OR-CREATE-CLASS ...)
; processing (DEFUN REMOVE-REDUNDANT-CLASSES ...)
; processing (DEFUN CLASS-REDUNDANT-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/dynamic-classes/dev/define-class-tmp332KW8PK.fasl
; compilation finished in 0:00:00.255
; compiling file "/usr/share/common-lisp/source/dynamic-classes/dev/dynamic-class.lisp" (written 21 DEC 2010 01:45:02 PM):
; processing (IN-PACKAGE #:METABANG-DYNAMIC-CLASSES)
; processing (DEFGENERIC INCLUDE-CLASS-DEPENDENCIES ...)
; processing (DEFGENERIC EXISTING-SUBCLASS ...)
; processing (DEFVAR *PARAMETER-DYNAMIC-CLASS-TABLE* ...)
; processing (DEFUN TYPE->PARAMETER-TABLE ...)
; processing (DEFUN (SETF TYPE->PARAMETER-TABLE) ...)
; processing (DEFUN PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN (SETF PARAMETER->DYNAMIC-CLASS) ...)
; processing (DEFUN TABLE&PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN ADD-PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN ADD-DYNAMIC-CLASS-FOR-PARAMETERS ...)
; processing (DEFUN EMPTY-ADD-PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN EMPTY-ALL-ADD-PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN DYNAMIC-CLASS-INFORMATION ...)
; processing (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; processing (DEFMETHOD EXISTING-SUBCLASS ...)
; processing (DEFUN DETERMINE-DYNAMIC-CLASS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/dynamic-classes/dev/dynamic-class-tmpI6D89FSZ.fasl
; compilation finished in 0:00:00.245
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/package.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:METABANG.CL-CONTAINERS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/package-tmp9K4T37BF.fasl
; compilation finished in 0:00:00.029
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/conditions.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CL-CONTAINERS)
; processing (DEFCONDITION CONTAINER-CONDITION ...)
; processing (DEFCONDITION CONTAINER-ERROR ...)
; processing (DEFCONDITION INDEX-OUT-OF-RANGE-ERROR ...)
; processing (DEFINE-CONDITION KEY-DOES-NOT-EXIST-ERROR ...)
; processing (DEFINE-CONDITION QUEUE-EMPTY ...)
; processing (DEFINE-CONDITION RECORD-NOT-FOUND-ERROR ...)
; processing (DEFCONDITION ELEMENT-NOT-FOUND-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/conditions-tmp1DZ1R953.fasl
; compilation finished in 0:00:00.085
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/container-api.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFGENERIC SAMPLE-ELEMENTS ...)
; processing (DEFGENERIC SAMPLE-KEY ...)
; processing (DEFGENERIC SAMPLE-UNIQUE-ELEMENTS ...)
; processing (DEFGENERIC SAMPLE-ELEMENT ...)
; processing (DEFGENERIC SAMPLE-ITEM ...)
; processing (DEFGENERIC BEST-ITEM ...)
; processing (DEFGENERIC ARGMAX ...)
; processing (DEFGENERIC ARGMIN ...)
; processing (DEFGENERIC SIZE ...)
; processing (DEFGENERIC EMPTY! ...)
; processing (DEFGENERIC SOME-ITEM-P ...)
; processing (DEFGENERIC EVERY-ITEM-P ...)
; processing (DEFGENERIC MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFGENERIC NTH-ELEMENT ...)
; processing (DEFGENERIC NTH-ITEM ...)
; processing (DEFGENERIC ITEM-AT ...)
; processing (DEFGENERIC (SETF ITEM-AT) ...)
; processing (DEFGENERIC ITEM-AT! ...)
; processing (DEFGENERIC (SETF ITEM-AT-1) ...)
; processing (DEFGENERIC FIND-ITEM ...)
; processing (DEFGENERIC FIND-NODE ...)
; processing (DEFGENERIC FIND-ELEMENT ...)
; processing (DEFGENERIC SEARCH-FOR-ITEM ...)
; processing (DEFGENERIC SEARCH-FOR-MATCH ...)
; processing (DEFGENERIC ITERATE-NODES ...)
; processing (DEFGENERIC PRINT-CONTAINER ...)
; processing (DEFGENERIC COLLECT-NODES ...)
; processing (DEFGENERIC COLLECT-ELEMENTS ...)
; processing (DEFGENERIC COLLECT-KEY-VALUE ...)
; processing (DEFGENERIC COLLECT-KEYS ...)
; processing (DEFGENERIC ITERATE-VALUE-KEY ...)
; processing (DEFGENERIC (SETF FIRST-ELEMENT) ...)
; processing (DEFUN FIRST-ITEM ...)
; processing (DEFUN LAST-ITEM ...)
; processing (DEFGENERIC DELETE-FIRST ...)
; processing (DEFGENERIC DELETE-LAST ...)
; processing (DEFGENERIC INSERT-ITEM ...)
; processing (DEFGENERIC APPEND-ITEM ...)
; processing (DEFGENERIC INSERT-NEW-ITEM ...)
; processing (DEFGENERIC APPEND-NEW-ITEM ...)
; processing (DEFGENERIC INSERT-SEQUENCE ...)
; processing (DEFGENERIC INSERT-LIST ...)
; processing (DEFGENERIC DELETE-LIST ...)
; processing (DEFGENERIC REVERSE-FIND ...)
; processing (DEFGENERIC ENSURE-SORTED ...)
; processing (DEFGENERIC FORCE-SORT ...)
; processing (DEFGENERIC REMOVE-ITEMS-IF ...)
; processing (DEFGENERIC CONTAINER->ARRAY ...)
; processing (DEFGENERIC ELEMENT-POSITION ...)
; processing (DEFGENERIC REVERSE-CONTAINER ...)
; processing (DEFGENERIC UNIQUE-ELEMENTS ...)
; processing (DEFGENERIC UNIQUE-NODES ...)
; processing (DEFGENERIC ADD-DEFAULT-ITEM ...)
; processing (DEFGENERIC ADD-INITIAL-CONTENTS ...)
; processing (DEFGENERIC BEST-ELEMENT ...)
; processing (DEFGENERIC BEST-NODE ...)
; processing (DEFGENERIC BIGGEST-ITEM ...)
; processing (DEFGENERIC CHILDREN ...)
; processing (DEFGENERIC CLEAN-UP ...)
; processing (DEFGENERIC COLLECT-ELEMENTS-STABLY ...)
; processing (DEFGENERIC COLLECT-ITEMS ...)
; processing (DEFGENERIC COLLECT-KEY-VALUE-STABLY ...)
; processing (DEFGENERIC COMBINE-ELEMENTS ...)
; processing (DEFGENERIC CONTAINER-DIFFERENCE ...)
; processing (DEFGENERIC CONTAINER-DIMENSION ...)
; processing (DEFGENERIC COUNT-ELEMENTS ...)
; processing (DEFGENERIC COUNT-ELEMENTS-IF ...)
; processing (DEFGENERIC COUNT-ITEMS ...)
; processing (DEFGENERIC DELETE-BIGGEST-ITEM ...)
; processing (DEFGENERIC DELETE-ELEMENT ...)
; processing (DEFGENERIC DELETE-ITEM ...)
; processing (DEFGENERIC DELETE-ITEM-AFTER ...)
; processing (DEFGENERIC DELETE-ITEM-AT ...)
; processing (DEFGENERIC DELETE-ITEM-BEFORE ...)
; processing (DEFGENERIC DELETE-ITEM-IF ...)
; processing (DEFGENERIC DELETE-NODE ...)
; processing (DEFGENERIC DEQUEUE ...)
; processing (DEFGENERIC ENQUEUE ...)
; processing (DEFGENERIC ERROR-IF-QUEUE-EMPTY ...)
; processing (DEFGENERIC EVERY-ELEMENT-P ...)
; processing (DEFGENERIC EVERY-KEY-VALUE-P ...)
; processing (DEFGENERIC EXCHANGE-HEAP-NODES ...)
; processing (DEFGENERIC FIND-CHILD-NODE ...)
; processing (DEFGENERIC FIND-SET ...)
; processing (DEFGENERIC FIND-VALUE ...)
; processing (DEFGENERIC FIRST-ELEMENT ...)
; processing (DEFGENERIC GRAFT-NODES ...)
; processing (DEFGENERIC HAS-CHILDREN-P ...)
; processing (DEFGENERIC HEAP-NODE-PARENT ...)
; processing (DEFGENERIC HEAPIFY ...)
; processing (DEFGENERIC HEIGHT ...)
; processing (DEFGENERIC INCREMENT-END ...)
; processing (DEFGENERIC INITIALIZE-CONTAINER ...)
; processing (DEFGENERIC INORDER-WALK ...)
; processing (DEFGENERIC INORDER-WALK-NODES ...)
; processing (DEFGENERIC INSERT-ITEM-AFTER ...)
; processing (DEFGENERIC INSERT-ITEM-AT ...)
; processing (DEFGENERIC INSERT-ITEM-BEFORE ...)
; processing (DEFGENERIC INSERT-ITEM-ORDERED ...)
; processing (DEFGENERIC INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; processing (DEFGENERIC ITEM-AT-1 ...)
; processing (DEFGENERIC ITEM-AT-1! ...)
; processing (DEFGENERIC ITEM-KEY ...)
; processing (DEFGENERIC ITERATE-CONTAINER ...)
; processing (DEFGENERIC ITERATE-ELEMENTS ...)
; processing (DEFGENERIC ITERATE-ELEMENTS-STABLY ...)
; processing (DEFGENERIC ITERATE-KEY-VALUE ...)
; processing (DEFGENERIC ITERATE-KEY-VALUE-STABLY ...)
; processing (DEFGENERIC ITERATE-KEYS ...)
; processing (DEFGENERIC ITERATE-LEFT ...)
; processing (DEFGENERIC ITERATE-LEFT-NODES ...)
; processing (DEFGENERIC ITERATE-NODES-ABOUT-NODE ...)
; processing (DEFGENERIC ITERATE-RIGHT ...)
; processing (DEFGENERIC ITERATE-RIGHT-NODES ...)
; processing (DEFGENERIC L-CHILD ...)
; processing (DEFGENERIC L-CHILD-INDEX ...)
; processing (DEFGENERIC LAST-ELEMENT ...)
; processing (DEFGENERIC (SETF LAST-ELEMENT) ...)
; processing (DEFGENERIC LEFT-AND-RIGHT-NODES-FOR-ITEM ...)
; processing (DEFGENERIC LEFT-NODE-FOR-ITEM ...)
; processing (DEFGENERIC LINK-NODES ...)
; processing (DEFGENERIC MAKE-INITIAL-ELEMENT ...)
; processing (DEFGENERIC MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFGENERIC MAKE-SET ...)
; processing (DEFGENERIC NEXT-ITEM ...)
; processing (DEFGENERIC NODE-EMPTY-P ...)
; processing (DEFGENERIC NODE-PARENT-INDEX ...)
; processing (DEFGENERIC POP-ITEM ...)
; processing (DEFGENERIC POSTORDER-WALK ...)
; processing (DEFGENERIC POSTORDER-WALK-NODES ...)
; processing (DEFGENERIC PREDECESSOR ...)
; processing (DEFGENERIC PREORDER-WALK ...)
; processing (DEFGENERIC PREORDER-WALK-NODES ...)
; processing (DEFGENERIC PRINT-CONTAINER-CONTENTS ...)
; processing (DEFGENERIC PRINT-CONTAINER-SUMMARY ...)
; processing (DEFGENERIC PUSH-ITEM ...)
; processing (DEFGENERIC R-CHILD ...)
; processing (DEFGENERIC R-CHILD-INDEX ...)
; processing (DEFGENERIC RB-DELETE-FIXUP ...)
; processing (DEFGENERIC REDUCE-CONTAINER ...)
; processing (DEFGENERIC REDUCE-ELEMENTS ...)
; processing (DEFGENERIC REDUCE-NODES ...)
; processing (DEFGENERIC REPLACE-ITEM ...)
; processing (DEFGENERIC REPRESENTATIVE ...)
; processing (DEFGENERIC REPRESENTATIVE-NODE ...)
; processing (DEFGENERIC RIGHT-NODE-FOR-ITEM ...)
; processing (DEFGENERIC ROTATE-LEFT ...)
; processing (DEFGENERIC ROTATE-RIGHT ...)
; processing (DEFGENERIC SEARCH-FOR-ELEMENT ...)
; processing (DEFGENERIC SEARCH-FOR-KEY ...)
; processing (DEFGENERIC SEARCH-FOR-MATCHING-NODE ...)
; processing (DEFGENERIC SEARCH-FOR-NODE ...)
; processing (DEFGENERIC SEARCH-FOR-NODE* ...)
; processing (DEFGENERIC SET-DIRTY-FLAG ...)
; processing (DEFGENERIC SOME-ELEMENT-P ...)
; processing (DEFGENERIC SOME-KEY-VALUE-P ...)
; processing (DEFGENERIC SORT-CONTAINER ...)
; processing (DEFGENERIC SORT-ELEMENTS ...)
; processing (DEFGENERIC SORT-KEYS ...)
; processing (DEFGENERIC SORT-UPDATE-LEFT ...)
; processing (DEFGENERIC SORT-UPDATE-RIGHT ...)
; processing (DEFGENERIC SUCCESSOR ...)
; processing (DEFGENERIC TOTAL-SIZE ...)
; processing (DEFGENERIC UPDATE-ELEMENT ...)
; processing (DEFGENERIC UPDATE-ITEM ...)
; processing (DEFGENERIC WALK-TREE ...)
; processing (DEFGENERIC WALK-TREE-NODES ...)
; processing (DEFGENERIC (SETF PACKAGES) ...)
; processing (DEFGENERIC CONTAINER->LIST ...)
; processing (DEFGENERIC CURRENT-ITEM ...)
; processing (DEFGENERIC ITERATE-CHILDREN ...)
; processing (DEFGENERIC FIRST-NODE ...)
; processing (DEFGENERIC %OPERATE-AFTER-FINDING ...)
; processing (DEFGENERIC INSERT-INITIAL-CONTENTS-P ...)
; processing (DEFGENERIC ITERATABLE-P ...)
; processing (DEFGENERIC KEY-VALUE-ITERATABLE-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/container-api-tmpWPHOFSMN.fasl
; compilation finished in 0:00:00.203
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/containers.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFPARAMETER +EMPTY-INITIAL-ELEMENT+ ...)
; processing (DEFCLASS* ABSTRACT-CONTAINER ...)
; processing (DEFCLASS* CONCRETE-CONTAINER ...)
; processing (DEFCLASS* CONTAINER-NODE-MIXIN ...)
; processing (DEFCLASS* PARENT-NODE-MIXIN ...)
; processing (DEFCLASS* TWO-CHILD-NODE ...)
; processing (DEFCLASS* KEYED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* TYPED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* BOUNDED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* INDEXED-CONTAINER-MIXIN ...)
; processing (DEFMETHOD (SETF ITEM-AT) ...)
; processing (DEFCLASS* INITIAL-ELEMENT-MIXIN ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN RETURN-EMPTY-INITIAL-ELEMENT ...)
; processing (DEFMETHOD MAKE-INITIAL-ELEMENT ...)
; processing (DEFCLASS* BASIC-INITIAL-CONTENTS-MIXIN ...)
; processing (DEFCLASS* INITIAL-CONTENTS-MIXIN ...)
; processing (DEFCLASS* INITIAL-CONTENTS-KEY-VALUE-MIXIN ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS* TEST-CONTAINER-MIXIN ...)
; processing (DEFCLASS* CONTAINER-USES-NODES-MIXIN ...)
; processing (DEFCLASS* FINDABLE-CONTAINER-MIXIN ...)
; processing (DEFCLASS* SEARCHABLE-CONTAINER-MIXIN ...)
; processing (DEFCLASS* ITERATABLE-CONTAINER-MIXIN ...)
; processing (DEFCLASS* KEY-VALUE-ITERATABLE-CONTAINER-MIXIN ...)
; processing (DEFMETHOD ITERATE-CONTAINER ...)
; processing (DEFMETHOD COLLECT-ITEMS ...)
; processing (DEFCLASS* I-KNOW-MY-NODE-MIXIN ...)
; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFCLASS* NON-ASSOCIATIVE-CONTAINER-MIXIN ...)
; processing (DEFCLASS* UNORDERED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* ORDERED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* SORTED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* CLASSIFIED-CONTAINER-MIXIN ...)
; processing (DEFCLASS* USES-CONTENTS-MIXIN ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFCLASS* CONTENTS-AS-SEQUENCE-MIXIN ...)
; processing (DEFCLASS* CONTENTS-AS-ARRAY-MIXIN ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD TOTAL-SIZE ...)
; processing (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFCLASS* CONTENTS-AS-LIST-MIXIN ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFCLASS* LIST-CONTAINER ...)
; processing (DEFCLASS* CONTENTS-AS-HASHTABLE-MIXIN ...)
; processing (DEFCLASS* ASSOCIATIVE-CONTAINER-MIXIN ...)
; processing (DEFCLASS* ARRAY-CONTAINER-ABSTRACT ...)
; processing (DEFCLASS* ARRAY-CONTAINER ...)
; processing (DEFCLASS* SPARSE-ARRAY-CONTAINER ...)
; processing (DEFCLASS* SIMPLE-ASSOCIATIVE-CONTAINER ...)
; processing (DEFCLASS* ASSOCIATIVE-CONTAINER ...)
; processing (DEFCLASS* BIASSOCIATIVE-CONTAINER-MIXIN ...)
; processing (DEFCLASS* ALIST-CONTAINER ...)
; processing (DEFCLASS* STABLE-ASSOCIATIVE-CONTAINER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS* ASSOCIATIVE-ARRAY ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...)
; processing (DEFMETHOD ITERATABLE-P ...)
; processing (DEFMETHOD KEY-VALUE-ITERATABLE-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/containers-tmp7YZ0AT5W.fasl
; compilation finished in 0:00:01.381
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/basic-operations.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFGENERIC MAKE-CONTAINER ...)
; processing (DEFGENERIC EMPTY-P ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD FIND-ELEMENT ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-ELEMENT ...)
; processing (DEFMETHOD PRINT-CONTAINER ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD COLLECT-NODES ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFUN COLLECTOR-INTERNAL ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD SEARCH-FOR-ELEMENT ...)
; processing (DEFMETHOD SEARCH-FOR-NODE ...)
; processing (DEFUN %SEARCH-IN-CONTAINER ...)
; processing (DEFMETHOD SEARCH-FOR-MATCH ...)
; processing (DEFUN %SEARCH-FOR-MATCH ...)
; processing (DEFMETHOD SEARCH-FOR-MATCHING-NODE ...)
; processing (DEFMETHOD SEARCH-FOR-NODE ...)
; processing (DEFMETHOD SEARCH-FOR-NODE ...)
; processing (DEFMETHOD SEARCH-FOR-NODE* ...)
; processing (DEFMETHOD SEARCH-FOR-NODE* ...)
; processing (DEFMETHOD BEST-ITEM ...)
; processing (DEFMETHOD BEST-ITEM ...)
; processing (DEFMETHOD BEST-NODE ...)
; processing (DEFMETHOD BEST-ELEMENT ...)
; processing (DEFUN %BEST-HELPER ...)
; processing (DEFMETHOD ARGMAX ...)
; processing (DEFMETHOD ARGMIN ...)
; processing (DEFMETHOD REDUCE-CONTAINER ...)
; processing (DEFMETHOD REDUCE-ELEMENTS ...)
; processing (DEFMETHOD REDUCE-NODES ...)
; processing (DEFUN REDUCE-INTERNAL ...)
; processing (DEFMETHOD DELETE-ITEM-IF ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-LIST ...)
; processing (DEFMETHOD INSERT-LIST ...)
; processing (DEFMETHOD INSERT-SEQUENCE ...)
; processing (DEFMETHOD INSERT-SEQUENCE ...)
; processing (DEFMETHOD INSERT-SEQUENCE ...)
; processing (DEFMETHOD INSERT-NEW-ITEM ...)
; processing (DEFMETHOD SUCCESSOR ...)
; processing (DEFMETHOD PREDECESSOR ...)
; processing (DEFMETHOD %OPERATE-AFTER-FINDING ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD SORT-ELEMENTS ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD SOME-ITEM-P ...)
; processing (DEFMETHOD EVERY-ITEM-P ...)
; processing (DEFMETHOD SOME-ELEMENT-P ...)
; processing (DEFMETHOD EVERY-ELEMENT-P ...)
; processing (DEFUN %EVERY-THING-P ...)
; processing (DEFUN %SOME-THING-P ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD APPEND-ITEM ...)
; processing (DEFMETHOD APPEND-NEW-ITEM ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATE-KEYS ...)
; processing (DEFMETHOD COLLECT-KEY-VALUE ...)
; processing (DEFUN %COLLECT-KEY-VALUE ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD REVERSE-FIND ...)
; processing (DEFMETHOD FIND-VALUE ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD ADD-DEFAULT-ITEM ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD ITERATE-KEYS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATE-ELEMENTS-STABLY ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; processing (DEFMETHOD COLLECT-KEYS ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE-STABLY ...)
; processing (DEFMETHOD COLLECT-KEY-VALUE-STABLY ...)
; processing (DEFMETHOD COLLECT-ELEMENTS-STABLY ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFUN TUPLE-INDEX ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD CONTAINER-DIMENSION ...)
; processing (DEFMETHOD DIMENSIONS ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFUN COLLECT-USING ...)
; processing (DEFUN COUNT-USING ...)
; processing (DEFMETHOD CONTAINER-DIFFERENCE ...)
; processing (DEFUN ASSOCIATIVE-CONTAINER-P ...)
; processing (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; processing (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; processing (DEFUN ADD-INITIAL-CONTENTS-INTERNAL ...)
; processing (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; processing (DEFMETHOD ELEMENT-POSITION ...)
; processing (DEFMETHOD ELEMENT-POSITION ...)
; processing (DEFMETHOD SAMEP ...)
; processing (DEFMETHOD SAMEP ...)
; processing (DEFMETHOD SAMEP ...)
; processing (DEFMETHOD SAMEP ...)
; processing (DEFMETHOD REVERSE-CONTAINER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/basic-operations-tmp8Q267AO9.fasl
; compilation finished in 0:00:03.846
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/queues.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* ABSTRACT-QUEUE ...)
; processing (DEFMETHOD ENQUEUE ...)
; processing (DEFMETHOD DEQUEUE ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD DELETE-FIRST ...)
; processing (DEFMETHOD ERROR-IF-QUEUE-EMPTY ...)
; processing (DEFCLASS* PRIORITY-QUEUE-ON-CONTAINER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-FIRST ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD FIND-NODE ...)
; processing (DEFMETHOD FIND-ELEMENT ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-NODE ...)
; processing (DEFMETHOD DELETE-ELEMENT ...)
; processing (DEFMETHOD DELETE-ITEM-IF ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFCLASS* BASIC-QUEUE ...)
; processing (DEFUN FRONT-OF-QUEUE ...)
; processing (DEFUN FRONT-OF-QUEUE! ...)
; processing (DEFSETF FRONT-OF-QUEUE ...)
; processing (DEFUN TAIL-OF-QUEUE ...)
; processing (DEFUN TAIL-OF-QUEUE! ...)
; processing (DEFSETF TAIL-OF-QUEUE ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/queues.lisp
; in: DEFMETHOD INSERT-ITEM (BASIC-QUEUE T)
; (DEFMETHOD METABANG.CL-CONTAINERS:INSERT-ITEM
; ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE)
; (METABANG.CL-CONTAINERS::ITEM T))
; "Add an item to the queue."
; (LET ((METABANG.CL-CONTAINERS::NEW-ITEM
; (LIST METABANG.CL-CONTAINERS::ITEM)))
; (COND
; ((METABANG.CL-CONTAINERS:EMPTY-P METABANG.CL-CONTAINERS::Q) (SETF #))
; (T (SETF #))))
; METABANG.CL-CONTAINERS::Q)
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; ==>
; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:INSERT-ITEM
; 'NIL
; (LIST
; (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE)
; (FIND-CLASS 'T))
; '(METABANG.CL-CONTAINERS::Q
; METABANG.CL-CONTAINERS::ITEM)
; (LIST* :FUNCTION
; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
; (SETF # #)
; SB-PCL::MF)
; '(SB-PCL::PLIST (:ARG-INFO (2))
; SB-PCL::SIMPLE-NEXT-METHOD-CALL T
; :DOCUMENTATION "Add an item to the queue."))
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE could not be inlined because its
; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
; must be in effect to save function definitions for inlining.
;
; caught STYLE-WARNING:
; Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! could not be inlined because its
; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
; must be in effect to save function definitions for inlining.
; processing (DEFMETHOD DELETE-FIRST ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/queues.lisp
; in: DEFMETHOD DELETE-FIRST (BASIC-QUEUE)
; (DEFMETHOD METABANG.CL-CONTAINERS:DELETE-FIRST
; ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE))
; (LET ((METABANG.CL-CONTAINERS::RESULT
; (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)))
; (SETF (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)
; (CDR METABANG.CL-CONTAINERS::RESULT)
; METABANG.CL-CONTAINERS::RESULT
; (FIRST METABANG.CL-CONTAINERS::RESULT))
; (WHEN
; (NULL
; (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q))
; (METABANG.CL-CONTAINERS:EMPTY! METABANG.CL-CONTAINERS::Q))
; METABANG.CL-CONTAINERS::RESULT))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; ==>
; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:DELETE-FIRST
; 'NIL
; (LIST
; (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE))
; '(METABANG.CL-CONTAINERS::Q)
; (LIST* :FUNCTION
; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
; (SETF # #)
; SB-PCL::MF)
; '(SB-PCL::PLIST (:ARG-INFO (1))
; SB-PCL::SIMPLE-NEXT-METHOD-CALL T))
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE could not be inlined because its
; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
; must be in effect to save function definitions for inlining.
;
; caught STYLE-WARNING:
; Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! could not be inlined because
; its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE
; proclamation must be in effect to save function definitions for inlining.
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/queues-tmpH07OJ7CW.fasl
; compilation finished in 0:00:00.804
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-containers" "dev" "queues">
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/stacks.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* ABSTRACT-STACK ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD PUSH-ITEM ...)
; processing (DEFCLASS* STACK-CONTAINER ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD POP-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/stacks-tmp1VTWJYNA.fasl
; compilation finished in 0:00:00.254
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/vectors.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* VECTOR-CONTAINER-MIXIN ...)
; processing (DEFMETHOD ITEM-AT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT (VECTOR-CONTAINER-MIXIN)
; (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 536870909):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD ITEM-AT! ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT! (VECTOR-CONTAINER-MIXIN T)
; (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 536870909):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFCLASS* BASIC-VECTOR-CONTAINER ...)
; processing (DEFCLASS* BOUNDED-VECTOR-CONTAINER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS* VECTOR-CONTAINER ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM-AT ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-FIRST ...)
; processing (DEFMETHOD DELETE-LAST ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFCLASS* FLEXIBLE-VECTOR-CONTAINER ...)
; processing (DEFMETHOD ITEM-AT! ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT! :BEFORE (FLEXIBLE-VECTOR-CONTAINER T)
; (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a NUMBER:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFUN RESIZE-VECTOR ...)
; processing (DEFMETHOD SAMEP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/vectors-tmpMYXXFDNY.fasl
; compilation finished in 0:00:00.623
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-containers" "dev" "vectors">
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/trees.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* ABSTRACT-TREE-CONTAINER ...)
; processing (DEFCLASS* ROOTED-TREE-CONTAINER ...)
; processing (DEFCLASS* MANY-CHILD-NODE ...)
; processing (DEFMETHOD ITERATE-CHILDREN ...)
; processing (DEFMETHOD HAS-CHILDREN-P ...)
; processing (DEFMETHOD FIND-CHILD-NODE ...)
; processing (DEFCLASS* MANY-ORDERED-CHILD-NODE ...)
; processing (DEFMETHOD CHILDREN ...)
; processing (DEFCLASS* MANY-UNORDERED-CHILD-NODE ...)
; processing (DEFCLASS* BINARY-SEARCH-TREE ...)
; processing (DEFCLASS* BST-NODE ...)
; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFMETHOD NODE-EMPTY-P ...)
; processing (DEFMETHOD NODE-EMPTY-P ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD FIND-SUCCESSOR-ITEM ...)
; processing (DEFMETHOD FIND-NODE ...)
; processing (DEFMETHOD FIND-SUCCESSOR-NODE ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD FIRST-NODE ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD FIRST-NODE ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD LAST-NODE ...)
; processing (DEFMETHOD LAST-NODE ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFMETHOD SUCCESSOR ...)
; processing (DEFMETHOD PREDECESSOR ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-NODE ...)
; processing (DEFMETHOD DELETE-NODE ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM-IF ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD INORDER-WALK ...)
; processing (DEFMETHOD PREORDER-WALK ...)
; processing (DEFMETHOD POSTORDER-WALK ...)
; processing (DEFMETHOD INORDER-WALK-NODES ...)
; processing (DEFMETHOD PREORDER-WALK-NODES ...)
; processing (DEFMETHOD POSTORDER-WALK-NODES ...)
; processing (DEFMETHOD WALK-TREE ...)
; processing (DEFMETHOD WALK-TREE ...)
; processing (DEFMETHOD WALK-TREE-NODES ...)
; processing (DEFMETHOD WALK-TREE-NODES ...)
; processing (DEFCONSTANT +RBT-COLOR-BLACK+ ...)
; processing (DEFCONSTANT +RBT-COLOR-RED+ ...)
; processing (DEFCLASS RBT-EMPTY-NODE ...)
; processing (DEFCLASS* RED-BLACK-TREE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS* RED-BLACK-NODE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD NODE-EMPTY-P ...)
; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD ROTATE-LEFT ...)
; processing (DEFMETHOD ROTATE-RIGHT ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-NODE ...)
; processing (DEFMETHOD RB-DELETE-FIXUP ...)
; processing (DEFMETHOD WALK-TREE-NODES ...)
; processing (DEFMETHOD WALK-TREE ...)
; processing (DEFMETHOD HEIGHT ...)
; processing (DEFMETHOD HEIGHT ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD UPDATE-ELEMENT ...)
; processing (DEFGENERIC BST-NODE-IS-LEFT-CHILD ...)
; processing (DEFGENERIC BST-NODE-IS-RIGHT-CHILD ...)
; processing (DEFGENERIC BST-NODE-SET-RIGHT-CHILD ...)
; processing (DEFGENERIC BST-NODE-SET-LEFT-CHILD ...)
; processing (DEFGENERIC BST-NODE-REPLACE-CHILD ...)
; processing (DEFCLASS* SPLAY-TREE ...)
; processing (DEFGENERIC SPLAY-TREE-ROTATE ...)
; processing (DEFGENERIC SPLAY-TREE-SPLAY ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD UPDATE-ELEMENT ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFGENERIC RIGHT-MOST-CHILD ...)
; processing (DEFMETHOD DELETE-NODE ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/trees-tmpOVSXYOPN.fasl
; compilation finished in 0:00:02.420
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/lists.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFMETHOD INSERT-LIST ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD DELETE-FIRST ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD ITEM-AT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (LIST-CONTAINER)
; (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 536870909):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD PRINT-CONTAINER ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFCLASS* SORTED-LIST-CONTAINER ...)
; processing (DEFMETHOD SET-DIRTY-FLAG ...)
; processing (DEFMETHOD CLEAN-UP ...)
; processing (DEFMETHOD INSERT-LIST ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD DELETE-FIRST ...)
; processing (DEFMETHOD ITEM-AT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (SORTED-LIST-CONTAINER)
; (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 536870909):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD PRINT-CONTAINER ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD ENSURE-SORTED ...)
; processing (DEFMETHOD FORCE-SORT ...)
; processing (DEFCLASS* DLIST-CONTAINER-NODE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS* DLIST-CONTAINER ...)
; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM-AFTER ...)
; processing (DEFMETHOD INSERT-ITEM-AFTER ...)
; processing (DEFMETHOD INSERT-ITEM-AFTER ...)
; processing (DEFMETHOD INSERT-ITEM-AFTER ...)
; processing (DEFMETHOD INSERT-ITEM-BEFORE ...)
; processing (DEFMETHOD INSERT-ITEM-BEFORE ...)
; processing (DEFMETHOD INSERT-ITEM-BEFORE ...)
; processing (DEFMETHOD DELETE-ITEM-AFTER ...)
; processing (DEFMETHOD DELETE-ITEM-BEFORE ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITEM-AT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (DLIST-CONTAINER)
; (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; The binding of SB-C::X is not a REAL:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; caught STYLE-WARNING:
; The binding of NUMBER is not a REAL:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD REPLACE-ITEM ...)
; processing (DEFMETHOD REPLACE-ITEM ...)
; processing (DEFMETHOD SUCCESSOR ...)
; processing (DEFMETHOD PREDECESSOR ...)
; processing (DEFCLASS* SORTED-DLIST-CONTAINER ...)
; processing (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; processing (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; processing (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in:
; DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE (SORTED-DLIST-CONTAINER
; DLIST-CONTAINER-NODE
; DLIST-CONTAINER-NODE)
; (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER
; METABANG.CL-CONTAINERS::TEST)
; LIST
; (LET ((METABANG.CL-CONTAINERS::NEW-KEY
; (FUNCALL METABANG.CL-CONTAINERS::KEY #)))
; (IF (AND
; (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NODE)
; (FUNCALL METABANG.CL-CONTAINERS::SORTER
; METABANG.CL-CONTAINERS::NEW-KEY #))
; (METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES LIST
; METABANG.CL-CONTAINERS::NODE
; (LAMBDA # #))
; (METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES LIST
; METABANG.CL-CONTAINERS::NODE
; (LAMBDA # #)))))
; --> LET SYMBOL-MACROLET LET IF METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES
; --> LAMBDA FUNCTION LET FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G3 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G3
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
;
; note: could not stack allocate:
; (WITH-SLOTS (KEY SORTER TEST)
; LIST
; (LET ((NEW-KEY (FUNCALL KEY (ELEMENT NEW-NODE))))
; (IF (AND (PREVIOUS-ITEM NODE)
; (FUNCALL SORTER NEW-KEY
; (FUNCALL KEY (ELEMENT (PREVIOUS-ITEM NODE)))))
; (ITERATE-LEFT-NODES LIST NODE
; (LAMBDA (N)
; (LET ((CURRENT-KEY
; (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (COND
; ((FUNCALL TEST (ELEMENT NEW-NODE)
; (ELEMENT N))
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST))
; ((NOT
; (FUNCALL SORTER NEW-KEY CURRENT-KEY))
; (INSERT-ITEM-AFTER LIST N NEW-NODE)
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST))))))
; (ITERATE-RIGHT-NODES LIST NODE
; (LAMBDA (N)
; (LET ((CURRENT-KEY
; (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (COND
; ((FUNCALL TEST (ELEMENT NEW-NODE)
; (ELEMENT N))
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST))
; ((FUNCALL SORTER NEW-KEY CURRENT-KEY)
; (INSERT-ITEM-BEFORE LIST N NEW-NODE)
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST)))))))))
; --> LET SYMBOL-MACROLET LET IF METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES
; --> LAMBDA FUNCTION LET FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G3 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G3
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
;
; note: could not stack allocate:
; (WITH-SLOTS (KEY SORTER TEST)
; LIST
; (LET ((NEW-KEY (FUNCALL KEY (ELEMENT NEW-NODE))))
; (IF (AND (PREVIOUS-ITEM NODE)
; (FUNCALL SORTER NEW-KEY
; (FUNCALL KEY (ELEMENT (PREVIOUS-ITEM NODE)))))
; (ITERATE-LEFT-NODES LIST NODE
; (LAMBDA (N)
; (LET ((CURRENT-KEY
; (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (COND
; ((FUNCALL TEST (ELEMENT NEW-NODE)
; (ELEMENT N))
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST))
; ((NOT
; (FUNCALL SORTER NEW-KEY CURRENT-KEY))
; (INSERT-ITEM-AFTER LIST N NEW-NODE)
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST))))))
; (ITERATE-RIGHT-NODES LIST NODE
; (LAMBDA (N)
; (LET ((CURRENT-KEY
; (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (COND
; ((FUNCALL TEST (ELEMENT NEW-NODE)
; (ELEMENT N))
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST))
; ((FUNCALL SORTER NEW-KEY CURRENT-KEY)
; (INSERT-ITEM-BEFORE LIST N NEW-NODE)
; (RETURN-FROM
; INSERT-ITEM-ORDERED-ABOUT-NODE
; LIST)))))))))
; processing (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; processing (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; processing (DEFMETHOD INSERT-ITEM-ORDERED ...)
; processing (DEFMETHOD INSERT-ITEM-ORDERED ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD DELETE-ITEM (SORTED-DLIST-CONTAINER I-KNOW-MY-NODE-MIXIN)
; (METABANG.CL-CONTAINERS:MY-NODE METABANG.CL-CONTAINERS::ITEM)
;
; note: could not stack allocate: (MY-NODE ITEM)
; processing (DEFMETHOD FORCE-SORT ...)
; processing (DEFMETHOD ENSURE-SORTED ...)
; processing (DEFMETHOD LEFT-NODE-FOR-ITEM ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD LEFT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T)
; (COND ((= (METABANG.UTILITIES:SIZE LIST) 0) (VALUES NIL))
; ((AND (= (METABANG.UTILITIES:SIZE LIST) 1)
; (NOT
; (FUNCALL METABANG.CL-CONTAINERS::SORTER
; METABANG.CL-CONTAINERS::NEW-KEY #)))
; (VALUES (METABANG.CL-CONTAINERS:FIRST-ELEMENT LIST)))
; (T
; (METABANG.CL-CONTAINERS:ITERATE-NODES LIST
; (LAMBDA
; (METABANG.CL-CONTAINERS::N)
; (LET* #
; #
; #)))
; (VALUES (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST))))
; --> IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET*
; --> FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
;
; note: could not stack allocate:
; (COND ((= (SIZE LIST) 0) (VALUES NIL))
; ((AND (= (SIZE LIST) 1)
; (NOT
; (FUNCALL SORTER NEW-KEY
; (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST))))))
; (VALUES (FIRST-ELEMENT LIST)))
; (T
; (ITERATE-NODES LIST
; (LAMBDA (N)
; (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (WHEN
; (OR (FUNCALL TEST NEW-KEY CURRENT-KEY)
; (FUNCALL SORTER NEW-KEY CURRENT-KEY))
; (RETURN-FROM LEFT-NODE-FOR-ITEM
; (PREVIOUS-ITEM N))))))
; (VALUES (LAST-ELEMENT LIST))))
; processing (DEFMETHOD RIGHT-NODE-FOR-ITEM ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD RIGHT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T)
; (COND ((= (METABANG.UTILITIES:SIZE LIST) 0) (VALUES NIL))
; ((AND (= (METABANG.UTILITIES:SIZE LIST) 1)
; (FUNCALL METABANG.CL-CONTAINERS::SORTER
; METABANG.CL-CONTAINERS::NEW-KEY
; (FUNCALL METABANG.CL-CONTAINERS::KEY #)))
; (VALUES (METABANG.CL-CONTAINERS:FIRST-ELEMENT LIST)))
; (T
; (METABANG.CL-CONTAINERS:ITERATE-NODES LIST
; (LAMBDA
; (METABANG.CL-CONTAINERS::N)
; (LET* #
; #
; #)))
; (VALUES NIL)))
; --> IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET*
; --> FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
;
; note: could not stack allocate:
; (COND ((= (SIZE LIST) 0) (VALUES NIL))
; ((AND (= (SIZE LIST) 1)
; (FUNCALL SORTER NEW-KEY
; (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST)))))
; (VALUES (FIRST-ELEMENT LIST)))
; (T
; (ITERATE-NODES LIST
; (LAMBDA (N)
; (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (WHEN
; (OR (FUNCALL TEST NEW-KEY CURRENT-KEY)
; (FUNCALL SORTER NEW-KEY CURRENT-KEY))
; (RETURN-FROM RIGHT-NODE-FOR-ITEM N)))))
; (VALUES NIL)))
; processing (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in: DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM (SORTED-DLIST-CONTAINER T)
; (COND ((= (METABANG.UTILITIES:SIZE LIST) 0) (VALUES NIL NIL))
; ((= (METABANG.UTILITIES:SIZE LIST) 1)
; (IF (FUNCALL METABANG.CL-CONTAINERS::SORTER
; METABANG.CL-CONTAINERS::NEW-KEY
; (FUNCALL METABANG.CL-CONTAINERS::KEY #))
; (VALUES NIL (METABANG.CL-CONTAINERS:FIRST-ELEMENT LIST))
; (VALUES (METABANG.CL-CONTAINERS:FIRST-ELEMENT LIST) NIL)))
; (T
; (METABANG.CL-CONTAINERS:ITERATE-NODES LIST
; (LAMBDA
; (METABANG.CL-CONTAINERS::N)
; (LET* #
; #
; #)))
; (VALUES (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST) NIL)))
; --> IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET*
; --> FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
;
; note: could not stack allocate:
; (COND ((= (SIZE LIST) 0) (VALUES NIL NIL))
; ((= (SIZE LIST) 1)
; (IF (FUNCALL SORTER NEW-KEY
; (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST))))
; (VALUES NIL (FIRST-ELEMENT LIST))
; (VALUES (FIRST-ELEMENT LIST) NIL)))
; (T
; (ITERATE-NODES LIST
; (LAMBDA (N)
; (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N))))
; (DECLARE (DYNAMIC-EXTENT CURRENT-KEY))
; (WHEN
; (OR (FUNCALL TEST NEW-KEY CURRENT-KEY)
; (FUNCALL SORTER NEW-KEY CURRENT-KEY))
; (RETURN-FROM LEFT-AND-RIGHT-NODES-FOR-ITEM
; (VALUES (PREVIOUS-ITEM N) N))))))
; (VALUES (LAST-ELEMENT LIST) NIL)))
; processing (DEFMETHOD ITERATE-LEFT-NODES ...)
; processing (DEFMETHOD ITERATE-LEFT-NODES ...)
; processing (DEFMETHOD ITERATE-LEFT-NODES ...)
; processing (DEFMETHOD ITERATE-RIGHT-NODES ...)
; processing (DEFMETHOD ITERATE-RIGHT-NODES ...)
; processing (DEFMETHOD ITERATE-RIGHT-NODES ...)
; processing (DEFMETHOD ITERATE-LEFT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in:
; DEFMETHOD ITERATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T)
; (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::ITEM)
;
; note: could not stack allocate: (PREVIOUS-ITEM ITEM)
; processing (DEFMETHOD ITERATE-LEFT ...)
; processing (DEFMETHOD ITERATE-LEFT ...)
; processing (DEFMETHOD ITERATE-RIGHT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in:
; DEFMETHOD ITERATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T)
; (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::ITEM)
;
; note: could not stack allocate: (NEXT-ITEM ITEM)
; processing (DEFMETHOD ITERATE-RIGHT ...)
; processing (DEFMETHOD ITERATE-RIGHT ...)
; processing (DEFMETHOD SORT-UPDATE-LEFT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in:
; DEFMETHOD SORT-UPDATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE)
; (WITH-SLOTS (METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::KEY
; METABANG.CL-CONTAINERS::TEST)
; LIST
; (LET ((METABANG.CL-CONTAINERS::NODE-KEY
; (FUNCALL METABANG.CL-CONTAINERS::KEY #))
; (METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NODE)))
; (DECLARE
; (DYNAMIC-EXTENT METABANG.CL-CONTAINERS::NODE-KEY
; METABANG.CL-CONTAINERS::NEXT-NEIGHBOR))
; (LOOP METABANG.CL-CONTAINERS::WHILE (AND
; METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; (FUNCALL
; METABANG.CL-CONTAINERS::SORTER
; METABANG.CL-CONTAINERS::NODE-KEY
; #))
; DO (SETF # #
; # #) (WHEN (NOT #)
; (SETF #)) (IF (NOT #)
; (SETF #)
; (SETF #)) (SETF #
; METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; #
; METABANG.CL-CONTAINERS::NODE) (SETF METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; #))
; (WHEN (NOT METABANG.CL-CONTAINERS::NEXT-NEIGHBOR)
; (SETF # METABANG.CL-CONTAINERS::NODE))))
; --> LET SYMBOL-MACROLET LET FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE))
;
; note: could not stack allocate:
; (WITH-SLOTS (SORTER KEY TEST)
; LIST
; (LET ((NODE-KEY (FUNCALL KEY (ELEMENT NODE)))
; (NEXT-NEIGHBOR (PREVIOUS-ITEM NODE)))
; (DECLARE (DYNAMIC-EXTENT NODE-KEY NEXT-NEIGHBOR))
; (LOOP WHILE (AND NEXT-NEIGHBOR
; (FUNCALL SORTER NODE-KEY
; (FUNCALL KEY (ELEMENT NEXT-NEIGHBOR))))
; DO (SETF (NEXT-ITEM NEXT-NEIGHBOR) (NEXT-ITEM NODE)
; (PREVIOUS-ITEM NODE)
; (PREVIOUS-ITEM NEXT-NEIGHBOR)) (WHEN
; (NOT
; (EQ
; NEXT-NEIGHBOR
; (FIRST-ELEMENT
; LIST)))
; (SETF (NEXT-ITEM
; (PREVIOUS-ITEM
; NEXT-NEIGHBOR))
; NODE)) (IF (NOT
; (EQ
; NODE
; (LAST-ELEMENT
; LIST)))
; (SETF (PREVIOUS-ITEM
; (NEXT-ITEM
; NODE))
; NEXT-NEIGHBOR)
; (SETF (LAST-ELEMENT
; LIST)
; NEXT-NEIGHBOR)) (SETF (NEXT-ITEM
; NODE)
; NEXT-NEIGHBOR
; (PREVIOUS-ITEM
; NEXT-NEIGHBOR)
; NODE) (SETF NEXT-NEIGHBOR
; (PREVIOUS-ITEM
; NODE)))
; (WHEN (NOT NEXT-NEIGHBOR) (SETF (FIRST-ELEMENT LIST) NODE))))
; (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NODE)
;
; note: could not stack allocate: (PREVIOUS-ITEM NODE)
; processing (DEFMETHOD SORT-UPDATE-RIGHT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp
; in:
; DEFMETHOD SORT-UPDATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE)
; (WITH-SLOTS (METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::KEY
; METABANG.CL-CONTAINERS::TEST)
; LIST
; (LET ((METABANG.CL-CONTAINERS::NODE-KEY
; (FUNCALL METABANG.CL-CONTAINERS::KEY #))
; (METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NODE)))
; (DECLARE
; (DYNAMIC-EXTENT METABANG.CL-CONTAINERS::NODE-KEY
; METABANG.CL-CONTAINERS::NEXT-NEIGHBOR))
; (LOOP METABANG.CL-CONTAINERS::WHILE (AND
; METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; (NOT #))
; DO (SETF # #
; # #) (WHEN (NOT #)
; (SETF #)) (IF (NOT #)
; (SETF #)
; (SETF #)) (SETF #
; METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; #
; METABANG.CL-CONTAINERS::NODE) (SETF METABANG.CL-CONTAINERS::NEXT-NEIGHBOR
; #))
; (WHEN (NOT METABANG.CL-CONTAINERS::NEXT-NEIGHBOR)
; (SETF # METABANG.CL-CONTAINERS::NODE))))
; --> LET SYMBOL-MACROLET LET FUNCALL
; ==>
; (SB-C::%FUNCALL
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY)
; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0
; 'METABANG.CL-CONTAINERS::KEY)))
; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE))
;
; note: could not stack allocate:
; (WITH-SLOTS (SORTER KEY TEST)
; LIST
; (LET ((NODE-KEY (FUNCALL KEY (ELEMENT NODE)))
; (NEXT-NEIGHBOR (NEXT-ITEM NODE)))
; (DECLARE (DYNAMIC-EXTENT NODE-KEY NEXT-NEIGHBOR))
; (LOOP WHILE (AND NEXT-NEIGHBOR
; (NOT
; (FUNCALL SORTER NODE-KEY
; (FUNCALL KEY (ELEMENT NEXT-NEIGHBOR)))))
; DO (SETF (PREVIOUS-ITEM NEXT-NEIGHBOR) (PREVIOUS-ITEM NODE)
; (NEXT-ITEM NODE) (NEXT-ITEM NEXT-NEIGHBOR)) (WHEN
; (NOT
; (EQ
; NEXT-NEIGHBOR
; (LAST-ELEMENT
; LIST)))
; (SETF (PREVIOUS-ITEM
; (NEXT-ITEM
; NEXT-NEIGHBOR))
; NODE)) (IF (NOT
; (EQ
; NODE
; (FIRST-ELEMENT
; LIST)))
; (SETF (NEXT-ITEM
; (PREVIOUS-ITEM
; NEXT-NEIGHBOR))
; NEXT-NEIGHBOR)
; (SETF (FIRST-ELEMENT
; LIST)
; NEXT-NEIGHBOR)) (SETF (PREVIOUS-ITEM
; NODE)
; NEXT-NEIGHBOR
; (NEXT-ITEM
; NEXT-NEIGHBOR)
; NODE) (SETF NEXT-NEIGHBOR
; (NEXT-ITEM
; NODE)))
; (WHEN (NOT NEXT-NEIGHBOR) (SETF (LAST-ELEMENT LIST) NODE))))
; (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NODE)
;
; note: could not stack allocate: (NEXT-ITEM NODE)
; processing (DEFMETHOD UPDATE-ITEM ...)
; processing (DEFMETHOD UPDATE-ITEM ...)
; processing (DEFMETHOD UPDATE-ITEM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/lists-tmpZC0L7XF.fasl
; compilation finished in 0:00:02.883
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-containers" "dev" "lists">
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/bags-and-sets.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* ABSTRACT-BAG/SET-CONTAINER ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFCLASS* BAG-CONTAINER ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD SEARCH-FOR-MATCH ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFCLASS* SET-CONTAINER ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFCLASS* BAG/SET-CONTAINER ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD FIND-VALUE ...)
; processing (DEFCLASS* KEYED-BAG/SET-CONTAINER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/bags-and-sets-tmpG1EPLKU8.fasl
; compilation finished in 0:00:00.899
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/ring-buffers.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* RING-BUFFER ...)
; processing (DEFUN MAKE-RING-BUFFER ...)
; processing (DEFMETHOD MAKE-CONTAINER ...)
; processing (DEFMETHOD ITEM-AT ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/ring-buffers.lisp
; in: DEFMETHOD ITEM-AT (RING-BUFFER)
; (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; The binding of NUMBER is not a REAL:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD ITEM-AT! ...)
; file: /usr/share/common-lisp/source/cl-containers/dev/ring-buffers.lisp
; in: DEFMETHOD ITEM-AT! (RING-BUFFER T)
; (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; The binding of NUMBER is not a REAL:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD INCREMENT-END ...)
; processing (DEFMETHOD NEXT-ITEM ...)
; processing (DEFMETHOD CURRENT-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD DELETE-FIRST ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/ring-buffers-tmpCSCAXUZU.fasl
; compilation finished in 0:00:00.380
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-containers" "dev" "ring-buffers">
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/miscellaneous.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFUN MERGE-ELEMENTS ...)
; processing (DEFUN MERGE-NODES ...)
; processing (DEFUN %MERGE-HELPER ...)
; processing (DEFUN ELEMENT-COUNTS ...)
; processing (DEFUN NODE-COUNTS ...)
; processing (DEFUN %CONTAINER-COUNTS ...)
; processing (DEFUN MAP-WINDOW-OVER-ELEMENTS ...)
; processing (DEFUN MAP-WINDOW-OVER-NODES ...)
; processing (DEFUN COLLECT-WINDOW-OVER-ELEMENTS ...)
; processing (DEFUN COLLECT-WINDOW-OVER-NODES ...)
; processing (DEFUN MAP-WINDOW-OVER-ELEMENTS-HELPER ...)
; processing (DEFUN MAP-PAIRS ...)
; processing (DEFUN COLLECT-PAIRS ...)
; processing (DEFMETHOD UNIQUE-ELEMENTS ...)
; processing (DEFMETHOD UNIQUE-ELEMENTS ...)
; processing (DEFMETHOD UNIQUE-NODES ...)
; processing (DEFMETHOD UNIQUE-NODES ...)
; processing (DEFUN %UNIQUE-ELEMENTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/miscellaneous-tmpRYD7MA6L.fasl
; compilation finished in 0:00:00.704
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/associative.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFMETHOD SOME-KEY-VALUE-P ...)
; processing (DEFMETHOD EVERY-KEY-VALUE-P ...)
; processing (DEFMETHOD SAMEP ...)
; processing (DEFMETHOD COLLECT-KEYS ...)
; processing (DEFMETHOD SEARCH-FOR-KEY ...)
; processing (DEFMETHOD REMOVE-ITEMS-IF ...)
; processing (DEFMETHOD REMOVE-ITEMS-IF ...)
; processing (DEFMETHOD COUNT-ITEMS ...)
; processing (DEFMETHOD COUNT-ELEMENTS ...)
; processing (DEFMETHOD COUNT-ELEMENTS ...)
; processing (DEFMETHOD COUNT-ELEMENTS-IF ...)
; processing (DEFMETHOD COUNT-ELEMENTS-IF ...)
; processing (DEFMETHOD PRINT-CONTAINER-SUMMARY ...)
; processing (DEFUN MAKE-ARRAY-CONTAINER ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFMETHOD MAKE-CONTAINER ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD DIMENSIONS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFMETHOD TOTAL-SIZE ...)
; processing (DEFUN SPARSE-ARRAY-ROW-MAJOR-INDEX ...)
; processing (DEFUN SPARSE-ARRAY-VALUE-TO-INDEX ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD ITEM-AT-1 ...)
; processing (DEFMETHOD ITEM-AT-1! ...)
; processing (DEFMETHOD (SETF ITEM-AT-1) ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; processing (DEFUN DESCEND-HT ...)
; processing (DEFUN FIND-OR-CREATE-HT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD PRINT-CONTAINER ...)
; processing (DEFMETHOD PRINT-CONTAINER ...)
; processing (DEFMETHOD INITIALIZE-CONTAINER ...)
; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT-1 ...)
; processing (DEFMETHOD ITEM-AT-1! ...)
; processing (DEFUN MAYBE-SET-INITIAL-ELEMENT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATE-KEYS ...)
; processing (DEFMETHOD REVERSE-FIND ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; processing (DEFMETHOD SORT-KEYS ...)
; processing (DEFMETHOD SORT-ELEMENTS ...)
; processing (DEFMETHOD SORT-CONTAINER ...)
; processing (DEFCLASS* KEYED-ASSOCIATIVE-CONTAINER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN IDENTITY-2 ...)
; processing (DEFMETHOD ITEM-KEY ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFGENERIC KEY-EXISTS-P ...)
; processing (DEFMETHOD KEY-EXISTS-P ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/associative-tmpFDF5CJMR.fasl
; compilation finished in 0:00:03.707
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/compatibility.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFMETHOD ITERATABLE-P ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD ELEMENT-POSITION ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD SEARCH-FOR-MATCH ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD FIND-ITEM ...)
; processing (DEFMETHOD SEARCH-FOR-ITEM ...)
; processing (DEFMETHOD SEARCH-FOR-ELEMENT ...)
; processing (DEFMETHOD REDUCE-ELEMENTS ...)
; processing (DEFMETHOD SOME-ITEM-P ...)
; processing (DEFMETHOD SOME-ELEMENT-P ...)
; processing (DEFMETHOD EVERY-ITEM-P ...)
; processing (DEFMETHOD EVERY-ELEMENT-P ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATABLE-P ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFMETHOD SEARCH-FOR-MATCH ...)
; processing (DEFMETHOD SOME-ITEM-P ...)
; processing (DEFMETHOD SOME-ELEMENT-P ...)
; processing (DEFMETHOD EVERY-ITEM-P ...)
; processing (DEFMETHOD EVERY-ELEMENT-P ...)
; processing (DEFMETHOD SORT-ELEMENTS ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD ITERATABLE-P ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD FIRST-ELEMENT ...)
; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; processing (DEFMETHOD LAST-ELEMENT ...)
; processing (DEFMETHOD (SETF LAST-ELEMENT) ...)
; processing (DEFMETHOD SEARCH-FOR-MATCH ...)
; processing (DEFMETHOD SOME-ELEMENT-P ...)
; processing (DEFMETHOD EVERY-ELEMENT-P ...)
; processing (DEFMETHOD NTH-ELEMENT ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD ITERATABLE-P ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD COLLECT-KEYS ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT! ...)
; processing (DEFMETHOD ITEM-AT-1 ...)
; processing (DEFMETHOD ITEM-AT-1! ...)
; processing (DEFMETHOD PRINT-CONTAINER ...)
; processing (DEFMETHOD ITEM-AT ...)
; processing (DEFMETHOD ITEM-AT-1 ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; processing (DEFMETHOD COLLECT-KEY-VALUE ...)
; processing (DEFMETHOD COLLECT-KEYS ...)
; processing (DEFMETHOD DELETE-ITEM-AT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/compatibility-tmpBAUC3ZZO.fasl
; compilation finished in 0:00:02.436
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/quad-tree.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* QUAD-TREE ...)
; processing (DEFCLASS* FOUR-CHILD-NODE ...)
; processing (DEFCLASS* QUAD-TREE-NODE ...)
; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFMETHOD NODE-EMPTY-P ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC NOTIFY-ELEMENT-OF-CHILD-STATUS ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD EMPTY! ...)
; processing (DEFMETHOD FIND-ITEM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/quad-tree-tmpWVY5AO00.fasl
; compilation finished in 0:00:00.329
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/heaps.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* HEAP-CONTAINER ...)
; processing (DEFCLASS* HEAP-NODE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD L-CHILD ...)
; processing (DEFMETHOD R-CHILD ...)
; processing (DEFMETHOD HEAP-NODE-PARENT ...)
; processing (DEFMETHOD L-CHILD-INDEX ...)
; processing (DEFMETHOD R-CHILD-INDEX ...)
; processing (DEFMETHOD NODE-PARENT-INDEX ...)
; processing (DEFMETHOD EXCHANGE-HEAP-NODES ...)
; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; processing (DEFMETHOD HEAPIFY ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD BIGGEST-ITEM ...)
; processing (DEFMETHOD DELETE-BIGGEST-ITEM ...)
; processing (DEFMETHOD DELETE-ITEM ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFCLASS* K-BEST-HEAP-CONTAINER ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/heaps-tmpDUIE8I94.fasl
; compilation finished in 0:00:00.640
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/container-mixins.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* FILTERED-CONTAINER-MIXIN ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD COLLECT-ELEMENTS ...)
; processing (DEFMETHOD ITERATE-KEY-VALUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/container-mixins-tmpX60TLF73.fasl
; compilation finished in 0:00:00.415
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/union-find-container.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* UNION-FIND-NODE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD MAKE-SET ...)
; processing (DEFMETHOD GRAFT-NODES ...)
; processing (DEFMETHOD FIND-SET ...)
; processing (DEFMETHOD LINK-NODES ...)
; processing (DEFCLASS* UNION-FIND-CONTAINER ...)
; processing (DEFMETHOD INSERT-ITEM ...)
; processing (DEFMETHOD REPRESENTATIVE ...)
; processing (DEFMETHOD REPRESENTATIVE-NODE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/union-find-container-tmpVX7F4JGZ.fasl
; compilation finished in 0:00:00.245
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/package-container.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* PACKAGE-CONTAINER ...)
; processing (DEFMETHOD (SETF PACKAGES) ...)
; processing (DEFMETHOD (SETF PACKAGES) ...)
; processing (DEFMETHOD ITERATE-ELEMENTS ...)
; processing (DEFMETHOD SIZE ...)
; processing (DEFUN BOUND-SYMBOLS-IN-PACKAGE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/package-container-tmpADZ81LZH.fasl
; compilation finished in 0:00:00.192
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/iterator-api.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFGENERIC MAKE-ITERATOR ...)
; processing (DEFGENERIC PRINT-ITERATOR ...)
; processing (DEFGENERIC FINISH ...)
; processing (DEFGENERIC MOVE-P ...)
; processing (DEFGENERIC ELEMENT-PASSES-P ...)
; processing (DEFGENERIC MOVE ...)
; processing (DEFGENERIC BASE-CLASS-FOR-ITERATEE ...)
; processing (DEFGENERIC CLASS-FOR-CONTENTS-AS ...)
; processing (DEFGENERIC CURRENT-ELEMENT ...)
; processing (DEFGENERIC CURRENT-ELEMENT-P ...)
; processing (DEFGENERIC SETUP-INITIAL-CONTAINER ...)
; processing (DEFGENERIC ADVANCE ...)
; processing (DEFGENERIC ITERATE-FORWARD ...)
; processing (DEFGENERIC MAKE-INTERNAL-ITERATOR ...)
; processing (DEFGENERIC MOVE-FORWARD ...)
; processing (DEFGENERIC MOVE-FORWARD-TO-NEXT-ELEMENT ...)
; processing (DEFGENERIC MOVE-INTERNAL ...)
; processing (DEFGENERIC NEXT-ELEMENT ...)
; processing (DEFGENERIC OPEN-FILE-FOR-ITERATOR ...)
; processing (DEFGENERIC RESET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/iterator-api-tmp1DF9Q119.fasl
; compilation finished in 0:00:00.023
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/iterators.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CL-CONTAINERS)
; processing (DEFCONSTANT +ITERATOR-BEFORE-BEGINNING+ ...)
; processing (DEFCONSTANT +ITERATOR-AFTER-END+ ...)
; processing (DEFCONDITION BASIC-ITERATOR-CONDITION ...)
; processing (DEFCONDITION NO-CURRENT-ELEMENT-ERROR ...)
; processing (DEFCLASS* ABSTRACT-GENERATOR ...)
; processing (DEFMETHOD FINISH ...)
; processing (DEFCLASS* BASIC-ITERATOR ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD SETUP-INITIAL-CONTAINER ...)
; processing (DEFMETHOD PRINT-ITERATOR ...)
; processing (DEFMETHOD RESET ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD PRINT-ITERATOR ...)
; processing (DEFCLASS* FORWARD-ITERATOR ...)
; processing (DEFMETHOD ITERATE-CONTAINER ...)
; processing (DEFMETHOD ITERATE-NODES ...)
; processing (DEFMETHOD EMPTY-P ...)
; processing (DEFMETHOD ELEMENT ...)
; processing (DEFMETHOD NEXT-ELEMENT ...)
; processing (DEFMETHOD CURRENT-ELEMENT-P ...)
; processing (DEFMETHOD ELEMENT ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFUN MOVE-FORWARD-P ...)
; processing (DEFMETHOD MOVE-FORWARD ...)
; processing (DEFMETHOD ITERATE-FORWARD ...)
; processing (DEFCLASS* TRANSFORMING-ITERATOR-MIXIN ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFCLASS* BASIC-FILTERED-ITERATOR-MIXIN ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFCLASS* FILTERED-ITERATOR-MIXIN ...)
; processing (DEFMETHOD ELEMENT-PASSES-P ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD MOVE-FORWARD-TO-NEXT-ELEMENT ...)
; processing (DEFCLASS* UNIQUE-VALUE-ITERATOR-MIXIN ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD ELEMENT-PASSES-P ...)
; processing (DEFMETHOD ELEMENT ...)
; processing (DEFCLASS* CIRCULAR-ITERATOR-MIXIN ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFCLASS* LIST-ITERATOR ...)
; processing (DEFMETHOD RESET ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFCLASS* ARRAY-ITERATOR ...)
; processing (DEFMETHOD RESET ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD CURRENT-ELEMENT-P ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFCLASS* HASH-TABLE-ITERATOR ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD RESET ...)
; processing (DEFMETHOD MAKE-ITERATOR ...)
; processing (DEFMETHOD MAKE-ITERATOR ...)
; processing (DEFUN MAKE-GENERATOR ...)
; processing (DEFCLASS* BASIC-GENERATOR ...)
; processing (DEFCLASS* ARITHMETIC-SEQUENCE-GENERATOR ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFCLASS* FINITE-ARITHMETIC-SEQUENCE-GENERATOR ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFUN MAP-CONTAINERS ...)
; processing (DEFUN COLLECT-CONTAINERS ...)
; processing (DEFMACRO WITH-ITERATOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/iterators-tmpEU5LE4WT.fasl
; compilation finished in 0:00:01.838
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/file-iterators.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CONTAINERS)
; processing (DEFCLASS* BASIC-STREAM-ITERATOR ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD FINISH ...)
; processing (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; processing (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; processing (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; processing (DEFCLASS* FILE-ITERATOR ...)
; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD ADVANCE ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD CURRENT-ELEMENT-P ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFCLASS* FILE-LINE-ITERATOR ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD ADVANCE ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD CURRENT-ELEMENT-P ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; processing (DEFCLASS* FILE-FORM-ITERATOR ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD ADVANCE ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD CURRENT-ELEMENT-P ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; processing (DEFCLASS* DELIMITED-ITERATOR ...)
; processing (DEFCLASS* INTERNAL-ITERATOR-MIXIN ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD MAKE-INTERNAL-ITERATOR ...)
; processing (DEFGENERIC CHARACTERIZE-ELEMENT ...)
; processing (DEFMETHOD CHARACTERIZE-ELEMENT ...)
; processing (DEFMETHOD MOVE ...)
; processing (DEFMETHOD MOVE-INTERNAL ...)
; processing (DEFMETHOD ADVANCE ...)
; processing (DEFMETHOD COMBINE-ELEMENTS ...)
; processing (DEFMETHOD CURRENT-ELEMENT ...)
; processing (DEFMETHOD CURRENT-ELEMENT-P ...)
; processing (DEFMETHOD MOVE-P ...)
; processing (DEFCLASS* WORD-ITERATOR ...)
; processing (DEFCLASS* LINE-ITERATOR ...)
; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/file-iterators-tmpXNNQ08K9.fasl
; compilation finished in 0:00:01.212
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/dynamic-classes.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CL-CONTAINERS)
; processing (DEFVAR *DEFINE-CLASS-FORM* ...)
; processing (DEFUN SIMPLE-DEFINE-CLASS ...)
; processing (DEFUN SIMPLE-DEFINE-CLASS-NAME ...)
; processing (DEFUN DEFINE-CLASS ...)
; processing (DEFUN MAP-SUBCLASSES ...)
; processing (DEFUN SUPERCLASSES ...)
; processing (DEFUN FIND-EXISTING-SUBCLASS ...)
; processing (DEFUN FIND-OR-CREATE-CLASS ...)
; processing (DEFUN REMOVE-REDUNDANT-CLASSES ...)
; processing (DEFUN CLASS-REDUNDANT-P ...)
; processing (DEFGENERIC INCLUDE-CLASS-DEPENDENCIES ...)
; processing (DEFGENERIC EXISTING-SUBCLASS ...)
; processing (DEFVAR *PARAMETER-DYNAMIC-CLASS-TABLE* ...)
; processing (DEFUN TYPE->PARAMETER-TABLE ...)
; processing (DEFUN (SETF TYPE->PARAMETER-TABLE) ...)
; processing (DEFUN PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN (SETF PARAMETER->DYNAMIC-CLASS) ...)
; processing (DEFUN TABLE&PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN ADD-PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN ADD-DYNAMIC-CLASS-FOR-PARAMETERS ...)
; processing (DEFUN EMPTY-ADD-PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN EMPTY-ALL-ADD-PARAMETER->DYNAMIC-CLASS ...)
; processing (DEFUN DYNAMIC-CLASS-INFORMATION ...)
; processing (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; processing (DEFMETHOD EXISTING-SUBCLASS ...)
; processing (DEFUN DETERMINE-DYNAMIC-CLASS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/dynamic-classes-tmpV7SOUPJ4.fasl
; compilation finished in 0:00:00.494
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/dynamic-class-defs.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:CL-CONTAINERS)
; processing (DEFVAR *CURRENT-ITERATEE* ...)
; processing (DEFMETHOD MAKE-CONTAINER ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; processing (DEFMETHOD EXISTING-SUBCLASS ...)
; processing (DEFMETHOD EXISTING-SUBCLASS ...)
; processing (DEFUN DETERMINE-ITERATOR-CLASS ...)
; processing (DEFUN DETERMINE-GENERATOR-CLASS ...)
; processing (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/dynamic-class-defs-tmp5F1DDYL7.fasl
; compilation finished in 0:00:00.227
; compiling file "/usr/share/common-lisp/source/anaphora/packages.lisp" (written 28 AUG 2019 12:37:43 AM):
; processing (DEFPACKAGE :ANAPHORA ...)
; processing (DEFPACKAGE :ANAPHORA-BASIC ...)
; processing (DEFPACKAGE :ANAPHORA-SYMBOL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/anaphora/packages-tmpYB9JG32.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/anaphora/early.lisp" (written 28 AUG 2019 12:37:43 AM):
; processing (IN-PACKAGE :ANAPHORA)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFMACRO IGNORE-FIRST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/anaphora/early-tmp6S6SS7CW.fasl
; compilation finished in 0:00:00.085
; compiling file "/usr/share/common-lisp/source/anaphora/symbolic.lisp" (written 28 AUG 2019 12:37:43 AM):
; processing (IN-PACKAGE :ANAPHORA)
; processing (DEFMACRO INTERNAL-SYMBOL-MACROLET ...)
; processing (DEFINE-SETF-EXPANDER INTERNAL-SYMBOL-MACROLET ...)
; processing (WITH-UNIQUE-NAMES (S-INDICATOR CURRENT-S-INDICATOR) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/anaphora/symbolic-tmpWU6UJ7LI.fasl
; compilation finished in 0:00:00.103
; compiling file "/usr/share/common-lisp/source/anaphora/anaphora.lisp" (written 28 AUG 2019 12:37:43 AM):
; processing (IN-PACKAGE :ANAPHORA)
; processing (DEFMACRO ALET ...)
; processing (DEFMACRO SLET ...)
; processing (DEFMACRO AAND ...)
; processing (DEFMACRO SOR ...)
; processing (DEFMACRO AIF ...)
; processing (DEFMACRO SIF ...)
; processing (DEFMACRO ASIF ...)
; processing (DEFMACRO APROG1 ...)
; processing (DEFMACRO AWHEN ...)
; processing (DEFMACRO SWHEN ...)
; processing (DEFMACRO SUNLESS ...)
; processing (DEFMACRO ACASE ...)
; processing (DEFMACRO SCASE ...)
; processing (DEFMACRO AECASE ...)
; processing (DEFMACRO SECASE ...)
; processing (DEFMACRO ACCASE ...)
; processing (DEFMACRO SCCASE ...)
; processing (DEFMACRO ATYPECASE ...)
; processing (DEFMACRO STYPECASE ...)
; processing (DEFMACRO AETYPECASE ...)
; processing (DEFMACRO SETYPECASE ...)
; processing (DEFMACRO ACTYPECASE ...)
; processing (DEFMACRO SCTYPECASE ...)
; processing (DEFMACRO ACOND ...)
; processing (DEFMACRO SCOND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/anaphora/anaphora-tmpN6VGFAD6.fasl
; compilation finished in 0:00:00.593
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/package.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:CL-MARKDOWN ...)
; processing (DEFPACKAGE #:CL-MARKDOWN-USER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/package-tmp79PP3597.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/api.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFGENERIC RESET ...)
; processing (DEFGENERIC (SETF DOCUMENT-PROPERTY) ...)
; processing (DEFGENERIC RENDER-TO-STREAM ...)
; processing (DEFGENERIC MAIN-PARENT ...)
; processing (DEFGENERIC HANDLE-SPANS ...)
; processing (DEFGENERIC SCAN-ONE-SPAN ...)
; processing (DEFGENERIC PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFGENERIC UNCONVERT-ESCAPES ...)
; processing (DEFGENERIC RENDER ...)
; processing (DEFGENERIC IT-STARTS-WITH-BLOCK-LEVEL-HTML-P ...)
; processing (DEFGENERIC MARKUP-CLASS-MERGABLE-P ...)
; processing (DEFGENERIC MERGE-LINES-IN-CHUNKS ...)
; processing (DEFGENERIC CAN-MERGE-LINES-P ...)
; processing (DEFGENERIC HANDLE-PARAGRAPH-EVAL-INTERACTIONS ...)
; processing (DEFGENERIC ENCODE-HTML ...)
; processing (DEFGENERIC MARKUP-CLASS-FOR-HTML ...)
; processing (DEFGENERIC RENDER-SPAN-TO-HTML ...)
; processing (DEFGENERIC GENERATE-LINK-OUTPUT ...)
; processing (DEFGENERIC ADD-HTML-HEADER-P ...)
; processing (DEFGENERIC RENDER-PLAIN ...)
; processing (DEFGENERIC RENDER-SPAN-PLAIN ...)
; processing (DEFGENERIC PROCESS-SPAN-FOR ...)
; processing (DEFGENERIC GENERATE-LINK-OUTPUT-FOR-KIND ...)
; processing (DEFGENERIC PROCESS-SPAN ...)
; processing (DEFGENERIC PRINT-HTML-MARKUP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/api-tmpY6BKK6QS.fasl
; compilation finished in 0:00:00.048
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/definitions.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFPARAMETER *SPACES-PER-TAB* ...)
; processing (DEFPARAMETER *PARSING-ENVIRONMENT* ...)
; processing (DEFPARAMETER *CHUNK-PARSING-ENVIRONMENTS* ...)
; processing (DEFPARAMETER *SPANNER-PARSING-ENVIRONMENTS* ...)
; processing (DEFPARAMETER *HORIZONTAL-RULE-COUNT-THRESHOLD* ...)
; processing (DEFPARAMETER *DEFAULT-STREAM* ...)
; processing (DEFPARAMETER *DEFAULT-FORMAT* ...)
; processing (DEFVAR *OUTPUT-STREAM* ...)
; processing (DEFVAR *CURRENT-INDENTATION-LEVEL* ...)
; processing (DEFPARAMETER *CURRENT-DOCUMENT* ...)
; processing (DEFPARAMETER *CURRENT-FORMAT* ...)
; processing (DEFPARAMETER *RENDER-ACTIVE-FUNCTIONS* ...)
; processing (DEFPARAMETER *PARSE-ACTIVE-FUNCTIONS* ...)
; processing (DEFPARAMETER *BLOCK-LEVEL-HTML-TAGS* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/definitions-tmp33Y0RYX0.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/macros.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFMACRO DEFSIMPLE-EXTENSION ...)
; processing (DEFUN %VALIDATE-DEFEXTENSION-ARGUMENTS ...)
; processing (DEFUN %COLLECT-ARGUMENTS ...)
; processing (DEFUN %COLLECT-POSITIONALS ...)
; processing (DEFPARAMETER *EXTENSIONS* ...)
; processing (DEFMACRO DEFEXTENSION ...)
; processing (DEFUN %IMPORT/EXPORT-SYMBOL ...)
; processing (DEFMACRO AAND+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/macros-tmp1SMVY96Q.fasl
; compilation finished in 0:00:00.643
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/class-defs.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFCLASS MARKDOWN-WARNING ...)
; processing (DEFCLASS* ABSTRACT-DOCUMENT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS* DOCUMENT ...)
; processing (DEFCLASS* CHILD-DOCUMENT ...)
; processing (DEFCLASS* MULTI-DOCUMENT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS* INCLUDED-DOCUMENT ...)
; processing (DEFGENERIC DOCUMENT-PROPERTY ...)
; processing (DEFMETHOD DOCUMENT-PROPERTY ...)
; processing (DEFMETHOD (SETF DOCUMENT-PROPERTY) ...)
; processing (DEFUN FIND-LINK ...)
; processing (DEFUN FORM-PROPERTY-NAME ...)
; processing (DEFCLASS* CHUNK ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS* CHUNK-PARSING-ENVIRONMENT ...)
; processing (DEFCLASS* PARSING-ENVIRONMENT ...)
; processing (DEFUN CURRENT-CHUNK-PARSER ...)
; processing (DEFCLASS* BASIC-LINK-INFO ...)
; processing (DEFCLASS* LINK-INFO ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS* EXTENDED-LINK-INFO ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/class-defs-tmpYHZKUFP9.fasl
; compilation finished in 0:00:00.702
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/utilities.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFUN NEXT-BLOCK ...)
; processing (DEFMETHOD RENDER-TO-STREAM ...)
; processing (DEFUN ENSURE-STRING ...)
; processing (DEFMETHOD MAIN-PARENT ...)
; processing (DEFMETHOD MAIN-PARENT ...)
; processing (DEFUN ROOT-PARENT ...)
; processing (DEFUN COLLECT-LINKS ...)
; processing (DEFUN STARTS-WITH ...)
; processing (DEFUN MARKDOWN-WARNING ...)
; processing (EVAL-ALWAYS (DEFUN _MARK-RANGE ...) ...)
; processing (DEFPARAMETER +FIRST-NAME-CHARACTERS+ ...)
; processing (DEFPARAMETER +NAME-CHARACTERS+ ...)
; processing (DEFUN HTML-SAFE-NAME ...)
; processing (DEFUN STRING->LIST ...)
; processing (DEFUN PROCESS-BRACKETS ...)
; processing (DEFUN SHORT-SOURCE ...)
; processing (DEFUN COULD-BE-HTML-TAG-P ...)
; processing (DEFUN STREAM-STRING-FOR-HTML ...)
; processing (DEFUN ENCODE-STRING-FOR-HTML ...)
; processing (DEFUN ENCODE-PRE ...)
; processing (DEFUN ENCODE-STRING-FOR-TITLE ...)
; processing (DEFUN FIND-INCLUDE-FILE ...)
; processing (DEFUN PROCESS-CHILD-MARKDOWN ...)
; processing (DEFUN ASDF-SYSTEM-SOURCE-FILE ...)
; processing (DEFUN ASDF-SYSTEM-SOURCE-DIRECTORY ...)
; processing (DEFUN SYSTEM-RELATIVE-PATHNAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/utilities-tmpKC88DY7L.fasl
; compilation finished in 0:00:01.067
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/regexes.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:MARKDOWN)
; processing (DEFINE-PARSE-TREE-SYNONYM LINE-ENDS-WITH-TWO-SPACES ...)
; processing (DEFINE-PARSE-TREE-SYNONYM EMPHASIS-1 ...)
; processing (DEFINE-PARSE-TREE-SYNONYM EMPHASIS-2 ...)
; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-1 ...)
; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-2 ...)
; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-EM-1 ...)
; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-EM-2 ...)
; processing (DEFINE-PARSE-TREE-SYNONYM BACKTICK ...)
; processing (DEFINE-PARSE-TREE-SYNONYM AUTO-LINK ...)
; processing (DEFINE-PARSE-TREE-SYNONYM AUTO-MAIL ...)
; processing (DEFINE-PARSE-TREE-SYNONYM HTML ...)
; processing (DEFINE-PARSE-TREE-SYNONYM ENTITY ...)
; processing (DEFINE-PARSE-TREE-SYNONYM HOSTNAME-CHAR ...)
; processing (DEFINE-PARSE-TREE-SYNONYM HOSTNAME ...)
; processing (DEFINE-PARSE-TREE-SYNONYM PATHNAME-CHAR ...)
; processing (DEFINE-PARSE-TREE-SYNONYM URL-PATHNAME ...)
; processing (DEFINE-PARSE-TREE-SYNONYM URL ...)
; processing (DEFINE-PARSE-TREE-SYNONYM URL-NO-REGISTERS ...)
; processing (DEFINE-PARSE-TREE-SYNONYM BRACKETED ...)
; processing (DEFPARAMETER *ESCAPE-CHARACTERS* ...)
; processing (DEFINE-PARSE-TREE-SYNONYM VALID-ESCAPE ...)
; processing (DEFINE-PARSE-TREE-SYNONYM ESCAPED-CHARACTER ...)
; processing (DEFINE-PARSE-TREE-SYNONYM ESCAPE-KLUDGE ...)
; processing (DEFINE-PARSE-TREE-SYNONYM LINK+TITLE ...)
; processing (DEFINE-PARSE-TREE-SYNONYM INLINE-LINK ...)
; processing (DEFINE-PARSE-TREE-SYNONYM REFERENCE-LINK ...)
; processing (DEFINE-PARSE-TREE-SYNONYM LINK-LABEL ...)
; processing (DEFINE-PARSE-TREE-SYNONYM EXTENDED-LINK-LABEL ...)
; processing (DEFINE-PARSE-TREE-SYNONYM CODED-REFERENCE-LINK ...)
; processing (DEFINE-PARSE-TREE-SYNONYM BRACKETED ...)
; processing (DEFINE-PARSE-TREE-SYNONYM INLINE-IMAGE ...)
; processing (DEFINE-PARSE-TREE-SYNONYM INLINE-IMAGE ...)
; processing (DEFINE-PARSE-TREE-SYNONYM REFERENCE-IMAGE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/regexes-tmp2S2S8XGZ.fasl
; compilation finished in 0:00:00.121
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/spans.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFVAR *CURRENT-SPAN* ...)
; processing (DEFSTRUCT (MARKDOWN-SCANNER #) ...)
; processing (SETF (ITEM-AT-1 *SPANNER-PARSING-ENVIRONMENTS* ...) ...)
; processing (SETF (ITEM-AT-1 *SPANNER-PARSING-ENVIRONMENTS* ...) ...)
; processing (DEFUN SCANNERS-FOR-CHUNK ...)
; processing (DEFMETHOD HANDLE-SPANS ...)
; processing (DEFMETHOD HANDLE-SPANS ...)
; processing (DEFUN SCAN-LINES-WITH-SCANNERS ...)
; processing (DEFMETHOD SCAN-ONE-SPAN ...)
; processing (DEFMETHOD SCAN-ONE-SPAN ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD SCAN-ONE-SPAN ...)
; processing (DEFUN COMBINE-STRINGS ...)
; processing (DEFUN CONVERT-ESCAPE-TEMPORARILY ...)
; processing (DEFMETHOD UNCONVERT-ESCAPES ...)
; processing (DEFMETHOD UNCONVERT-ESCAPES ...)
; file: /usr/share/common-lisp/source/cl-markdown/dev/spans.lisp
; in: DEFMETHOD UNCONVERT-ESCAPES (STRING)
; (FIRST CL-MARKDOWN::REGISTERS)
; --> CAR SB-C::%REST-REF AND IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a STRING:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD UNCONVERT-ESCAPES ...)
; processing (DEFMETHOD UNCONVERT-ESCAPES ...)
; processing (DEFMETHOD UNCONVERT-ESCAPES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/spans-tmpRH56ULGY.fasl
; compilation finished in 0:00:00.762
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-markdown" "dev" "spans">
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/markdown.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFUN MARKDOWN ...)
; processing (DEFUN CONTAINING-DIRECTORY ...)
; processing (DEFMETHOD RENDER ...)
; processing (DEFMETHOD RENDER ...)
; processing (DEFMETHOD RESET ...)
; processing (DEFUN NULL-STRIPPER ...)
; processing (DEFUN ONE-TAB-STRIPPER ...)
; processing (DEFUN BLOCKQUOTE-STRIPPER ...)
; processing (DEFUN BLOCKQUOTE-COUNT ...)
; processing (DEFUN LINE-INDENTATION ...)
; processing (DEFUN LINE-CHANGES-INDENTATION-P ...)
; processing (DEFUN LINE-STARTS-WITH-BULLET-P ...)
; processing (DEFUN CHAR-IS-TAB-OR-SPACE-P ...)
; processing (DEFUN CHAR-IS-BULLET-P ...)
; processing (DEFUN LINE-STARTS-WITH-NUMBER-P ...)
; processing (DEFUN LINE-IS-EMPTY-P ...)
; processing (DEFUN LINE-IS-NOT-EMPTY-P ...)
; processing (DEFUN LINE-IS-BLOCKQUOTE-P ...)
; processing (DEFUN LINE-IS-CODE-P ...)
; processing (DEFUN LINE-COULD-BE-HEADER-MARKER-P ...)
; processing (DEFUN LINE-IS-LINK-LABEL-P ...)
; processing (DEFUN LINE-IS-EXTENDED-LINK-LABEL-P ...)
; processing (DEFUN LINE-OTHER-P ...)
; processing (DEFUN HORIZONTAL-RULE-CHAR-P ...)
; processing (DEFUN LINE-IS-HORIZONTAL-RULE-P ...)
; processing (SETF (ITEM-AT-1 *CHUNK-PARSING-ENVIRONMENTS* ...) ...)
; processing (SETF (ITEM-AT-1 *CHUNK-PARSING-ENVIRONMENTS* ...) ...)
; processing (DEFUN MAYBE-STRIP-LINE ...)
; processing (DEFUN CHUNK-SOURCE ...)
; processing (DEFUN HANDLE-HORIZONTAL-RULES ...)
; processing (DEFMETHOD IT-STARTS-WITH-BLOCK-LEVEL-HTML-P ...)
; processing (DEFMETHOD IT-STARTS-WITH-BLOCK-LEVEL-HTML-P ...)
; processing (DEFUN HANDLE-PARAGRAPHS ...)
; processing (DEFUN HANDLE-BULLET-PARAGRAPHS ...)
; processing (DEFUN HANDLE-ATX-HEADERS ...)
; processing (DEFUN MAKE-HEADER ...)
; processing (DEFUN ATX-HEADER-P ...)
; processing (DEFUN ATX-HEADER-MARKUP-CLASS ...)
; processing (DEFUN REMOVE-ATX-HEADER ...)
; processing (DEFUN CAN-MERGE-CHUNKS-P ...)
; processing (DEFMETHOD MARKUP-CLASS-MERGABLE-P ...)
; processing (DEFMETHOD MARKUP-CLASS-MERGABLE-P ...)
; processing (DEFUN MERGE-CHUNKS-IN-DOCUMENT ...)
; processing (DEFUN MERGE-CHUNKS ...)
; processing (DEFMETHOD MERGE-LINES-IN-CHUNKS ...)
; processing (DEFMETHOD MERGE-LINES-IN-CHUNKS ...)
; processing (DEFMETHOD MERGE-LINES-IN-CHUNKS ...)
; processing (DEFMETHOD CAN-MERGE-LINES-P ...)
; processing (DEFMETHOD CAN-MERGE-LINES-P ...)
; processing (DEFUN HANDLE-SETEXT-HEADERS ...)
; processing (DEFUN REMOVED-IGNORED-CHUNKS? ...)
; processing (DEFUN SETEXT-HEADER-MARKUP-CLASS ...)
; processing (DEFUN HANDLE-LINK-REFERENCE-TITLES ...)
; processing (DEFUN HANDLE-EXTENDED-LINK-REFERENCES ...)
; processing (DEFUN LINE-COULD-BE-LINK-REFERENCE-TITLE-P ...)
; processing (DEFUN HANDLE-BULLET-LISTS ...)
; processing (DEFUN REMOVE-BULLET ...)
; processing (DEFUN HANDLE-NUMBER-LISTS ...)
; processing (DEFUN REMOVE-NUMBER ...)
; processing (DEFUN HANDLE-BLOCKQUOTES ...)
; processing (DEFUN REMOVE-BLOCKQUOTE ...)
; processing (DEFUN HANDLE-CODE ...)
; processing (DEFUN REMOVE-INDENT ...)
; processing (DEFUN CANONIZE-DOCUMENT ...)
; processing (DEFUN CANONIZE-CHUNK-MARKUP-CLASS ...)
; processing (DEFUN CANONIZE-MARKUP-CLASS ...)
; processing (DEFUN CLEANUP ...)
; processing (DEFUN REMOVE-EMPTY-BITS ...)
; processing (DEFMETHOD HANDLE-PARAGRAPH-EVAL-INTERACTIONS ...)
; processing (DEFMETHOD HANDLE-PARAGRAPH-EVAL-INTERACTIONS ...)
; processing (DEFUN CHUNK-WANTS-PARAGRAPH-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/markdown-tmpASYD8V9R.fasl
; compilation finished in 0:00:01.805
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/html.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFSTRUCT (HTML-MARKUP # ...) ...)
; processing (DEFMETHOD PRINT-HTML-MARKUP ...)
; processing (DEFPARAMETER *MARKUP->HTML* ...)
; processing (DEFVAR *MAGIC-SPACE-P* ...)
; processing (DEFVAR *MAGIC-LINE-P* ...)
; processing (DEFPARAMETER *MAGIC-SPACE* ...)
; processing (DEFPARAMETER *MAGIC-LINE* ...)
; processing (DEFGENERIC RENDER-TO-HTML ...)
; processing (DEFMETHOD RENDER ...)
; processing (DEFUN HTML-BLOCK-MARKUP ...)
; processing (DEFUN HTML-INNER-BLOCK-MARKUP ...)
; processing (DEFMETHOD RENDER-TO-HTML ...)
; processing (DEFMETHOD ENCODE-HTML ...)
; processing (DEFMETHOD ENCODE-HTML ...)
; processing (DEFMETHOD MARKUP-CLASS-FOR-HTML ...)
; processing (DEFMETHOD RENDER-TO-HTML ...)
; processing (DEFMETHOD RENDER-TO-HTML ...)
; processing (DEFUN OUTPUT-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD GENERATE-LINK-OUTPUT ...)
; processing (DEFMETHOD GENERATE-LINK-OUTPUT ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFUN OUTPUT-LINK ...)
; processing (DEFUN OUTPUT-IMAGE ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFUN STREAM-OUT-MARKUP ...)
; processing (DEFMETHOD RENDER-TO-HTML ...)
; processing (DEFMETHOD ADD-HTML-HEADER-P ...)
; processing (DEFMETHOD ADD-HTML-HEADER-P ...)
; processing (DEFUN INNER-BLOCK ...)
; processing (DEFVAR *HTML-META* ...)
; processing (DEFUN GENERATE-HTML-HEADER ...)
; processing (DEFUN GENERATE-DOCTYPE ...)
; processing (DEFUN INSERT-STYLE-SHEET ...)
; processing (DEFUN OUTPUT-ANCHOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/html-tmp6WOKQBNY.fasl
; compilation finished in 0:00:01.627
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/plain.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFMETHOD RENDER ...)
; processing (DEFMETHOD RENDER-PLAIN ...)
; processing (DEFMETHOD RENDER-PLAIN ...)
; processing (DEFMETHOD RENDER-PLAIN ...)
; processing (DEFMETHOD RENDER-PLAIN ...)
; processing (DEFMETHOD RENDER-SPAN-PLAIN ...)
; processing (DEFMETHOD RENDER-SPAN-PLAIN ...)
; processing (DEFMETHOD RENDER-SPAN-PLAIN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/plain-tmpBJ6R22VJ.fasl
; compilation finished in 0:00:00.217
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/multiple-documents.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFUN MARKDOWN-MANY ...)
; processing (DEFUN MERGE-ARGUMENTS ...)
; processing (DEFUN TRANSFER-DOCUMENT-DATA ...)
; processing (DEFUN TRANSFER-DOCUMENT-METADATA ...)
; processing (DEFUN TRANSFER-SELECTED-PROPERTIES ...)
; processing (DEFUN TRANSFER-LINK-INFO ...)
; processing (DEFGENERIC TRANSFER-1-LINK-INFO ...)
; processing (DEFMETHOD TRANSFER-1-LINK-INFO ...)
; processing (DEFUN RELATIVE-URL-WRT-DESTINATION ...)
; processing (DEFUN RELATIVE-URL-P ...)
; processing (DEFMETHOD TRANSFER-1-LINK-INFO ...)
; processing (DEFGENERIC UGLY-CREATE-FROM-TEMPLATE ...)
; processing (DEFMETHOD UGLY-CREATE-FROM-TEMPLATE ...)
; processing (DEFGENERIC MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFMETHOD MERGE-ENTRIES ...)
; processing (DEFUN MERGE-ELEMENTS-VIA-ITERATION ...)
; processing (DEFUN MERGE-USING-KEY-VALUE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/multiple-documents-tmp880UUINP.fasl
; compilation finished in 0:00:00.582
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/epilogue.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (SETF *PARSING-ENVIRONMENT* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/epilogue-tmpAM0AC695.fasl
; compilation finished in 0:00:00.006
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/extension-mechanisms.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFUN ADD-EXTENSION ...)
; processing (DEFINE-PARSE-TREE-SYNONYM WIKI-LINK ...)
; processing (DEFINE-PARSE-TREE-SYNONYM EVAL ...)
; processing (DEFINE-PARSE-TREE-SYNONYM EVAL-IN-CODE ...)
; processing (ADD-EXTENSION (MAKE-MARKDOWN-SCANNER :REGEX ...) ...)
; processing (ADD-EXTENSION (MAKE-MARKDOWN-SCANNER :REGEX ...) ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...)
; processing (DEFUN RENDER-HANDLE-EVAL ...)
; processing (DEFUN CANONIZE-COMMAND ...)
; processing (DEFMETHOD PROCESS-SPAN ...)
; processing (DEFMETHOD PROCESS-SPAN ...)
; processing (DEFUN PROCESS-HANDLE-EVAL ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...)
; processing (DEFUN %PULL-ARGUMENTS-FROM-STRING ...)
; processing (DEFMETHOD GENERATE-LINK-OUTPUT-FOR-KIND ...)
; processing (DEFEXTENSION (GLOSSARY) ...)
; processing (DEFMETHOD GENERATE-LINK-OUTPUT-FOR-KIND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/extension-mechanisms-tmp2E6CM8AD.fasl
; compilation finished in 0:00:00.433
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/extensions.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFSIMPLE-EXTENSION TODAY ...)
; processing (DEFSIMPLE-EXTENSION NOW ...)
; processing (DEFEXTENSION (COMMENT :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (REMARK :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (ANCHOR :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (PROPERTY :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (IFDEF :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (SET-PROPERTY :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (TABLE-OF-CONTENTS :ARGUMENTS ...) ...)
; processing (DEFUN COLLECT-TOC-HEADINGS ...)
; processing (DEFSIMPLE-EXTENSION TOC-LINK ...)
; processing (DEFUN MAKE-REF ...)
; processing (DEFUN ADD-TOC-ANCHORS ...)
; processing (DEFUN SIMPLE-ANCHOR-P ...)
; processing (DEFUN HEADER-P ...)
; processing (DEFEXTENSION (ABBREV :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (INCLUDE :ARGUMENTS ...) ...)
; processing (DEFEXTENSION (INCLUDE-IF :ARGUMENTS ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/extensions-tmpZNDJ6CK7.fasl
; compilation finished in 0:00:00.626
; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/footnotes.lisp" (written 06 OCT 2010 03:06:46 PM):
; processing (IN-PACKAGE #:CL-MARKDOWN)
; processing (DEFCLASS* FOOTNOTE-INFO ...)
; processing (SETF *EXTENSIONS* ...)
; processing (PUSH (LIST # ...) ...)
; processing (SETF *EXTENSIONS* ...)
; processing (PUSH (LIST # ...) ...)
; processing (DEFUN FOOTNOTE ...)
; processing (DEFUN FOOTNOTES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-markdown/dev/footnotes-tmpFTHRNUUF.fasl
; compilation finished in 0:00:00.172
; compiling file "/usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8.lisp" (written 01 OCT 2011 03:17:57 PM):
; processing (DEFPACKAGE :TRIVIAL-UTF-8 ...)
; processing (IN-PACKAGE :TRIVIAL-UTF-8)
; processing (DEFPARAMETER *OPTIMIZE* ...)
; processing (DEFUN UTF-8-BYTE-LENGTH ...)
; processing (DEFMACRO AS-UTF-8-BYTES ...)
; processing (DEFUN STRING-TO-UTF-8-BYTES ...)
; processing (DEFUN WRITE-UTF-8-BYTES ...)
; processing (DEFINE-CONDITION UTF-8-DECODING-ERROR ...)
; processing (DECLAIM (INLINE UTF-8-GROUP-SIZE))
; processing (DEFUN UTF-8-GROUP-SIZE ...)
; processing (DEFUN UTF-8-STRING-LENGTH ...)
; processing (DEFUN GET-UTF-8-CHARACTER ...)
; processing (DEFUN UTF-8-BYTES-TO-STRING ...)
; processing (DEFUN READ-UTF-8-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8-tmpU876FAXB.fasl
; compilation finished in 0:00:01.133
; compiling file "/usr/share/common-lisp/source/uuid/uuid.lisp" (written 29 JUL 2013 03:35:41 AM):
; processing (DEFPACKAGE :UUID ...)
; processing (IN-PACKAGE :UUID)
; processing (DEFVAR *CLOCK-SEQ* ...)
; processing (DEFVAR *NODE* ...)
; processing (DEFVAR *TICKS-PER-COUNT* ...)
; processing (DEFPARAMETER *UUID-RANDOM-STATE* ...)
; processing (DEFCLASS UUID ...)
; processing (DEFUN MAKE-UUID-FROM-STRING ...)
; processing (DEFPARAMETER +NAMESPACE-DNS+ ...)
; processing (DEFPARAMETER +NAMESPACE-URL+ ...)
; processing (DEFPARAMETER +NAMESPACE-OID+ ...)
; processing (DEFPARAMETER +NAMESPACE-X500+ ...)
; processing (DEFUN GET-NODE-ID ...)
; processing (LET (# #) ...)
; processing (DEFUN FORMAT-V3OR5-UUID ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN PRINT-BYTES ...)
; processing (DEFUN FORMAT-AS-URN ...)
; processing (DEFUN MAKE-NULL-UUID ...)
; processing (DEFUN MAKE-V1-UUID ...)
; processing (DEFUN MAKE-V3-UUID ...)
; processing (DEFUN MAKE-V4-UUID ...)
; processing (DEFUN MAKE-V5-UUID ...)
; processing (DEFUN UUID= ...)
; processing (DEFUN UUID-TO-BYTE-ARRAY ...)
; processing (DEFMACRO ARR-TO-BYTES ...)
; processing (DEFUN BYTE-ARRAY-TO-UUID ...)
; processing (DEFUN DIGEST-UUID ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/uuid/uuid-tmpS0FIYVOM.fasl
; compilation finished in 0:00:00.616
; compiling file "/usr/share/common-lisp/source/cl-utilities/package.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (DEFPACKAGE :CL-UTILITIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/package-tmpU2JU52YL.fasl
; compilation finished in 0:00:00.009
; compiling file "/usr/share/common-lisp/source/cl-utilities/split-sequence.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN SPLIT-SEQUENCE ...)
; processing (DEFUN SPLIT-SEQUENCE-IF ...)
; processing (DEFUN SPLIT-SEQUENCE-IF-NOT ...)
; processing (DEFUN PARTITION ...)
; processing (DEFUN PARTITION-IF ...)
; processing (DEFUN PARTITION-IF-NOT ...)
; processing (DEFINE-COMPILER-MACRO PARTITION ...)
; processing (DEFINE-COMPILER-MACRO PARTITION-IF ...)
; processing (DEFINE-COMPILER-MACRO PARTITION-IF-NOT ...)
; processing (PUSHNEW :SPLIT-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/split-sequence-tmpOZGOOYLD.fasl
; compilation finished in 0:00:00.585
; compiling file "/usr/share/common-lisp/source/cl-utilities/with-unique-names.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFUN %WITH-UNIQUE-NAMES-BINDING-PARTS ...)
; processing (DEFINE-CONDITION LIST-BINDING-NOT-SUPPORTED ...)
; processing (DEFMACRO WITH-GENSYMS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/with-unique-names-tmp6YEALK2R.fasl
; compilation finished in 0:00:00.150
; compiling file "/usr/share/common-lisp/source/cl-utilities/once-only.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN %CHECK-ONCE-ONLY-NAMES ...)
; processing (DEFMACRO ONCE-ONLY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/once-only-tmpRIQGDY4F.fasl
; compilation finished in 0:00:00.145
; compiling file "/usr/share/common-lisp/source/cl-utilities/extremum.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFINE-CONDITION NO-EXTREMUM ...)
; processing (DEFUN COMPARATOR ...)
; file: /usr/share/common-lisp/source/cl-utilities/extremum.lisp
; in: DEFUN COMPARATOR
; (FUNCALL CL-UTILITIES::TEST (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A)
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-UTILITIES::TEST)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST is not known to be a function
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-UTILITIES::KEY)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; KEY is not known to be a function
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-UTILITIES::KEY)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; KEY is not known to be a function
; processing (DEFINE-COMPILER-MACRO COMPARATOR ...)
; processing (DEFUN ZERO-LENGTH-P ...)
; processing (DECLAIM (INLINE ZERO-LENGTH-P))
; processing (DEFMACRO WITH-CHECK-LENGTH ...)
; processing (DEFUN EXTREMUM ...)
; file: /usr/share/common-lisp/source/cl-utilities/extremum.lisp
; in: DEFUN EXTREMUM
; (DEFUN CL-UTILITIES:EXTREMUM
; (SEQUENCE CL-UTILITIES::PREDICATE
; &KEY (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0)
; CL-UTILITIES::END)
; #<(SIMPLE-ARRAY CHARACTER
; (225)) Returns the element of SEQUENCE that would appear first if the
; sequence were ordered according to SORT using PREDICATE and KEY using
; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {5594F48F}>
; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START
; CL-UTILITIES::END)
; (REDUCE
; (CL-UTILITIES::COMPARATOR CL-UTILITIES::PREDICATE CL-UTILITIES::KEY)
; SEQUENCE :START CL-UTILITIES::START :END CL-UTILITIES::END)))
; --> PROGN
; ==>
; (SB-IMPL::%DEFUN 'CL-UTILITIES:EXTREMUM
; (SB-INT:NAMED-LAMBDA CL-UTILITIES:EXTREMUM
; (SEQUENCE CL-UTILITIES::PREDICATE &KEY
; (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0)
; CL-UTILITIES::END)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; #<(SIMPLE-ARRAY CHARACTER
; (225)) Returns the element of SEQUENCE that would appear first if the
; sequence were ordered according to SORT using PREDICATE and KEY using
; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {5594F48F}>
; (BLOCK CL-UTILITIES:EXTREMUM
; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE
; CL-UTILITIES::START
; CL-UTILITIES::END)
; (REDUCE # SEQUENCE :START CL-UTILITIES::START :END
; CL-UTILITIES::END)))))
;
; caught STYLE-WARNING:
; Call to CL-UTILITIES::ZERO-LENGTH-P could not be inlined because its source
; code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
; in effect to save function definitions for inlining.
; processing (DEFINE-COMPILER-MACRO EXTREMUM ...)
; processing (DEFUN EXTREMUM-FASTKEY ...)
; file: /usr/share/common-lisp/source/cl-utilities/extremum.lisp
; in: DEFUN EXTREMUM-FASTKEY
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::X)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-UTILITIES::KEY)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; KEY is not known to be a function
; (FUNCALL CL-UTILITIES::PREDICATE CL-UTILITIES::X-KEY
; CL-UTILITIES::SMALLEST-KEY)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-UTILITIES::PREDICATE)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; PREDICATE is not known to be a function
; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START
; CL-UTILITIES::END)
; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0))
; (CL-UTILITIES::SMALLEST-KEY
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST))
; (CL-UTILITIES::CURRENT-INDEX 0)
; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #)))
; (DECLARE
; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END
; CL-UTILITIES::START)
; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END
; CL-UTILITIES::START))
; (MAP NIL
; #'(LAMBDA (CL-UTILITIES::X)
; (WHEN # #)
; (INCF CL-UTILITIES::CURRENT-INDEX))
; SEQUENCE)
; CL-UTILITIES::SMALLEST))
; --> LET IF OR LET IF >= OR LET IF
; ==>
; (LENGTH #:SEQUENCE1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (ELT SEQUENCE 0)
;
; 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.
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-UTILITIES::KEY)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; KEY is not known to be a function
; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START
; CL-UTILITIES::END)
; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0))
; (CL-UTILITIES::SMALLEST-KEY
; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST))
; (CL-UTILITIES::CURRENT-INDEX 0)
; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #)))
; (DECLARE
; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END
; CL-UTILITIES::START)
; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END
; CL-UTILITIES::START))
; (MAP NIL
; #'(LAMBDA (CL-UTILITIES::X)
; (WHEN # #)
; (INCF CL-UTILITIES::CURRENT-INDEX))
; SEQUENCE)
; CL-UTILITIES::SMALLEST))
; --> LET IF OR LET IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> LET IF OR LET IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET IF OR LET IF >= OR LET > IF
; ==>
; (> SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET IF OR LET IF >= OR LET IF = IF
; ==>
; (= SB-C::X SB-C::Y)
;
; note: forced to do full call
; unable to do #1=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 #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; processing (DEFUN EXTREMA ...)
; processing (DEFINE-CONDITION N-MOST-EXTREME-NOT-ENOUGH-ELEMENTS ...)
; processing (DEFUN N-MOST-EXTREME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/extremum-tmpMC7D4L3V.fasl
; compilation finished in 0:00:00.628
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-utilities" "extremum">
; compiling file "/usr/share/common-lisp/source/cl-utilities/read-delimited.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN READ-DELIMITED ...)
; processing (DEFINE-CONDITION READ-DELIMITED-BOUNDS-ERROR ...)
; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK ...)
; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK-ORDER ...)
; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK-START ...)
; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK-END ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/read-delimited-tmpF6417YGC.fasl
; compilation finished in 0:00:00.198
; compiling file "/usr/share/common-lisp/source/cl-utilities/expt-mod.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN EXPT-MOD ...)
; file: /usr/share/common-lisp/source/cl-utilities/expt-mod.lisp
; in: DEFUN EXPT-MOD
; (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (SINGLE-FLOAT 0.0).
; The second 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 0.0d0).
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (SINGLE-FLOAT 0.0).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (DOUBLE-FLOAT 0.0d0).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; (MOD (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) CL-UTILITIES::MODULUS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-C::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR DOUBLE-FLOAT SINGLE-FLOAT INTEGER).
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< SB-C::DIVISOR 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; ==>
; (< SB-C::DIVISOR 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; ==>
; (< NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ REM SB-C::DIVISOR)
;
; 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 second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; processing (DEFINE-COMPILER-MACRO EXPT-MOD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/expt-mod-tmpBP6KLFKN.fasl
; compilation finished in 0:00:00.078
; compiling file "/usr/share/common-lisp/source/cl-utilities/compose.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN COMPOSE ...)
; processing (DEFINE-COMPILER-MACRO COMPOSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/compose-tmpVPI5L8SY.fasl
; compilation finished in 0:00:00.052
; compiling file "/usr/share/common-lisp/source/cl-utilities/collecting.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN COLLECT ...)
; processing (DEFMACRO COLLECTING ...)
; processing (DEFMACRO WITH-COLLECTORS ...)
; processing (DEFUN %WITH-COLLECTORS-CHECK-COLLECTORS ...)
; processing (DEFUN %WITH-COLLECTORS-GENSYMS-ALIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/collecting-tmpZXPHUNLJ.fasl
; compilation finished in 0:00:00.196
; compiling file "/usr/share/common-lisp/source/cl-utilities/rotate-byte.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN ROTATE-BYTE ...)
; processing (DECLAIM (INLINE ROTATE-BYTE))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/rotate-byte-tmpNEKVDF5V.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/cl-utilities/copy-array.lisp" (written 03 MAY 2006 01:55:58 AM):
; processing (IN-PACKAGE :CL-UTILITIES)
; processing (DEFUN COPY-ARRAY ...)
; processing (DEFUN %MAKE-ARRAY-WITH-SAME-PROPERTIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-utilities/copy-array-tmpBK5RG7G7.fasl
; compilation finished in 0:00:00.086
; compiling file "/usr/share/common-lisp/source/quri/src/port.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.PORT ...)
; processing (IN-PACKAGE :QURI.PORT)
; processing (DEFVAR +DEFAULT-PORTS+ ...)
; processing (DEFUN SCHEME-DEFAULT-PORT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/port-tmp4LTI2T90.fasl
; compilation finished in 0:00:00.017
; compiling file "/usr/share/common-lisp/source/quri/src/uri.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.URI ...)
; processing (IN-PACKAGE :QURI.URI)
; processing (DEFSTRUCT (URI #) ...)
; processing (DEFUN MAKE-BASIC-URI ...)
; processing (DEFUN URI-AUTHORITY ...)
; processing (DEFSTRUCT (URN # ...) ...)
; processing (DEFUN MAKE-URN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/uri-tmp5XKUDJNN.fasl
; compilation finished in 0:00:00.576
; compiling file "/usr/share/common-lisp/source/quri/src/encode.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.ENCODE ...)
; processing (IN-PACKAGE :QURI.ENCODE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFVAR +HEXDIGIT-CHAR+ ...)
; processing (DEFUN INTEGER-TO-HEXDIGIT ...)
; processing (DEFUN UNRESERVEDP ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFVAR +BYTE-TO-STRING+ ...)
; processing (DEFUN URL-ENCODE ...)
; processing (DEFUN URL-ENCODE-PARAMS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/encode-tmp7YZGBD1I.fasl
; compilation finished in 0:00:00.405
; compiling file "/usr/share/common-lisp/source/quri/src/error.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.ERROR ...)
; processing (IN-PACKAGE :QURI.ERROR)
; processing (DEFINE-CONDITION URI-ERROR ...)
; processing (DEFINE-CONDITION URI-MALFORMED-STRING ...)
; processing (DEFINE-CONDITION URI-INVALID-PORT ...)
; processing (DEFINE-CONDITION URL-DECODING-ERROR ...)
; processing (DEFINE-CONDITION URI-MALFORMED-URLENCODED-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/error-tmp9CBLWGJC.fasl
; compilation finished in 0:00:00.083
; compiling file "/usr/share/common-lisp/source/quri/src/util.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.UTIL ...)
; processing (IN-PACKAGE :QURI.UTIL)
; processing (DEFUN STANDARD-ALPHA-CHAR-P ...)
; processing (DEFUN STANDARD-ALPHA-BYTE-P ...)
; processing (DEFUN STANDARD-ALPHANUMERIC-P ...)
; processing (DEFUN STANDARD-ALPHANUMERIC-BYTE-P ...)
; processing (DEFINE-CONDITION PARSING-END-UNEXPECTEDLY ...)
; processing (DEFINE-CONDITION NO-NEXT-STATE ...)
; processing (DEFMACRO WITH-STRING-PARSING ...)
; processing (DEFMACRO WITH-BYTE-ARRAY-PARSING ...)
; processing (DEFMACRO WITH-ARRAY-PARSING ...)
; processing (DEFMACRO %WITH-ARRAY-PARSING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/util-tmpYULTV5PF.fasl
; compilation finished in 0:00:00.729
; compiling file "/usr/share/common-lisp/source/quri/src/decode.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.DECODE ...)
; processing (IN-PACKAGE :QURI.DECODE)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN HEXDIGIT-TO-INTEGER ...)
; processing (DEFUN URL-DECODE ...)
; file: /usr/share/common-lisp/source/quri/src/decode.lisp
; in: DEFUN URL-DECODE
; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA
; QURI.DECODE::START QURI.DECODE::END
; (AND (NOT (STRINGP QURI.DECODE::DATA))
; #'CODE-CHAR))
; (QURI.DECODE::PARSING
; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT))
; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32)
; (QURI.UTIL:REDO))
; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO))))
; (QURI.DECODE::PARSING-ENCODED-PART
; (SETQ QURI.DECODE::PARSING-ENCODED-PART (* 16 #)) (QURI.UTIL:GONEXT))
; (QURI.DECODE::PARSING-ENCODED-PART-SECOND
; (QURI.DECODE::WRITE-TO-BUFFER
; (+ QURI.DECODE::PARSING-ENCODED-PART
; (QURI.DECODE::HEXDIGIT-TO-INTEGER CHAR)))
; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL)
; (QURI.UTIL:GOTO QURI.DECODE::PARSING))
; (:EOF
; (WHEN QURI.DECODE::PARSING-ENCODED-PART
; (ERROR 'QURI.ERROR:URL-DECODING-ERROR))))
; --> LET QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE
; --> IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> LET QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE
; --> IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:GONEXT)
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:GOTO QURI.DECODE::PARSING)
; --> LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:REDO)
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (- QURI.DECODE::END QURI.DECODE::START)
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA
; QURI.DECODE::START QURI.DECODE::END
; (AND (NOT (STRINGP QURI.DECODE::DATA))
; #'CODE-CHAR))
; (QURI.DECODE::PARSING
; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT))
; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32)
; (QURI.UTIL:REDO))
; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO))))
; (QURI.DECODE::PARSING-ENCODED-PART
; (SETQ QURI.DECODE::PARSING-ENCODED-PART (* 16 #)) (QURI.UTIL:GONEXT))
; (QURI.DECODE::PARSING-ENCODED-PART-SECOND
; (QURI.DECODE::WRITE-TO-BUFFER
; (+ QURI.DECODE::PARSING-ENCODED-PART
; (QURI.DECODE::HEXDIGIT-TO-INTEGER CHAR)))
; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL)
; (QURI.UTIL:GOTO QURI.DECODE::PARSING))
; (:EOF
; (WHEN QURI.DECODE::PARSING-ENCODED-PART
; (ERROR 'QURI.ERROR:URL-DECODING-ERROR))))
; --> LET QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = EQL IF
; ==>
; (EQL SB-C::X SB-C::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 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF QURI.DECODE::I)
; --> SETQ THE
; ==>
; (+ 1 QURI.DECODE::I)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFUN URL-DECODE-PARAMS ...)
; file: /usr/share/common-lisp/source/quri/src/decode.lisp
; in: DEFUN URL-DECODE-PARAMS
; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA
; QURI.DECODE::START QURI.DECODE::END
; (AND (NOT (STRINGP QURI.DECODE::DATA))
; #'CODE-CHAR))
; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P)
; (IF QURI.DECODE::LENIENT
; (COND (# # #) (# #))
; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING)))
; (QURI.UTIL:GONEXT))
; (QURI.DECODE::PARSING-FIELD
; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT))
; ((CHAR= CHAR QURI.DECODE::DELIMITER)
; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P)
; (QURI.UTIL:GOTO QURI.DECODE::START)))
; (QURI.UTIL:REDO))
; (QURI.DECODE::PARSING-VALUE
; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #))
; ((CHAR= CHAR QURI.DECODE::DELIMITER)
; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)
; (QURI.UTIL:GOTO QURI.DECODE::START)))
; (QURI.UTIL:REDO))
; (:EOF
; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P))
; (QURI.DECODE::START-MARK
; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P)))))
; --> LET QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE
; --> IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> LET QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE
; --> IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:GOTO QURI.DECODE::PARSING-VALUE)
; --> LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:REDO)
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:GONEXT)
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:GOTO QURI.DECODE::START)
; --> LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:REDO)
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:GOTO QURI.DECODE::START)
; --> LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:REDO)
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF FUNCALL SB-C::%FUNCALL AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; --> QURI.UTIL:GOTO LOCALLY SETQ THE IF AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))), not a SIMPLE-ARRAY.
; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA
; QURI.DECODE::START QURI.DECODE::END
; (AND (NOT (STRINGP QURI.DECODE::DATA))
; #'CODE-CHAR))
; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P)
; (IF QURI.DECODE::LENIENT
; (COND (# # #) (# #))
; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING)))
; (QURI.UTIL:GONEXT))
; (QURI.DECODE::PARSING-FIELD
; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT))
; ((CHAR= CHAR QURI.DECODE::DELIMITER)
; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P)
; (QURI.UTIL:GOTO QURI.DECODE::START)))
; (QURI.UTIL:REDO))
; (QURI.DECODE::PARSING-VALUE
; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #))
; ((CHAR= CHAR QURI.DECODE::DELIMITER)
; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)
; (QURI.UTIL:GOTO QURI.DECODE::START)))
; (QURI.UTIL:REDO))
; (:EOF
; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P))
; (QURI.DECODE::START-MARK
; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P)))))
; --> LET QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = EQL IF
; ==>
; (EQL SB-C::X SB-C::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 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/decode-tmpW755GQ70.fasl
; compilation finished in 0:00:00.782
; compiling file "/usr/share/common-lisp/source/quri/src/uri/ftp.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.URI.FTP ...)
; processing (IN-PACKAGE :QURI.URI.FTP)
; processing (DEFSTRUCT (URI-FTP # ...) ...)
; processing (DEFUN MAKE-URI-FTP ...)
; processing (DEFUN PARSE-FTP-TYPECODE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/uri/ftp-tmp2X7X3O5E.fasl
; compilation finished in 0:00:00.275
; compiling file "/usr/share/common-lisp/source/quri/src/uri/http.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.URI.HTTP ...)
; processing (IN-PACKAGE :QURI.URI.HTTP)
; processing (DEFSTRUCT (URI-HTTP #))
; processing (DEFSTRUCT (URI-HTTPS #))
; processing (DEFUN URI-QUERY-PARAMS ...)
; processing (DEFUN (SETF URI-QUERY-PARAMS) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/uri/http-tmp8K9J0MSI.fasl
; compilation finished in 0:00:00.420
; compiling file "/usr/share/common-lisp/source/quri/src/uri/ldap.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.URI.LDAP ...)
; processing (IN-PACKAGE :QURI.URI.LDAP)
; processing (DEFSTRUCT (URI-LDAP #))
; processing (DEFSTRUCT (URI-LDAPS #))
; processing (DEFUN URI-LDAP-DN ...)
; processing (DEFUN (SETF URI-LDAP-DN) ...)
; processing (DEFUN NTH-URI-LDAP-LISTS ...)
; processing (DEFUN (SETF NTH-URI-LDAP-LISTS) ...)
; processing (DEFUN URI-LDAP-ATTRIBUTES ...)
; processing (DEFUN (SETF URI-LDAP-ATTRIBUTES) ...)
; processing (DEFUN URI-LDAP-SCOPE ...)
; processing (DEFUN (SETF URI-LDAP-SCOPE) ...)
; processing (DEFUN URI-LDAP-FILTER ...)
; processing (DEFUN (SETF URI-LDAP-FILTER) ...)
; processing (DEFUN URI-LDAP-EXTENSIONS ...)
; processing (DEFUN (SETF URI-LDAP-EXTENSIONS) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/uri/ldap-tmpM7464154.fasl
; compilation finished in 0:00:00.538
; compiling file "/usr/share/common-lisp/source/quri/src/uri/file.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.URI.FILE ...)
; processing (IN-PACKAGE :QURI.URI.FILE)
; processing (DEFSTRUCT (URI-FILE #))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN URI-FILE-PATHNAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/uri/file-tmpM91VIM1B.fasl
; compilation finished in 0:00:00.222
; compiling file "/usr/share/common-lisp/source/quri/src/etld.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.ETLD ...)
; processing (IN-PACKAGE :QURI.ETLD)
; processing (DEFVAR *DEFAULT-ETLD-NAMES* ...)
; processing (DEFVAR *NORMAL-TLDS* ...)
; processing (DEFVAR *WILDCARD-TLDS* ...)
; processing (DEFVAR *SPECIAL-TLDS* ...)
; processing (DEFUN LOAD-ETLD-DATA ...)
; processing (LOAD-ETLD-DATA)
; processing (DEFUN NEXT-SUBDOMAIN ...)
; processing (DEFUN MAKE-SUBDOMAIN-ITER ...)
; processing (DEFUN PARSE-DOMAIN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/etld-tmp1KI0KKKL.fasl
; compilation finished in 0:00:00.137
; compiling file "/usr/share/common-lisp/source/quri/src/domain.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.DOMAIN ...)
; processing (IN-PACKAGE :QURI.DOMAIN)
; processing (DEFUN URI-TLD ...)
; processing (DEFUN URI-DOMAIN ...)
; processing (DEFUN IPV4-ADDR-P ...)
; processing (DEFUN TRIM-BRACKETS ...)
; processing (DEFUN IPV6-ADDR-P ...)
; processing (DEFUN IP-ADDR-P ...)
; processing (DEFUN IP-ADDR= ...)
; processing (DEFUN COOKIE-DOMAIN-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/domain-tmpP99DZSLU.fasl
; compilation finished in 0:00:00.663
; compiling file "/usr/share/common-lisp/source/quri/src/parser.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI.PARSER ...)
; processing (IN-PACKAGE :QURI.PARSER)
; processing (DEFTYPE SIMPLE-BYTE-VECTOR ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFINE-CONSTANT +URI-CHAR+ ...)
; processing (DEFUN PARSE-URI ...)
; processing (DEFINE-COMPILER-MACRO PARSE-URI ...)
; processing (DEFUN PARSE-URI-STRING ...)
; processing (DEFUN PARSE-URI-BYTE-VECTOR ...)
; processing (DEFMACRO DEFUN-WITH-ARRAY-PARSING ...)
; processing (DEFUN SCHEME-CHAR-P ...)
; processing (DEFUN SCHEME-BYTE-P ...)
; processing (DEFUN-WITH-ARRAY-PARSING PARSE-SCHEME ...)
; processing (DEFUN-WITH-ARRAY-PARSING PARSE-AUTHORITY ...)
; processing (DEFUN PATH-CHAR-P ...)
; processing (DEFUN PATH-BYTE-P ...)
; processing (DEFUN QUERY-CHAR-P ...)
; processing (DEFUN QUERY-BYTE-P ...)
; processing (DEFMACRO PARSE-UNTIL-STRING ...)
; processing (DEFMACRO PARSE-UNTIL-BYTE-VECTOR ...)
; processing (DEFUN PARSE-PATH ...)
; processing (DEFUN PARSE-PATH-STRING ...)
; processing (DEFUN PARSE-PATH-BYTE-VECTOR ...)
; processing (DEFUN PARSE-QUERY ...)
; processing (DEFINE-COMPILER-MACRO PARSE-QUERY ...)
; processing (DEFUN PARSE-QUERY-STRING ...)
; processing (DEFUN PARSE-QUERY-BYTE-VECTOR ...)
; processing (DEFUN PARSE-FRAGMENT ...)
; processing (DEFINE-COMPILER-MACRO PARSE-FRAGMENT ...)
; processing (DEFUN PARSE-FRAGMENT-STRING ...)
; processing (DEFUN PARSE-FRAGMENT-BYTE-VECTOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/parser-tmp5J3N99GE.fasl
; compilation finished in 0:00:04.507
; compiling file "/usr/share/common-lisp/source/quri/src/quri.lisp" (written 27 JUL 2015 02:57:05 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE QURI ...)
; processing (IN-PACKAGE :QURI)
; processing (DEFUN SCHEME-CONSTRUCTOR ...)
; processing (DEFUN URI ...)
; processing (DEFUN COPY-URI ...)
; processing (DEFUN MAKE-URI ...)
; processing (DEFUN RENDER-URI ...)
; processing (DEFUN URI= ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MERGE-URI-PATHS ...)
; processing (DEFUN MERGE-URIS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/quri/src/quri-tmpQ65VC991.fasl
; compilation finished in 0:00:00.575
; compiling file "/usr/share/common-lisp/source/cl-mustache/packages.lisp" (written 31 AUG 2015 06:50:42 AM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:MUSTACHE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-mustache/packages-tmpST8U7NX4.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cl-mustache/mustache.lisp" (written 31 AUG 2015 06:50:42 AM):
; processing (IN-PACKAGE :MUSTACHE)
; processing (DEFTYPE OFFSET ...)
; processing (DEFTYPE SPACE-CHAR ...)
; processing (DEFTYPE NEWLINE-CHAR ...)
; processing (DEFTYPE TEXT-CHAR ...)
; processing (DEFUN SPACE-CHAR-P ...)
; processing (DEFUN NEWLINE-CHAR-P ...)
; processing (DEFUN TEXT-CHAR-P ...)
; processing (DEFCLASS TOKEN ...)
; processing (DEFCLASS BEGINNING-OF-LINE ...)
; processing (DEFCLASS TEXT ...)
; processing (DEFCLASS WHITESPACE ...)
; processing (DEFCLASS NEWLINE ...)
; processing (DEFVAR CRLF ...)
; processing (DEFCLASS CRLF-NEWLINE ...)
; processing (DEFCLASS TAG ...)
; processing (DEFCLASS CAN-STANDALONE-TAG ...)
; processing (DEFCLASS NON-STANDALONE-TAG ...)
; processing (DEFCLASS NORMAL-TAG ...)
; processing (DEFCLASS AMPERSAND-TAG ...)
; processing (DEFCLASS DELIMITER-TAG ...)
; processing (DEFCLASS COMMENT-TAG ...)
; processing (DEFCLASS PARTIAL-TAG ...)
; processing (DEFCLASS SECTION-START-TAG ...)
; processing (DEFCLASS SECTION-END-TAG ...)
; processing (DEFCLASS SECTION-TAG ...)
; processing (DEFPARAMETER *DEFAULT-OPEN-DELIMITER* ...)
; processing (DEFPARAMETER *DEFAULT-CLOSE-DELIMITER* ...)
; processing (DEFPARAMETER *DEFAULT-TRIPLE-OPEN-DELIMITER* ...)
; processing (DEFPARAMETER *DEFAULT-TRIPLE-CLOSE-DELIMITER* ...)
; processing (DEFVAR *OPEN-DELIMITER* ...)
; processing (DEFVAR *CLOSE-DELIMITER* ...)
; processing (DEFVAR *TRIPLE-OPEN-DELIMITER* ...)
; processing (DEFVAR *TRIPLE-CLOSE-DELIMITER* ...)
; processing (DEFUN CHANGE-DELIMITER ...)
; processing (DEFVAR *MUSTACHE-TAG-TABLE* ...)
; processing (DEFUN SET-MUSTACHE-CHARACTER ...)
; processing (DEFUN GET-MUSTACHE-CHARACTER ...)
; processing (DEFUN MAKE-TAG ...)
; processing (DEFMACRO DEFINE-MUSTACHE-CHARACTER ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\& ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\# ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\^ ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\/ ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\! ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\= ...)
; processing (DEFINE-MUSTACHE-CHARACTER #\> ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFVAR BEGINNING-OF-LINE ...)
; processing (DEFVAR NEWLINE ...)
; processing (DEFVAR CRLF-NEWLINE ...)
; processing (DEFUN STRING-STARTS-WITH-P ...)
; processing (DEFUN READ-TEXT ...)
; processing (DEFUN READ-NEWLINE ...)
; processing (DEFUN READ-TAG ...)
; processing (DEFUN READ-TOKEN ...)
; processing (DEFUN SCAN ...)
; processing (DEFTYPE TEXT-TOKEN ...)
; processing (DEFUN COLLECT-LINE ...)
; processing (DEFUN TOKENS-STANDALONE-P ...)
; processing (DEFUN FIND-STANDALONE-TAG ...)
; processing (DEFUN TRIM-STANDALONE ...)
; processing (DEFUN MAKE-SECTION-TAG ...)
; processing (DEFUN GROUP-SECTIONS ...)
; processing (DEFUN FOLD-TEXT ...)
; processing (DEFUN PARSE ...)
; processing (DEFVAR *CONTEXT* ...)
; processing (DEFCLASS CONTEXT ...)
; processing (DEFUN PARSE-KEY ...)
; processing (DEFUN KEY ...)
; processing (DEFTYPE ALIST ...)
; processing (DEFUN SAVE-HASH-TABLE ...)
; processing (DEFUN MAKE-CONTEXT-CHAIN ...)
; processing (DEFUN ENSURE-CONTEXT ...)
; processing (DEFGENERIC CONTEXT-GET ...)
; processing (DEFMETHOD CONTEXT-GET ...)
; processing (DEFMETHOD CONTEXT-GET ...)
; processing (DEFMETHOD CONTEXT-GET ...)
; processing (DEFMETHOD CONTEXT-GET ...)
; processing (DEFMETHOD CONTEXT-GET ...)
; processing (DEFVAR *LOAD-PATH* ...)
; processing (DEFVAR *DEFAULT-PATHNAME-TYPE* ...)
; processing (DEFUN FILENAME ...)
; processing (DEFUN LOCATE-FILE ...)
; processing (DEFUN READ-PARTIAL ...)
; processing (DEFUN ESCAPE ...)
; processing (DEFVAR *REAL-STANDARD-OUTPUT* ...)
; processing (DEFVAR *OUTPUT-STREAM* ...)
; processing (DEFUN %OUTPUT ...)
; processing (DEFGENERIC PRINT-DATA ...)
; processing (DEFMETHOD PRINT-DATA ...)
; processing (DEFMETHOD PRINT-DATA ...)
; processing (DEFMETHOD PRINT-DATA ...)
; processing (DEFMETHOD PRINT-DATA ...)
; processing (DEFUN CALL-LAMBDA ...)
; processing (DEFGENERIC RENDER-TOKEN ...)
; processing (DEFMETHOD RENDER-TOKEN ...)
; processing (DEFMETHOD RENDER-TOKEN ...)
; processing (DEFMETHOD RENDER-TOKEN ...)
; processing (DEFMETHOD RENDER-TOKEN ...)
; processing (DEFMETHOD RENDER-TOKEN ...)
; processing (DEFUN RENDER-TOKENS ...)
; processing (DEFUN RENDER-BODY ...)
; processing (DEFUN VERSION ...)
; processing (DEFUN MAKE-CONTEXT ...)
; processing (DEFGENERIC COMPILE-TEMPLATE ...)
; processing (DEFMETHOD COMPILE-TEMPLATE ...)
; processing (DEFMETHOD COMPILE-TEMPLATE ...)
; processing (DEFGENERIC RENDER ...)
; processing (DEFMETHOD RENDER ...)
; processing (DEFMETHOD RENDER ...)
; processing (DEFUN RENDER* ...)
; processing (DEFMACRO DEFINE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-mustache/mustache-tmp9YU12JLB.fasl
; compilation finished in 0:00:02.449
; compiling file "/usr/share/common-lisp/source/cl-mustache/compat-api-v1.lisp" (written 31 AUG 2015 06:50:42 AM):
; processing (IN-PACKAGE :MUSTACHE)
; processing (DEFVAR *MUSTACHE-OUTPUT* ...)
; processing (DEFINE-CONDITION DEPRECATION-WARNING ...)
; processing (DEFMACRO MAKE-OBSOLETE ...)
; processing (MAKE-OBSOLETE MUSTACHE-TYPE ...)
; processing (MAKE-OBSOLETE MUSTACHE-VERSION ...)
; processing (MAKE-OBSOLETE MUSTACHE-CONTEXT ...)
; processing (MAKE-OBSOLETE MUSTACHE-COMPILE ...)
; processing (MAKE-OBSOLETE MUSTACHE-RENDER ...)
; processing (MAKE-OBSOLETE MUSTACHE-RENDER-TO-STRING ...)
; processing (DEFUN MUSTACHE-RENDER-TO-STREAM ...)
; processing (DEFMACRO DEFMUSTACHE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-mustache/compat-api-v1-tmpMDBNYFZN.fasl
; compilation finished in 0:00:00.172
; compiling file "/usr/share/common-lisp/source/yason/package.lisp" (written 26 JAN 2016 10:37:20 AM):
; processing (DEFPACKAGE :YASON ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/yason/package-tmp7ILKR3EN.fasl
; compilation finished in 0:00:00.006
; compiling file "/usr/share/common-lisp/source/yason/encode.lisp" (written 26 JAN 2016 10:37:20 AM):
; processing (IN-PACKAGE :YASON)
; processing (DEFVAR *JSON-OUTPUT*)
; processing (DEFPARAMETER *DEFAULT-INDENT* ...)
; processing (DEFPARAMETER *DEFAULT-INDENT-WIDTH* ...)
; processing (DEFGENERIC ENCODE ...)
; processing (DEFPARAMETER *CHAR-REPLACEMENTS* ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMACRO WITH-AGGREGATE/OBJECT ...)
; processing (DEFUN ENCODE-KEY/VALUE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFUN ENCODE-ASSOC-KEY/VALUE ...)
; processing (DEFUN ENCODE-ALIST ...)
; processing (DEFUN ENCODE-PLIST ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFMETHOD ENCODE ...)
; processing (DEFCLASS JSON-OUTPUT-STREAM ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFGENERIC MAKE-JSON-OUTPUT-STREAM ...)
; processing (DEFMETHOD MAKE-JSON-OUTPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...)
; processing (DEFGENERIC WRITE-INDENTATION ...)
; processing (DEFGENERIC WRITE-DELIMITER ...)
; processing (DEFGENERIC CHANGE-INDENTATION ...)
; processing (DEFUN NEXT-AGGREGATE-ELEMENT ...)
; processing (DEFMACRO WITH-OUTPUT ...)
; processing (DEFMACRO WITH-OUTPUT-TO-STRING* ...)
; processing (DEFINE-CONDITION NO-JSON-OUTPUT-CONTEXT ...)
; processing (DEFMACRO WITH-AGGREGATE/STREAM ...)
; processing (DEFMACRO WITH-ARRAY ...)
; processing (DEFMACRO WITH-OBJECT ...)
; processing (DEFUN ENCODE-ARRAY-ELEMENT ...)
; processing (DEFUN ENCODE-ARRAY-ELEMENTS ...)
; processing (DEFUN ENCODE-OBJECT-ELEMENT ...)
; processing (DEFUN ENCODE-OBJECT-ELEMENTS ...)
; processing (DEFUN ENCODE-OBJECT-SLOTS ...)
; processing (DEFINE-COMPILER-MACRO ENCODE-OBJECT-SLOTS ...)
; processing (DEFMACRO WITH-OBJECT-ELEMENT ...)
; processing (DEFGENERIC ENCODE-SLOTS ...)
; processing (DEFGENERIC ENCODE-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/yason/encode-tmp1QERRP6O.fasl
; compilation finished in 0:00:01.129
; compiling file "/usr/share/common-lisp/source/yason/parse.lisp" (written 26 JAN 2016 10:37:20 AM):
; processing (IN-PACKAGE :YASON)
; processing (DEFCONSTANT +DEFAULT-STRING-LENGTH+ ...)
; processing (DEFVAR *PARSE-OBJECT-KEY-FN* ...)
; processing (DEFVAR *PARSE-JSON-ARRAYS-AS-VECTORS* ...)
; processing (DEFVAR *PARSE-JSON-BOOLEANS-AS-SYMBOLS* ...)
; processing (DEFVAR *PARSE-JSON-NULL-AS-KEYWORD* ...)
; processing (DEFVAR *PARSE-OBJECT-AS* ...)
; processing (DEFVAR *PARSE-OBJECT-AS-ALIST* ...)
; processing (DEFUN MAKE-ADJUSTABLE-STRING ...)
; processing (DEFUN PARSE-NUMBER ...)
; processing (DEFUN PARSE-UNICODE-ESCAPE ...)
; processing (DEFUN PARSE-STRING ...)
; processing (DEFUN WHITESPACE-P ...)
; processing (DEFUN SKIP-WHITESPACE ...)
; processing (DEFUN PEEK-CHAR-SKIPPING-WHITESPACE ...)
; processing (DEFUN PARSE-CONSTANT ...)
; processing (DEFINE-CONDITION CANNOT-CONVERT-KEY ...)
; processing (DEFUN CREATE-CONTAINER ...)
; processing (DEFUN ADD-ATTRIBUTE ...)
; processing (DEFINE-CONDITION EXPECTED-COLON ...)
; processing (DEFUN PARSE-OBJECT ...)
; processing (DEFCONSTANT +INITIAL-ARRAY-SIZE+ ...)
; processing (DEFUN %PARSE-ARRAY ...)
; processing (DEFUN PARSE-ARRAY ...)
; processing (DEFGENERIC PARSE% ...)
; processing (DEFUN PARSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/yason/parse-tmp3ALH5FXP.fasl
; compilation finished in 0:00:00.570
; compiling file "/usr/share/common-lisp/source/closure-common/package.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/package-tmpNNFAQWV6.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/closure-common/definline.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/definline-tmpIOOC44BY.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/closure-common/characters.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/characters-tmpQ7OI94ES.fasl
; compilation finished in 0:00:00.302
; compiling file "/usr/share/common-lisp/source/closure-common/syntax.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/syntax-tmpMYKQSV4X.fasl
; compilation finished in 0:00:00.167
; compiling file "/usr/share/common-lisp/source/closure-common/encodings.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/encodings-tmpBB93SWG4.fasl
; compilation finished in 0:00:01.659
; compiling file "/usr/share/common-lisp/source/closure-common/encodings-data.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/encodings-data-tmp1FIQFSUR.fasl
; compilation finished in 0:00:00.243
; compiling file "/usr/share/common-lisp/source/closure-common/xstream.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/xstream-tmp3Q8L6WK3.fasl
; compilation finished in 0:00:01.314
; compiling file "/usr/share/common-lisp/source/closure-common/ystream.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/ystream-tmpJIV7VHEX.fasl
; compilation finished in 0:00:02.645
; compiling file "/usr/share/common-lisp/source/closure-common/hax.lisp" (written 06 OCT 2010 05:59:12 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/closure-common/hax-tmpP161CUWN.fasl
; compilation finished in 0:00:00.370
; compiling file "/usr/share/common-lisp/source/cxml/xml/package.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/package-tmp31L56QBG.fasl
; compilation finished in 0:00:00.014
; compiling file "/usr/share/common-lisp/source/cxml/xml/util.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/util-tmp9XU14MWU.fasl
; compilation finished in 0:00:00.149
; compiling file "/usr/share/common-lisp/source/cxml/xml/sax-handler.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/sax-handler-tmp9WKRLOCW.fasl
; compilation finished in 0:00:03.355
; compiling file "/usr/share/common-lisp/source/cxml/xml/xml-name-rune-p.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/xml-name-rune-p-tmp57BCREVZ.fasl
; compilation finished in 0:00:00.527
; compiling file "/usr/share/common-lisp/source/cxml/xml/split-sequence.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/split-sequence-tmp3CG3NM8G.fasl
; compilation finished in 0:00:00.181
; compiling file "/usr/share/common-lisp/source/cxml/xml/xml-parse.lisp" (written 08 JUN 2011 04:58:03 PM):
; file: /usr/share/common-lisp/source/cxml/xml/xml-parse.lisp
; in: DEFSTRUCT ATTDEF
; (DEFSTRUCT CXML::ATTDEF
; CXML::ELEMENT
; CXML::NAME
; TYPE
; CXML::DEFAULT
; (CXML::EXTERNAL-P CXML::*EXTERNAL-SUBSET-P*))
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CXML::ATTDEF {574FAF79}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled calls to CXML::ATTDEF-NAME, CXML::ATTDEF-TYPE,
; CXML::ATTDEF-DEFAULT and CXML::ATTDEF-EXTERNAL-P could not be inlined because
; the structure definition for CXML::ATTDEF was not yet seen. To avoid this
; warning, DEFSTRUCT should precede references to the affected functions, or they
; must be declared locally notinline at each call site.
; in: DEFSTRUCT ELMDEF
; (DEFSTRUCT CXML::ELMDEF
; CXML::NAME
; CXML::CONTENT
; CXML::ATTRIBUTES
; CXML::COMPILED-CSPEC
; (CXML::EXTERNAL-P CXML::*EXTERNAL-SUBSET-P*))
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CXML::ELMDEF {576B9C81}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled calls to CXML::ELMDEF-ATTRIBUTES,
; CXML::ELMDEF-COMPILED-CSPEC and CXML::ELMDEF-EXTERNAL-P could not be inlined
; because the structure definition for CXML::ELMDEF was not yet seen. To avoid
; this warning, DEFSTRUCT should precede references to the affected functions, or
; they must be declared locally notinline at each call site.
; in: DEFSTRUCT DTD
; (DEFSTRUCT CXML::DTD
; (CXML::ELEMENTS (CXML::%MAKE-ROD-HASH-TABLE))
; (CXML::GENTITIES (CXML::%MAKE-ROD-HASH-TABLE))
; (CXML::PENTITIES (CXML::%MAKE-ROD-HASH-TABLE))
; (CXML::NOTATIONS (CXML::%MAKE-ROD-HASH-TABLE)))
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CXML::DTD {57898BE9}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled calls to CXML::DTD-GENTITIES and CXML::DTD-PENTITIES could
; not be inlined because the structure definition for CXML::DTD was not yet seen.
; To avoid this warning, DEFSTRUCT should precede references to the affected
; functions, or they must be declared locally notinline at each call site.
; in: DEFSTRUCT ZSTREAM
; (DEFSTRUCT CXML::ZSTREAM
; CXML::TOKEN-CATEGORY
; CXML::TOKEN-SEMANTIC
; CXML::INPUT-STACK)
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CXML::ZSTREAM {515F5011}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled calls to CXML::ZSTREAM-P and CXML::ZSTREAM-INPUT-STACK
; could not be inlined because the structure definition for CXML::ZSTREAM was not
; yet seen. To avoid this warning, DEFSTRUCT should precede references to the
; affected functions, or they must be declared locally notinline at each call
; site.
; in: DEFSTRUCT XML-HEADER
; (DEFSTRUCT CXML::XML-HEADER
; CXML::VERSION
; CXML::ENCODING
; (CXML::STANDALONE-P NIL))
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CXML::XML-HEADER {54BF41F1}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled calls to CXML::XML-HEADER-ENCODING and
; CXML::XML-HEADER-STANDALONE-P could not be inlined because the structure
; definition for CXML::XML-HEADER was not yet seen. To avoid this warning,
; DEFSTRUCT should precede references to the affected functions, or they must be
; declared locally notinline at each call site.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/xml-parse-tmpG3OC8OB3.fasl
; compilation finished in 0:00:12.610
WARNING:
Lisp compilation had style-warnings while
compiling #<CLOSURE-SOURCE-FILE "cxml-xml" "xml-parse">
; compiling file "/usr/share/common-lisp/source/cxml/xml/unparse.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/unparse-tmpUAZY4UNC.fasl
; compilation finished in 0:00:02.309
; compiling file "/usr/share/common-lisp/source/cxml/xml/xmls-compat.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/xmls-compat-tmpMPDFG3VM.fasl
; compilation finished in 0:00:00.511
; compiling file "/usr/share/common-lisp/source/cxml/xml/recoder.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/recoder-tmp3S4NQ5NK.fasl
; compilation finished in 0:00:00.630
; compiling file "/usr/share/common-lisp/source/cxml/xml/xmlns-normalizer.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/xmlns-normalizer-tmpL1PNSO43.fasl
; compilation finished in 0:00:00.252
; compiling file "/usr/share/common-lisp/source/cxml/xml/space-normalizer.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/space-normalizer-tmpKGVA2E4F.fasl
; compilation finished in 0:00:00.315
; compiling file "/usr/share/common-lisp/source/cxml/xml/catalog.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/catalog-tmp804WZXXA.fasl
; compilation finished in 0:00:01.179
; compiling file "/usr/share/common-lisp/source/cxml/xml/sax-proxy.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/sax-proxy-tmpNO0L9C3O.fasl
; compilation finished in 0:00:00.816
; compiling file "/usr/share/common-lisp/source/cxml/xml/atdoc-configuration.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/xml/atdoc-configuration-tmpK6MA10J0.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cxml/dom/package.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/dom/package-tmp36KGAIW9.fasl
; compilation finished in 0:00:00.023
; compiling file "/usr/share/common-lisp/source/cxml/dom/dom-impl.lisp" (written 08 JUN 2011 04:58:03 PM):
; file: /usr/share/common-lisp/source/cxml/dom/dom-impl.lisp
; in: DEFSTRUCT ROD-STREAM
; (DEFSTRUCT RUNE-DOM::ROD-STREAM (RUNE-DOM::BUF NIL) (POSITION 0))
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION RUNE-DOM::ROD-STREAM {5753F969}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled call to RUNE-DOM::ROD-STREAM-BUF could not be inlined
; because the structure definition for RUNE-DOM::ROD-STREAM was not yet seen. To
; avoid this warning, DEFSTRUCT should precede references to the affected
; functions, or they must be declared locally notinline at each call site.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/dom/dom-impl-tmpTAFOY2GM.fasl
; compilation finished in 0:00:05.669
WARNING:
Lisp compilation had style-warnings while
compiling #<CLOSURE-SOURCE-FILE "cxml-dom" "rune-impl">
; compiling file "/usr/share/common-lisp/source/cxml/dom/dom-builder.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/dom/dom-builder-tmpIUK6XU0X.fasl
; compilation finished in 0:00:00.859
; compiling file "/usr/share/common-lisp/source/cxml/dom/dom-sax.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/dom/dom-sax-tmp9UXEFJB0.fasl
; compilation finished in 0:00:00.209
; compiling file "/usr/share/common-lisp/source/cxml/klacks/package.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/klacks/package-tmpBQ5VDFHZ.fasl
; compilation finished in 0:00:00.007
; compiling file "/usr/share/common-lisp/source/cxml/klacks/klacks.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/klacks/klacks-tmpA52TVY61.fasl
; compilation finished in 0:00:00.601
; compiling file "/usr/share/common-lisp/source/cxml/klacks/klacks-impl.lisp" (written 08 JUN 2011 04:58:03 PM):
; file: /usr/share/common-lisp/source/cxml/klacks/klacks-impl.lisp
; in: DEFUN MAKE-SOURCE
; (DEFUN CXML:MAKE-SOURCE
; (CXML::INPUT
; &REST CXML::ARGS
; &KEY CXML::VALIDATE CXML::DTD CXML::ROOT CXML::ENTITY-RESOLVER
; CXML::DISALLOW-INTERNAL-SUBSET (CXML::BUFFERING T) PATHNAME)
; (DECLARE
; (IGNORE CXML::VALIDATE CXML::DTD CXML::ROOT CXML::ENTITY-RESOLVER
; CXML::DISALLOW-INTERNAL-SUBSET))
; (ETYPECASE CXML::INPUT
; (RUNES:XSTREAM
; (WHEN (AND # #)
; (WARN "make-source called with !buffering, but xstream is buffering"))
; (LET (#)
; (LET #
; #
; #)))
; (STREAM
; (LET (#)
; (SETF #)
; (APPLY #'CXML:MAKE-SOURCE RUNES:XSTREAM CXML::ARGS)))
; (PATHNAME
; (LET* (#)
; (SETF #)
; (LET #
; #
; CXML::SOURCE)))
; (RUNES:ROD
; (LET (#)
; (SETF #)
; (APPLY #'CXML:MAKE-SOURCE RUNES:XSTREAM CXML::ARGS)))
; (ARRAY (CXML:MAKE-SOURCE (RUNES:MAKE-OCTET-INPUT-STREAM CXML::INPUT)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CXML:MAKE-SOURCE
; (CXML::INPUT &REST CXML::ARGS &KEY CXML::VALIDATE CXML::DTD CXML::ROOT
; CXML::ENTITY-RESOLVER CXML::DISALLOW-INTERNAL-SUBSET
; (CXML::BUFFERING T) PATHNAME)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE
; (IGNORE CXML::VALIDATE CXML::DTD CXML::ROOT CXML::ENTITY-RESOLVER
; CXML::DISALLOW-INTERNAL-SUBSET))
; (BLOCK CXML:MAKE-SOURCE
; (ETYPECASE CXML::INPUT
; (RUNES:XSTREAM
; (WHEN # #)
; (LET #
; #))
; (STREAM
; (LET #
; #
; #))
; (PATHNAME
; (LET* #
; #
; #))
; (RUNES:ROD
; (LET #
; #
; #))
; (ARRAY (CXML:MAKE-SOURCE #)))))
;
; caught STYLE-WARNING:
; The variable PATHNAME is defined but never used.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/klacks/klacks-impl-tmpIPFYT6I3.fasl
; compilation finished in 0:00:02.597
WARNING:
Lisp compilation had style-warnings while
compiling #<CLOSURE-SOURCE-FILE "cxml-klacks" "klacks-impl">
; compiling file "/usr/share/common-lisp/source/cxml/klacks/tap-source.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/klacks/tap-source-tmpO7JKDK7Z.fasl
; compilation finished in 0:00:00.320
; compiling file "/usr/share/common-lisp/source/cxml/test/domtest.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/test/domtest-tmpIDM2FKPW.fasl
; compilation finished in 0:00:01.894
; compiling file "/usr/share/common-lisp/source/cxml/test/xmlconf.lisp" (written 08 JUN 2011 04:58:03 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cxml/test/xmlconf-tmpE6CBGQZ5.fasl
; compilation finished in 0:00:00.775
; compiling file "/usr/share/common-lisp/source/zs3/package.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (DEFPACKAGE #:ZS3 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/package-tmp7DTGW8BP.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/zs3/utils.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFVAR *MONTHS* ...)
; processing (DEFVAR *DAYS* ...)
; processing (DEFTYPE OCTET ...)
; processing (DEFTYPE OCTET-VECTOR ...)
; processing (DEFTYPE EMPTY-VECTOR ...)
; processing (DEFUN HTTP-DATE-STRING ...)
; processing (DEFUN ISO8601-DATE-STRING ...)
; processing (DEFUN ISO8601-BASIC-TIMESTAMP-STRING ...)
; processing (DEFUN ISO8601-BASIC-DATE-STRING ...)
; processing (DEFUN STRING-OCTETS ...)
; processing (DEFUN STRING64 ...)
; processing (DEFUN URL-DECODE ...)
; processing (DEFUN URL-ENCODE ...)
; processing (DEFUN ALIST-TO-URL-ENCODED-STRING ...)
; processing (DEFUN SAVE ...)
; processing (DEFUN PARSE-AMAZON-TIMESTAMP ...)
; processing (DEFUN STRINGIFY ...)
; processing (DEFUN PARAMETERS-ALIST ...)
; processing (DEFUN LAST-ENTRY ...)
; processing (DEFUN FILE-SIZE ...)
; processing (DEFVAR +UNIX-TIME-DIFFERENCE+ ...)
; processing (DEFUN UNIX-TIME ...)
; processing (DEFUN OCTET-VECTOR ...)
; processing (DEFUN KEYWORDIFY ...)
; processing (DEFUN MAKE-OCTET-VECTOR ...)
; processing (DEFUN NOW+ ...)
; processing (DEFUN NOW- ...)
; processing (DEFUN COPY-N-OCTETS ...)
; processing (DEFUN STARTS-WITH ...)
; processing (DEFUN ENDS-WITH ...)
; processing (DEFPARAMETER *FILE-BUFFER-SIZE* ...)
; processing (DEFUN MAKE-FILE-BUFFER ...)
; processing (DEFUN READ-EXACTLY-N-OCTETS ...)
; processing (DEFUN READ-COMPLETE-FILE-BUFFER ...)
; processing (DEFUN MERGE-FILE-BUFFERS ...)
; processing (DEFUN SKIP-STREAM-OCTETS ...)
; processing (DEFUN DRAINED-STREAM-VECTOR ...)
; processing (DEFUN PARTIAL-STREAM-VECTOR ...)
; processing (DEFUN STREAM-SUBSET-VECTOR ...)
; processing (DEFUN FILE-SUBSET-VECTOR ...)
; processing (DEFUN ALIST-PLIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/utils-tmp52W5LTNX.fasl
; compilation finished in 0:00:00.751
; compiling file "/usr/share/common-lisp/source/zs3/crypto.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFPARAMETER *EMPTY-STRING-SHA256* ...)
; processing (DEFPARAMETER *NEWLINE-VECTOR* ...)
; processing (DEFCLASS DIGESTER ...)
; processing (DEFUN MAKE-DIGESTER ...)
; processing (DEFGENERIC ADD-STRING ...)
; processing (DEFGENERIC ADD-NEWLINE ...)
; processing (DEFGENERIC ADD-LINE ...)
; processing (DEFGENERIC DIGEST ...)
; processing (DEFGENERIC DIGEST64 ...)
; processing (DEFUN FILE-MD5 ...)
; processing (DEFUN FILE-MD5/B64 ...)
; processing (DEFUN FILE-MD5/HEX ...)
; processing (DEFUN FILE-SHA256 ...)
; processing (DEFUN FILE-SHA256/HEX ...)
; processing (DEFUN VECTOR-SHA256 ...)
; processing (DEFUN VECTOR-SHA256/HEX ...)
; processing (DEFUN STRINGS-SHA256/HEX ...)
; processing (DEFUN STRINGS-HMAC-SHA256/HEX ...)
; processing (DEFUN VECTOR-MD5/B64 ...)
; processing (DEFUN FILE-ETAG ...)
; processing (DEFUN SIGN-STRING ...)
; processing (DEFUN HMAC-SHA256 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/crypto-tmpAC5H6H3W.fasl
; compilation finished in 0:00:00.266
; compiling file "/usr/share/common-lisp/source/zs3/xml-binding.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFUN SKIP-DOCUMENT-START ...)
; processing (DEFUN SKIP-CHARACTERS ...)
; processing (DEFUN COLLECT-CHARACTERS ...)
; processing (DEFUN COLLECT-REST-ALIST ...)
; processing (DEFINE-CONDITION XML-BINDING-ERROR ...)
; processing (DEFVAR *BINDER-DEFINITIONS* ...)
; processing (DEFCLASS BINDER ...)
; processing (DEFMACRO DEFBINDER ...)
; processing (DEFUN FIND-BINDER ...)
; processing (DEFUN XML-BIND ...)
; processing (DEFUN TRY-TO-XML-BIND ...)
; processing (DEFVAR *CURRENT-ELEMENT-NAME*)
; processing (DEFUN CREATE-ELEMENT-START-MATCHER ...)
; processing (DEFUN CREATE-ELEMENT-END-MATCHER ...)
; processing (DEFUN CREATE-BINDINGS-EXTENDER ...)
; processing (DEFUN CREATE-SKIPPER ...)
; processing (DEFUN CREATE-BINDINGS-RETURNER ...)
; processing (DEFMACRO CATCHING-XML-ERRORS ...)
; processing (DEFUN CREATE-SEQUENCE-BINDER ...)
; processing (DEFUN CREATE-ALIST-BINDER ...)
; processing (DEFUN CREATE-OPTIONAL-BINDER ...)
; processing (DEFUN CREATE-ALTERNATE-BINDER ...)
; processing (DEFUN CREATE-SUB-BINDER-BINDER ...)
; processing (DEFUN CREATE-SPECIAL-PROCESSOR ...)
; processing (DEFUN CREATE-BINDER ...)
; processing (DEFUN XML-SOURCE ...)
; processing (DEFUN MAKE-BINDER ...)
; processing (DEFUN XML-DOCUMENT-ELEMENT ...)
; processing (DEFUN BVALUE ...)
; processing (DEFUN BFUN ...)
; processing (DEFMACRO ALIST-BIND ...)
; processing (DEFGENERIC MERGE-BINDINGS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/xml-binding-tmpXIMJYYAL.fasl
; compilation finished in 0:00:00.592
; compiling file "/usr/share/common-lisp/source/zs3/xml-output.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFMACRO WITH-XML-OUTPUT ...)
; processing (DEFUN SIMPLE-ELEMENT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/xml-output-tmpGU04081S.fasl
; compilation finished in 0:00:00.027
; compiling file "/usr/share/common-lisp/source/zs3/credentials.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFVAR *CREDENTIALS* ...)
; processing (DEFINE-CONDITION UNSUPPORTED-CREDENTIALS ...)
; processing (DEFGENERIC ACCESS-KEY ...)
; processing (DEFGENERIC SECRET-KEY ...)
; processing (DEFGENERIC SECURITY-TOKEN ...)
; processing (DEFCLASS LAZY-CREDENTIALS-MIXIN ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFCLASS FILE-CREDENTIALS ...)
; processing (DEFGENERIC INITIALIZE-LAZY-CREDENTIALS ...)
; processing (DEFUN FILE-CREDENTIALS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/credentials-tmp7IZIO2S5.fasl
; compilation finished in 0:00:00.244
; compiling file "/usr/share/common-lisp/source/zs3/post.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFCLASS POST-POLICY ...)
; processing (DEFGENERIC POLICY-SERIALIZE ...)
; processing (DEFMETHOD POLICY-SERIALIZE ...)
; processing (DEFMETHOD POLICY-SERIALIZE ...)
; processing (DEFUN POLICY-STRING64 ...)
; processing (DEFUN POLICY-SIGNATURE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/post-tmpBXJPKP0S.fasl
; compilation finished in 0:00:00.146
; compiling file "/usr/share/common-lisp/source/zs3/redirects.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFVAR *PERMANENT-REDIRECTS* ...)
; processing (DEFUN REDIRECT-KEY ...)
; processing (DEFUN REDIRECTION-DATA ...)
; processing (DEFUN REDIRECTED-ENDPOINT ...)
; processing (DEFUN REDIRECTED-REGION ...)
; processing (DEFUN (SETF REDIRECTION-DATA) ...)
; processing (DEFUN CLEAR-REDIRECTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/redirects-tmpKRX8W7RM.fasl
; compilation finished in 0:00:00.240
; compiling file "/usr/share/common-lisp/source/zs3/request.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFVAR *S3-ENDPOINT* ...)
; processing (DEFVAR *S3-REGION* ...)
; processing (DEFVAR *USE-SSL* ...)
; processing (DEFVAR *USE-CONTENT-MD5* ...)
; processing (DEFVAR *SIGNED-PAYLOAD* ...)
; processing (DEFVAR *USE-KEEP-ALIVE* ...)
; processing (DEFVAR *KEEP-ALIVE-STREAM* ...)
; processing (DEFMACRO WITH-KEEP-ALIVE ...)
; processing (DEFCLASS REQUEST ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFGENERIC AMZ-HEADER-VALUE ...)
; processing (DEFGENERIC ENSURE-AMZ-HEADER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFGENERIC HOST ...)
; processing (DEFGENERIC HTTP-METHOD ...)
; processing (DEFUN PURI-CANONICALIZED-PATH ...)
; processing (DEFGENERIC SIGNED-PATH ...)
; processing (DEFGENERIC REQUEST-PATH ...)
; processing (DEFGENERIC ALL-AMAZON-HEADERS ...)
; processing (DEFGENERIC DATE-STRING ...)
; processing (DEFUN HEADERS-FOR-SIGNING ...)
; file: /usr/share/common-lisp/source/zs3/request.lisp
; in: DEFUN HEADERS-FOR-SIGNING
; (ZS3:PARAMETERS-ALIST "host" (ZS3::HOST ZS3::REQUEST) "content-type"
; (ZS3::CONTENT-TYPE ZS3::REQUEST))
;
; caught STYLE-WARNING:
; The first argument of type (SIMPLE-ARRAY CHARACTER (4)) cannot be used as a keyword.
;
; caught STYLE-WARNING:
; The third argument of type (SIMPLE-ARRAY CHARACTER (12)) cannot be used as a keyword.
; processing (DEFUN CANONICAL-HEADERS ...)
; processing (DEFUN SIGNED-HEADERS ...)
; processing (DEFUN PARAMETERS-FOR-SIGNING ...)
; processing (DEFUN CANONICAL-PARAMETERS ...)
; processing (DEFUN CANONICAL-PARAMETERS-STRING ...)
; processing (DEFUN PATH-TO-SIGN ...)
; processing (DEFUN CANONICALIZED-REQUEST-LINES ...)
; processing (DEFUN STRING-TO-SIGN-LINES ...)
; processing (DEFUN MAKE-SIGNING-KEY ...)
; processing (DEFUN PAYLOAD-SHA256 ...)
; processing (DEFUN REQUEST-SIGNATURE ...)
; processing (DEFMETHOD AUTHORIZATION-HEADER-VALUE ...)
; processing (DEFGENERIC DRAKMA-HEADERS ...)
; processing (DEFGENERIC URL ...)
; processing (DEFUN SEND-FILE-CONTENT ...)
; processing (DEFGENERIC SEND ...)
; processing (DEFMETHOD ACCESS-KEY ...)
; processing (DEFMETHOD SECRET-KEY ...)
; processing (DEFMETHOD SECURITY-TOKEN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/request-tmpAQVW5185.fasl
; compilation finished in 0:00:01.039
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "zs3" "request">
; compiling file "/usr/share/common-lisp/source/zs3/response.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFVAR *RESPONSE-ELEMENT-CLASSES* ...)
; processing (DEFUN SET-ELEMENT-CLASS ...)
; processing (DEFCLASS RESPONSE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC XML-STRING ...)
; processing (DEFGENERIC RESPONSE-SPECIALIZED-CLASS ...)
; processing (DEFGENERIC SPECIALIZED-INITIALIZE ...)
; processing (DEFGENERIC CONTENT-LENGTH ...)
; processing (DEFGENERIC SPECIALIZE-RESPONSE ...)
; processing (DEFUN CLOSE-KEEP-ALIVE ...)
; processing (DEFUN REQUEST-RESPONSE ...)
; processing (DEFVAR *BACKOFF* ...)
; processing (DEFUN SUBMIT-REQUEST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/response-tmpM9VOIYT.fasl
; compilation finished in 0:00:00.576
WARNING: redefining ZS3::CONTENT-LENGTH in DEFGENERIC
; compiling file "/usr/share/common-lisp/source/zs3/objects.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFCLASS PERSON ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS BUCKET ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD NAME ...)
; processing (DEFCLASS KEY ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/objects-tmpM0KC6SLR.fasl
; compilation finished in 0:00:00.136
; compiling file "/usr/share/common-lisp/source/zs3/bucket-listing.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFBINDER ALL-BUCKETS ...)
; processing (DEFCLASS ALL-BUCKETS ...)
; processing (SET-ELEMENT-CLASS "ListAllMyBucketsResult" ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; processing (DEFBINDER LIST-BUCKET-RESULT ...)
; processing (DEFCLASS BUCKET-LISTING ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (SET-ELEMENT-CLASS "ListBucketResult" ...)
; processing (DEFUN KEY-BINDING-KEY ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; processing (DEFGENERIC SUCCESSIVE-MARKER ...)
; processing (DEFGENERIC SUCCESSIVE-REQUEST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/bucket-listing-tmpQU5U0I7.fasl
; compilation finished in 0:00:00.391
; compiling file "/usr/share/common-lisp/source/zs3/errors.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFBINDER ERROR ...)
; processing (DEFCLASS AMAZON-ERROR ...)
; processing (SET-ELEMENT-CLASS "Error" ...)
; processing (DEFGENERIC ERROR-DATA-VALUE ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN REPORT-REQUEST-ERROR ...)
; processing (DEFINE-CONDITION REQUEST-ERROR ...)
; processing (DEFPARAMETER *SPECIFIC-ERRORS* ...)
; processing (DEFUN SPECIFIC-ERROR ...)
; processing (DEFGENERIC SIGNAL-SPECIFIC-ERROR ...)
; processing (DEFGENERIC MAYBE-SIGNAL-ERROR ...)
; processing (DEFUN ERROR-READER-NAME ...)
; processing (DEFMACRO DEFINE-SPECIFIC-ERROR ...)
; processing (DEFINE-SPECIFIC-ERROR (INTERNAL-ERROR "InternalError") ...)
; processing (DEFINE-SPECIFIC-ERROR (SLOW-DOWN "SlowDown") ...)
; processing (DEFINE-SPECIFIC-ERROR (NO-SUCH-BUCKET "NoSuchBucket") ...)
; processing (DEFINE-SPECIFIC-ERROR (NO-SUCH-KEY "NoSuchKey") ...)
; processing (DEFINE-SPECIFIC-ERROR (ACCESS-DENIED "AccessDenied") ...)
; processing (DEFINE-SPECIFIC-ERROR (MALFORMED-XML "MalformedXML") ...)
; processing (DEFINE-CONDITION REDIRECT-ERROR ...)
; processing (DEFINE-SPECIFIC-ERROR (PERMANENT-REDIRECT "PermanentRedirect") ...)
; processing (DEFINE-SPECIFIC-ERROR (TEMPORARY-REDIRECT "TemporaryRedirect") ...)
; processing (DEFINE-SPECIFIC-ERROR (SIGNATURE-MISMATCH "SignatureDoesNotMatch") ...)
; processing (DEFINE-SPECIFIC-ERROR (PRECONDITION-FAILED "PreconditionFailed") ...)
; processing (DEFINE-SPECIFIC-ERROR (AUTHORIZATION-HEADER-MALFORMED "AuthorizationHeaderMalformed") ...)
; processing (DEFINE-CONDITION LINKED ...)
; processing (DEFINE-CONDITION BUCKET-RESTRICTIONS ...)
; processing (DEFINE-SPECIFIC-ERROR (INVALID-BUCKET-NAME "InvalidBucketName") ...)
; processing (DEFINE-SPECIFIC-ERROR (BUCKET-EXISTS "BucketAlreadyExists") ...)
; processing (DEFINE-SPECIFIC-ERROR (TOO-MANY-BUCKETS "TooManyBuckets") ...)
; processing (DEFINE-SPECIFIC-ERROR (AMBIGUOUS-GRANT "AmbiguousGrantByEmailAddress") ...)
; processing (DEFINE-SPECIFIC-ERROR (BUCKET-NOT-EMPTY "BucketNotEmpty") ...)
; processing (DEFINE-SPECIFIC-ERROR (INVALID-LOGGING-TARGET "InvalidTargetBucketForLogging") ...)
; processing (DEFINE-SPECIFIC-ERROR (KEY-TOO-LONG "KeyTooLong") ...)
; processing (DEFINE-SPECIFIC-ERROR (REQUEST-TIME-SKEWED "RequestTimeTooSkewed") ...)
; processing (DEFINE-SPECIFIC-ERROR (OPERATION-ABORTED "OperationAborted") ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/errors-tmpB1C277GP.fasl
; compilation finished in 0:00:00.865
; compiling file "/usr/share/common-lisp/source/zs3/acl.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFCLASS ACCESS-CONTROL-LIST ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS GRANT ...)
; processing (DEFCLASS ACL-PERSON ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFCLASS ACL-EMAIL ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS ACL-GROUP ...)
; processing (DEFMETHOD SLOT-UNBOUND ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC GRANTEE-FOR-PRINT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFPARAMETER *PERMISSIONS* ...)
; processing (DEFUN PERMISSION-NAME ...)
; processing (DEFUN PERMISSION-KEYWORD ...)
; processing (DEFPARAMETER *ALL-USERS* ...)
; processing (DEFPARAMETER *AWS-USERS* ...)
; processing (DEFPARAMETER *LOG-DELIVERY* ...)
; processing (DEFGENERIC ACL-SERIALIZE ...)
; processing (DEFMETHOD ACL-SERIALIZE ...)
; processing (DEFVAR *XSI* ...)
; processing (DEFGENERIC XSI-TYPE ...)
; processing (DEFMETHOD ACL-SERIALIZE ...)
; processing (DEFMETHOD ACL-SERIALIZE ...)
; processing (DEFMETHOD ACL-SERIALIZE ...)
; processing (DEFMETHOD ACL-SERIALIZE ...)
; processing (DEFBINDER ACCESS-CONTROL-POLICY ...)
; processing (DEFCLASS ACL-RESPONSE ...)
; processing (SET-ELEMENT-CLASS "AccessControlPolicy" ...)
; processing (DEFGENERIC ACL-EQV ...)
; processing (DEFUN ENSURE-ACL-GROUP ...)
; processing (DEFUN ALIST-GRANT ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; processing (DEFUN GRANT ...)
; processing (DEFUN ACL-EMAIL ...)
; processing (DEFUN ACL-PERSON ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/acl-tmp58ND4X5G.fasl
; compilation finished in 0:00:00.692
; compiling file "/usr/share/common-lisp/source/zs3/logging.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFCLASS LOGGING-SETUP ...)
; processing (DEFCLASS LOGGING ...)
; processing (DEFBINDER BUCKET-LOGGING-STATUS ...)
; processing (DEFUN BINDINGS-LOGGING-SETUP ...)
; processing (DEFGENERIC LOG-SERIALIZE ...)
; processing (SET-ELEMENT-CLASS "BucketLoggingStatus" ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/logging-tmpH90J3EFF.fasl
; compilation finished in 0:00:00.151
; compiling file "/usr/share/common-lisp/source/zs3/location.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFBINDER LOCATION-CONSTRAINT ...)
; processing (DEFCLASS LOCATION-CONSTRAINT ...)
; processing (SET-ELEMENT-CLASS "LocationConstraint" ...)
; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...)
; processing (DEFUN LOCATION-CONSTRAINT-XML ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/location-tmpPLFNE4NR.fasl
; compilation finished in 0:00:00.075
; compiling file "/usr/share/common-lisp/source/zs3/interface.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFPARAMETER *CANNED-ACCESS-POLICIES* ...)
; processing (DEFUN CANNED-ACCESS-POLICY ...)
; processing (DEFUN ACCESS-POLICY-HEADER ...)
; processing (DEFUN HEAD ...)
; processing (DEFUN ALL-BUCKETS ...)
; processing (DEFUN BUCKET-LOCATION ...)
; processing (DEFUN BUCKET-REGION ...)
; processing (DEFUN REGION-ENDPOINT ...)
; processing (DEFUN QUERY-BUCKET ...)
; processing (DEFUN CONTINUE-BUCKET-QUERY ...)
; processing (DEFUN ALL-KEYS ...)
; processing (DEFUN BUCKET-EXISTS-P ...)
; processing (DEFUN CREATE-BUCKET ...)
; processing (DEFUN DELETE-BUCKET ...)
; processing (DEFUN CHECK-REQUEST-SUCCESS ...)
; processing (DEFUN MAKE-FILE-WRITER-HANDLER ...)
; processing (DEFUN VECTOR-WRITER-HANDLER ...)
; processing (DEFUN STREAM-IDENTITY-HANDLER ...)
; processing (DEFUN MAKE-STRING-WRITER-HANDLER ...)
; processing (DEFUN GET-OBJECT ...)
; processing (DEFUN GET-VECTOR ...)
; processing (DEFUN GET-STRING ...)
; processing (DEFUN GET-FILE ...)
; processing (DEFUN FORMAT-TAGGING-HEADER ...)
; processing (DEFUN PUT-OBJECT ...)
; processing (DEFUN PUT-VECTOR ...)
; processing (DEFUN PUT-STRING ...)
; processing (DEFUN PUT-FILE ...)
; processing (DEFUN PUT-STREAM ...)
; processing (DEFUN DELETE-OBJECT ...)
; processing (DEFUN BULK-DELETE-DOCUMENT ...)
; processing (DEFBINDER DELETE-OBJECTS-RESULT ...)
; processing (DEFUN DELETE-OBJECTS ...)
; processing (DEFUN DELETE-ALL-OBJECTS ...)
; processing (DEFUN COPY-OBJECT ...)
; processing (DEFUN OBJECT-METADATA ...)
; processing (DEFUN SET-STORAGE-CLASS ...)
; processing (DEFPARAMETER *PUBLIC-READ-GRANT* ...)
; processing (DEFUN GET-ACL ...)
; processing (DEFUN PUT-ACL ...)
; processing (DEFUN MAKE-PUBLIC ...)
; processing (DEFUN MAKE-PRIVATE ...)
; processing (DEFPARAMETER *LOG-DELIVERY-GRANTS* ...)
; processing (DEFUN ENABLE-LOGGING-TO ...)
; processing (DEFUN DISABLE-LOGGING-TO ...)
; processing (DEFUN ENABLE-LOGGING ...)
; processing (DEFPARAMETER *EMPTY-LOGGING-SETUP* ...)
; processing (DEFUN DISABLE-LOGGING ...)
; processing (DEFUN LOGGING-SETUP ...)
; processing (DEFCLASS URL-BASED-REQUEST ...)
; processing (DEFMETHOD DATE-STRING ...)
; processing (DEFUN RESOURCE-URL ...)
; processing (DEFUN AUTHORIZED-URL ...)
; file: /usr/share/common-lisp/source/zs3/interface.lisp
; in: DEFUN AUTHORIZED-URL
; (ZS3:PARAMETERS-ALIST "X-Amz-Algorithm" "AWS4-HMAC-SHA256" "X-Amz-Credential"
; (FORMAT NIL "~A/~A/~A/s3/aws4_request"
; (ZS3:ACCESS-KEY ZS3:*CREDENTIALS*)
; (ZS3::ISO8601-BASIC-DATE-STRING
; (ZS3::DATE ZS3::REQUEST))
; (ZS3::REGION ZS3::REQUEST))
; "X-Amz-Date"
; (ZS3::ISO8601-BASIC-TIMESTAMP-STRING
; (ZS3::DATE ZS3::REQUEST))
; "X-Amz-Expires" (- ZS3::EXPIRES (GET-UNIVERSAL-TIME))
; "X-Amz-SignedHeaders"
; (FORMAT NIL "~{~A~^;~}"
; (ZS3::SIGNED-HEADERS ZS3::REQUEST)))
;
; caught STYLE-WARNING:
; The first argument of type (SIMPLE-ARRAY CHARACTER (15)) cannot be used as a keyword.
;
; caught STYLE-WARNING:
; The third argument of type (SIMPLE-ARRAY CHARACTER (16)) cannot be used as a keyword.
;
; caught STYLE-WARNING:
; The fifth argument of type (SIMPLE-ARRAY CHARACTER (10)) cannot be used as a keyword.
;
; caught STYLE-WARNING:
; The seventh argument of type (SIMPLE-ARRAY CHARACTER (13)) cannot be used as a keyword.
;
; caught STYLE-WARNING:
; The ninth argument of type (SIMPLE-ARRAY CHARACTER (19)) cannot be used as a keyword.
; processing (DEFPARAMETER *ME-CACHE* ...)
; processing (DEFUN ME ...)
; processing (DEFUN MAKE-POST-POLICY ...)
; processing (DEFBINDER GET-TAGGING-RESULT ...)
; processing (DEFUN GET-TAGGING ...)
; processing (DEFUN PUT-TAGGING ...)
; processing (DEFUN DELETE-TAGGING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/interface-tmp5PEZMBPM.fasl
; compilation finished in 0:00:03.390
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "zs3" "interface">
; compiling file "/usr/share/common-lisp/source/zs3/cloudfront.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFVAR *CANONICAL-BUCKET-NAME-SUFFIX* ...)
; processing (DEFPARAMETER *CALLER-REFERENCE-COUNTER* ...)
; processing (DEFPARAMETER *CLOUDFRONT-BASE-URL* ...)
; processing (DEFPARAMETER *DISTRIBUTION-SPECIFIC-ERRORS* ...)
; processing (DEFBINDER DISTRIBUTION-ERROR-RESPONSE ...)
; processing (DEFINE-CONDITION DISTRIBUTION-ERROR ...)
; processing (DEFMACRO DEFINE-SPECIFIC-DISTRIBUTION-ERROR ...)
; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "InvalidIfMatchVersion" ...)
; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "PreconditionFailed" ...)
; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "DistributionNotDisabled" ...)
; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "CNAMEAlreadyExists" ...)
; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "TooManyDistributions" ...)
; processing (DEFUN MAYBE-SIGNAL-DISTRIBUTION-ERROR ...)
; processing (DEFUN CANONICAL-DISTRIBUTION-BUCKET-NAME ...)
; processing (DEFUN GENERATE-CALLER-REFERENCE ...)
; processing (DEFCLASS DISTRIBUTION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN DISTRIBUTION-DOCUMENT ...)
; processing (DEFUN DISTRIBUTION-REQUEST-HEADERS ...)
; processing (DEFUN DISTRIBUTION-REQUEST ...)
; processing (DEFBINDER DISTRIBUTION-CONFIG ...)
; processing (DEFBINDER DISTRIBUTION ...)
; processing (DEFUN BINDINGS-DISTRIBUTION ...)
; processing (DEFUN PUT-CONFIG ...)
; processing (DEFUN LATEST-VERSION ...)
; processing (DEFUN MERGE-INTO ...)
; processing (DEFGENERIC REFRESH ...)
; processing (DEFUN CALL-WITH-LATEST ...)
; processing (DEFUN MODIFY-AND-SAVE ...)
; processing (DEFMACRO WITH-SAVED-MODIFICATIONS ...)
; processing (DEFBINDER DISTRIBUTION-LIST ...)
; processing (DEFUN ALL-DISTRIBUTIONS ...)
; processing (DEFUN CREATE-DISTRIBUTION ...)
; processing (DEFUN %DELETE-DISTRIBUTION ...)
; processing (DEFGENERIC DELETE-DISTRIBUTION ...)
; processing (DEFGENERIC ENABLE ...)
; processing (DEFGENERIC DISABLE ...)
; processing (DEFGENERIC ENSURE-CNAME ...)
; processing (DEFGENERIC REMOVE-CNAME ...)
; processing (DEFGENERIC SET-COMMENT ...)
; processing (DEFUN DISTRIBUTIONS-FOR-BUCKET ...)
; processing (DEFCLASS INVALIDATION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFBINDER INVALIDATION-BATCH ...)
; processing (DEFBINDER INVALIDATION ...)
; processing (DEFMETHOD MERGE-BINDINGS ...)
; processing (DEFGENERIC DISTRIBUTION-ID ...)
; processing (DEFUN INVALIDATION-REQUEST ...)
; processing (DEFUN INVALIDATION-BATCH-DOCUMENT ...)
; processing (DEFUN INVALIDATE-PATHS ...)
; processing (DEFMETHOD REFRESH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/cloudfront-tmpIMYZJWR0.fasl
; compilation finished in 0:00:01.230
; compiling file "/usr/share/common-lisp/source/zs3/lifecycle.lisp" (written 24 DEC 2017 11:53:51 PM):
; processing (IN-PACKAGE #:ZS3)
; processing (DEFBINDER LIFECYCLE-CONFIGURATION ...)
; processing (DEFCLASS LIFECYCLE-RULE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD DISABLE ...)
; processing (DEFMETHOD ENABLE ...)
; processing (DEFUN LIFECYCLE-RULE ...)
; processing (DEFUN LIFECYCLE-DOCUMENT ...)
; processing (DEFUN BINDINGS-LIFECYCLE-RULES ...)
; processing (DEFINE-SPECIFIC-ERROR (NO-SUCH-LIFECYCLE-CONFIGURATION "NoSuchLifecycleConfiguration") ...)
; processing (DEFUN BUCKET-LIFECYCLE ...)
; processing (DEFUN DELETE-BUCKET-LIFECYCLE ...)
; processing (DEFUN (SETF BUCKET-LIFECYCLE) ...)
; processing (DEFUN RESTORE-REQUEST-DOCUMENT ...)
; processing (DEFUN RESTORE-OBJECT ...)
; processing (DEFUN OBJECT-RESTORATION-STATUS ...)
; processing (DEFINE-SPECIFIC-ERROR (RESTORE-ALREADY-IN-PROGRESS "RestoreAlreadyInProgress") ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/zs3/lifecycle-tmpGORPOONI.fasl
; compilation finished in 0:00:00.657
; compiling file "/<<PKGBUILDDIR>>/src/params.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (DEFPACKAGE #:PGLOADER.PARAMS ...)
; processing (IN-PACKAGE :PGLOADER.PARAMS)
; processing (DEFPARAMETER *RELEASE* ...)
; processing (DEFPARAMETER *MAJOR-VERSION* ...)
; processing (DEFPARAMETER *MINOR-VERSION* ...)
; processing (DEFUN GIT-HASH ...)
; processing (DEFPARAMETER *VERSION-STRING* ...)
; processing (DEFVAR *SELF-UPGRADE-IMMUTABLE-SYSTEMS* ...)
; processing (DEFUN GETENV-DEFAULT ...)
; processing (DEFPARAMETER *DRY-RUN* ...)
; processing (DEFPARAMETER *ON-ERROR-STOP* ...)
; processing (DEFINE-CONDITION ON-ERROR-STOP ...)
; processing (DEFPARAMETER *FD-PATH-ROOT* ...)
; processing (DEFPARAMETER *ROOT-DIR* ...)
; processing (DEFPARAMETER *LOG-FILENAME* ...)
; processing (DEFPARAMETER *SUMMARY-PATHNAME* ...)
; processing (DEFPARAMETER *CLIENT-MIN-MESSAGES* ...)
; processing (DEFPARAMETER *LOG-MIN-MESSAGES* ...)
; processing (DEFPARAMETER *REPORT-STREAM* ...)
; processing (DEFVAR *PGSQL-RESERVED-KEYWORDS* ...)
; processing (DEFPARAMETER *IDENTIFIER-CASE* ...)
; processing (DEFPARAMETER *PRESERVE-INDEX-NAMES* ...)
; processing (DEFPARAMETER *COPY-BATCH-ROWS* ...)
; processing (DEFPARAMETER *COPY-BATCH-SIZE* ...)
; processing (DEFPARAMETER *PREFETCH-ROWS* ...)
; processing (DEFPARAMETER *ROWS-PER-RANGE* ...)
; processing (DEFPARAMETER *PG-SETTINGS* ...)
; processing (DEFPARAMETER *MYSQL-SETTINGS* ...)
; processing (DEFPARAMETER *MSSQL-SETTINGS* ...)
; processing (DEFPARAMETER *DEFAULT-TMPDIR* ...)
; processing (DEFUN INIT-PARAMS-FROM-ENVIRONMENT ...)
; processing (DEFVAR *CONTEXT* ...)
; processing (DEFPARAMETER +OS-CODE-SUCCESS+ ...)
; processing (DEFPARAMETER +OS-CODE-ERROR+ ...)
; processing (DEFPARAMETER +OS-CODE-ERROR-USAGE+ ...)
; processing (DEFPARAMETER +OS-CODE-ERROR-BAD-SOURCE+ ...)
; processing (DEFPARAMETER +OS-CODE-ERROR-REGRESS+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/params-tmp3HCWDI41.fasl
; compilation finished in 0:00:00.121
; compiling file "/<<PKGBUILDDIR>>/src/package.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (DEFUN EXPORT-INHERITED-SYMBOLS ...)
; processing (DEFPACKAGE #:PGLOADER.TRANSFORMS ...)
; processing (DEFPACKAGE #:PGLOADER.LOGS ...)
; processing (DEFPACKAGE #:PGLOADER.QUOTING ...)
; processing (DEFPACKAGE #:PGLOADER.CATALOG ...)
; processing (DEFPACKAGE #:PGLOADER.STATE ...)
; processing (DEFPACKAGE #:PGLOADER.MONITOR ...)
; processing (DEFPACKAGE #:PGLOADER.QUERIES ...)
; processing (DEFPACKAGE #:PGLOADER.CITUS ...)
; processing (DEFPACKAGE #:PGLOADER.UTILS ...)
; processing (EXPORT-INHERITED-SYMBOLS "pgloader.queries" ...)
; processing (EXPORT-INHERITED-SYMBOLS "pgloader.quoting" ...)
; processing (EXPORT-INHERITED-SYMBOLS "pgloader.catalog" ...)
; processing (EXPORT-INHERITED-SYMBOLS "pgloader.monitor" ...)
; processing (EXPORT-INHERITED-SYMBOLS "pgloader.state" ...)
; processing (EXPORT-INHERITED-SYMBOLS "pgloader.citus" ...)
; processing (DEFPACKAGE #:PGLOADER.ARCHIVE ...)
; processing (DEFPACKAGE #:PGLOADER.PARSE-DATE ...)
; processing (DEFPACKAGE #:PGLOADER.CONNECTION ...)
; processing (DEFPACKAGE #:PGLOADER.PGSQL ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCES ...)
; processing (DEFPACKAGE #:PGLOADER.PGCOPY ...)
; processing (DEFPACKAGE #:PGLOADER.LOAD ...)
; processing (DEFPACKAGE #:PGLOADER.INI ...)
; processing (DEFPACKAGE #:PGLOADER.SQL ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.CSV ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.FIXED ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.COPY ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.IXF ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.DB3 ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.MYSQL ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.PGSQL ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.SQLITE ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.MSSQL ...)
; processing (DEFPACKAGE #:PGLOADER.SOURCE.MSSQL.INDEX-FILTER ...)
; processing (DEFPACKAGE #:PGLOADER.SYSLOG ...)
; processing (DEFPACKAGE #:PGLOADER.PARSER ...)
; processing (DEFPACKAGE #:PGLOADER ...)
; processing (IN-PACKAGE #:PGLOADER)
; processing (LOOP FOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/package-tmpGQKYVA5X.fasl
; compilation finished in 0:00:00.189
WARNING: PGLOADER.UTILS also exports the following symbols:
(PGLOADER.CATALOG:INDEX-FK-DEPS PGLOADER.CATALOG:EXTENSION-SCHEMA
PGLOADER.QUOTING:ENSURE-QUOTED PGLOADER.MONITOR:PROCESS-BAD-ROW
PGLOADER.STATE:REPORT-HEADER PGLOADER.CITUS:CITUS-REFERENCE-RULE-TABLE
PGLOADER.CATALOG:INDEX-OID PGLOADER.CATALOG:PROCEDURE-NAME
PGLOADER.CATALOG:COUNT-INDEXES PGLOADER.CATALOG:SCHEMA-EXTENSION-LIST
PGLOADER.CATALOG:MAKE-REGEX-MATCH-RULE PGLOADER.CATALOG:MAKE-COLUMN
PGLOADER.CATALOG:INDEX-PRIMARY PGLOADER.CITUS:CITUS-DISTRIBUTE-SCHEMA
PGLOADER.CATALOG:MAKE-TRIGGER PGLOADER.MONITOR:ELAPSED-TIME-SINCE
PGLOADER.CATALOG:EXTENSION-NAME PGLOADER.CATALOG:MAKE-INDEX
PGLOADER.STATE:MAKE-PGSTATE PGLOADER.STATE:PGTABLE-START
PGLOADER.CATALOG:TABLE-LIST PGLOADER.CATALOG:CITUS-REFERENCE-RULE
PGLOADER.CATALOG:CATALOG-NAME PGLOADER.CATALOG:INDEX-SCHEMA
PGLOADER.CATALOG:MATVIEW PGLOADER.CATALOG:MAYBE-ADD-TABLE
PGLOADER.CATALOG:CITUS-REFERENCE-RULE-RULE PGLOADER.CATALOG:FORMAT-DROP-SQL
PGLOADER.STATE:PGSTATE-ERRS PGLOADER.CATALOG:COUNT-FKEYS
PGLOADER.CATALOG:FIND-VIEW PGLOADER.CATALOG:INDEX-SQL
PGLOADER.CATALOG:FIND-TABLE PGLOADER.CATALOG:COLUMN
PGLOADER.STATE:PGTABLE-ROWS PGLOADER.CATALOG:EXTENSION-LIST
PGLOADER.CATALOG:TABLE PGLOADER.CATALOG:COLUMN-NAME
PGLOADER.STATE:REPORT-SUMMARY PGLOADER.STATE:PGSTATE-GET-LABEL
PGLOADER.STATE:REPORT-RESULTS PGLOADER.CATALOG:TABLE-STORAGE-PARAMETER-LIST
PGLOADER.CATALOG:COLUMN-TRANSFORM PGLOADER.CATALOG:MAKE-MATCH-RULE
PGLOADER.CATALOG:TRIGGER PGLOADER.CATALOG:MAYBE-ADD-INDEX
PGLOADER.STATE:PGSTATE-TABNAMES PGLOADER.CATALOG:SCHEMA-CATALOG
PGLOADER.CATALOG:SQLTYPE-LIST PGLOADER.CATALOG:COLUMN-COMMENT
PGLOADER.CATALOG:TABLE-OID PGLOADER.STATE:PGSTATE-INCF
PGLOADER.CITUS:CITUS-REFERENCE-RULE-P PGLOADER.CATALOG:MATCH-RULE
PGLOADER.CITUS:CITUS-RULE-TABLE-NOT-FOUND PGLOADER.CATALOG:TABLE-CITUS-RULE
PGLOADER.CATALOG:MATVIEW-NAME PGLOADER.CATALOG:TRIGGER-ACTION
PGLOADER.STATE:GET-STATE-SECTION PGLOADER.MONITOR:*MONITORING-KERNEL*
PGLOADER.QUERIES:*QUERIES* PGLOADER.CATALOG:INDEX-CONNAME
PGLOADER.CATALOG:MAKE-MATVIEW PGLOADER.CATALOG:PROCEDURE-LANGUAGE
PGLOADER.CATALOG:INDEX-COLUMNS PGLOADER.CATALOG:TABLE-TRIGGER-LIST
PGLOADER.STATE:PGTABLE-STOP PGLOADER.CATALOG:MATCH-RULE-ARGS
PGLOADER.CATALOG:REGEX-MATCH-RULE-TARGET
PGLOADER.CATALOG:MATVIEW-SOURCE-NAME PGLOADER.CATALOG:MAYBE-ADD-FKEY
PGLOADER.STATE:PGTABLE-BYTES PGLOADER.CATALOG:FKEY-MATCH-RULE
PGLOADER.MONITOR:STOP-MONITOR PGLOADER.QUERIES:SQL-URL-FOR-VARIANT
PGLOADER.CATALOG:FKEY-DELETE-RULE PGLOADER.QUOTING:ENSURE-UNQUOTED
PGLOADER.MONITOR:UPDATE-STATS PGLOADER.CATALOG:CITUS-BACKFILL-TABLE-P
PGLOADER.CATALOG:MAKE-CITUS-REFERENCE-RULE PGLOADER.CATALOG:ADD-COLUMN
PGLOADER.STATE:REPORT-PGTABLE-STATS PGLOADER.CATALOG:FIND-INDEX
PGLOADER.CATALOG:MAYBE-ADD-SCHEMA PGLOADER.CATALOG:ADD-SCHEMA
PGLOADER.CATALOG:MATVIEW-DEFINITION PGLOADER.CATALOG:PROCEDURE-BODY
PGLOADER.CATALOG:MAKE-SCHEMA PGLOADER.STATE:REPORT-PGSTATE-STATS
PGLOADER.CATALOG:SQLTYPE-SCHEMA PGLOADER.CATALOG:TRIGGER-NAME
PGLOADER.CITUS:CITUS-DISTRIBUTED-RULE-P PGLOADER.MONITOR:*MONITORING-QUEUE*
PGLOADER.CATALOG:FORMAT-DEFAULT-VALUE PGLOADER.STATE:STATE-SECS
PGLOADER.CATALOG:COLUMN-TYPE-NAME PGLOADER.CATALOG:CATALOG
PGLOADER.MONITOR:FLUSH-SUMMARY PGLOADER.CATALOG:SCHEMA-SQLTYPE-LIST
PGLOADER.STATE:PGSTATE-SECS PGLOADER.CATALOG:REGEX-MATCH-RULE
PGLOADER.CATALOG:ALTER-TABLE PGLOADER.CATALOG:INDEX-FILTER
PGLOADER.STATE:CREATE-STATE PGLOADER.CATALOG:SQLTYPE-EXTENSION
PGLOADER.CATALOG:SQLTYPE-EXTRA PGLOADER.CATALOG:ADD-EXTENSION
PGLOADER.CATALOG:INDEX-CONDEF PGLOADER.STATE:PGSTATE-READ
PGLOADER.CATALOG:TABLE-FKEY-LIST PGLOADER.CATALOG:MAKE-FKEY
PGLOADER.CATALOG:SCHEMA-TABLE-LIST PGLOADER.QUERIES:SQL
PGLOADER.CITUS:CITUS-RULE-IS-MISSING-FROM-LIST PGLOADER.CATALOG:TRIGGER-P
PGLOADER.MONITOR:START-MONITOR PGLOADER.CATALOG:SCHEMA-IN-SEARCH-PATH
PGLOADER.CATALOG:PUSH-TO-END PGLOADER.CATALOG:INDEX-UNIQUE
PGLOADER.MONITOR:WITH-STATS-COLLECTION PGLOADER.CATALOG:SCHEMA
PGLOADER.CATALOG:MAKE-TABLE PGLOADER.CATALOG:MAX-INDEXES-PER-TABLE
PGLOADER.CATALOG:SCHEMA-SOURCE-NAME PGLOADER.CATALOG:INDEX-TABLE
PGLOADER.QUOTING:QUOTED-P PGLOADER.CATALOG:TABLE-INDEX-LIST
PGLOADER.CATALOG:FIND-FKEY PGLOADER.CATALOG:MAKE-PROCEDURE
PGLOADER.CATALOG:MATCH-RULE-ACTION PGLOADER.CATALOG:ADD-INDEX
PGLOADER.CATALOG:TRIGGER-PROCEDURE PGLOADER.MONITOR:MONITOR-ERROR
PGLOADER.CATALOG:VIEW-LIST PGLOADER.STATE:REPORT-FOOTER
PGLOADER.CATALOG:ADD-TABLE PGLOADER.CATALOG:FKEY-INITIALLY-DEFERRED
PGLOADER.STATE:MAKE-STATE PGLOADER.CATALOG:MATCH-RULE-SCHEMA
PGLOADER.CATALOG:MAKE-STRING-MATCH-RULE PGLOADER.CATALOG:TABLE-SCHEMA
PGLOADER.CATALOG:PROCEDURE PGLOADER.CATALOG:COLUMN-EXTRA
PGLOADER.CATALOG:ADD-VIEW PGLOADER.CATALOG:TABLE-FIELD-LIST
PGLOADER.CATALOG:INDEX PGLOADER.CATALOG:MAYBE-ADD-EXTENSION
PGLOADER.STATE:PGSTATE-ROWS PGLOADER.CATALOG:PROCEDURE-SCHEMA
PGLOADER.CATALOG:FORMAT-TABLE-NAME PGLOADER.CATALOG:STRING-MATCH-RULE
PGLOADER.CATALOG:TRIGGER-TABLE PGLOADER.STATE:PGSTATE-NEW-LABEL
PGLOADER.STATE:REPORT-FULL-SUMMARY PGLOADER.CATALOG:FKEY-CONDEF
PGLOADER.CATALOG:FIELD-NAME PGLOADER.CATALOG:COLUMN-TYPE-MOD
PGLOADER.CATALOG:ADD-FKEY PGLOADER.CATALOG:MATVIEW-SCHEMA
PGLOADER.CATALOG:FKEY-NAME PGLOADER.CATALOG:SCHEMA-VIEW-LIST
PGLOADER.CATALOG:ADD-SQLTYPE PGLOADER.CATALOG:FKEY-FOREIGN-COLUMNS
PGLOADER.CATALOG:MAKE-CATALOG PGLOADER.CATALOG:FKEY-UPDATE-RULE
PGLOADER.CATALOG:FORMAT-CREATE-SQL PGLOADER.CATALOG:COUNT-TABLES
PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE-TABLE
PGLOADER.STATE:PGTABLE-INITIALIZE-REJECT-FILES
PGLOADER.CATALOG:COLUMN-NULLABLE PGLOADER.STATE:PGSTATE-DECF
PGLOADER.CATALOG:SCHEMA-NAME PGLOADER.CATALOG:FIND-EXTENSION
PGLOADER.MONITOR:NEW-LABEL PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE-FROM
PGLOADER.CATALOG:FKEY-DEFERRABLE PGLOADER.CATALOG:MATCHES
PGLOADER.MONITOR:TIMING PGLOADER.QUOTING:APPLY-IDENTIFIER-CASE
PGLOADER.CATALOG:SQLTYPE-NAME PGLOADER.CATALOG:CREATE-TABLE
PGLOADER.CATALOG:WITH-SCHEMA PGLOADER.CATALOG:TABLE-TABLESPACE
PGLOADER.MONITOR:LOG-MESSAGE PGLOADER.STATE:PGSTATE-SETF
PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE-USING
PGLOADER.CATALOG:STRING-MATCH-RULE-TARGET PGLOADER.CATALOG:MAKE-SQLTYPE
PGLOADER.QUOTING:BUILD-IDENTIFIER
PGLOADER.CATALOG:CATALOG-DISTRIBUTION-RULES PGLOADER.CATALOG:COLUMN-DEFAULT
PGLOADER.CATALOG:FKEY-FOREIGN-TABLE PGLOADER.CATALOG:CITUS-FORMAT-SQL-SELECT
PGLOADER.STATE:PGTABLE-REJECT-LOGS PGLOADER.CATALOG:TABLE-COLUMN-LIST
PGLOADER.MONITOR:SEND-EVENT PGLOADER.CATALOG:FKEY-TABLE
PGLOADER.CATALOG:CATALOG-TYPES-WITHOUT-BTREE
PGLOADER.CATALOG:PROCEDURE-RETURNS PGLOADER.CATALOG:SQLTYPE-SOURCE-DEF
PGLOADER.STATE:PGSTATE-TABLES PGLOADER.STATE:REPORT-TABLE-NAME
PGLOADER.CATALOG:TABLE-SOURCE-NAME PGLOADER.CATALOG:INDEX-TYPE
PGLOADER.CATALOG:TABLE-COMMENT PGLOADER.CATALOG:FKEY-OID
PGLOADER.CATALOG:EXTENSION PGLOADER.CATALOG:FIND-SCHEMA
PGLOADER.CATALOG:CATALOG-SCHEMA-LIST PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE
PGLOADER.CATALOG:SQLTYPE PGLOADER.STATE:STATE-DATA
PGLOADER.CATALOG:MAYBE-ADD-VIEW PGLOADER.STATE:STATE-POSTLOAD
PGLOADER.CATALOG:MATCH-RULE-RULE PGLOADER.CATALOG:CAST
PGLOADER.CATALOG:INDEX-NAME PGLOADER.MONITOR:WITH-MONITOR
PGLOADER.CATALOG:COUNT-VIEWS PGLOADER.STATE:PGTABLE-REJECT-DATA
PGLOADER.CATALOG:ADD-FIELD PGLOADER.CATALOG:MAKE-CITUS-DISTRIBUTED-RULE
PGLOADER.STATE:STATE-PRELOAD PGLOADER.CATALOG:COLUMN-TRANSFORM-DEFAULT
PGLOADER.CATALOG:FKEY PGLOADER.CATALOG:ALTER-SCHEMA
PGLOADER.CATALOG:TABLE-NAME PGLOADER.CATALOG:SQLTYPE-TYPE
PGLOADER.CATALOG:FKEY-COLUMNS PGLOADER.STATE:PGTABLE-SECS)
See also:
The ANSI Standard, Macro DEFPACKAGE
The SBCL Manual, Variable *ON-PACKAGE-VARIANCE*
; compiling file "/<<PKGBUILDDIR>>/src/monkey/bind.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:METABANG.BIND)
; processing (DEFUN VAR-IGNORABLE-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/monkey/bind-tmp2LNE0MCD.fasl
; compilation finished in 0:00:00.025
WARNING: redefining METABANG.BIND::VAR-IGNORABLE-P in DEFUN
; compiling file "/<<PKGBUILDDIR>>/src/monkey/mssql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFCENUM %SYB-VALUE-TYPE ...)
; processing (DEFUN UNSIGNED-TO-SIGNED ...)
; processing (DEFUN SYSDB-DATA-TO-LISP ...)
; processing (DEFUN MAP-QUERY-RESULTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/monkey/mssql-tmpSD6N5XMY.fasl
; compilation finished in 0:00:00.456
WARNING: redefining MSSQL::SYSDB-DATA-TO-LISP in DEFUN
; compiling file "/<<PKGBUILDDIR>>/src/utils/charsets.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.UTILS)
; processing (DEFPARAMETER *CCL-DESCRIBE-CHARACTER-ENCODINGS* ...)
; processing (DEFUN PARSE-CCL-ENCODINGS-DESC-FIRST-LINE ...)
; processing (DEFUN PARSE-CCL-ENCODINGS-DESC ...)
; processing (DEFUN LIST-ENCODINGS-AND-ALIASES ...)
; processing (DEFUN SHOW-ENCODINGS ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/charsets-tmpUZ55XXNP.fasl
; compilation finished in 0:00:00.205
; compiling file "/<<PKGBUILDDIR>>/src/utils/logs.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.LOGS)
; processing (DEFCATEGORY :PANIC)
; processing (DEFCATEGORY :FATAL ...)
; processing (DEFCATEGORY :LOG ...)
; processing (DEFCATEGORY :ERROR ...)
; processing (DEFCATEGORY :WARNING ...)
; processing (DEFCATEGORY :NOTICE ...)
; processing (DEFCATEGORY :SQL ...)
; processing (DEFCATEGORY :INFO ...)
; processing (DEFCATEGORY :DEBUG ...)
; processing (DEFCATEGORY :DATA ...)
; processing (DEFVAR *LOG-MESSENGERS* ...)
; processing (DEFUN START-LOGGER ...)
; processing (DEFUN STOP-LOGGER ...)
; processing (DEFCONSTANT +NSEC+ ...)
; processing (DEFUN FRACTION-TO-NSECS ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/logs-tmpS93VIMYJ.fasl
; compilation finished in 0:00:00.157
WARNING:
redefining PRINT-OBJECT (#<STRUCTURE-CLASS COM.RAVENBROOK.COMMON-LISP-LOG:TIMESTAMP>
#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
; compiling file "/<<PKGBUILDDIR>>/src/utils/utils.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.UTILS)
; processing (DEFUN UNQUOTE ...)
; processing (DEFUN EXPAND-USER-HOMEDIR-PATHNAME ...)
; processing (DEFUN PRETTY-PRINT-BYTES ...)
; processing (DEFUN SPLIT-RANGE ...)
; processing (DEFUN DISTRIBUTE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/utils-tmp7HEBCBWV.fasl
; compilation finished in 0:00:00.344
; compiling file "/<<PKGBUILDDIR>>/src/utils/state.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.STATE)
; processing (DEFSTRUCT PGTABLE ...)
; processing (DEFSTRUCT PGSTATE ...)
; processing (DEFSTRUCT STATE ...)
; processing (DEFUN CREATE-STATE ...)
; processing (DEFUN GET-STATE-SECTION ...)
; processing (DEFUN RELATIVE-PATHNAME ...)
; processing (DEFUN REJECT-DATA-FILE ...)
; processing (DEFUN REJECT-LOG-FILE ...)
; processing (DEFMETHOD PGTABLE-INITIALIZE-REJECT-FILES ...)
; file: /<<PKGBUILDDIR>>/src/utils/state.lisp
; in: DEFMETHOD PGTABLE-INITIALIZE-REJECT-FILES (PGTABLE T)
; (WITH-OPEN-FILE
; (PGLOADER.STATE::DATA PGLOADER.STATE::DATA-PATHNAME :DIRECTION :OUTPUT
; :IF-EXISTS :RENAME :IF-DOES-NOT-EXIST NIL)
; (DECLARE (IGNORE PGLOADER.STATE::DATA)))
; --> LET UNWIND-PROTECT FLET #:CLEANUP-FUN-6 BLOCK WHEN IF
; ==>
; PGLOADER.STATE::DATA
;
; caught STYLE-WARNING:
; reading an ignored variable: DATA
; --> LET UNWIND-PROTECT FLET #:CLEANUP-FUN-6 BLOCK WHEN IF CLOSE
; ==>
; PGLOADER.STATE::DATA
;
; caught STYLE-WARNING:
; reading an ignored variable: DATA
; (WITH-OPEN-FILE
; (PGLOADER.STATE::LOGS PGLOADER.STATE::LOGS-PATHNAME :DIRECTION :OUTPUT
; :IF-EXISTS :RENAME :IF-DOES-NOT-EXIST NIL)
; (DECLARE (IGNORE PGLOADER.STATE::LOGS)))
; --> LET UNWIND-PROTECT FLET #:CLEANUP-FUN-16 BLOCK WHEN IF
; ==>
; PGLOADER.STATE::LOGS
;
; caught STYLE-WARNING:
; reading an ignored variable: LOGS
; --> LET UNWIND-PROTECT FLET #:CLEANUP-FUN-16 BLOCK WHEN IF CLOSE
; ==>
; PGLOADER.STATE::LOGS
;
; caught STYLE-WARNING:
; reading an ignored variable: LOGS
; processing (DEFUN PGSTATE-GET-LABEL ...)
; processing (DEFUN PGSTATE-NEW-LABEL ...)
; processing (DEFUN PGSTATE-SETF ...)
; processing (DEFUN PGSTATE-INCF ...)
; processing (DEFUN PGSTATE-DECF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/state-tmpTYG8YNAB.fasl
; compilation finished in 0:00:01.554
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "pgloader" "src" "utils" "state">
; compiling file "/<<PKGBUILDDIR>>/src/utils/transforms.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.TRANSFORMS)
; processing (DEFPACKAGE #:PGLOADER.USER-SYMBOLS ...)
; processing (DEFUN INTERN-SYMBOL ...)
; processing (DEFUN PARSE-COLUMN-TYPEMOD ...)
; processing (DEFUN TYPEMOD-EXPR-MATCHES-P ...)
; processing (DEFUN TYPEMOD-EXPR-TO-FUNCTION ...)
; processing (DECLAIM (INLINE INTERN-SYMBOL ...))
; processing (DEFUN ZERO-DATES-TO-NULL ...)
; processing (DEFUN DATE-WITH-NO-SEPARATOR ...)
; processing (DEFUN TIME-WITH-NO-SEPARATOR ...)
; processing (DEFUN TINYINT-TO-BOOLEAN ...)
; processing (DEFUN BITS-TO-BOOLEAN ...)
; processing (DEFUN BITS-TO-HEX-BITSTRING ...)
; processing (DEFUN INT-TO-IP ...)
; processing (DEFUN IP-RANGE ...)
; processing (DEFUN CONVERT-MYSQL-POINT ...)
; processing (DEFUN CONVERT-MYSQL-LINESTRING ...)
; processing (DEFUN INTEGER-TO-STRING ...)
; processing (DEFUN FLOAT-TO-STRING ...)
; processing (DEFUN SET-TO-ENUM-ARRAY ...)
; processing (DEFUN EMPTY-STRING-TO-NULL ...)
; processing (DEFUN RIGHT-TRIM ...)
; processing (DEFUN REMOVE-NULL-CHARACTERS ...)
; processing (DEFUN BYTE-VECTOR-TO-BYTEA ...)
; processing (DEFUN ENSURE-PARSE-INTEGER ...)
; processing (DEFUN SQLITE-TIMESTAMP-TO-TIMESTAMP ...)
; processing (DEFMACRO ARR-TO-BYTES-REV ...)
; processing (DEFUN SQL-SERVER-UNIQUEIDENTIFIER-TO-UUID ...)
; processing (DEFUN UNIX-TIMESTAMP-TO-TIMESTAMPTZ ...)
; processing (DEFUN SQL-SERVER-BIT-TO-BOOLEAN ...)
; processing (DEFUN BYTE-VECTOR-TO-HEXSTRING ...)
; processing (DEFUN VARBINARY-TO-STRING ...)
; processing (DEFUN BASE64-DECODE ...)
; processing (DEFUN HEX-TO-DEC ...)
; processing (DEFUN LOGICAL-TO-BOOLEAN ...)
; processing (DEFUN DB3-TRIM-STRING ...)
; processing (DEFUN DB3-NUMERIC-TO-PGSQL-NUMERIC ...)
; processing (DEFUN DB3-NUMERIC-TO-PGSQL-INTEGER ...)
; processing (DEFUN DB3-DATE-TO-PGSQL-DATE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/transforms-tmp64JEHGM7.fasl
; compilation finished in 0:00:02.391
; compiling file "/<<PKGBUILDDIR>>/src/utils/read-sql-files.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SQL)
; processing (DEFSTRUCT PARSER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD PUSH-NEW-TAG ...)
; processing (DEFMETHOD EXTEND-CURRENT-TAG ...)
; processing (DEFMETHOD FORMAT-CURRENT-TAG ...)
; processing (DEFMETHOD MAYBE-CLOSE-TAGS ...)
; processing (DEFMETHOD POP-CURRENT-TAG ...)
; processing (DEFMETHOD RESET-STATE ...)
; processing (DEFUN PARSE-QUERY ...)
; processing (DEFUN READ-LINES ...)
; processing (DEFUN READ-QUERIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/read-sql-files-tmpIZ3R8Y6H.fasl
; compilation finished in 0:00:00.647
; compiling file "/<<PKGBUILDDIR>>/src/utils/queries.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.QUERIES)
; processing (DEFPARAMETER *SRC* ...)
; processing (DEFUN LOAD-STATIC-FILE ...)
; processing (DEFUN PATHNAME-TO-URL ...)
; processing (DEFUN LOAD-STATIC-DIRECTORY ...)
; processing (DEFUN WALK-SOURCES-AND-BUILD-FS ...)
; processing (DEFPARAMETER *FS* ...)
; processing (DEFUN SQL ...)
; processing (DEFUN SQL-URL-FOR-VARIANT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/queries-tmpGHYBJLVI.fasl
; compilation finished in 0:00:00.166
; compiling file "/<<PKGBUILDDIR>>/src/utils/quoting.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.QUOTING)
; processing (DEFUN APPLY-IDENTIFIER-CASE ...)
; processing (DEFUN QUOTED-P ...)
; processing (DEFUN ENSURE-UNQUOTED ...)
; processing (DEFUN ENSURE-QUOTED ...)
; processing (DEFUN BUILD-IDENTIFIER ...)
; processing (DEFUN CAMELCASE-TO-COLNAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/quoting-tmpKVU985I.fasl
; compilation finished in 0:00:00.216
; compiling file "/<<PKGBUILDDIR>>/src/utils/catalog.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.CATALOG)
; processing (DEFMACRO PUSH-TO-END ...)
; processing (DEFGENERIC FORMAT-CREATE-SQL ...)
; processing (DEFGENERIC FORMAT-DROP-SQL ...)
; processing (DEFGENERIC FORMAT-DEFAULT-VALUE ...)
; processing (DEFSTRUCT CATALOG ...)
; processing (DEFSTRUCT SCHEMA ...)
; processing (DEFSTRUCT TABLE ...)
; file: /<<PKGBUILDDIR>>/src/utils/catalog.lisp
; in: DEFSTRUCT TABLE
; (DEFSTRUCT PGLOADER.CATALOG:TABLE
; PGLOADER.CATALOG::SOURCE-NAME
; PGLOADER.CATALOG::NAME
; PGLOADER.CATALOG:SCHEMA
; PGLOADER.CATALOG::OID
; PGLOADER.CATALOG::COMMENT
; PGLOADER.CATALOG::STORAGE-PARAMETER-LIST
; PGLOADER.CATALOG::TABLESPACE
; PGLOADER.CATALOG::FIELD-LIST
; PGLOADER.CATALOG::COLUMN-LIST
; PGLOADER.CATALOG::INDEX-LIST
; ...)
; --> PROGN EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION PGLOADER.CATALOG:TABLE {57B9BF91}>
; '#(#<SB-KERNEL:LAYOUT for T {4F0483F1}>
; #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F048439}>))
;
; caught STYLE-WARNING:
; Previously compiled call to PGLOADER.CATALOG:TABLE-NAME could not be inlined
; because the structure definition for PGLOADER.CATALOG:TABLE was not yet seen.
; To avoid this warning, DEFSTRUCT should precede references to the affected
; functions, or they must be declared locally notinline at each call site.
; processing (DEFSTRUCT MATVIEW ...)
; processing (DEFSTRUCT EXTENSION ...)
; processing (DEFSTRUCT SQLTYPE ...)
; processing (DEFSTRUCT COLUMN ...)
; processing (DEFSTRUCT FKEY ...)
; processing (DEFSTRUCT INDEX ...)
; processing (DEFSTRUCT TRIGGER ...)
; processing (DEFSTRUCT PROCEDURE ...)
; processing (DEFGENERIC ADD-SCHEMA ...)
; processing (DEFGENERIC ADD-EXTENSION ...)
; processing (DEFGENERIC ADD-TABLE ...)
; processing (DEFGENERIC ADD-VIEW ...)
; processing (DEFGENERIC ADD-SQLTYPE ...)
; processing (DEFGENERIC ADD-COLUMN ...)
; processing (DEFGENERIC ADD-INDEX ...)
; processing (DEFGENERIC ADD-FKEY ...)
; processing (DEFGENERIC ADD-COMMENT ...)
; processing (DEFGENERIC EXTENSION-LIST ...)
; processing (DEFGENERIC TABLE-LIST ...)
; processing (DEFGENERIC VIEW-LIST ...)
; processing (DEFGENERIC FIND-SCHEMA ...)
; processing (DEFGENERIC FIND-EXTENSION ...)
; processing (DEFGENERIC FIND-TABLE ...)
; processing (DEFGENERIC FIND-VIEW ...)
; processing (DEFGENERIC FIND-INDEX ...)
; processing (DEFGENERIC FIND-FKEY ...)
; processing (DEFGENERIC MAYBE-ADD-SCHEMA ...)
; processing (DEFGENERIC MAYBE-ADD-EXTENSION ...)
; processing (DEFGENERIC MAYBE-ADD-TABLE ...)
; processing (DEFGENERIC MAYBE-ADD-VIEW ...)
; processing (DEFGENERIC MAYBE-ADD-INDEX ...)
; processing (DEFGENERIC MAYBE-ADD-FKEY ...)
; processing (DEFGENERIC COUNT-TABLES ...)
; processing (DEFGENERIC COUNT-VIEWS ...)
; processing (DEFGENERIC COUNT-INDEXES ...)
; processing (DEFGENERIC COUNT-FKEYS ...)
; processing (DEFGENERIC MAX-INDEXES-PER-TABLE ...)
; processing (DEFGENERIC CAST ...)
; processing (DEFGENERIC FIELD-NAME ...)
; processing (DEFMETHOD EXTENSION-LIST ...)
; processing (DEFMETHOD EXTENSION-LIST ...)
; processing (DEFMETHOD SQLTYPE-LIST ...)
; processing (DEFMETHOD SQLTYPE-LIST ...)
; processing (DEFMETHOD SQLTYPE-LIST ...)
; processing (DEFMETHOD SQLTYPE-LIST ...)
; processing (DEFMETHOD TABLE-LIST ...)
; processing (DEFMETHOD TABLE-LIST ...)
; processing (DEFMETHOD VIEW-LIST ...)
; processing (DEFMETHOD VIEW-LIST ...)
; processing (DEFUN CREATE-TABLE ...)
; processing (DEFMETHOD ADD-SCHEMA ...)
; processing (DEFMETHOD ADD-EXTENSION ...)
; processing (DEFMETHOD ADD-SQLTYPE ...)
; processing (DEFMETHOD ADD-TABLE ...)
; processing (DEFMETHOD ADD-VIEW ...)
; processing (DEFMETHOD FIND-SCHEMA ...)
; processing (DEFMETHOD FIND-EXTENSION ...)
; processing (DEFMETHOD FIND-TABLE ...)
; processing (DEFMETHOD FIND-VIEW ...)
; processing (DEFMETHOD MAYBE-ADD-SCHEMA ...)
; processing (DEFMETHOD MAYBE-ADD-EXTENSION ...)
; processing (DEFMETHOD MAYBE-ADD-TABLE ...)
; processing (DEFMETHOD MAYBE-ADD-VIEW ...)
; processing (DEFMETHOD ADD-FIELD ...)
; processing (DEFMETHOD ADD-COLUMN ...)
; processing (DEFMETHOD ADD-COLUMN ...)
; processing (DEFMETHOD CAST ...)
; processing (DEFMETHOD CAST ...)
; processing (DEFMETHOD CAST ...)
; processing (DEFMETHOD FIELD-NAME ...)
; processing (DEFMETHOD ADD-INDEX ...)
; processing (DEFMETHOD FIND-INDEX ...)
; processing (DEFMETHOD MAYBE-ADD-INDEX ...)
; processing (DEFMETHOD ADD-FKEY ...)
; processing (DEFMETHOD FIND-FKEY ...)
; processing (DEFMETHOD MAYBE-ADD-FKEY ...)
; processing (DEFMETHOD COUNT-TABLES ...)
; processing (DEFMETHOD COUNT-TABLES ...)
; processing (DEFMETHOD COUNT-VIEWS ...)
; processing (DEFMETHOD COUNT-VIEWS ...)
; processing (DEFMETHOD COUNT-INDEXES ...)
; processing (DEFMETHOD COUNT-INDEXES ...)
; processing (DEFMETHOD COUNT-INDEXES ...)
; processing (DEFMETHOD COUNT-FKEYS ...)
; processing (DEFMETHOD COUNT-FKEYS ...)
; processing (DEFMETHOD COUNT-FKEYS ...)
; processing (DEFMETHOD MAX-INDEXES-PER-TABLE ...)
; processing "Count how many indexes maximum per table are listed in SCHEMA."
; processing (DEFMETHOD MAX-INDEXES-PER-TABLE ...)
; processing (DEFGENERIC FORMAT-TABLE-NAME ...)
; processing (DEFMETHOD FORMAT-TABLE-NAME ...)
; processing (DEFMACRO WITH-SCHEMA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/catalog-tmp2PVUJP23.fasl
; compilation finished in 0:00:04.982
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "pgloader" "src" "utils" "catalog">
; compiling file "/<<PKGBUILDDIR>>/src/utils/alter-table.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.CATALOG)
; processing (DEFSTRUCT STRING-MATCH-RULE ...)
; processing (DEFSTRUCT REGEX-MATCH-RULE ...)
; processing (DEFGENERIC MATCHES ...)
; processing (DEFSTRUCT MATCH-RULE ...)
; processing (DEFGENERIC ALTER-TABLE ...)
; processing (DEFMETHOD ALTER-TABLE ...)
; processing (DEFMETHOD ALTER-TABLE ...)
; processing (DEFMETHOD ALTER-TABLE ...)
; processing (DEFUN ALTER-TABLE-SET-SCHEMA ...)
; processing (DEFUN ALTER-TABLE-RENAME ...)
; processing (DEFUN ALTER-TABLE-SET-STORAGE-PARAMETERS ...)
; processing (DEFUN ALTER-TABLE-SET-TABLESPACE ...)
; processing (DEFGENERIC RULE-MATCHES ...)
; processing (DEFMETHOD RULE-MATCHES ...)
; processing (DEFMETHOD RULE-MATCHES ...)
; processing (DEFGENERIC ALTER-SCHEMA ...)
; processing (DEFMETHOD ALTER-SCHEMA ...)
; processing (DEFMETHOD ALTER-SCHEMA ...)
; processing (DEFUN ALTER-SCHEMA-RENAME ...)
; processing (DEFUN RESET-SQL-DEFINITIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/alter-table-tmpIN5L4GBV.fasl
; compilation finished in 0:00:01.492
; compiling file "/<<PKGBUILDDIR>>/src/utils/citus.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.CITUS)
; processing (DEFSTRUCT CITUS-REFERENCE-RULE ...)
; processing (DEFSTRUCT CITUS-DISTRIBUTED-RULE ...)
; processing (DEFUN CITUS-DISTRIBUTE-SCHEMA ...)
; processing (DEFINE-CONDITION CITUS-RULE-TABLE-NOT-FOUND ...)
; processing (DEFUN CITUS-FIND-TABLE ...)
; processing (DEFGENERIC CITUS-RULE-TABLE ...)
; processing (DEFGENERIC CITUS-SET-TABLE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC COMPUTE-FOREIGN-RULES ...)
; processing (DEFMETHOD COMPUTE-FOREIGN-RULES ...)
; processing (DEFMETHOD COMPUTE-FOREIGN-RULES ...)
; processing (DEFUN MAKE-DISTRIBUTED-TABLE-FROM-FKEY ...)
; processing (DEFINE-CONDITION CITUS-RULE-IS-MISSING-FROM-LIST ...)
; processing (DEFGENERIC APPLY-CITUS-RULE ...)
; processing (DEFMETHOD APPLY-CITUS-RULE ...)
; processing (DEFMETHOD APPLY-CITUS-RULE ...)
; processing (DEFUN ADD-COLUMN-TO-PKEY ...)
; processing (DEFUN FORMAT-CITUS-JOIN-CLAUSE ...)
; processing (DEFUN CITUS-FORMAT-SQL-SELECT ...)
; processing (DEFUN CITUS-BACKFILL-TABLE-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/citus-tmpTIYEJJAY.fasl
; compilation finished in 0:00:01.239
; compiling file "/<<PKGBUILDDIR>>/src/utils/reject.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.MONITOR)
; processing (DEFUN %PROCESS-BAD-ROW ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/reject-tmpDI87TJSL.fasl
; compilation finished in 0:00:00.053
; compiling file "/<<PKGBUILDDIR>>/src/utils/pretty-print-state.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.STATE)
; processing (DEFSTRUCT PRINT-FORMAT)
; processing (DEFSTRUCT (PRINT-FORMAT-HUMAN-READABLE # ...) ...)
; processing (DEFSTRUCT (PRINT-FORMAT-TEXT #))
; processing (DEFSTRUCT (PRINT-FORMAT-VERBOSE #))
; processing (DEFSTRUCT (PRINT-FORMAT-TAB #))
; processing (DEFSTRUCT (PRINT-FORMAT-CSV #))
; processing (DEFSTRUCT (PRINT-FORMAT-COPY #))
; processing (DEFSTRUCT (PRINT-FORMAT-JSON #))
; processing (DEFGENERIC PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFMETHOD PRETTY-PRINT ...)
; processing (DEFUN FORMAT-INTERVAL-GUESS ...)
; processing (DEFMACRO DEFINE-YASON-ENCODER ...)
; processing (DEFINE-YASON-ENCODER #<STRUCTURE-CLASS PGLOADER.STATE::STATE>)
; processing (DEFINE-YASON-ENCODER #<STRUCTURE-CLASS PGLOADER.STATE::PGTABLE>)
; processing (DEFMETHOD YASON:ENCODE ...)
; processing (DEFMETHOD YASON:ENCODE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/pretty-print-state-tmpXW0HX43D.fasl
; compilation finished in 0:00:02.280
; compiling file "/<<PKGBUILDDIR>>/src/utils/report.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.STATE)
; processing (DEFUN FORMAT-INTERVAL ...)
; processing (DEFUN PARSE-SUMMARY-TYPE ...)
; processing (DEFUN MAX-LENGTH-TABLE-NAME ...)
; processing (DEFUN REPORT-FULL-SUMMARY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/report-tmpLIBLWPM9.fasl
; compilation finished in 0:00:00.284
; compiling file "/<<PKGBUILDDIR>>/src/utils/monitor.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.MONITOR)
; processing (DEFVAR *MONITORING-KERNEL* ...)
; processing (DEFVAR *MONITORING-QUEUE* ...)
; processing (DEFVAR *MONITORING-CHANNEL* ...)
; processing (DEFVAR *SECTIONS* ...)
; processing (DEFSTRUCT START ...)
; processing (DEFSTRUCT STOP ...)
; processing (DEFSTRUCT REPORT-SUMMARY ...)
; processing (DEFSTRUCT LOG-MESSAGE ...)
; processing (DEFSTRUCT NEW-LABEL ...)
; processing (DEFSTRUCT UPDATE-STATS ...)
; processing (DEFSTRUCT BAD-ROW ...)
; processing (DEFINE-CONDITION MONITOR-ERROR ...)
; processing (DEFMACRO LOG-MESSAGE ...)
; processing (DEFUN SEND-LOG-MESSAGE ...)
; processing (DEFUN NEW-LABEL ...)
; processing (DEFUN UPDATE-STATS ...)
; processing (DEFUN PROCESS-BAD-ROW ...)
; processing (DEFUN FLUSH-SUMMARY ...)
; processing (DEFMACRO WITH-STATS-COLLECTION ...)
; processing (DEFUN SEND-EVENT ...)
; processing (DEFUN START-MONITOR ...)
; processing (DEFUN STOP-MONITOR ...)
; processing (DEFUN CALL-WITH-MONITOR ...)
; processing (DEFMACRO WITH-MONITOR ...)
; processing (DEFUN MONITOR ...)
; processing (DEFUN PROCESS-UPDATE-STATS-START-EVENT ...)
; processing (DEFUN PROCESS-UPDATE-STATS-STOP-EVENT ...)
; processing (DEFUN MAYBE-LOG-PROGRESS-MESSAGE ...)
; processing (DEFUN REPORT-CURRENT-SUMMARY ...)
; processing (DEFUN ELAPSED-TIME-SINCE ...)
; processing (DEFMACRO TIMING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/monitor-tmpV8PQP27P.fasl
; compilation finished in 0:00:01.743
; compiling file "/<<PKGBUILDDIR>>/src/utils/threads.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.UTILS)
; processing (DEFUN MAKE-KERNEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/threads-tmpM9572ZUP.fasl
; compilation finished in 0:00:00.069
; compiling file "/<<PKGBUILDDIR>>/src/utils/archive.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.ARCHIVE)
; processing (DEFPARAMETER *SUPPORTED-ARCHIVE-TYPES* ...)
; processing (DEFPARAMETER *HTTP-BUFFER-SIZE* ...)
; processing (DEFUN ARCHIVEP ...)
; processing (DEFUN HTTP-FETCH-FILE ...)
; processing (DEFUN ARCHIVE-TYPE ...)
; processing (DEFUN UNZIP ...)
; processing (DEFUN GUNZIP ...)
; processing (DEFUN UNTAR ...)
; processing (DEFUN EXPAND-ARCHIVE ...)
; processing (DEFUN GET-MATCHING-FILENAMES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/archive-tmp3GFU4PH3.fasl
; compilation finished in 0:00:00.262
; compiling file "/<<PKGBUILDDIR>>/src/utils/connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.CONNECTION)
; processing (DEFCLASS CONNECTION ...)
; processing (DEFINE-CONDITION CONNECTION-ERROR ...)
; processing (DEFGENERIC OPEN-CONNECTION ...)
; processing (DEFGENERIC CLOSE-CONNECTION ...)
; processing (DEFGENERIC CHECK-CONNECTION ...)
; processing (DEFGENERIC CLONE-CONNECTION ...)
; processing (DEFCLASS FD-CONNECTION ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; processing (DEFINE-CONDITION FD-CONNECTION-ERROR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC FETCH-FILE ...)
; processing (DEFGENERIC EXPAND ...)
; processing (DEFMETHOD EXPAND ...)
; processing (DEFMETHOD FETCH-FILE ...)
; processing (DEFCLASS DB-CONNECTION ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFINE-CONDITION DB-CONNECTION-ERROR ...)
; processing (DEFGENERIC QUERY ...)
; processing (DEFMACRO WITH-CONNECTION ...)
; processing (DEFMETHOD CHECK-CONNECTION ...)
; processing (DEFMETHOD CHECK-CONNECTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/utils/connection-tmpFLJZF5OD.fasl
; compilation finished in 0:00:00.666
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGSQL)
; processing (DEFPARAMETER *PGCONN-VARIANT* ...)
; processing (DEFCLASS PGSQL-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; processing (DEFMETHOD SSL-ENABLE-P ...)
; processing (DEFUN NEW-PGSQL-CONNECTION ...)
; processing (DEFVAR *PGSQL-CLIENT-CERTIFICATE* ...)
; processing (DEFVAR *PGSQL-CLIENT-KEY* ...)
; processing (DEFTYPE POSTGRESQL-RETRYABLE ...)
; processing (DEFTYPE POSTGRESQL-UNAVAILABLE ...)
; processing (CL-POSTGRES-ERROR::DEFERROR "53300" ...)
; processing (CL-POSTGRES-ERROR::DEFERROR "53400" ...)
; processing (DEFVAR *RETRY-CONNECT-TIMES* ...)
; processing (DEFVAR *RETRY-CONNECT-DELAY* ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFMETHOD QUERY ...)
; processing (DEFMETHOD QUERY ...)
; processing (DEFMACRO HANDLING-PGSQL-NOTICES ...)
; processing (DEFMACRO WITH-PGSQL-TRANSACTION ...)
; processing (DEFMACRO WITH-PGSQL-CONNECTION ...)
; processing (DEFUN GET-UNIX-SOCKET-DIR ...)
; processing (DEFUN SET-SESSION-GUCS ...)
; processing (DEFUN SANITIZE-USER-GUCS ...)
; processing (DEFUN PGSQL-CONNECT-AND-EXECUTE-WITH-TIMING ...)
; processing (DEFUN PGSQL-EXECUTE-WITH-TIMING ...)
; processing (DEFUN PGSQL-EXECUTE ...)
; processing (DEFUN SET-POSTGRESQL-VERSION ...)
; processing (DEFUN PARSE-POSTGRESQL-VERSION-STRING ...)
; processing (DEFUN LIST-TYPENAMES-WITHOUT-BTREE-SUPPORT ...)
; processing (DEFVAR *REDSHIFT-RESERVED-KEYWORDS* ...)
; processing (DEFUN LIST-RESERVED-KEYWORDS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/connection-tmpDM0BA37B.fasl
; compilation finished in 0:00:01.256
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-ddl.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGSQL)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFUN GET-COLUMN-TYPE-NAME-FROM-SQLTYPE ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFVAR *PGSQL-DEFAULT-VALUES* ...)
; processing (DEFMETHOD FORMAT-DEFAULT-VALUE ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFUN INDEX-ACCESS-METHOD ...)
; file: /<<PKGBUILDDIR>>/src/pgsql/pgsql-ddl.lisp
; in: DEFUN INDEX-ACCESS-METHOD
; (VALUES)
;
; note: deleting unreachable code
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-DROP-SQL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-ddl-tmp30GXC2I.fasl
; compilation finished in 0:00:01.870
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-ddl-citus.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGSQL)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; processing (DEFMETHOD FORMAT-CREATE-SQL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-ddl-citus-tmpM61NHZ07.fasl
; compilation finished in 0:00:00.128
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGSQL)
; processing (DEFUN FETCH-PGSQL-CATALOG ...)
; processing (DEFUN MAKE-INCLUDING-EXPR-FROM-CATALOG ...)
; processing (DEFUN MAKE-INCLUDING-EXPR-FROM-TABLE ...)
; processing (DEFUN FORMAT-TABLE-NAME-AS-INCLUDING-EXP ...)
; processing (DEFUN QUERY-TABLE-SCHEMA ...)
; processing (DEFUN MAKE-INCLUDING-EXPR-FROM-VIEW-NAMES ...)
; processing (DEFVAR *TABLE-TYPE* ...)
; processing (DEFUN FILTER-LIST-TO-WHERE-CLAUSE ...)
; processing (DEFUN NORMALIZE-EXTRA ...)
; processing (DEFUN LIST-ALL-COLUMNS ...)
; processing (DEFUN LIST-ALL-INDEXES ...)
; processing (DEFUN LIST-ALL-FKEYS ...)
; processing (DEFUN LIST-MISSING-FK-DEPS ...)
; processing (DEFUN LIST-SCHEMAS ...)
; processing (DEFUN LIST-SEARCH-PATH ...)
; processing (DEFUN GET-CURRENT-DATABASE ...)
; processing (DEFUN LIST-TABLE-OIDS ...)
; processing (DEFUN LIST-ALL-SQLTYPES ...)
; processing (DEFUN PARSE-INDEX-COLUMN-NAMES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-schema-tmpBC4EQL0Y.fasl
; compilation finished in 0:00:01.059
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/merge-catalogs.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGSQL)
; processing (DEFUN MERGE-CATALOGS ...)
; processing (DEFUN CHECK-TABLE-COLUMNS ...)
; processing (DEFVAR *TYPE-NAME-MAPPING* ...)
; processing (DEFUN GET-TYPE-NAME ...)
; processing (DEFUN SAME-TYPE-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/merge-catalogs-tmpUUB5M69M.fasl
; compilation finished in 0:00:00.200
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-trigger.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PGSQL)
; processing (DEFVAR *PGSQL-TRIGGERS-PROCEDURES* ...)
; processing (DEFUN BUILD-TRIGGER ...)
; processing (DEFUN PROCESS-TRIGGERS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-trigger-tmpR8DH45ND.fasl
; compilation finished in 0:00:00.163
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-index-filter.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PGSQL)
; processing (DEFGENERIC TRANSLATE-INDEX-FILTER ...)
; processing (DEFMETHOD TRANSLATE-INDEX-FILTER ...)
; processing (DEFGENERIC PROCESS-INDEX-DEFINITIONS ...)
; processing (DEFMETHOD PROCESS-INDEX-DEFINITIONS ...)
; processing (DEFMETHOD PROCESS-INDEX-DEFINITIONS ...)
; processing (DEFMETHOD PROCESS-INDEX-DEFINITIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-index-filter-tmpS0ZM64AL.fasl
; compilation finished in 0:00:00.238
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-finalize-catalogs.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PGSQL)
; processing (DEFUN FINALIZE-CATALOGS ...)
; processing (DEFGENERIC ADJUST-DATA-TYPES ...)
; processing (DEFMETHOD ADJUST-DATA-TYPES ...)
; processing (DEFVAR *REDSHIFT-SUPPORTED-DATA-TYPES* ...)
; processing (DEFVAR *REDSHIFT-DECIMAL-MAX-PRECISION* ...)
; processing (DEFVAR *REDSHIFT-VARCHAR-MAX-PRECISION* ...)
; processing (DEFMETHOD ADJUST-DATA-TYPES ...)
; processing (DEFGENERIC DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...)
; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...)
; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...)
; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...)
; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-finalize-catalogs-tmpLKVO6HNO.fasl
; compilation finished in 0:00:00.334
; compiling file "/<<PKGBUILDDIR>>/src/pgsql/pgsql-create-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PGSQL)
; processing (DEFUN CREATE-SQLTYPES ...)
; processing (DEFUN CREATE-TABLE-SQL-LIST ...)
; processing (DEFUN CREATE-TABLE-LIST ...)
; processing (DEFUN CREATE-SCHEMAS ...)
; processing (DEFUN ADD-TO-SEARCH-PATH ...)
; processing (DEFUN CREATE-EXTENSIONS ...)
; processing (DEFUN CREATE-TABLES ...)
; processing (DEFUN CREATE-VIEWS ...)
; processing (DEFUN CREATE-TRIGGERS ...)
; processing (DEFUN TRUNCATE-TABLES ...)
; processing (DEFUN DISABLE-TRIGGERS ...)
; processing (DEFUN ENABLE-TRIGGERS ...)
; processing (DEFMACRO WITH-DISABLED-TRIGGERS ...)
; processing (DEFUN DROP-PGSQL-FKEYS ...)
; processing (DEFUN CREATE-PGSQL-FKEYS ...)
; processing (DEFUN CREATE-INDEXES-IN-KERNEL ...)
; processing (DEFUN SET-TABLE-OIDS ...)
; processing (DEFUN DROP-INDEXES ...)
; processing (DEFUN MAYBE-DROP-INDEXES ...)
; processing (DEFUN CREATE-INDEXES-AGAIN ...)
; processing (DEFUN RESET-SEQUENCES ...)
; processing (DEFUN COMMENT-ON-TABLES-AND-COLUMNS ...)
; processing (DEFUN CREATE-DISTRIBUTED-TABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pgsql/pgsql-create-schema-tmp2VPNOTC4.fasl
; compilation finished in 0:00:01.955
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/api.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCES)
; processing (DEFCLASS COPY ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFGENERIC CONCURRENCY-SUPPORT ...)
; processing (DEFGENERIC MAP-ROWS ...)
; processing (DEFGENERIC PROPROCESS-ROW ...)
; processing (DEFGENERIC QUEUE-RAW-DATA ...)
; processing (DEFGENERIC DATA-IS-PREFORMATTED-P ...)
; processing (DEFGENERIC COPY-COLUMN-LIST ...)
; processing (DEFCLASS MD-COPY ...)
; processing (DEFGENERIC PARSE-HEADER ...)
; processing (DEFGENERIC PROCESS-ROWS ...)
; processing (DEFGENERIC CLONE-COPY-FOR ...)
; processing (DEFCLASS DB-COPY ...)
; processing (DEFGENERIC FETCH-METADATA ...)
; processing (DEFGENERIC CLEANUP ...)
; processing (DEFGENERIC INSTANCIATE-TABLE-COPY-OBJECT ...)
; processing (DEFGENERIC FILTER-LIST-TO-WHERE-CLAUSE ...)
; processing (DEFGENERIC FETCH-COLUMNS ...)
; processing (DEFGENERIC FETCH-INDEXES ...)
; processing (DEFGENERIC FETCH-FOREIGN-KEYS ...)
; processing (DEFGENERIC FETCH-COMMENTS ...)
; processing (DEFGENERIC GET-COLUMN-SQL-EXPRESSION ...)
; processing (DEFGENERIC GET-COLUMN-LIST ...)
; processing (DEFGENERIC FORMAT-MATVIEW-NAME ...)
; processing (DEFGENERIC CREATE-MATVIEWS ...)
; processing (DEFGENERIC DROP-MATVIEWS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/api-tmp439CY8N2.fasl
; compilation finished in 0:00:00.105
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/methods.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCES)
; processing (DEFMETHOD DATA-IS-PREFORMATTED-P ...)
; processing (DEFMETHOD PREPROCESS-ROW ...)
; processing (DEFMETHOD COPY-COLUMN-LIST ...)
; processing (DEFMETHOD CLEANUP ...)
; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/methods-tmp4YV3OL3X.fasl
; compilation finished in 0:00:00.153
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/md-methods.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCES)
; processing (DEFMETHOD PARSE-HEADER ...)
; processing (DEFMETHOD PREPROCESS-ROW ...)
; processing (DEFMETHOD COPY-COLUMN-LIST ...)
; processing (DEFMETHOD CLONE-COPY-FOR ...)
; processing (DEFMETHOD MAP-ROWS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/md-methods-tmp771JHFE4.fasl
; compilation finished in 0:00:00.285
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/matviews.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCES)
; processing (DEFMETHOD FORMAT-MATVIEW-NAME ...)
; processing (DEFMETHOD CREATE-MATVIEWS ...)
; processing (DEFMETHOD DROP-MATVIEWS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/matviews-tmp7EV50SKM.fasl
; compilation finished in 0:00:00.158
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/casting-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCES)
; processing (DEFVAR *DEFAULT-CAST-RULES* ...)
; processing (DEFVAR *CAST-RULES* ...)
; processing (DEFUN PARSE-COLUMN-UNSIGNED ...)
; processing (DEFUN CAST-RULE-MATCHES ...)
; processing (DEFUN MAKE-PGSQL-TYPE ...)
; processing (DEFUN APPLY-CASTING-RULES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/casting-rules-tmp66YMR0XJ.fasl
; compilation finished in 0:00:00.310
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/files-and-pathnames.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCES)
; processing (DEFCLASS MD-CONNECTION ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD EXPAND ...)
; processing (DEFMETHOD FETCH-FILE ...)
; processing (DEFGENERIC EXPAND-SPEC ...)
; processing (DEFMETHOD EXPAND-SPEC ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFUN GET-PATHNAME ...)
; processing (DEFUN FILTER-DIRECTORY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/files-and-pathnames-tmp6LDX2NR6.fasl
; compilation finished in 0:00:00.382
; compiling file "/<<PKGBUILDDIR>>/src/sources/common/project-fields.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCES)
; processing (DEFUN PROJECT-FIELDS ...)
; file: /<<PKGBUILDDIR>>/src/sources/common/project-fields.lisp
; in: DEFUN PROJECT-FIELDS
; (DEFUN PGLOADER.SOURCES:PROJECT-FIELDS
; (&KEY PGLOADER.SOURCES:FIELDS PGLOADER.SOURCES:COLUMNS (COMPILE T))
; #<(SIMPLE-ARRAY CHARACTER
; (398)) The simplest projection happens when both FIELDS and COLS are nil: in
; this case the projection is an identity, we simply return what we got.
;
; Other forms of projections consist of forming column... {535AB007}>
; (LABELS ((PGLOADER.SOURCES::NULL-AS-PROCESSING-FN
; (PGLOADER.SOURCES::NULL-AS)
; "return a lambda form that will process a value given NULL-AS."
; (IF #
; #
; #))
; (PGLOADER.SOURCES::FIELD-NAME-AS-SYMBOL
; (PGLOADER.SOURCES::FIELD-NAME-OR-LIST)
; "we need to deal with symbols as we generate code"
; (TYPECASE PGLOADER.SOURCES::FIELD-NAME-OR-LIST # #))
; (PGLOADER.SOURCES::PROCESS-FIELD
; (PGLOADER.SOURCES::FIELD-NAME-OR-LIST)
; "Given a field entry, return a function dealing with nulls for it"
; (DESTRUCTURING-BIND # # #)))
; (LET* ((PGLOADER.SOURCES::PROJECTION #))
; (IF COMPILE
; (COMPILE NIL PGLOADER.SOURCES::PROJECTION)
; PGLOADER.SOURCES::PROJECTION))))
; --> PROGN
; ==>
; (SB-IMPL::%DEFUN 'PGLOADER.SOURCES:PROJECT-FIELDS
; (SB-INT:NAMED-LAMBDA PGLOADER.SOURCES:PROJECT-FIELDS
; (&KEY PGLOADER.SOURCES:FIELDS PGLOADER.SOURCES:COLUMNS
; (COMPILE T))
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; #<(SIMPLE-ARRAY CHARACTER
; (398)) The simplest projection happens when both FIELDS and COLS are nil: in
; this case the projection is an identity, we simply return what we got.
;
; Other forms of projections consist of forming column... {535AB007}>
; (BLOCK PGLOADER.SOURCES:PROJECT-FIELDS
; (LABELS (# # #)
; (LET* #
; #)))))
;
; caught STYLE-WARNING:
; Call to PGLOADER.TRANSFORMS:INTERN-SYMBOL could not be inlined because its
; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation
; must be in effect to save function definitions for inlining.
; processing (DEFUN REFORMAT-THEN-PROCESS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/common/project-fields-tmpZYJ1751R.fasl
; compilation finished in 0:00:00.347
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "pgloader" "src" "sources" "common" "project-fields">
; compiling file "/<<PKGBUILDDIR>>/src/sources/csv/csv-guess.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCE.CSV)
; processing (DEFPARAMETER *SEPARATORS* ...)
; processing (DEFPARAMETER *ESCAPE-QUOTES* ...)
; processing (DEFUN GET-FILE-SAMPLE ...)
; processing (DEFUN GET-STREAM-SAMPLE ...)
; processing (DEFUN TRY-CSV-PARAMS ...)
; processing (DEFUN GUESS-CSV-PARAMS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/csv/csv-guess-tmpIGCIJHJN.fasl
; compilation finished in 0:00:00.317
; compiling file "/<<PKGBUILDDIR>>/src/sources/csv/csv.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.CSV)
; processing (DEFCLASS CSV-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS COPY-CSV ...)
; processing (DEFMETHOD CLONE-COPY-FOR ...)
; processing (DEFMETHOD PARSE-HEADER ...)
; processing (DEFMETHOD PROCESS-ROWS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/csv/csv-tmpBW3WVL1T.fasl
; compilation finished in 0:00:00.395
; compiling file "/<<PKGBUILDDIR>>/src/sources/fixed/fixed-guess.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.FIXED)
; processing (DEFGENERIC GET-FIRST-LINES ...)
; processing (DEFUN GUESS-FIXED-SPECS-FROM-HEADER ...)
; processing (DEFUN GUESS-FIXED-SPECS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/fixed/fixed-guess-tmpWQAE3QZ0.fasl
; compilation finished in 0:00:00.269
; compiling file "/<<PKGBUILDDIR>>/src/sources/fixed/fixed.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.FIXED)
; processing (DEFCLASS FIXED-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS COPY-FIXED ...)
; processing (DEFMETHOD CLONE-COPY-FOR ...)
; processing (DEFMETHOD PARSE-HEADER ...)
; processing (DECLAIM (INLINE PARSE-ROW))
; file: /<<PKGBUILDDIR>>/src/sources/fixed/fixed.lisp
; in: DECLAIM (INLINE PARSE-ROW)
; (DECLAIM (INLINE PGLOADER.SOURCE.FIXED::PARSE-ROW))
; --> EVAL-WHEN
; ==>
; (SB-C::%PROCLAIM '(INLINE PGLOADER.SOURCE.FIXED::PARSE-ROW)
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Proclaiming PGLOADER.SOURCE.FIXED::PARSE-ROW 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.
; processing (DEFUN PARSE-ROW ...)
; file: /<<PKGBUILDDIR>>/src/sources/fixed/fixed.lisp
; in: DEFUN PARSE-ROW
; (DESTRUCTURING-BIND
; (&KEY PGLOADER.SOURCE.FIXED::START LENGTH &ALLOW-OTHER-KEYS)
; PGLOADER.SOURCE.FIXED::OPTS
; (LET ((PGLOADER.SOURCE.FIXED::END (+ PGLOADER.SOURCE.FIXED::START LENGTH)))
; (WHEN (<= PGLOADER.SOURCE.FIXED::START PGLOADER.SOURCE.FIXED::LEN)
; (SUBSEQ PGLOADER.SOURCE.FIXED::LINE PGLOADER.SOURCE.FIXED::START
; (MIN PGLOADER.SOURCE.FIXED::LEN PGLOADER.SOURCE.FIXED::END)))))
; --> SB-INT:BINDING* LET* IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a NUMBER:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD PROCESS-ROWS ...)
; file: /<<PKGBUILDDIR>>/src/sources/fixed/fixed.lisp
; in: DEFMETHOD PROCESS-ROWS (COPY-FIXED T T)
; (PGLOADER.SOURCE.FIXED::PARSE-ROW PGLOADER.SOURCE.FIXED::FIXED-COLS-SPECS
; PGLOADER.SOURCE.FIXED::LINE)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> TAGBODY SB-LOOP::LOOP-COLLECT-RPLACD RPLACD LET PROGN SETF
; --> SB-KERNEL:%RPLACD SETQ THE LIST CONS DESTRUCTURING-BIND SB-INT:BINDING*
; --> LET* IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a NUMBER:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/fixed/fixed-tmpD6GACL8Q.fasl
; compilation finished in 0:00:00.477
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "pgloader" "src" "sources" "fixed" "fixed">
; compiling file "/<<PKGBUILDDIR>>/src/sources/copy.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.COPY)
; processing (DEFCLASS COPY-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS COPY-COPY ...)
; processing (DEFMETHOD CLONE-COPY-FOR ...)
; processing (DECLAIM (INLINE PARSE-ROW))
; processing (DEFUN PARSE-ROW ...)
; processing (DEFMETHOD PROCESS-ROWS ...)
; processing (DEFMETHOD DATA-IS-PREFORMATTED-P ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/copy-tmpNQGL89VK.fasl
; compilation finished in 0:00:00.318
; compiling file "/<<PKGBUILDDIR>>/src/sources/db3/db3-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3)
; processing (DEFPARAMETER *DB3-DEFAULT-CAST-RULES* ...)
; processing (DEFSTRUCT (DB3-COLDEF #) ...)
; processing (DEFMETHOD CAST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/db3/db3-cast-rules-tmp58JN1176.fasl
; compilation finished in 0:00:00.208
; compiling file "/<<PKGBUILDDIR>>/src/sources/db3/db3-connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3)
; processing (DEFCLASS DBF-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/db3/db3-connection-tmpKKD06T4D.fasl
; compilation finished in 0:00:00.182
; compiling file "/<<PKGBUILDDIR>>/src/sources/db3/db3-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3)
; processing (DEFCLASS COPY-DB3 ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD FETCH-COLUMNS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/db3/db3-schema-tmpKPXWWYMB.fasl
; compilation finished in 0:00:00.119
; compiling file "/<<PKGBUILDDIR>>/src/sources/db3/db3.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3)
; processing (DEFMETHOD MAP-ROWS ...)
; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...)
; processing (DEFMETHOD FETCH-METADATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/db3/db3-tmpC4BCXC71.fasl
; compilation finished in 0:00:00.414
; compiling file "/<<PKGBUILDDIR>>/src/sources/ixf/ixf-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF)
; processing (DEFVAR *IXF-PGSQL-TYPE-MAPPING* ...)
; processing (DEFUN CAST-IXF-TYPE ...)
; processing (DEFUN TRANSFORM-FUNCTION ...)
; processing (DEFMETHOD CAST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/ixf/ixf-cast-rules-tmp4J4FGJ8H.fasl
; compilation finished in 0:00:00.137
; compiling file "/<<PKGBUILDDIR>>/src/sources/ixf/ixf-connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF)
; processing (DEFCLASS IXF-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/ixf/ixf-connection-tmpMQVUCHK4.fasl
; compilation finished in 0:00:00.167
; compiling file "/<<PKGBUILDDIR>>/src/sources/ixf/ixf-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF)
; processing (DEFCLASS COPY-IXF ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD FETCH-COLUMNS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/ixf/ixf-schema-tmpBN7Y9CV9.fasl
; compilation finished in 0:00:00.131
; compiling file "/<<PKGBUILDDIR>>/src/sources/ixf/ixf.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF)
; processing (DEFMETHOD MAP-ROWS ...)
; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...)
; processing (DEFMETHOD FETCH-METADATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/ixf/ixf-tmp4RSWMOLW.fasl
; compilation finished in 0:00:00.376
; compiling file "/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE)
; processing (DEFVAR *SQLITE-DB* ...)
; processing (DEFPARAMETER *SQLITE-DEFAULT-CAST-RULES* ...)
; processing (DEFSTRUCT (COLDEF #) ...)
; processing (DEFUN NORMALIZE ...)
; processing (DEFUN CTYPE-TO-DTYPE ...)
; processing (DEFMETHOD CAST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-cast-rules-tmpT4Z2TD57.fasl
; compilation finished in 0:00:00.337
; compiling file "/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE)
; processing (DEFVAR *SQLITE-DB* ...)
; processing (DEFCLASS SQLITE-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; processing (DEFMETHOD QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-connection-tmpLSH6T4RJ.fasl
; compilation finished in 0:00:00.226
; compiling file "/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE)
; processing (DEFCLASS COPY-SQLITE ...)
; processing (DEFUN SQLITE-ENCODING ...)
; processing (DEFMETHOD FILTER-LIST-TO-WHERE-CLAUSE ...)
; processing (DEFUN LIST-TABLES ...)
; processing (DEFUN FIND-SEQUENCE ...)
; processing (DEFUN FIND-AUTO-INCREMENT-IN-CREATE-SQL ...)
; processing (DEFUN LIST-COLUMNS ...)
; processing (DEFMETHOD FETCH-COLUMNS ...)
; processing (DEFUN ADD-UNLISTED-PRIMARY-KEY-INDEX ...)
; processing (DEFUN IS-INDEX-PK ...)
; processing (DEFUN LIST-INDEX-COLS ...)
; processing (DEFUN LIST-INDEXES ...)
; processing (DEFMETHOD FETCH-INDEXES ...)
; processing (DEFUN LIST-FKEYS ...)
; processing (DEFMETHOD FETCH-FOREIGN-KEYS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-schema-tmpUYTYVNWC.fasl
; compilation finished in 0:00:00.712
; compiling file "/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE)
; processing (DECLAIM (INLINE PARSE-VALUE))
; processing (DEFUN PARSE-VALUE ...)
; processing (DEFMETHOD MAP-ROWS ...)
; processing (DEFMETHOD COPY-COLUMN-LIST ...)
; processing (DEFMETHOD FETCH-METADATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/sqlite/sqlite-tmpCUL29QI9.fasl
; compilation finished in 0:00:00.594
; compiling file "/<<PKGBUILDDIR>>/src/sources/mssql/mssql-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL)
; processing (DEFPARAMETER *MSSQL-DEFAULT-CAST-RULES* ...)
; processing (DEFSTRUCT (MSSQL-COLUMN #) ...)
; processing (DEFMETHOD FIELD-NAME ...)
; processing (DEFMETHOD MSSQL-COLUMN-CTYPE ...)
; processing (DEFMETHOD CAST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mssql/mssql-cast-rules-tmpWLND5EX3.fasl
; compilation finished in 0:00:00.638
; compiling file "/<<PKGBUILDDIR>>/src/sources/mssql/mssql-connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL)
; processing (DEFVAR *MSSQL-DB* ...)
; processing (DEFCLASS MSSQL-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; processing (DEFMETHOD QUERY ...)
; processing (DEFUN MSSQL-QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mssql/mssql-connection-tmp8ISKZ6K9.fasl
; compilation finished in 0:00:00.243
; compiling file "/<<PKGBUILDDIR>>/src/sources/mssql/mssql-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL)
; processing (DEFCLASS COPY-MSSQL ...)
; processing (DEFVAR *TABLE-TYPE* ...)
; processing (DEFMETHOD FILTER-LIST-TO-WHERE-CLAUSE ...)
; processing (DEFMETHOD FETCH-COLUMNS ...)
; processing (DEFMETHOD FETCH-INDEXES ...)
; processing (DEFMETHOD FETCH-FOREIGN-KEYS ...)
; processing (DEFMETHOD GET-COLUMN-SQL-EXPRESSION ...)
; processing (DEFMETHOD GET-COLUMN-LIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mssql/mssql-schema-tmpC5ECYZ6.fasl
; compilation finished in 0:00:00.656
; compiling file "/<<PKGBUILDDIR>>/src/sources/mssql/mssql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL)
; processing (DEFMETHOD MAP-ROWS ...)
; processing (DEFMETHOD FETCH-METADATA ...)
; processing (DEFMETHOD CLEANUP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mssql/mssql-tmpK1IVP18.fasl
; compilation finished in 0:00:00.571
; compiling file "/<<PKGBUILDDIR>>/src/sources/mssql/mssql-index-filters.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.SOURCE.MSSQL.INDEX-FILTER)
; processing (DEFMETHOD TRANSLATE-INDEX-FILTER ...)
; processing (DEFUN PARSE-INDEX-FILTER-CLAUSE ...)
; processing (DEFRULE WHITESPACE ...)
; processing (DEFRULE PUNCT ...)
; processing (DEFRULE NAMESTRING ...)
; processing (DEFRULE MSSQL-BRACKETED-IDENTIFIER ...)
; processing (DEFRULE MSSQL-IDENTIFIER ...)
; processing (DEFRULE = ...)
; processing (DEFRULE <= ...)
; processing (DEFRULE >= ...)
; processing (DEFRULE < ...)
; processing (DEFRULE > ...)
; processing (DEFRULE <> ...)
; processing (DEFRULE != ...)
; processing (DEFRULE IN ...)
; processing (DEFRULE O-P ...)
; processing (DEFRULE C-P ...)
; processing (DEFRULE BETWEEN ...)
; processing (DEFRULE AND-OP ...)
; processing (DEFRULE MSSQL-OPERATOR ...)
; processing (DEFRULE DIGITS ...)
; processing (DEFRULE QUOTED ...)
; processing (DEFRULE MSSQL-CONSTANT-PARENS ...)
; processing (DEFRULE MSSQL-CONSTANT-NO-PARENS ...)
; processing (DEFRULE MSSQL-CONSTANT ...)
; processing (DEFRULE MSSQL-IS-NOT-NULL ...)
; processing (DEFRULE MSSQL-IS-NULL ...)
; processing (DEFRULE MSSQL-WHERE-IS-NULL ...)
; processing (DEFRULE MSSQL-WHERE-ID-OP-CONST ...)
; processing (DEFRULE MSSQL-WHERE-CONST-OP-ID ...)
; processing (DEFRULE MSSQL-WHERE-OP ...)
; processing (DEFRULE ANOTHER-CONSTANT ...)
; processing (DEFRULE MSSQL-IN-LIST ...)
; processing (DEFRULE MSSQL-WHERE-IN ...)
; processing (DEFRULE MSSQL-WHERE-BETWEEN ...)
; processing (DEFRULE MSSQL-INDEX-FILTER ...)
; processing (DEFRULE ANOTHER-INDEX-FILTER ...)
; processing (DEFRULE MSSQL-INDEX-WHERE-CLAUSE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mssql/mssql-index-filters-tmpB4SRXGTS.fasl
; compilation finished in 0:00:00.468
; compiling file "/<<PKGBUILDDIR>>/src/sources/mysql/mysql-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL)
; processing (DEFUN ENUM-OR-SET-NAME ...)
; processing (DEFPARAMETER *MYSQL-DEFAULT-CAST-RULES* ...)
; processing (DEFSTRUCT (MYSQL-COLUMN #) ...)
; processing (DEFMETHOD FIELD-NAME ...)
; processing (DEFUN EXPLODE-MYSQL-ENUM ...)
; processing (DEFUN NORMALIZE-EXTRA ...)
; processing (DEFMETHOD CAST ...)
; processing (DEFUN TEST-CASTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mysql/mysql-cast-rules-tmpM2SWF2IT.fasl
; compilation finished in 0:00:00.523
; compiling file "/<<PKGBUILDDIR>>/src/sources/mysql/mysql-connection.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL)
; processing (DEFVAR *CONNECTION* ...)
; processing (DEFCLASS MYSQL-CONNECTION ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD CLONE-CONNECTION ...)
; processing (DEFMETHOD SSL-MODE ...)
; processing (DEFMETHOD OPEN-CONNECTION ...)
; processing (DEFMETHOD CLOSE-CONNECTION ...)
; processing (DEFMETHOD QUERY ...)
; processing (DECLAIM (INLINE MYSQL-QUERY))
; processing (DEFUN MYSQL-QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mysql/mysql-connection-tmpB121WB98.fasl
; compilation finished in 0:00:00.327
; compiling file "/<<PKGBUILDDIR>>/src/sources/mysql/mysql-schema.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL)
; processing (DEFCLASS COPY-MYSQL ...)
; processing (DEFVAR *TABLE-TYPE* ...)
; processing (DEFMETHOD FILTER-LIST-TO-WHERE-CLAUSE ...)
; processing (DEFUN CLEANUP-DEFAULT-VALUE ...)
; processing (DEFMETHOD FETCH-COLUMNS ...)
; processing (DEFMETHOD FETCH-INDEXES ...)
; processing (DEFMETHOD FETCH-FOREIGN-KEYS ...)
; processing (DEFUN LIST-TABLE-COMMENTS ...)
; processing (DEFUN LIST-COLUMNS-COMMENTS ...)
; processing (DEFMETHOD GET-COLUMN-SQL-EXPRESSION ...)
; processing (DEFMETHOD GET-COLUMN-LIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mysql/mysql-schema-tmpMQWVO80B.fasl
; compilation finished in 0:00:00.719
; compiling file "/<<PKGBUILDDIR>>/src/sources/mysql/mysql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL)
; processing (DEFMETHOD CONCURRENCY-SUPPORT ...)
; processing (DEFUN CALL-WITH-ENCODING-HANDLER ...)
; processing (DEFMACRO WITH-ENCODING-HANDLER ...)
; processing (DEFMETHOD MAP-ROWS ...)
; processing (DEFMETHOD COPY-COLUMN-LIST ...)
; processing (DEFMETHOD FETCH-METADATA ...)
; processing (DEFMETHOD CLEANUP ...)
; processing (DEFVAR *DECODING-AS* ...)
; processing (DEFUN APPLY-DECODING-AS-FILTERS ...)
; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/mysql/mysql-tmp5VU25WKJ.fasl
; compilation finished in 0:00:01.269
; compiling file "/<<PKGBUILDDIR>>/src/sources/pgsql/pgsql-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.PGSQL)
; processing (DEFPARAMETER *PGSQL-DEFAULT-CAST-RULES* ...)
; processing (DEFMETHOD PGSQL-COLUMN-CTYPE ...)
; processing (DEFMETHOD CAST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/pgsql/pgsql-cast-rules-tmp6AV1P1SJ.fasl
; compilation finished in 0:00:00.148
; compiling file "/<<PKGBUILDDIR>>/src/sources/pgsql/pgsql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.SOURCE.PGSQL)
; processing (DEFCLASS COPY-PGSQL ...)
; processing (DEFMETHOD MAP-ROWS ...)
; processing (DEFMETHOD COPY-COLUMN-LIST ...)
; processing (DEFMETHOD FETCH-METADATA ...)
; processing (DEFMETHOD CLEANUP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/sources/pgsql/pgsql-tmpFGL8CAW7.fasl
; compilation finished in 0:00:00.735
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-batch.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFSTRUCT (BATCH #) ...)
; processing (DEFUN INIT-BATCH-MAX-COUNT ...)
; processing (DEFUN BATCH-OVERSIZED-P ...)
; processing (DEFUN BATCH-FULL-P ...)
; processing (DEFUN PUSH-ROW ...)
; processing (DEFUN FORMAT-ROW-IN-BATCH ...)
; processing (DEFUN ADD-ROW-TO-CURRENT-BATCH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-batch-tmpYW46S4BI.fasl
; compilation finished in 0:00:00.362
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-format.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFUN PREPARE-AND-FORMAT-ROW ...)
; processing (DEFUN PREPARE-ROW ...)
; processing (DEFUN FORMAT-VECTOR-ROW ...)
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-format.lisp
; in: DEFUN FORMAT-VECTOR-ROW
; (MAP 'VECTOR
; (LAMBDA (PGLOADER.PGCOPY::COL)
; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL)
; 2
; (PGLOADER.PGCOPY::COPY-UTF-8-BYTE-LENGTH PGLOADER.PGCOPY::COL)))
; PGLOADER.PGCOPY::ROW)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G12)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1
; :FOR POSITION ...)
; --> BLOCK LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR PGLOADER.PGCOPY::BUF
; (+ POSITION PGLOADER.PGCOPY::COL-LEN) PGLOADER.PGCOPY::I
; PGLOADER.PGCOPY::NB-COLS)
;
; note: doing signed word to integer coercion (cost 20)
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1
; :FOR POSITION ...)
; --> BLOCK LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; --> MULTIPLE-VALUE-BIND LET UNLESS IF
; ==>
; (SB-INT:FIXNUMP #:G51)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; processing (DEFUN FORMAT-ESCAPED-VECTOR-ROW ...)
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-format.lisp
; in: DEFUN FORMAT-ESCAPED-VECTOR-ROW
; (MAP 'VECTOR
; (LAMBDA (PGLOADER.PGCOPY::COL)
; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL)
; 2
; (CL-POSTGRES-TRIVIAL-UTF-8:UTF-8-BYTE-LENGTH
; PGLOADER.PGCOPY::COL)))
; PGLOADER.PGCOPY::ROW)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G12)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I :FROM 1
; :FOR POSITION := ...)
; --> BLOCK LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (REPLACE PGLOADER.PGCOPY::BUF PGLOADER.PGCOPY::UTF-8-BYTES :START1 POSITION)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; (+ POSITION PGLOADER.PGCOPY::COL-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I :FROM 1
; :FOR POSITION := ...)
; --> BLOCK LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (+ POSITION PGLOADER.PGCOPY::COL-LEN 1)
; --> +
; ==>
; (+ POSITION PGLOADER.PGCOPY::COL-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; ==>
; (+ (+ POSITION PGLOADER.PGCOPY::COL-LEN) 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (+ POSITION PGLOADER.PGCOPY::COL-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR NUMBER . #1=(NULL)), not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a (OR NUMBER . #1#), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I :FROM 1
; :FOR POSITION := ...)
; --> BLOCK LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+
; ==>
; (+ PGLOADER.PGCOPY::I 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (+ POSITION PGLOADER.PGCOPY::COL-LEN 1)
; --> +
; ==>
; (+ POSITION PGLOADER.PGCOPY::COL-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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; ==>
; (+ (+ POSITION PGLOADER.PGCOPY::COL-LEN) 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DECLAIM (INLINE INSERT-COPY-SEPARATOR ...))
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-format.lisp
; in: DECLAIM (INLINE INSERT-COPY-SEPARATOR INSERT-COPY-NULL COL-NULL-P)
; (DECLAIM
; (INLINE PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR
; PGLOADER.PGCOPY::INSERT-COPY-NULL PGLOADER.PGCOPY::COL-NULL-P))
; --> EVAL-WHEN
; ==>
; (SB-C::%PROCLAIM
; '(INLINE PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR
; PGLOADER.PGCOPY::INSERT-COPY-NULL PGLOADER.PGCOPY::COL-NULL-P)
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Proclaiming PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR to be INLINE, but 2 calls to
; it were previously compiled. A declaration of NOTINLINE at the call sites will
; eliminate this warning, as will proclaiming and defining the function before
; its first potential use.
;
; caught STYLE-WARNING:
; Proclaiming PGLOADER.PGCOPY::INSERT-COPY-NULL to be INLINE, but 2 calls to it
; were previously compiled. A declaration of NOTINLINE at the call sites will
; eliminate this warning, as will proclaiming and defining the function before
; its first potential use.
;
; caught STYLE-WARNING:
; Proclaiming PGLOADER.PGCOPY::COL-NULL-P to be INLINE, but 4 calls to it were
; previously compiled. A declaration of NOTINLINE at the call sites will
; eliminate this warning, as will proclaiming and defining the function before
; its first potential use.
; processing (DEFUN COL-NULL-P ...)
; processing (DEFUN INSERT-COPY-NULL ...)
; processing (DEFUN INSERT-COPY-SEPARATOR ...)
; processing (DEFUN APPLY-TRANSFORMS ...)
; processing (DEFUN COPY-UTF-8-BYTE-LENGTH ...)
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-format.lisp
; in: DEFUN COPY-UTF-8-BYTE-LENGTH
; (INCF LENGTH 1)
; --> SETQ THE
; ==>
; (+ 1 LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (INCF LENGTH
; (COND ((< PGLOADER.PGCOPY::CODE 2048) 1)
; ((< PGLOADER.PGCOPY::CODE 65536) 2) (T 3)))
; --> SETQ THE
; ==>
; (+
; (COND ((< PGLOADER.PGCOPY::CODE 2048) 1) ((< PGLOADER.PGCOPY::CODE 65536) 2)
; (T 3))
; LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
; etc.
; (INCF LENGTH 1)
; --> SETQ THE
; ==>
; (+ 1 LENGTH)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; processing (DEFMACRO AS-COPY-UTF-8-BYTES ...)
; processing (DEFUN STRING-TO-COPY-UTF-8-BYTES ...)
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-format.lisp
; in: DEFUN STRING-TO-COPY-UTF-8-BYTES
; (PGLOADER.PGCOPY::AS-COPY-UTF-8-BYTES CHAR PGLOADER.PGCOPY::ADD-BYTE)
; --> LET COND IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND
; --> SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET* FUNCALL
; --> SB-C::%FUNCALL (SETF AREF) SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
; --> TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN SETF
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF PGLOADER.PGCOPY::ADD-BYTE PROGN SETF LET*
; --> FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN
; --> SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET SB-KERNEL:CHECK-BOUND SB-C::BOUND-CAST
; ==>
; (SB-KERNEL:%CHECK-BOUND ARRAY SB-C::DIMENSION SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
; --> LET COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:CHECK-BOUND ARRAY
; (ARRAY-DIMENSION
; ARRAY 0)
; SB-INT:INDEX)
; (THE (UNSIGNED-BYTE 8) SB-C::NEW-VALUE))
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-format-tmpCNFY8H0Z.fasl
; compilation finished in 0:00:01.233
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "pgloader" "src" "pg-copy" "copy-format">
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-db-write.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFINE-CONDITION COPY-INIT-ERROR ...)
; processing (DEFUN DB-WRITE-BATCH ...)
; processing (DEFUN DB-WRITE-ROW ...)
; processing (DEFUN DB-WRITE-VECTOR-ROW ...)
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-db-write.lisp
; in: DEFUN DB-WRITE-VECTOR-ROW
; (LENGTH PGLOADER.PGCOPY::ROW)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (MAP 'VECTOR
; (LAMBDA (PGLOADER.PGCOPY::COL)
; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL)
; 2
; (PGLOADER.PGCOPY::COPY-UTF-8-BYTE-LENGTH PGLOADER.PGCOPY::COL)))
; PGLOADER.PGCOPY::ROW)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G69)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER))
; --> LET*
; ==>
; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER48))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (+ 4 PGLOADER.PGCOPY::ROW-BYTES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1
; :DO (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL)
; (PROGN
; (PGLOADER.PGCOPY::SEND-BYTE 92)
; (PGLOADER.PGCOPY::SEND-BYTE 78))
; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL
; :DO (PGLOADER.PGCOPY::AS-COPY-UTF-8-BYTES CHAR
; PGLOADER.PGCOPY::SEND-BYTE))) ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL
; :DO (PGLOADER.PGCOPY::AS-COPY-UTF-8-BYTES CHAR
; PGLOADER.PGCOPY::SEND-BYTE))
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (+ 4 PGLOADER.PGCOPY::ROW-BYTES)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (< PGLOADER.PGCOPY::I PGLOADER.PGCOPY::NBCOLS)
;
; 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 32) comparison (cost 6) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER))
; --> LET*
; ==>
; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER48))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-POSTGRES::WITH-RECONNECT-RESTART PGLOADER.CONNECTION:CONNECTION
; (CL-POSTGRES::USING-CONNECTION PGLOADER.CONNECTION:CONNECTION
; (CL-POSTGRES::WITH-SYNCING
; (CL-POSTGRES::WRITE-UINT1 CL-POSTGRES::SOCKET 100)
; (CL-POSTGRES::WRITE-UINT4 CL-POSTGRES::SOCKET
; (+ 4 PGLOADER.PGCOPY::ROW-BYTES))
; (MACROLET (#)
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1
; :DO # ...)))))
; --> LET LABELS
; ==>
; (#:G2 (CL-POSTGRES::ERR)
; (RESTART-CASE (ERROR CL-POSTGRES::ERR)
; (:RECONNECT NIL :REPORT "Try to reconnect"
; (CL-POSTGRES:REOPEN-DATABASE #:G0) (#:G1))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; processing (DEFUN DB-WRITE-ESCAPED-VECTOR-ROW ...)
; file: /<<PKGBUILDDIR>>/src/pg-copy/copy-db-write.lisp
; in: DEFUN DB-WRITE-ESCAPED-VECTOR-ROW
; (LENGTH PGLOADER.PGCOPY::ROW)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (MAP 'VECTOR
; (LAMBDA (PGLOADER.PGCOPY::COL)
; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL)
; 2
; (CL-POSTGRES-TRIVIAL-UTF-8:UTF-8-BYTE-LENGTH
; PGLOADER.PGCOPY::COL)))
; PGLOADER.PGCOPY::ROW)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET
; ==>
; (LENGTH #:G69)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER))
; --> LET*
; ==>
; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER48))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (+ 4 PGLOADER.PGCOPY::ROW-BYTES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1
; :DO (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL)
; (PROGN
; (PGLOADER.PGCOPY::SEND-BYTE 92)
; (PGLOADER.PGCOPY::SEND-BYTE 78))
; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL
; :DO (CL-POSTGRES-TRIVIAL-UTF-8::AS-UTF-8-BYTES CHAR
; PGLOADER.PGCOPY::SEND-BYTE))) ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL
; :DO (CL-POSTGRES-TRIVIAL-UTF-8::AS-UTF-8-BYTES CHAR
; PGLOADER.PGCOPY::SEND-BYTE))
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (+ 4 PGLOADER.PGCOPY::ROW-BYTES)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (< PGLOADER.PGCOPY::I PGLOADER.PGCOPY::NBCOLS)
;
; 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 32) comparison (cost 6) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES))
;
; 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 second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER))
; --> LET*
; ==>
; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER48))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; &REST T).
; unable to do #1# (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-POSTGRES::WITH-RECONNECT-RESTART PGLOADER.CONNECTION:CONNECTION
; (CL-POSTGRES::USING-CONNECTION PGLOADER.CONNECTION:CONNECTION
; (CL-POSTGRES::WITH-SYNCING
; (CL-POSTGRES::WRITE-UINT1 CL-POSTGRES::SOCKET 100)
; (CL-POSTGRES::WRITE-UINT4 CL-POSTGRES::SOCKET
; (+ 4 PGLOADER.PGCOPY::ROW-BYTES))
; (MACROLET (#)
; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW
; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1
; :DO # ...)))))
; --> LET LABELS
; ==>
; (#:G2 (CL-POSTGRES::ERR)
; (RESTART-CASE (ERROR CL-POSTGRES::ERR)
; (:RECONNECT NIL :REPORT "Try to reconnect"
; (CL-POSTGRES:REOPEN-DATABASE #:G0) (#:G1))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-db-write-tmpFZESF4C4.fasl
; compilation finished in 0:00:00.919
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-rows-in-stream.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFUN STREAM-ROWS-TO-COPY ...)
; processing (DEFUN STREAM-ROW ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-rows-in-stream-tmp4QZW3043.fasl
; compilation finished in 0:00:00.123
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-rows-in-batch.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFUN BATCH-ROWS-TO-COPY ...)
; processing (DEFUN SEND-BATCH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-rows-in-batch-tmpIEAJ6F9R.fasl
; compilation finished in 0:00:00.255
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-rows-in-batch-through-s3.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFUN BATCH-ROWS-TO-S3-THEN-COPY ...)
; processing (DEFUN PREPARE-AND-FORMAT-ROW-FOR-S3 ...)
; processing (DEFUN SEND-BATCH-THROUGH-S3 ...)
; processing (DEFUN BATCH-AS-SINGLE-VECTOR ...)
; processing (DEFUN GET-AWS-CREDENTIALS-AND-SETUP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-rows-in-batch-through-s3-tmp2X9FXVDS.fasl
; compilation finished in 0:00:00.537
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-retry-batch.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PGCOPY)
; processing (DEFUN NEXT-BATCH-ROWS ...)
; processing (DEFUN PARSE-COPY-ERROR-CONTEXT ...)
; processing (DEFUN RETRY-BATCH ...)
; processing (DEFUN COPY-PARTIAL-BATCH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-retry-batch-tmpYA92IK3B.fasl
; compilation finished in 0:00:00.303
; compiling file "/<<PKGBUILDDIR>>/src/pg-copy/copy-from-queue.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PGCOPY)
; processing (DEFUN COPY-ROWS-FROM-QUEUE ...)
; processing (DEFUN PREPARE-COPY-PARAMETERS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/pg-copy/copy-from-queue-tmpUK9UO8FM.fasl
; compilation finished in 0:00:00.279
; compiling file "/<<PKGBUILDDIR>>/src/load/api.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.LOAD)
; processing (DEFGENERIC COPY-FROM ...)
; processing (DEFGENERIC COPY-TO ...)
; processing (DEFGENERIC COPY-DATABASE ...)
; processing (DEFGENERIC PREPARE-PGSQL-DATABASE ...)
; processing (DEFGENERIC COMPLETE-PGSQL-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/load/api-tmpJIX0A353.fasl
; compilation finished in 0:00:00.015
; compiling file "/<<PKGBUILDDIR>>/src/load/copy-data.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.LOAD)
; processing (DEFMETHOD QUEUE-RAW-DATA ...)
; processing (DEFMETHOD COPY-TO ...)
; file: /<<PKGBUILDDIR>>/src/load/copy-data.lisp
; in: DEFMETHOD COPY-TO (COPY T)
; (PGLOADER.PGSQL:FORMAT-VECTOR-ROW PGLOADER.LOAD::TEXT-FILE PGLOADER.LOAD::ROW
; (PGLOADER.SOURCES:TRANSFORMS
; PGLOADER.SOURCES:COPY))
;
; caught STYLE-WARNING:
; The function FORMAT-VECTOR-ROW is called with three arguments, but wants exactly two.
; processing (DEFMETHOD COPY-FROM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/load/copy-data-tmpTKP97EU6.fasl
; compilation finished in 0:00:00.345
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "pgloader" "src" "load" "copy-data">
; compiling file "/<<PKGBUILDDIR>>/src/load/load-file.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.LOAD)
; processing (DEFMETHOD COPY-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/load/load-file-tmpRD66CE7E.fasl
; compilation finished in 0:00:00.574
; compiling file "/<<PKGBUILDDIR>>/src/load/migrate-database.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.LOAD)
; processing (DEFMETHOD PREPARE-PGSQL-DATABASE ...)
; processing (DEFMETHOD COMPLETE-PGSQL-DATABASE ...)
; processing (DEFUN PROCESS-CATALOG ...)
; processing (DEFMETHOD COPY-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/load/migrate-database-tmp788R03W8.fasl
; compilation finished in 0:00:01.380
; compiling file "/<<PKGBUILDDIR>>/src/parsers/parse-ini.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.INI)
; processing (DEFPARAMETER *GLOBAL-SECTION* ...)
; processing (DEFSTRUCT PARAMS ...)
; processing (DEFUN PROCESS-TRUE-FALSE ...)
; processing (DEFUN READ-DEFAULT-VALUE-FOR-PARAM ...)
; processing (DEFUN READ-VALUE-FOR-PARAM ...)
; processing (DEFMETHOD SET-PARAM ...)
; processing (DEFMETHOD SET-GUCS ...)
; processing (DEFUN GET-GUCS ...)
; processing (DEFUN MERGE-GUCS ...)
; processing (DEFUN USER-DEFINED-COLUMNS ...)
; processing (DEFUN SPLIT-COLUMNS-SPECS ...)
; processing (DEFUN GET-PGSQL-COLUMN-SPECS ...)
; processing (DEFUN PARSE-COLUMNS-SPEC ...)
; processing (DEFUN PARSE-ONLY-COLS ...)
; processing (DEFUN COMPUTE-COLUMNS ...)
; processing (DEFUN PARSE-SECTION ...)
; processing (DEFUN GET-CONNECTION-PARAMS ...)
; processing (DEFUN GET-CONNECTION-STRING ...)
; processing (DEFUN READ-INI-FILE ...)
; processing (DEFUN PARSE-INI-FILE ...)
; processing (DEFUN PRINT-CSV-OPTION ...)
; processing (DEFUN WRITE-COMMAND-TO-STRING ...)
; processing (DEFUN CONVERT-INI-INTO-COMMANDS ...)
; processing (DEFUN CONVERT-INI-INTO-FILES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/parse-ini-tmpYK7XD1C3.fasl
; compilation finished in 0:00:01.667
; compiling file "/<<PKGBUILDDIR>>/src/parsers/template.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFUN APPLY-TEMPLATE ...)
; processing (DEFUN INITIALIZE-CONTEXT ...)
; processing (DEFUN READ-INI-FILE ...)
; processing (DEFMETHOD MUSTACHE::CONTEXT-GET ...)
; processing (DEFMETHOD MUSTACHE::CONTEXT-GET ...)
; processing (DEFUN CONTEXT-GET-FROM-ENVIRONMENT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/template-tmp238A9KQ4.fasl
; compilation finished in 0:00:00.203
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-utils.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFVAR *CWD* ...)
; processing (DEFVAR *DATA-EXPECTED-INLINE* ...)
; processing (DEFRULE SINGLE-LINE-COMMENT ...)
; processing (DEFRULE MULTI-LINE-COMMENT ...)
; processing (DEFRULE COMMENTS ...)
; processing (DEFRULE KEEP-A-SINGLE-WHITESPACE ...)
; processing (DEFRULE WHITESPACE ...)
; processing (DEFRULE IGNORE-WHITESPACE ...)
; processing (DEFRULE PUNCT ...)
; processing (DEFRULE NAMESTRING ...)
; processing (DEFRULE DOUBLE-QUOTED-NAMESTRING ...)
; processing (DEFRULE QUOTED-NAMESTRING ...)
; processing (DEFRULE NAME ...)
; processing (DEFRULE TRIMMED-NAME ...)
; processing (DEFRULE NAMESTRING-OR-REGEX ...)
; processing (DEFRULE MAYBE-QUOTED-NAMESTRING ...)
; processing (DEFRULE OPEN-PAREN ...)
; processing (DEFRULE CLOSE-PAREN ...)
; processing (DEFRULE COMMA-SEPARATOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-utils-tmpO3WNDQMP.fasl
; compilation finished in 0:00:00.083
WARNING:
Prefix "
"
before "
"
in an ESRAP OR expression.
WARNING:
Prefix "
"
before "
"
in an ESRAP OR expression.
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-keywords.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFMACRO DEF-KEYWORD-RULE ...)
; processing (DEF-KEYWORD-RULE "load")
; processing (DEF-KEYWORD-RULE "data")
; processing (DEF-KEYWORD-RULE "from")
; processing (DEF-KEYWORD-RULE "csv")
; processing (DEF-KEYWORD-RULE "dbf")
; processing (DEF-KEYWORD-RULE "ixf")
; processing (DEF-KEYWORD-RULE "fixed")
; processing (DEF-KEYWORD-RULE "copy")
; processing (DEF-KEYWORD-RULE "into")
; processing (DEF-KEYWORD-RULE "with")
; processing (DEF-KEYWORD-RULE "when")
; processing (DEF-KEYWORD-RULE "set")
; processing (DEF-KEYWORD-RULE "tablespace")
; processing (DEF-KEYWORD-RULE "database")
; processing (DEF-KEYWORD-RULE "messages")
; processing (DEF-KEYWORD-RULE "matches")
; processing (DEF-KEYWORD-RULE "in")
; processing (DEF-KEYWORD-RULE "directory")
; processing (DEF-KEYWORD-RULE "registering")
; processing (DEF-KEYWORD-RULE "cast")
; processing (DEF-KEYWORD-RULE "column")
; processing (DEF-KEYWORD-RULE "target")
; processing (DEF-KEYWORD-RULE "columns")
; processing (DEF-KEYWORD-RULE "type")
; processing (DEF-KEYWORD-RULE "extra")
; processing (DEF-KEYWORD-RULE "include")
; processing (DEF-KEYWORD-RULE "drop")
; processing (DEF-KEYWORD-RULE "not")
; processing (DEF-KEYWORD-RULE "to")
; processing (DEF-KEYWORD-RULE "no")
; processing (DEF-KEYWORD-RULE "null")
; processing (DEF-KEYWORD-RULE "default")
; processing (DEF-KEYWORD-RULE "typemod")
; processing (DEF-KEYWORD-RULE "using")
; processing (DEF-KEYWORD-RULE "on")
; processing (DEF-KEYWORD-RULE "error")
; processing (DEF-KEYWORD-RULE "stop")
; processing (DEF-KEYWORD-RULE "resume")
; processing (DEF-KEYWORD-RULE "next")
; processing (DEF-KEYWORD-RULE "parameters")
; processing (DEF-KEYWORD-RULE "workers")
; processing (DEF-KEYWORD-RULE "batch")
; processing (DEF-KEYWORD-RULE "rows")
; processing (DEF-KEYWORD-RULE "prefetch")
; processing (DEF-KEYWORD-RULE "size")
; processing (DEF-KEYWORD-RULE "concurrency")
; processing (DEF-KEYWORD-RULE "max")
; processing (DEF-KEYWORD-RULE "parallel")
; processing (DEF-KEYWORD-RULE "reject")
; processing (DEF-KEYWORD-RULE "file")
; processing (DEF-KEYWORD-RULE "log")
; processing (DEF-KEYWORD-RULE "level")
; processing (DEF-KEYWORD-RULE "encoding")
; processing (DEF-KEYWORD-RULE "timezone")
; processing (DEF-KEYWORD-RULE "decoding")
; processing (DEF-KEYWORD-RULE "truncate")
; processing (DEF-KEYWORD-RULE "disable")
; processing (DEF-KEYWORD-RULE "triggers")
; processing (DEF-KEYWORD-RULE "lines")
; processing (DEF-KEYWORD-RULE "having")
; processing (DEF-KEYWORD-RULE "fields")
; processing (DEF-KEYWORD-RULE "optionally")
; processing (DEF-KEYWORD-RULE "enclosed")
; processing (DEF-KEYWORD-RULE "by")
; processing (DEF-KEYWORD-RULE "escaped")
; processing (DEF-KEYWORD-RULE "terminated")
; processing (DEF-KEYWORD-RULE "escape")
; processing (DEF-KEYWORD-RULE "mode")
; processing (DEF-KEYWORD-RULE "nullif")
; processing (DEF-KEYWORD-RULE "blank")
; processing (DEF-KEYWORD-RULE "trim")
; processing (DEF-KEYWORD-RULE "both")
; processing (DEF-KEYWORD-RULE "left")
; processing (DEF-KEYWORD-RULE "right")
; processing (DEF-KEYWORD-RULE "whitespace")
; processing (DEF-KEYWORD-RULE "from")
; processing (DEF-KEYWORD-RULE "for")
; processing (DEF-KEYWORD-RULE "skip")
; processing (DEF-KEYWORD-RULE "header")
; processing (DEF-KEYWORD-RULE "null")
; processing (DEF-KEYWORD-RULE "if")
; processing (DEF-KEYWORD-RULE "as")
; processing (DEF-KEYWORD-RULE "blanks")
; processing (DEF-KEYWORD-RULE "date")
; processing (DEF-KEYWORD-RULE "format")
; processing (DEF-KEYWORD-RULE "keep")
; processing (DEF-KEYWORD-RULE "trim")
; processing (DEF-KEYWORD-RULE "unquoted")
; processing (DEF-KEYWORD-RULE "delimiter")
; processing (DEF-KEYWORD-RULE "distribute")
; processing (DEF-KEYWORD-RULE "reference")
; processing (DEF-KEYWORD-RULE "schema")
; processing (DEF-KEYWORD-RULE "schemas")
; processing (DEF-KEYWORD-RULE "only")
; processing (DEF-KEYWORD-RULE "drop")
; processing (DEF-KEYWORD-RULE "alter")
; processing (DEF-KEYWORD-RULE "create")
; processing (DEF-KEYWORD-RULE "rename")
; processing (DEF-KEYWORD-RULE "materialize")
; processing (DEF-KEYWORD-RULE "reset")
; processing (DEF-KEYWORD-RULE "table")
; processing (DEF-KEYWORD-RULE "name")
; processing (DEF-KEYWORD-RULE "names")
; processing (DEF-KEYWORD-RULE "tables")
; processing (DEF-KEYWORD-RULE "views")
; processing (DEF-KEYWORD-RULE "index")
; processing (DEF-KEYWORD-RULE "indexes")
; processing (DEF-KEYWORD-RULE "preserve")
; processing (DEF-KEYWORD-RULE "uniquify")
; processing (DEF-KEYWORD-RULE "sequences")
; processing (DEF-KEYWORD-RULE "foreign")
; processing (DEF-KEYWORD-RULE "keys")
; processing (DEF-KEYWORD-RULE "downcase")
; processing (DEF-KEYWORD-RULE "quote")
; processing (DEF-KEYWORD-RULE "snake_case")
; processing (DEF-KEYWORD-RULE "identifiers")
; processing (DEF-KEYWORD-RULE "including")
; processing (DEF-KEYWORD-RULE "excluding")
; processing (DEF-KEYWORD-RULE "like")
; processing (DEF-KEYWORD-RULE "multiple")
; processing (DEF-KEYWORD-RULE "single")
; processing (DEF-KEYWORD-RULE "reader")
; processing (DEF-KEYWORD-RULE "readers")
; processing (DEF-KEYWORD-RULE "per")
; processing (DEF-KEYWORD-RULE "thread")
; processing (DEF-KEYWORD-RULE "range")
; processing (DEF-KEYWORD-RULE "signed")
; processing (DEF-KEYWORD-RULE "unsigned")
; processing (DEF-KEYWORD-RULE "archive")
; processing (DEF-KEYWORD-RULE "before")
; processing (DEF-KEYWORD-RULE "after")
; processing (DEF-KEYWORD-RULE "finally")
; processing (DEF-KEYWORD-RULE "and")
; processing (DEF-KEYWORD-RULE "do")
; processing (DEF-KEYWORD-RULE "execute")
; processing (DEF-KEYWORD-RULE "filename")
; processing (DEF-KEYWORD-RULE "filenames")
; processing (DEF-KEYWORD-RULE "matching")
; processing (DEF-KEYWORD-RULE "first")
; processing (DEF-KEYWORD-RULE "all")
; processing (DEFRULE KW-AUTO-INCREMENT ...)
; processing (DEFRULE KW-ON-UPDATE-CURRENT-TIMESTAMP ...)
; processing (DEFRULE KW-POSTGRESQL ...)
; processing (DEFRULE KW-MYSQL ...)
; processing (DEFRULE KW-MSSQL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-keywords-tmpPCPJNG3J.fasl
; compilation finished in 0:00:00.910
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-regexp.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFUN PROCESS-QUOTED-REGEX ...)
; processing (DEFRULE SINGLE-QUOTED-REGEX ...)
; processing (DEFRULE DOUBLE-QUOTED-REGEX ...)
; processing (DEFRULE PARENS-QUOTED-REGEX ...)
; processing (DEFRULE BRACES-QUOTED-REGEX ...)
; processing (DEFRULE CHEVRON-QUOTED-REGEX ...)
; processing (DEFRULE BRACKETS-QUOTED-REGEX ...)
; processing (DEFRULE SLASH-QUOTED-REGEX ...)
; processing (DEFRULE PIPE-QUOTED-REGEX ...)
; processing (DEFRULE SHARP-QUOTED-REGEX ...)
; processing (DEFRULE QUOTED-REGEX ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-regexp-tmpY86CTVMO.fasl
; compilation finished in 0:00:00.065
; compiling file "/<<PKGBUILDDIR>>/src/parsers/parse-pgpass.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFSTRUCT PGPASS ...)
; processing (DEFUN PGPASS-CHAR-P ...)
; processing (DEFRULE PGPASS-ESCAPED-CHAR ...)
; processing (DEFRULE PGPASS-IPV6-HOSTNAME ...)
; processing (DEFRULE PGPASS-ENTRY ...)
; processing (DEFRULE PGPASS-LINE ...)
; processing (DEFUN GET-PGPASS-FILENAME ...)
; processing (DEFUN PARSE-PGPASS-FILE ...)
; processing (DEFUN MATCH-HOSTNAME ...)
; processing (DEFUN MATCH-PGPASS ...)
; processing (DEFUN MATCH-PGPASS-ENTRIES ...)
; processing (DEFUN MATCH-PGPASS-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/parse-pgpass-tmp3C0QJMDP.fasl
; compilation finished in 0:00:00.421
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-db-uri.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFRULE DSN-PORT ...)
; processing (DEFRULE DOUBLED-AT-SIGN ...)
; processing (DEFRULE DOUBLED-COLON ...)
; processing (DEFRULE PASSWORD ...)
; processing (DEFRULE USERNAME ...)
; processing (DEFRULE DSN-USER-PASSWORD ...)
; processing (DEFUN HEXDIGIT-CHAR-P ...)
; processing (DEFRULE IPV4-PART ...)
; processing (DEFRULE IPV4 ...)
; processing (DEFRULE IPV6 ...)
; processing (DEFUN SOCKET-DIRECTORY-CHARACTER-P ...)
; processing (DEFRULE SOCKET-DIRECTORY ...)
; processing (DEFRULE NETWORK-LABEL-LETTERS-DIGIT ...)
; processing (DEFRULE NETWORK-LABEL-WITH-HYPHEN ...)
; processing (DEFRULE NETWORK-LABEL-NO-HYPHEN ...)
; processing (DEFRULE NETWORK-LABEL ...)
; processing (DEFRULE NETWORK-HOSTNAME ...)
; processing (DEFRULE HOSTNAME ...)
; processing (DEFUN PROCESS-HOSTNAME ...)
; processing (DEFRULE DSN-HOSTNAME ...)
; processing (DEFRULE DSN-DBNAME ...)
; processing (DEFRULE DSN-OPTION-SSL-DISABLE ...)
; processing (DEFRULE DSN-OPTION-SSL-ALLOW ...)
; processing (DEFRULE DSN-OPTION-SSL-PREFER ...)
; processing (DEFRULE DSN-OPTION-SSL-REQUIRE ...)
; processing (DEFRULE DSN-OPTION-SSL ...)
; processing (DEFUN GET-PGSSLMODE ...)
; processing (DEFRULE QUALIFIED-TABLE-NAME ...)
; processing (DEFRULE DSN-TABLE-NAME ...)
; processing (DEFRULE DSN-OPTION-TABLE-NAME ...)
; processing (DEFRULE URI-PARAM ...)
; processing (DEFMACRO MAKE-DSN-OPTION-RULE ...)
; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-HOST ...)
; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-PORT ...)
; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-DBNAME ...)
; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-USER ...)
; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-PASS ...)
; processing (DEFRULE DSN-OPTION ...)
; processing (DEFRULE ANOTHER-DSN-OPTION ...)
; processing (DEFRULE DSN-OPTIONS ...)
; processing (DEFRULE PGSQL-PREFIX ...)
; processing (DEFRULE PGSQL-URI ...)
; processing (DEFRULE TARGET ...)
; processing (DEFUN PGSQL-CONNECTION-BINDINGS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-db-uri-tmpHQ2QZGMQ.fasl
; compilation finished in 0:00:00.630
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-source.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFUN FILENAME-CHARACTER-P ...)
; processing (DEFRULE STDIN ...)
; processing (DEFRULE INLINE ...)
; processing (DEFRULE FILENAME ...)
; processing (DEFRULE QUOTED-FILENAME ...)
; processing (DEFRULE MAYBE-QUOTED-FILENAME ...)
; processing (DEFRULE HTTP-URI ...)
; processing (DEFRULE MAYBE-QUOTED-FILENAME-OR-HTTP-URI ...)
; processing (DEFRULE FILENAME-OR-HTTP-URI ...)
; processing (DEFRULE SOURCE-URI ...)
; processing (DEFRULE LOAD-FROM ...)
; processing (DEFRULE SOURCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-source-tmpRFA246QC.fasl
; compilation finished in 0:00:00.128
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-options.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFUN OPTNAME-CHAR-P ...)
; processing (DEFRULE OPTNAME-ELEMENT ...)
; processing (DEFRULE ANOTHER-OPTNAME-ELEMENT ...)
; processing (DEFRULE OPTNAME ...)
; processing (DEFUN OPTVALUE-CHAR-P ...)
; processing (DEFRULE OPTVALUE ...)
; processing (DEFRULE EQUAL-SIGN ...)
; processing (DEFRULE OPTION-WORKERS ...)
; processing (DEFRULE OPTION-CONCURRENCY ...)
; processing (DEFRULE OPTION-MAX-PARALLEL-CREATE-INDEX ...)
; processing (DEFRULE OPTION-BATCH-ROWS ...)
; processing (DEFRULE BYTE-SIZE-MULTIPLIER ...)
; processing (DEFRULE BYTE-SIZE-UNIT ...)
; processing (DEFRULE BATCH-SIZE ...)
; processing (DEFRULE OPTION-BATCH-SIZE ...)
; processing (DEFRULE OPTION-PREFETCH-ROWS ...)
; processing (DEFRULE OPTION-ROWS-PER-RANGE ...)
; processing (DEFUN BATCH-CONTROL-BINDINGS ...)
; processing (DEFUN IDENTIFIER-CASE-BINDING ...)
; processing (DEFUN REMOVE-BATCH-CONTROL-OPTION ...)
; processing (DEFMACRO MAKE-OPTION-RULE ...)
; processing (MAKE-OPTION-RULE INCLUDE-DROP ...)
; processing (MAKE-OPTION-RULE TRUNCATE ...)
; processing (MAKE-OPTION-RULE DISABLE-TRIGGERS ...)
; processing (MAKE-OPTION-RULE DROP-INDEXES ...)
; processing (MAKE-OPTION-RULE CREATE-TABLES ...)
; processing (MAKE-OPTION-RULE CREATE-INDEXES ...)
; processing (MAKE-OPTION-RULE RESET-SEQUENCES ...)
; processing (MAKE-OPTION-RULE FOREIGN-KEYS ...)
; processing (DEFRULE OPTION-DROP-SCHEMA ...)
; processing (DEFRULE OPTION-REINDEX ...)
; processing (DEFRULE OPTION-SINGLE-READER ...)
; processing (DEFRULE OPTION-MULTIPLE-READERS ...)
; processing (DEFRULE OPTION-SCHEMA-ONLY ...)
; processing (DEFRULE OPTION-DATA-ONLY ...)
; processing (DEFRULE OPTION-ON-ERROR-STOP ...)
; processing (DEFRULE OPTION-ON-ERROR-RESUME-NEXT ...)
; processing (DEFRULE OPTION-IDENTIFIERS-CASE ...)
; processing (DEFRULE OPTION-INDEX-NAMES ...)
; processing (DEFRULE OPTION-ENCODING ...)
; processing (DEFRULE COMMA ...)
; processing (DEFUN FLATTEN-OPTION-LIST ...)
; processing (DEFRULE GENERIC-OPTNAME ...)
; processing (DEFRULE GENERIC-VALUE ...)
; processing (DEFRULE GENERIC-OPTION ...)
; processing (DEFRULE ANOTHER-GENERIC-OPTION ...)
; processing (DEFRULE GENERIC-OPTION-LIST ...)
; processing (DEFRULE GUCS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-options-tmpXBNF6H2D.fasl
; compilation finished in 0:00:00.687
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-sql-block.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFRULE DOUBLE-DOLLAR ...)
; processing (DEFRULE DOLLAR-QUOTED ...)
; processing (DEFRULE ANOTHER-DOLLAR-QUOTED ...)
; processing (DEFRULE DOLLAR-QUOTED-LIST ...)
; processing (DEFRULE SQL-FILE ...)
; processing (DEFRULE LOAD-DO ...)
; processing (DEFRULE LOAD-EXECUTE ...)
; processing (DEFRULE BEFORE-LOAD ...)
; processing (DEFRULE FINALLY ...)
; processing (DEFRULE AFTER-LOAD ...)
; processing (DEFRULE AFTER-SCHEMA ...)
; processing (DEFUN SQL-CODE-BLOCK ...)
; processing (DEFUN EXECUTE-SQL-CODE-BLOCK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-sql-block-tmp56LB2EXK.fasl
; compilation finished in 0:00:00.286
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-sexp.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFUN NOT-DOUBLEQUOTE ...)
; processing (DEFUN SYMBOL-CHARACTER-P ...)
; processing (DEFUN SYMBOL-FIRST-CHARACTER-P ...)
; processing (DEFRULE SEXP-SYMBOL ...)
; processing (DEFRULE SEXP-CHAR ...)
; processing (DEFRULE SEXP-STRING-CHAR ...)
; processing (DEFRULE SEXP-STRING ...)
; processing (DEFRULE SEXP-INTEGER ...)
; processing (DEFRULE SEXP-LIST ...)
; processing (DEFRULE SEXP-ATOM ...)
; processing (DEFRULE SEXP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-sexp-tmpFSTBH45.fasl
; compilation finished in 0:00:00.205
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-csv.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE HEX-CHAR-CODE ...)
; processing (DEFRULE TAB-SEPARATOR ...)
; processing (DEFRULE BACKSLASH-SEPARATOR ...)
; processing (DEFRULE SINGLE-QUOTE-SEPARATOR ...)
; processing (DEFRULE OTHER-CHAR-SEPARATOR ...)
; processing (DEFRULE SEPARATOR ...)
; processing (DEFRULE OPTION-SKIP-HEADER ...)
; processing (DEFRULE OPTION-CSV-HEADER ...)
; processing (DEFRULE OPTION-FIELDS-ENCLOSED-BY ...)
; processing (DEFRULE OPTION-FIELDS-NOT-ENCLOSED ...)
; processing (DEFRULE QUOTE-QUOTE ...)
; processing (DEFRULE BACKSLASH-QUOTE ...)
; processing (DEFRULE ESCAPED-QUOTE-NAME ...)
; processing (DEFRULE ESCAPED-QUOTE-LITERAL ...)
; processing (DEFRULE ESCAPED-QUOTE ...)
; processing (DEFRULE ESCAPE-MODE-QUOTE ...)
; processing (DEFRULE ESCAPE-MODE-FOLLOWING ...)
; processing (DEFRULE ESCAPE-MODE ...)
; processing (DEFRULE OPTION-FIELDS-ESCAPED-BY ...)
; processing (DEFRULE OPTION-TERMINATED-BY ...)
; processing (DEFRULE OPTION-FIELDS-TERMINATED-BY ...)
; processing (DEFRULE OPTION-LINES-TERMINATED-BY ...)
; processing (DEFRULE OPTION-KEEP-UNQUOTED-BLANKS ...)
; processing (DEFRULE OPTION-TRIM-UNQUOTED-BLANKS ...)
; processing (DEFRULE OPTION-CSV-ESCAPE-MODE ...)
; processing (DEFRULE CSV-OPTION ...)
; processing (DEFRULE CSV-OPTIONS ...)
; processing (DEFRULE SINGLE-QUOTED-STRING ...)
; processing (DEFRULE DOUBLE-QUOTED-STRING ...)
; processing (DEFRULE QUOTED-STRING ...)
; processing (DEFRULE OPTION-DATE-FORMAT ...)
; processing (DEFRULE BLANKS ...)
; processing (DEFRULE OPTION-NULL-IF ...)
; processing (DEFRULE OPTION-TRIM-BOTH-WHITESPACE ...)
; processing (DEFRULE OPTION-TRIM-LEFT-WHITESPACE ...)
; processing (DEFRULE OPTION-TRIM-RIGHT-WHITESPACE ...)
; processing (DEFRULE CSV-FIELD-OPTION ...)
; processing (DEFRULE ANOTHER-CSV-FIELD-OPTION ...)
; processing (DEFRULE OPEN-SQUARE-BRACKET ...)
; processing (DEFRULE CLOSE-SQUARE-BRACKET ...)
; processing (DEFRULE CSV-FIELD-OPTION-LIST ...)
; processing (DEFRULE CSV-FIELD-OPTIONS ...)
; processing (DEFRULE CSV-BARE-FIELD-NAME ...)
; processing (DEFRULE CSV-QUOTED-FIELD-NAME ...)
; processing (DEFRULE CSV-FIELD-NAME ...)
; processing (DEFRULE CSV-SOURCE-FIELD ...)
; processing (DEFRULE ANOTHER-CSV-SOURCE-FIELD ...)
; processing (DEFRULE CSV-SOURCE-FIELDS ...)
; processing (DEFRULE HAVING-FIELDS ...)
; processing (DEFRULE CSV-SOURCE-FIELD-LIST ...)
; processing (DEFRULE COLUMN-NAME ...)
; processing (DEFRULE COLUMN-TYPE ...)
; processing (DEFRULE COLUMN-EXPRESSION ...)
; processing (DEFRULE CSV-TARGET-COLUMN ...)
; processing (DEFRULE ANOTHER-CSV-TARGET-COLUMN ...)
; processing (DEFRULE CSV-TARGET-COLUMNS ...)
; processing (DEFRULE TARGET-COLUMNS ...)
; processing (DEFRULE CSV-TARGET-COLUMN-LIST ...)
; processing (DEFRULE CSV-TARGET-TABLE ...)
; processing (DEFUN FIND-ENCODING-BY-NAME-OR-ALIAS ...)
; processing (DEFRULE ENCODING ...)
; processing (DEFRULE FILE-ENCODING ...)
; processing (DEFRULE FIRST-FILENAME-MATCHING ...)
; processing (DEFRULE ALL-FILENAME-MATCHING ...)
; processing (DEFRULE IN-DIRECTORY ...)
; processing (DEFRULE FILENAME-MATCHING ...)
; processing (DEFRULE CSV-URI ...)
; processing (DEFRULE CSV-FILE-SOURCE ...)
; processing (DEFRULE CSV-SOURCE ...)
; processing (DEFUN LIST-SYMBOLS ...)
; processing (DEFRULE LOAD-CSV-FILE-OPTIONAL-CLAUSES ...)
; processing (DEFRULE LOAD-CSV-FILE-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-CSV-DRY-RUN ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-CSV ...)
; processing (DEFRULE LOAD-CSV-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-csv-tmpNQV4VCPG.fasl
; compilation finished in 0:00:00.884
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-ixf.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE TZ-UTC ...)
; processing (DEFRULE TZ-GMT ...)
; processing (DEFRULE TZ-NAME ...)
; processing (DEFRULE OPTION-TIMEZONE ...)
; processing (DEFRULE IXF-OPTION ...)
; processing (DEFRULE IXF-OPTIONS ...)
; processing (DEFRULE IXF-URI ...)
; processing (DEFRULE IXF-FILE-SOURCE ...)
; processing (DEFRULE IXF-SOURCE ...)
; processing (DEFRULE LOAD-IXF-OPTIONAL-CLAUSES ...)
; processing (DEFRULE LOAD-IXF-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-IXF ...)
; processing (DEFRULE LOAD-IXF-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-ixf-tmp4DF2YNUV.fasl
; compilation finished in 0:00:00.232
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-fixed.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE OPTION-FIXED-HEADER ...)
; processing (DEFRULE HEX-NUMBER ...)
; processing (DEFRULE DEC-NUMBER ...)
; processing (DEFRULE NUMBER ...)
; processing (DEFRULE FIELD-START-POSITION ...)
; processing (DEFRULE FIXED-FIELD-LENGTH ...)
; processing (DEFRULE FIXED-SOURCE-FIELD ...)
; processing (DEFRULE ANOTHER-FIXED-SOURCE-FIELD ...)
; processing (DEFRULE FIXED-SOURCE-FIELDS ...)
; processing (DEFRULE FIXED-SOURCE-FIELD-LIST ...)
; processing (DEFRULE FIXED-OPTION ...)
; processing (DEFRULE FIXED-OPTIONS ...)
; processing (DEFRULE FIXED-URI ...)
; processing (DEFRULE FIXED-FILE-SOURCE ...)
; processing (DEFRULE FIXED-SOURCE ...)
; processing (DEFRULE LOAD-FIXED-COLS-FILE-OPTIONAL-CLAUSES ...)
; processing (DEFRULE LOAD-FIXED-COLS-FILE-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-FIXED ...)
; processing (DEFRULE LOAD-FIXED-COLS-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-fixed-tmpTT9UOXYA.fasl
; compilation finished in 0:00:00.331
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-copy.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE COPY-SOURCE-FIELD ...)
; processing (DEFRULE ANOTHER-COPY-SOURCE-FIELD ...)
; processing (DEFRULE COPY-SOURCE-FIELDS ...)
; processing (DEFRULE COPY-SOURCE-FIELD-LIST ...)
; processing (DEFRULE OPTION-DELIMITER ...)
; processing (DEFRULE OPTION-NULL ...)
; processing (DEFRULE COPY-OPTION ...)
; processing (DEFRULE COPY-OPTIONS ...)
; processing (DEFRULE COPY-URI ...)
; processing (DEFRULE COPY-FILE-SOURCE ...)
; processing (DEFRULE COPY-SOURCE ...)
; processing (DEFRULE LOAD-COPY-FILE-OPTIONAL-CLAUSES ...)
; processing (DEFRULE LOAD-COPY-FILE-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-COPY ...)
; processing (DEFRULE LOAD-COPY-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-copy-tmp63UXYE15.fasl
; compilation finished in 0:00:00.309
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-dbf.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE OPTION-CREATE-TABLE ...)
; processing (DEFRULE QUOTED-TABLE-NAME ...)
; processing (DEFRULE OPTION-TABLE-NAME ...)
; processing (DEFRULE DBF-OPTION ...)
; processing (DEFRULE DBF-OPTIONS ...)
; processing (DEFRULE DBF-URI ...)
; processing (DEFRULE DBF-FILE-SOURCE ...)
; processing (DEFRULE DBF-SOURCE ...)
; processing (DEFRULE LOAD-DBF-OPTIONAL-CLAUSES ...)
; processing (DEFRULE DBF-FILE-ENCODING ...)
; processing (DEFRULE LOAD-DBF-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-DBF-DRY-RUN ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-DBF ...)
; processing (DEFRULE LOAD-DBF-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-dbf-tmpZGFXQB6T.fasl
; compilation finished in 0:00:00.270
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-cast-rules.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFRULE CAST-TYPEMOD-GUARD ...)
; processing (DEFRULE CAST-DEFAULT-GUARD ...)
; processing (DEFRULE CAST-UNSIGNED-GUARD ...)
; processing (DEFRULE CAST-SIGNED-GUARD ...)
; processing (DEFRULE CAST-SOURCE-EXTRA ...)
; processing (DEFRULE CAST-TYPE-NAME ...)
; processing (DEFRULE CAST-SOURCE-TYPE ...)
; processing (DEFRULE TABLE-COLUMN-NAME ...)
; processing (DEFRULE CAST-SOURCE-COLUMN ...)
; processing (DEFRULE CAST-SOURCE-EXTRA-OR-GUARD ...)
; processing (DEFRULE CAST-SOURCE ...)
; processing (DEFRULE CAST-TO-TYPE ...)
; processing (DEFRULE CAST-KEEP-DEFAULT ...)
; processing (DEFRULE CAST-KEEP-TYPEMOD ...)
; processing (DEFRULE CAST-KEEP-NOT-NULL ...)
; processing (DEFRULE CAST-DROP-DEFAULT ...)
; processing (DEFRULE CAST-DROP-TYPEMOD ...)
; processing (DEFRULE CAST-DROP-NOT-NULL ...)
; processing (DEFRULE CAST-SET-NOT-NULL ...)
; processing (DEFRULE CAST-KEEP-EXTRA ...)
; processing (DEFRULE CAST-DROP-EXTRA ...)
; processing (DEFRULE CAST-DEF ...)
; processing (DEFUN FUNCTION-NAME-CHARACTER-P ...)
; processing (DEFRULE FUNCTION-NAME ...)
; processing (DEFRULE PACKAGE-AND-FUNCTION-NAMES ...)
; processing (DEFRULE MAYBE-QUALIFIED-FUNCTION-NAME ...)
; processing (DEFRULE TRANSFORM-EXPRESSION ...)
; processing (DEFRULE CAST-FUNCTION ...)
; processing (DEFUN FIX-TARGET-TYPE ...)
; processing (DEFRULE CAST-RULE ...)
; processing (DEFRULE ANOTHER-CAST-RULE ...)
; processing (DEFRULE CAST-RULE-LIST ...)
; processing (DEFRULE CASTS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-cast-rules-tmp73L1SMDJ.fasl
; compilation finished in 0:00:00.350
WARNING: Prefix ":" before "::" in an ESRAP OR expression.
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-materialize-views.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE VIEW-NAME ...)
; processing (DEFRULE VIEW-SQL ...)
; processing (DEFRULE VIEW-DEFINITION ...)
; processing (DEFRULE ANOTHER-VIEW-DEFINITION ...)
; processing (DEFRULE VIEWS-LIST ...)
; processing (DEFRULE MATERIALIZE-ALL-VIEWS ...)
; processing (DEFRULE MATERIALIZE-VIEW-LIST ...)
; processing (DEFRULE MATERIALIZE-VIEWS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-materialize-views-tmp7JCMYUGC.fasl
; compilation finished in 0:00:00.089
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-alter-table.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE MATCH-RULE-TARGET-REGEX ...)
; processing (DEFRULE MATCH-RULE-TARGET-STRING ...)
; processing (DEFRULE MATCH-RULE-TARGET ...)
; processing (DEFRULE ANOTHER-MATCH-RULE-TARGET ...)
; processing (DEFRULE FILTER-LIST-MATCHING ...)
; processing (DEFRULE ALTER-TABLE-NAMES-MATCHING ...)
; processing (DEFRULE IN-SCHEMA ...)
; processing (DEFRULE RENAME-TO ...)
; processing (DEFRULE SET-SCHEMA ...)
; processing (DEFRULE SET-STORAGE-PARAMETERS ...)
; processing (DEFRULE SET-TABLESPACE ...)
; processing (DEFRULE ALTER-TABLE-ACTION ...)
; processing (DEFRULE ALTER-TABLE-COMMAND ...)
; processing (DEFRULE ALTER-TABLE ...)
; processing (DEFRULE ALTER-SCHEMA-RENAME-TO ...)
; processing (DEFRULE ALTER-SCHEMA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-alter-table-tmp5J7AZOXI.fasl
; compilation finished in 0:00:00.189
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-distribute.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFUN CREATE-TABLE-FROM-DSN-TABLE-NAME ...)
; processing (DEFRULE DISTRIBUTE-REFERENCE ...)
; processing (DEFRULE DISTRIBUTE-USING ...)
; processing (DEFRULE DISTRIBUTE-FROM-TABLENAME ...)
; processing (DEFRULE MAYBE-QUALIFIED-DIST-FROM-TABLE-NAME ...)
; processing (DEFRULE DISTRIBUTE-FROM-LIST ...)
; processing (DEFRULE DISTRIBUTE-USING-FROM ...)
; processing (DEFRULE DISTRIBUTE-COMMANDS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-distribute-tmp7YYFZ0M2.fasl
; compilation finished in 0:00:00.131
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-mysql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFRULE MYSQL-OPTION ...)
; processing (DEFRULE MYSQL-OPTIONS ...)
; processing (DEFRULE INCLUDING-MATCHING ...)
; processing (DEFRULE EXCLUDING-MATCHING ...)
; processing (DEFRULE DECODING-TABLE-AS ...)
; processing (DEFRULE DECODING-TABLES-AS ...)
; processing (DEFRULE MYSQL-GUCS ...)
; processing (DEFRULE LOAD-MYSQL-OPTIONAL-CLAUSES ...)
; processing (DEFRULE MYSQL-PREFIX ...)
; processing (DEFRULE MYSQL-DSN-OPTION-USESSL-TRUE ...)
; processing (DEFRULE MYSQL-DSN-OPTION-USESSL-FALSE ...)
; processing (DEFRULE MYSQL-DSN-OPTION-USESSL ...)
; processing (DEFRULE MYSQL-DSN-OPTION ...)
; processing (DEFRULE MYSQL-DSN-OPTIONS ...)
; processing (DEFRULE MYSQL-URI ...)
; processing (DEFRULE MYSQL-SOURCE ...)
; processing (DEFRULE LOAD-MYSQL-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-MYSQL-DRY-RUN ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-MYSQL ...)
; processing (DEFRULE LOAD-MYSQL-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-mysql-tmp9FXV81A1.fasl
; compilation finished in 0:00:00.370
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-including-like.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE LIKE-EXPRESSION ...)
; processing (DEFRULE ANOTHER-LIKE-EXPRESSION ...)
; processing (DEFRULE FILTER-LIST-LIKE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-including-like-tmpB0IAJ9VW.fasl
; compilation finished in 0:00:00.040
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-mssql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (MAKE-OPTION-RULE CREATE-SCHEMAS ...)
; processing (DEFRULE MSSQL-OPTION ...)
; processing (DEFRULE MSSQL-OPTIONS ...)
; processing (DEFRULE INCLUDING-IN-SCHEMA ...)
; processing (DEFRULE INCLUDING-LIKE-IN-SCHEMA ...)
; processing (DEFRULE EXCLUDING-IN-SCHEMA ...)
; processing (DEFRULE EXCLUDING-LIKE-IN-SCHEMA ...)
; processing (DEFRULE MSSQL-GUCS ...)
; processing (DEFRULE LOAD-MSSQL-OPTIONAL-CLAUSES ...)
; processing (DEFRULE MSSQL-PREFIX ...)
; processing (DEFRULE MSSQL-URI ...)
; processing (DEFRULE MSSQL-SOURCE ...)
; processing (DEFRULE LOAD-MSSQL-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-MSSQL-DRY-RUN ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-MSSQL ...)
; processing (DEFRULE LOAD-MSSQL-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-mssql-tmpHTG3I7F1.fasl
; compilation finished in 0:00:00.343
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-sqlite.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE SQLITE-OPTION ...)
; processing (DEFRULE SQLITE-OPTIONS ...)
; processing (DEFRULE INCLUDING-LIKE ...)
; processing (DEFRULE EXCLUDING-LIKE ...)
; processing (DEFRULE SQLITE-DB-URI ...)
; processing (DEFRULE SQLITE-URI ...)
; processing (DEFRULE SQLITE-SOURCE ...)
; processing (DEFRULE LOAD-SQLITE-OPTIONAL-CLAUSES ...)
; processing (DEFRULE LOAD-SQLITE-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-SQLITE-DRY-RUN ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-SQLITE ...)
; processing (DEFRULE LOAD-SQLITE-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-sqlite-tmpHRBO2E1A.fasl
; compilation finished in 0:00:00.253
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-pgsql.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFRULE PGSQL-OPTION ...)
; processing (DEFRULE PGSQL-OPTIONS ...)
; processing (DEFRULE INCLUDING-MATCHING-IN-SCHEMA-FILTER ...)
; processing (DEFRULE INCLUDING-MATCHING-IN-SCHEMA ...)
; processing (DEFRULE EXCLUDING-MATCHING-IN-SCHEMA-FILTER ...)
; processing (DEFRULE EXCLUDING-MATCHING-IN-SCHEMA ...)
; processing (DEFRULE LOAD-PGSQL-OPTIONAL-CLAUSES ...)
; processing (DEFRULE PGSQL-SOURCE ...)
; processing (DEFRULE LOAD-PGSQL-COMMAND ...)
; processing (DEFUN LISP-CODE-FOR-PGSQL-DRY-RUN ...)
; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-PGSQL ...)
; processing (DEFRULE LOAD-PGSQL-DATABASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-pgsql-tmpC7KLWEBZ.fasl
; compilation finished in 0:00:00.269
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-archive.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE ARCHIVE-COMMAND ...)
; processing (DEFRULE ANOTHER-ARCHIVE-COMMAND ...)
; processing (DEFRULE ARCHIVE-COMMAND-LIST ...)
; processing (DEFRULE ARCHIVE-SOURCE ...)
; processing (DEFRULE LOAD-ARCHIVE-CLAUSES ...)
; processing (DEFRULE LOAD-ARCHIVE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-archive-tmpE37OW7S5.fasl
; compilation finished in 0:00:00.403
; compiling file "/<<PKGBUILDDIR>>/src/parsers/command-parser.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSER)
; processing (DEFRULE END-OF-COMMAND ...)
; processing (DEFRULE COMMAND ...)
; processing (DEFRULE COMMANDS ...)
; processing (DEFUN PARSE-COMMANDS ...)
; processing (DEFUN INJECT-INLINE-DATA-POSITION ...)
; processing (DEFUN PROCESS-RELATIVE-PATHNAMES ...)
; processing (DEFUN PARSE-COMMANDS-FROM-FILE ...)
; file: /<<PKGBUILDDIR>>/src/parsers/command-parser.lisp
; in: DEFUN PARSE-COMMANDS-FROM-FILE
; (ERROR "Inline data not found in '~a'." PGLOADER.PARSER::FILENAME)
; ==>
; "Inline data not found in '~a'."
;
; note: deleting unreachable code
; processing (DEFVAR *DATA-SOURCE-FILENAME-EXTENSIONS* ...)
; processing (DEFUN PARSE-FILENAME-FOR-SOURCE-TYPE ...)
; processing (DEFVAR *PARSE-RULE-FOR-SOURCE-TYPES* ...)
; processing (DEFUN PARSE-SOURCE-STRING-FOR-TYPE ...)
; processing (DEFRULE SOURCE-URI ...)
; processing (DEFUN PARSE-SOURCE-STRING ...)
; processing (DEFUN PARSE-TARGET-STRING ...)
; processing (DEFUN PARSE-CLI-GUCS ...)
; processing (DEFRULE DBF-TYPE-NAME ...)
; processing (DEFRULE SQLITE-TYPE-NAME ...)
; processing (DEFRULE CLI-TYPE ...)
; processing (DEFUN PARSE-CLI-TYPE ...)
; processing (DEFUN PARSE-CLI-ENCODING ...)
; processing (DEFUN PARSE-CLI-FIELDS ...)
; processing (DEFUN PARSE-CLI-OPTIONS ...)
; processing (DEFUN PARSE-CLI-CASTS ...)
; processing (DEFUN PARSE-SQL-FILE ...)
; processing (DEFRULE PG-DB-URI-FROM-COMMAND ...)
; processing (DEFRULE PG-DB-URI-FROM-FILES ...)
; processing (DEFRULE PG-DB-URI-FROM-SOURCE-TARGET ...)
; processing (DEFRULE PG-DB-URI-FROM-SOURCE-TABLE-TARGET ...)
; processing (DEFRULE PG-DB-URI-FROM-SOURCE-AND-ENCODING ...)
; processing (DEFUN PARSE-TARGET-PG-DB-URI ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/command-parser-tmpT24ZR1LT.fasl
; compilation finished in 0:00:00.695
; compiling file "/<<PKGBUILDDIR>>/src/parsers/parse-sqlite-type-name.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE :PGLOADER.PARSER)
; processing (DEFRULE EXTRA-QUALIFIERS ...)
; processing (DEFRULE SQLITE-SINGLE-TYPEMOD ...)
; processing (DEFRULE SQLITE-DOUBLE-TYPEMOD ...)
; processing (DEFRULE SQLITE-TYPEMOD ...)
; processing (DEFRULE SQLITE-TYPE-NAME ...)
; processing (DEFUN PARSE-SQLITE-TYPE-NAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/parse-sqlite-type-name-tmpQRAUELQF.fasl
; compilation finished in 0:00:00.130
; compiling file "/<<PKGBUILDDIR>>/src/parsers/date-format.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER.PARSE-DATE)
; processing (DEFVAR *CENTURY* ...)
; processing (DEFUN PARSE-DATE-STRING ...)
; processing (DEFVAR *OFFSET* ...)
; processing (DEFUN PARSE-DATE-FORMAT ...)
; processing (DEFRULE FORMAT-STRING ...)
; processing (DEFRULE NOISE ...)
; processing (DEFRULE YEAR ...)
; processing (DEFRULE YEAR4 ...)
; processing (DEFRULE YEAR3 ...)
; processing (DEFRULE YEAR2 ...)
; processing (DEFRULE MONTH ...)
; processing (DEFRULE MM ...)
; processing (DEFRULE DAY ...)
; processing (DEFRULE DD ...)
; processing (DEFRULE HOUR ...)
; processing (DEFRULE HH ...)
; processing (DEFRULE HH12 ...)
; processing (DEFRULE HH24 ...)
; processing (DEFRULE AMPM ...)
; processing (DEFRULE AM ...)
; processing (DEFRULE AM-DOT ...)
; processing (DEFRULE PM ...)
; processing (DEFRULE PM-DOT ...)
; processing (DEFRULE MINUTE ...)
; processing (DEFRULE MI ...)
; processing (DEFRULE SECONDS ...)
; processing (DEFRULE SS ...)
; processing (DEFRULE MILLISECONDS ...)
; processing (DEFRULE MS ...)
; processing (DEFRULE MICROSECONDS ...)
; processing (DEFRULE US ...)
; processing (DEFUN BUILD-FORMAT-SPEC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/parsers/date-format-tmp1Z3KZY3Y.fasl
; compilation finished in 0:00:00.451
; compiling file "/<<PKGBUILDDIR>>/src/api.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER)
; processing (DEFINE-CONDITION SOURCE-DEFINITION-ERROR ...)
; processing (DEFINE-CONDITION CLI-PARSING-ERROR ...)
; processing (DEFINE-CONDITION LOAD-FILES-NOT-FOUND-ERROR ...)
; processing (DEFUN PROCESS-COMMAND-FILE ...)
; processing (DEFUN PROCESS-SOURCE-AND-TARGET ...)
; processing (DEFUN RUN-COMMANDS ...)
; processing (DEFUN LOAD-DATA ...)
; file: /<<PKGBUILDDIR>>/src/api.lisp
; in: DEFUN LOAD-DATA
; 'PGLOADER.SOURCE.COPY:COPY-CONNECTION
;
; note: deleting unreachable code
; 'PGLOADER.SOURCE.FIXED:FIXED-CONNECTION
;
; note: deleting unreachable code
; processing (DEFVAR *GET-CODE-FOR-SOURCE* ...)
; processing (DEFUN LISP-CODE-FOR-LOADING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/api-tmpBWE7807P.fasl
; compilation finished in 0:00:00.839
; compiling file "/<<PKGBUILDDIR>>/src/regress/regress.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER)
; processing (DEFINE-CONDITION REGRESSION-TEST-ERROR ...)
; processing (DEFUN PROCESS-REGRESSION-TEST ...)
; processing (DEFUN LIST-COLUMNS ...)
; processing (DEFUN REGRESSION-TEST-EXPECTED-DATA-SOURCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/regress/regress-tmp4C9VBMNW.fasl
; compilation finished in 0:00:01.209
; compiling file "/<<PKGBUILDDIR>>/src/main.lisp" (written 22 MAR 2020 09:26:18 PM):
; processing (IN-PACKAGE #:PGLOADER)
; processing (DEFUN LOG-THRESHOLD ...)
; processing (DEFPARAMETER *OPT-SPEC* ...)
; processing (DEFUN PRINT-BACKTRACE ...)
; processing (DEFUN MKDIR-OR-DIE ...)
; processing (DEFUN LOG-FILE-NAME ...)
; processing (DEFUN USAGE ...)
; processing (DEFVAR *SELF-UPGRADED-ALREADY* ...)
; processing (DEFUN SELF-UPGRADE ...)
; processing (DEFUN PARSE-SUMMARY-FILENAME ...)
; processing (DEFVAR *--LOAD-LIST-FILE-EXTENSION-WHITELIST* ...)
; processing (DEFUN LOAD-EXTRA-TRANSFORMATION-FUNCTIONS ...)
; processing (DEFUN MAIN ...)
; file: /<<PKGBUILDDIR>>/src/main.lisp
; in: DEFUN MAIN
; (PGLOADER.MONITOR:LOG-MESSAGE :LOG "Main logs in '~a'"
; (UIOP/FILESYSTEM:NATIVE-NAMESTRING
; PGLOADER.PARAMS:*LOG-FILENAME*))
; --> WHEN IF PGLOADER.MONITOR::SEND-LOG-MESSAGE
; ==>
; "Main logs in '~a'"
;
; note: deleting unreachable code
; (PGLOADER.MONITOR:LOG-MESSAGE :LOG "Data errors in '~a'~%"
; PGLOADER.PARAMS:*ROOT-DIR*)
; --> WHEN IF PGLOADER.MONITOR::SEND-LOG-MESSAGE
; ==>
; "Data errors in '~a'~%"
;
; note: deleting unreachable code
; (WHEN PGLOADER::NO-SSL-CERT-VERIFICATION
; (SETF CL+SSL:*MAKE-SSL-CLIENT-STREAM-VERIFY-DEFAULT* NIL))
; --> IF
; ==>
; PGLOADER::NO-SSL-CERT-VERIFICATION
;
; note: deleting unreachable code
; (AND PGLOADER::REGRESS (= 1 (LENGTH PGLOADER::ARGUMENTS)))
; --> IF
; ==>
; PGLOADER::REGRESS
;
; note: deleting unreachable code
; (LENGTH PGLOADER::ARGUMENTS)
; ==>
; PGLOADER::ARGUMENTS
;
; note: deleting unreachable code
; (FIRST PGLOADER::ARGUMENTS)
; --> CAR
; ==>
; PGLOADER::ARGUMENTS
;
; note: deleting unreachable code
; (COND
; ((AND PGLOADER::REGRESS (= 1 (LENGTH PGLOADER::ARGUMENTS)))
; (PGLOADER::PROCESS-REGRESSION-TEST (FIRST PGLOADER::ARGUMENTS)))
; (PGLOADER::REGRESS
; (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Regression testing requires a single .load file as input."))
; ((= 2 (LENGTH PGLOADER::ARGUMENTS))
; (PGLOADER::PROCESS-SOURCE-AND-TARGET (FIRST PGLOADER::ARGUMENTS)
; (SECOND PGLOADER::ARGUMENTS) TYPE
; PGLOADER::ENCODING SET PGLOADER::WITH
; PGLOADER::FIELD PGLOADER.CATALOG:CAST
; PGLOADER::BEFORE PGLOADER::AFTER))
; (T
; (LET ((PGLOADER::CLI-OPTIONS `#))
; (LOOP :FOR (PGLOADER::CLI-OPTION-NAME
; PGLOADER::CLI-OPTION-VALUE) :IN PGLOADER::CLI-OPTIONS
; :WHEN PGLOADER::CLI-OPTION-VALUE
; :DO (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Option ~s is ignored when using a load file"
; PGLOADER::CLI-OPTION-NAME))
; (UNLESS (REMOVE-IF #'NULL #)
; (PGLOADER::PROCESS-COMMAND-FILE PGLOADER::ARGUMENTS)))))
; --> IF IF
; ==>
; PGLOADER::REGRESS
;
; note: deleting unreachable code
; (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Regression testing requires a single .load file as input.")
; --> WHEN IF PGLOADER.MONITOR::SEND-LOG-MESSAGE
; ==>
; "Regression testing requires a single .load file as input."
;
; note: deleting unreachable code
; (LENGTH PGLOADER::ARGUMENTS)
; ==>
; PGLOADER::ARGUMENTS
;
; note: deleting unreachable code
; (FIRST PGLOADER::ARGUMENTS)
; --> CAR
; ==>
; PGLOADER::ARGUMENTS
;
; note: deleting unreachable code
; (LET ((PGLOADER::CLI-OPTIONS
; `(("--type" ,TYPE) ("--encoding" ,PGLOADER::ENCODING) ("--set" ,SET)
; ("--with" ,PGLOADER::WITH) ("--field" ,PGLOADER::FIELD)
; ("--cast" ,PGLOADER.CATALOG:CAST) ("--before" ,PGLOADER::BEFORE)
; ("--after" ,PGLOADER::AFTER))))
; (LOOP :FOR (PGLOADER::CLI-OPTION-NAME
; PGLOADER::CLI-OPTION-VALUE) :IN PGLOADER::CLI-OPTIONS
; :WHEN PGLOADER::CLI-OPTION-VALUE
; :DO (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Option ~s is ignored when using a load file"
; PGLOADER::CLI-OPTION-NAME))
; (UNLESS (REMOVE-IF #'NULL (MAPCAR #'SECOND PGLOADER::CLI-OPTIONS))
; (PGLOADER::PROCESS-COMMAND-FILE PGLOADER::ARGUMENTS)))
;
; note: deleting unreachable code
; (LOOP :FOR (PGLOADER::CLI-OPTION-NAME
; PGLOADER::CLI-OPTION-VALUE) :IN PGLOADER::CLI-OPTIONS
; :WHEN PGLOADER::CLI-OPTION-VALUE
; :DO (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Option ~s is ignored when using a load file"
; PGLOADER::CLI-OPTION-NAME))
; --> BLOCK LET
; ==>
; PGLOADER::CLI-OPTIONS
;
; note: deleting unreachable code
; (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Option ~s is ignored when using a load file"
; PGLOADER::CLI-OPTION-NAME)
; --> WHEN IF PGLOADER.MONITOR::SEND-LOG-MESSAGE
; ==>
; "Option ~s is ignored when using a load file"
;
; note: deleting unreachable code
; (LOOP :FOR (PGLOADER::CLI-OPTION-NAME
; PGLOADER::CLI-OPTION-VALUE) :IN PGLOADER::CLI-OPTIONS
; :WHEN PGLOADER::CLI-OPTION-VALUE
; :DO (PGLOADER.MONITOR:LOG-MESSAGE :FATAL
; "Option ~s is ignored when using a load file"
; PGLOADER::CLI-OPTION-NAME))
; --> BLOCK LET TAGBODY IF
; ==>
; PGLOADER::CLI-OPTION-VALUE
;
; note: deleting unreachable code
; #'NULL
;
; note: deleting unreachable code
; (MAPCAR #'SECOND PGLOADER::CLI-OPTIONS)
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET
; ==>
; PGLOADER::CLI-OPTIONS
;
; note: deleting unreachable code
; (REMOVE-IF #'NULL (MAPCAR #'SECOND PGLOADER::CLI-OPTIONS))
;
; note: deleting unreachable code
; (PGLOADER::PROCESS-COMMAND-FILE PGLOADER::ARGUMENTS)
; ==>
; PGLOADER::ARGUMENTS
;
; note: deleting unreachable code
; (PGLOADER.INI:CONVERT-INI-INTO-COMMANDS PGLOADER::FILENAME)
; ==>
; PGLOADER::FILENAME
;
; note: deleting unreachable code
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/<<PKGBUILDDIR>>/src/main-tmpVAZ53WPD.fasl
; compilation finished in 0:00:01.293
; file: /usr/share/common-lisp/source/cl-mustache/mustache.lisp
; in: DEFUN MUSTACHE::%OUTPUT
; (EQ MUSTACHE:*MUSTACHE-OUTPUT* MUSTACHE::*REAL-STANDARD-OUTPUT*)
;
; caught WARNING:
; undefined variable: MUSTACHE:*MUSTACHE-OUTPUT*
; file: /<<PKGBUILDDIR>>/src/sources/mysql/mysql-cast-rules.lisp
; in: DEFUN PGLOADER.SOURCE.MYSQL::TEST-CASTS
; (PGLOADER.SOURCE.MYSQL::FORMAT-COLUMN PGLOADER.SOURCE.MYSQL::PGCOL)
;
; caught STYLE-WARNING:
; undefined function: PGLOADER.SOURCE.MYSQL::FORMAT-COLUMN
; file: /<<PKGBUILDDIR>>/src/parsers/parse-ini.lisp
; in: DEFUN PGLOADER.INI::GET-PGSQL-COLUMN-SPECS
; (PGLOADER.INI::LIST-COLUMNS PGLOADER.INI::PGCONN PGLOADER.CATALOG:TABLE-NAME)
;
; caught STYLE-WARNING:
; undefined function: PGLOADER.INI::LIST-COLUMNS
; file: /<<PKGBUILDDIR>>/src/sources/common/matviews.lisp
; in:
; DEFMETHOD PGLOADER.SOURCES:FORMAT-MATVIEW-NAME (T PGLOADER.SOURCES:DB-COPY)
; (PGLOADER.CATALOG:SCHEMA-SOURCE-NAME PGLOADER.CATALOG:SCHEMA)
; --> SB-KERNEL:%INSTANCE-REF
; ==>
; (THE PGLOADER.CATALOG:SCHEMA PGLOADER.CATALOG:SCHEMA)
;
; caught WARNING:
; undefined variable: PGLOADER.CATALOG:SCHEMA
; file: /usr/share/common-lisp/source/metatilities-base/dev/copy-file.lisp
; in: DEFUN METABANG.UTILITIES:COPY-FILE
; (MAKE-CONDITION 'METABANG.UTILITIES::SOURCE/TARGET-TARGET-ALREADY-EXISTS
; :PATHNAME METABANG.UTILITIES::FROM :TARGET-PATHNAME
; METABANG.UTILITIES::TO)
;
; caught STYLE-WARNING:
; undefined type: METABANG.UTILITIES::SOURCE/TARGET-TARGET-ALREADY-EXISTS
;
; compilation unit finished
; Undefined type:
; METABANG.UTILITIES::SOURCE/TARGET-TARGET-ALREADY-EXISTS
; Undefined functions:
; PGLOADER.SOURCE.MYSQL::FORMAT-COLUMN PGLOADER.INI::LIST-COLUMNS
; Undefined variables:
; MUSTACHE:*MUSTACHE-OUTPUT* PGLOADER.CATALOG:SCHEMA
; caught 2 WARNING conditions
; caught 78 STYLE-WARNING conditions
; printed 2240 notes
; compiling file "/usr/share/common-lisp/source/cl-containers/dev/utilities-integration.lisp" (written 28 MAR 2017 01:15:31 PM):
; processing (IN-PACKAGE #:METATILITIES)
; processing (MAKE-LOAD-FORM* ABSTRACT-CONTAINER)
; processing (MAKE-LOAD-FORM* CONTAINER-NODE-MIXIN)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.0.6.debian-linux-arm/usr/share/common-lisp/source/cl-containers/dev/utilities-integration-tmpHL9GKKCF.fasl
; compilation finished in 0:00:00.052
test ! -f buildapp.fail
/usr/bin/make -C docs html
make[2]: Entering directory '/<<PKGBUILDDIR>>/docs'
Running Sphinx v2.4.3
making output directory... done
WARNING: html_static_path entry '_static' does not exist
building [mo]: targets for 0 po files that are out of date
building [html]: targets for 26 source files that are out of date
updating environment: [new config] 26 added, 0 changed, 0 removed
reading sources... [ 3%] bugreport
reading sources... [ 7%] index
reading sources... [ 11%] intro
reading sources... [ 15%] pgloader
reading sources... [ 19%] pgloader-usage-examples
reading sources... [ 23%] quickstart
reading sources... [ 26%] ref/archive
reading sources... [ 30%] ref/copy
reading sources... [ 34%] ref/csv
reading sources... [ 38%] ref/dbf
reading sources... [ 42%] ref/fixed
reading sources... [ 46%] ref/ixf
reading sources... [ 50%] ref/mssql
reading sources... [ 53%] ref/mysql
reading sources... [ 57%] ref/pgsql
reading sources... [ 61%] ref/pgsql-citus-target
reading sources... [ 65%] ref/pgsql-redshift
reading sources... [ 69%] ref/sqlite
reading sources... [ 73%] ref/transforms
reading sources... [ 76%] tutorial/csv
reading sources... [ 80%] tutorial/dBase
reading sources... [ 84%] tutorial/fixed
reading sources... [ 88%] tutorial/geolite
reading sources... [ 92%] tutorial/mysql
reading sources... [ 96%] tutorial/sqlite
reading sources... [100%] tutorial/tutorial
/<<PKGBUILDDIR>>/docs/tutorial/tutorial.rst:2: WARNING: Duplicate explicit target name: "postgresql".
tutorial/sqlite.rst:4: WARNING: Duplicate target name, cannot be used as a unique reference: "postgresql".
looking for now-outdated files... none found
pickling environment... done
checking consistency... /<<PKGBUILDDIR>>/docs/pgloader-usage-examples.rst: WARNING: document isn't included in any toctree
done
preparing documents... WARNING: unsupported theme option 'github_user' given
WARNING: unsupported theme option 'github_repo' given
WARNING: unsupported theme option 'description' given
WARNING: unsupported theme option 'travis_button' given
WARNING: unsupported theme option 'show_related' given
done
writing output... [ 3%] bugreport
writing output... [ 7%] index
writing output... [ 11%] intro
writing output... [ 15%] pgloader
writing output... [ 19%] pgloader-usage-examples
writing output... [ 23%] quickstart
writing output... [ 26%] ref/archive
writing output... [ 30%] ref/copy
writing output... [ 34%] ref/csv
writing output... [ 38%] ref/dbf
writing output... [ 42%] ref/fixed
writing output... [ 46%] ref/ixf
writing output... [ 50%] ref/mssql
writing output... [ 53%] ref/mysql
writing output... [ 57%] ref/pgsql
writing output... [ 61%] ref/pgsql-citus-target
writing output... [ 65%] ref/pgsql-redshift
writing output... [ 69%] ref/sqlite
writing output... [ 73%] ref/transforms
writing output... [ 76%] tutorial/csv
writing output... [ 80%] tutorial/dBase
writing output... [ 84%] tutorial/fixed
writing output... [ 88%] tutorial/geolite
writing output... [ 92%] tutorial/mysql
writing output... [ 96%] tutorial/sqlite
writing output... [100%] tutorial/tutorial
generating indices... genindexdone
writing additional pages... searchdone
copying static files... ... done
copying extra files... done
dumping search index in English (code: en)... done
dumping object inventory... done
build succeeded, 9 warnings.
The HTML pages are in _build/html.
/usr/lib/python3/dist-packages/sphinx_rtd_theme/search.html:21: RemovedInSphinx30Warning: To modify script_files in the theme is deprecated. Please insert a <script> tag directly in your theme instead.
{% endblock %}
make[2]: Leaving directory '/<<PKGBUILDDIR>>/docs'
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
debian/rules override_dh_auto_test
make[1]: Entering directory '/<<PKGBUILDDIR>>'
# do nothing
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
create-stamp debian/debhelper-build-stamp
fakeroot debian/rules binary-arch
dh binary-arch
dh_testroot -a
dh_prep -a
dh_auto_install -a
dh_install -a
dh_installdocs -a
dh_installchangelogs -a
debian/rules override_dh_installman-arch
make[1]: Entering directory '/<<PKGBUILDDIR>>'
mkdir -p debian/pgloader/usr/share/man/man1/
PATH=debian/pgloader/usr/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games \
help2man --version-string 3.6.2 \
--no-info \
--name "extract, transform and load data into PostgreSQL" \
pgloader > \
debian/pgloader/usr/share/man/man1/pgloader.1
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
dh_perl -a
dh_link -a
dh_strip_nondeterminism -a
dh_compress -a
dh_fixperms -a
dh_missing -a
debian/rules override_dh_dwz
make[1]: Entering directory '/<<PKGBUILDDIR>>'
# do nothing, sbcl doesn't write any debug info
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
debian/rules override_dh_strip
make[1]: Entering directory '/<<PKGBUILDDIR>>'
# do nothing, sbcl doesn't write any debug info
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
dh_makeshlibs -a -a
dh_shlibdeps -a -a
dpkg-shlibdeps: warning: debian/pgloader/usr/bin/pgloader contains an unresolvable reference to symbol current_binding_stack_pointer: it's probably a plugin
dpkg-shlibdeps: warning: package could avoid a useless dependency if debian/pgloader/usr/bin/pgloader was not linked against ld-linux-armhf.so.3 (it uses none of the library's symbols)
dpkg-shlibdeps: warning: package could avoid a useless dependency if debian/pgloader/usr/bin/pgloader was not linked against libm.so.6 (it uses none of the library's symbols)
dh_installdeb -a
debian/rules override_dh_gencontrol
make[1]: Entering directory '/<<PKGBUILDDIR>>'
dh_gencontrol -- -V"ssl:Depends=libssl1.1"
make[1]: Leaving directory '/<<PKGBUILDDIR>>'
dh_md5sums -a
dh_builddeb -a
dpkg-deb: building package 'pgloader' in '../pgloader_3.6.2-1_armhf.deb'.
dpkg-genbuildinfo --build=any
dpkg-genchanges --build=any -mRaspbian wandboard test autobuilder <root@raspbian.org> >../pgloader_3.6.2-1_armhf.changes
dpkg-genchanges: info: binary-only arch-specific upload (source code and arch-indep packages not included)
dpkg-source --after-build .
dpkg-source: info: using options from pgloader-3.6.2/debian/source/options: --extend-diff-ignore=src/params.lisp --extend-diff-ignore=src/parsers/command-csv.lisp
dpkg-buildpackage: info: binary-only upload (no source included)
--------------------------------------------------------------------------------
Build finished at 2020-07-20T19:01:46Z
Finished
--------
I: Built successfully
+------------------------------------------------------------------------------+
| Post Build Chroot |
+------------------------------------------------------------------------------+
+------------------------------------------------------------------------------+
| Changes |
+------------------------------------------------------------------------------+
pgloader_3.6.2-1_armhf.changes:
-------------------------------
Format: 1.8
Date: Tue, 14 Jul 2020 17:02:30 +0200
Source: pgloader
Binary: pgloader
Architecture: armhf
Version: 3.6.2-1
Distribution: bullseye-staging
Urgency: medium
Maintainer: Raspbian wandboard test autobuilder <root@raspbian.org>
Changed-By: Christoph Berg <myon@debian.org>
Description:
pgloader - extract, transform and load data into PostgreSQL
Changes:
pgloader (3.6.2-1) unstable; urgency=medium
.
* New upstream version.
* debian/tests/ssl: Add --debug to get backtraces.
* debian/rules: Sync loaded systems with Makefile.
* debian/rules: Print actual compiler log.
* debian/rules: Skip dh_dwz like dh_strip as it fails on buster.
* Bump required cl-db3 version to 20200212.
* Note that we need cl-plus-ssl 20190204 or later.
* Note that we need cl-csv 20180712 or later.
* DH 13.
Checksums-Sha1:
c7ed0f636c8ecd7825e9a9f79d7b19646474baa1 8867 pgloader_3.6.2-1_armhf.buildinfo
88c62eb0ecc2c49fc39d642a03a5d0a29e859b19 25278960 pgloader_3.6.2-1_armhf.deb
Checksums-Sha256:
5a83703f2aac25cbfca71ee935d7f0a3b2186969dab997363b87f431ea6c2cc7 8867 pgloader_3.6.2-1_armhf.buildinfo
bd3ae63c053ab087b5d424fe01ea571f0742105efa232feec85b3c0e7193acdf 25278960 pgloader_3.6.2-1_armhf.deb
Files:
7644b3764227919109fc199ecba659a0 8867 database optional pgloader_3.6.2-1_armhf.buildinfo
3d9bd635964651f280ecd56984d24f39 25278960 database optional pgloader_3.6.2-1_armhf.deb
+------------------------------------------------------------------------------+
| Package contents |
+------------------------------------------------------------------------------+
pgloader_3.6.2-1_armhf.deb
--------------------------
new Debian package, version 2.0.
size 25278960 bytes: control archive=3168 bytes.
940 bytes, 22 lines control
7499 bytes, 88 lines md5sums
Package: pgloader
Version: 3.6.2-1
Architecture: armhf
Maintainer: Dimitri Fontaine <dim@tapoueh.org>
Installed-Size: 27275
Depends: freetds-dev, libc6 (>= 2.28), zlib1g (>= 1:1.1.4), libssl1.1
Section: database
Priority: optional
Homepage: https://github.com/dimitri/pgloader
Description: extract, transform and load data into PostgreSQL
pgloader imports data from different kind of sources and COPY it into
PostgreSQL.
.
The command language is described in the manual page and allows one to
describe where to find the data source, its format, and to describe data
processing and transformation.
.
Supported source formats include CSV, fixed width flat files, dBase3 files
(DBF), and SQLite and MySQL databases. In most of those formats, pgloader
is able to auto-discover the schema and create the tables and the indexes
in PostgreSQL. In the MySQL case it's possible to edit CASTing rules from
the pgloader command directly.
drwxr-xr-x root/root 0 2020-07-14 15:02 ./
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/bin/
-rwxr-xr-x root/root 24170760 2020-07-14 15:02 ./usr/bin/pgloader
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/
-rw-r--r-- root/root 3012 2020-03-22 21:26 ./usr/share/doc/pgloader/README.md.gz
-rw-r--r-- root/root 4163 2020-07-14 15:02 ./usr/share/doc/pgloader/changelog.Debian.gz
-rw-r--r-- root/root 5116 2018-07-03 15:13 ./usr/share/doc/pgloader/copyright
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/
-rw-r--r-- root/root 230 2020-07-14 15:02 ./usr/share/doc/pgloader/html/.buildinfo
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_sources/
-rw-r--r-- root/root 1318 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/bugreport.rst.txt
-rw-r--r-- root/root 11591 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/index.rst.txt
-rw-r--r-- root/root 4191 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/intro.rst.txt
-rw-r--r-- root/root 6704 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/pgloader-usage-examples.rst.txt
-rw-r--r-- root/root 27707 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/pgloader.rst.txt
-rw-r--r-- root/root 6087 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/quickstart.rst.txt
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_sources/ref/
-rw-r--r-- root/root 3553 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/archive.rst.txt
-rw-r--r-- root/root 3890 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/copy.rst.txt
-rw-r--r-- root/root 8659 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/csv.rst.txt
-rw-r--r-- root/root 2464 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/dbf.rst.txt
-rw-r--r-- root/root 5918 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/fixed.rst.txt
-rw-r--r-- root/root 2173 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/ixf.rst.txt
-rw-r--r-- root/root 7128 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/mssql.rst.txt
-rw-r--r-- root/root 24455 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/mysql.rst.txt
-rw-r--r-- root/root 7766 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/pgsql-citus-target.rst.txt
-rw-r--r-- root/root 2897 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/pgsql-redshift.rst.txt
-rw-r--r-- root/root 14704 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/pgsql.rst.txt
-rw-r--r-- root/root 6773 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/sqlite.rst.txt
-rw-r--r-- root/root 4121 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/ref/transforms.rst.txt
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_sources/tutorial/
-rw-r--r-- root/root 3013 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/csv.rst.txt
-rw-r--r-- root/root 2457 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/dBase.rst.txt
-rw-r--r-- root/root 4712 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/fixed.rst.txt
-rw-r--r-- root/root 6384 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/geolite.rst.txt
-rw-r--r-- root/root 9378 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/mysql.rst.txt
-rw-r--r-- root/root 7581 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/sqlite.rst.txt
-rw-r--r-- root/root 176 2020-03-22 21:26 ./usr/share/doc/pgloader/html/_sources/tutorial/tutorial.rst.txt
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/
-rw-r--r-- root/root 12261 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/basic.css
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/css/
-rw-r--r-- root/root 3391 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/css/badge_only.css
-rw-r--r-- root/root 116966 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/css/theme.css
-rw-r--r-- root/root 9354 2020-02-22 08:34 ./usr/share/doc/pgloader/html/_static/doctools.js
-rw-r--r-- root/root 329 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/documentation_options.js
-rw-r--r-- root/root 286 2020-02-17 15:00 ./usr/share/doc/pgloader/html/_static/file.png
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/fonts/
-rw-r--r-- root/root 318387 2014-02-27 03:42 ./usr/share/doc/pgloader/html/_static/fonts/Lato-Bold.ttf.gz
-rw-r--r-- root/root 207850 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/fonts/Lato-Bold.woff2.gz
-rw-r--r-- root/root 336320 2014-02-27 03:42 ./usr/share/doc/pgloader/html/_static/fonts/Lato-BoldItalic.ttf.gz
-rw-r--r-- root/root 221224 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/fonts/Lato-BoldItalic.woff2.gz
-rw-r--r-- root/root 332755 2014-02-27 03:42 ./usr/share/doc/pgloader/html/_static/fonts/Lato-Italic.ttf.gz
-rw-r--r-- root/root 218895 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/fonts/Lato-Italic.woff2.gz
-rw-r--r-- root/root 312518 2014-02-27 03:42 ./usr/share/doc/pgloader/html/_static/fonts/Lato-Regular.ttf.gz
-rw-r--r-- root/root 203294 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/fonts/Lato-Regular.woff2.gz
-rw-r--r-- root/root 52824 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/fonts/RobotoSlab-Bold.woff2.gz
-rw-r--r-- root/root 52531 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/fonts/RobotoSlab-Regular.woff2.gz
-rw-r--r-- root/root 98328 2016-10-24 15:52 ./usr/share/doc/pgloader/html/_static/fonts/fontawesome-webfont.ttf.gz
-rw-r--r-- root/root 275451 2020-05-29 05:20 ./usr/share/doc/pgloader/html/_static/jquery.js
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/js/
-rw-r--r-- root/root 16318 2018-05-17 22:32 ./usr/share/doc/pgloader/html/_static/js/modernizr.min.js
-rw-r--r-- root/root 8766 2020-03-18 22:04 ./usr/share/doc/pgloader/html/_static/js/theme.js
-rw-r--r-- root/root 10847 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/language_data.js
-rw-r--r-- root/root 90 2020-02-17 15:00 ./usr/share/doc/pgloader/html/_static/minus.png
-rw-r--r-- root/root 90 2020-02-17 15:00 ./usr/share/doc/pgloader/html/_static/plus.png
-rw-r--r-- root/root 4395 2020-07-14 15:02 ./usr/share/doc/pgloader/html/_static/pygments.css
-rw-r--r-- root/root 16203 2020-02-22 10:23 ./usr/share/doc/pgloader/html/_static/searchtools.js
-rw-r--r-- root/root 58319 2018-05-31 21:11 ./usr/share/doc/pgloader/html/_static/underscore.js
-rw-r--r-- root/root 8355 2020-07-14 15:02 ./usr/share/doc/pgloader/html/bugreport.html
-rw-r--r-- root/root 5857 2020-07-14 15:02 ./usr/share/doc/pgloader/html/genindex.html
-rw-r--r-- root/root 33454 2020-07-14 15:02 ./usr/share/doc/pgloader/html/index.html
-rw-r--r-- root/root 14288 2020-07-14 15:02 ./usr/share/doc/pgloader/html/intro.html
-rw-r--r-- root/root 720 2020-07-14 15:02 ./usr/share/doc/pgloader/html/objects.inv
-rw-r--r-- root/root 18018 2020-07-14 15:02 ./usr/share/doc/pgloader/html/pgloader-usage-examples.html
-rw-r--r-- root/root 52040 2020-07-14 15:02 ./usr/share/doc/pgloader/html/pgloader.html
-rw-r--r-- root/root 18089 2020-07-14 15:02 ./usr/share/doc/pgloader/html/quickstart.html
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/
-rw-r--r-- root/root 11733 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/archive.html
-rw-r--r-- root/root 12129 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/copy.html
-rw-r--r-- root/root 20493 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/csv.html
-rw-r--r-- root/root 13357 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/dbf.html
-rw-r--r-- root/root 15210 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/fixed.html
-rw-r--r-- root/root 9778 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/ixf.html
-rw-r--r-- root/root 24450 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/mssql.html
-rw-r--r-- root/root 55102 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/mysql.html
-rw-r--r-- root/root 26769 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/pgsql-citus-target.html
-rw-r--r-- root/root 12001 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/pgsql-redshift.html
-rw-r--r-- root/root 31454 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/pgsql.html
-rw-r--r-- root/root 21675 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/sqlite.html
-rw-r--r-- root/root 14112 2020-07-14 15:02 ./usr/share/doc/pgloader/html/ref/transforms.html
-rw-r--r-- root/root 6253 2020-07-14 15:02 ./usr/share/doc/pgloader/html/search.html
-rw-r--r-- root/root 31340 2020-07-14 15:02 ./usr/share/doc/pgloader/html/searchindex.js
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/
-rw-r--r-- root/root 11742 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/csv.html
-rw-r--r-- root/root 10259 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/dBase.html
-rw-r--r-- root/root 13477 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/fixed.html
-rw-r--r-- root/root 14898 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/geolite.html
-rw-r--r-- root/root 16615 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/mysql.html
-rw-r--r-- root/root 22311 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/sqlite.html
-rw-r--r-- root/root 62078 2020-07-14 15:02 ./usr/share/doc/pgloader/html/tutorial/tutorial.html
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/man/
drwxr-xr-x root/root 0 2020-07-14 15:02 ./usr/share/man/man1/
-rw-r--r-- root/root 926 2020-07-14 15:02 ./usr/share/man/man1/pgloader.1.gz
+------------------------------------------------------------------------------+
| Post Build |
+------------------------------------------------------------------------------+
+------------------------------------------------------------------------------+
| Cleanup |
+------------------------------------------------------------------------------+
Purging /<<BUILDDIR>>
Not cleaning session: cloned chroot in use
+------------------------------------------------------------------------------+
| Summary |
+------------------------------------------------------------------------------+
Build Architecture: armhf
Build-Space: 131372
Build-Time: 1608
Distribution: bullseye-staging
Host Architecture: armhf
Install-Time: 1287
Job: pgloader_3.6.2-1
Machine Architecture: armhf
Package: pgloader
Package-Time: 2957
Source-Version: 3.6.2-1
Space: 131372
Status: successful
Version: 3.6.2-1
--------------------------------------------------------------------------------
Finished at 2020-07-20T19:01:46Z
Build needed 00:49:17, 131372k disc space