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
;