Raspbian Package Auto-Building

Build log for pgloader (3.6.7-1) on armhf

pgloader3.6.7-1armhf → 2022-09-17 17:52:13

sbuild (Debian sbuild) 0.72.0 (25 Oct 2016) on mb-lxc-02

+==============================================================================+
| pgloader 3.6.7-1 (armhf)                     Sat, 17 Sep 2022 17:21:40 +0000 |
+==============================================================================+

Package: pgloader
Version: 3.6.7-1
Source Version: 3.6.7-1
Distribution: bookworm-staging
Machine Architecture: armhf
Host Architecture: armhf
Build Architecture: armhf

I: NOTICE: Log filtering will replace 'var/lib/schroot/mount/bookworm-staging-armhf-sbuild-508216c4-9830-48a5-bbd8-f20652d2cfcd' with '<<CHROOT>>'

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

Get:1 http://172.17.4.1/private bookworm-staging InRelease [11.3 kB]
Get:2 http://172.17.4.1/private bookworm-staging/main Sources [13.3 MB]
Get:3 http://172.17.4.1/private bookworm-staging/main armhf Packages [14.1 MB]
Fetched 27.4 MB in 10s (2831 kB/s)
Reading package lists...
W: No sandbox user '_apt' on the system, can not drop privileges
W: http://172.17.4.1/private/dists/bookworm-staging/InRelease: Key is stored in legacy trusted.gpg keyring (/etc/apt/trusted.gpg), see the DEPRECATION section in apt-key(8) for details.

+------------------------------------------------------------------------------+
| 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 3735 kB of source archives.
Get:1 http://172.17.4.1/private bookworm-staging/main pgloader 3.6.7-1 (dsc) [2777 B]
Get:2 http://172.17.4.1/private bookworm-staging/main pgloader 3.6.7-1 (tar) [3723 kB]
Get:3 http://172.17.4.1/private bookworm-staging/main pgloader 3.6.7-1 (diff) [9040 B]
Fetched 3735 kB in 0s (9519 kB/s)
Download complete and in download only mode
I: NOTICE: Log filtering will replace 'build/pgloader-uguHbX/pgloader-3.6.7' with '<<PKGBUILDDIR>>'
I: NOTICE: Log filtering will replace 'build/pgloader-uguHbX' 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-evp4wM/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-evp4wM/gpg/pubring.kbx' created
gpg: /<<BUILDDIR>>/resolver-evp4wM/gpg/trustdb.gpg: trustdb created
gpg: key 37145E60F90AF620: 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 37145E60F90AF620: "Sbuild Signer (Sbuild Build Dependency Archive Key) <buildd-tools-devel@lists.alioth.debian.org>" not changed
gpg: key 37145E60F90AF620: 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-evp4wM/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Release [957 B]
Get:3 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Release.gpg [370 B]
Get:4 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Sources [349 B]
Get:5 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Packages [434 B]
Fetched 2110 B in 0s (8665 B/s)
Reading package lists...
W: No sandbox user '_apt' on the system, can not drop privileges
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:
  krb5-locales libpam-cap netbase sensible-utils
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 1 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-evp4wM/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 (69.2 kB/s)
Selecting previously unselected package sbuild-build-depends-core-dummy.
(Reading database ... 12805 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) ...
W: No sandbox user '_apt' on the system, can not drop privileges

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

Arch check ok (armhf included in any)

+------------------------------------------------------------------------------+
| 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, postgresql-14-ip4r | postgresql-ip4r, 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, postgresql-14-ip4r, python3-sphinx-rtd-theme, python3-sphinx, sbcl (>= 1.1.13), tzdata
dpkg-deb: building package 'sbuild-build-depends-pgloader-dummy' in '/<<BUILDDIR>>/resolver-evp4wM/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-evp4wM/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Release [963 B]
Get:3 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Release.gpg [370 B]
Get:4 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Sources [894 B]
Get:5 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ Packages [955 B]
Fetched 3182 B in 0s (15.1 kB/s)
Reading package lists...
W: No sandbox user '_apt' on the system, can not drop privileges
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:
  krb5-locales libpam-cap
Use 'apt autoremove' to remove them.
The following additional packages will be installed:
  autoconf automake autopoint autotools-dev bsdextrautils 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-global-vars 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-uax-15 cl-unicode cl-usocket
  cl-utilities cl-uuid cl-yason cl-zs3 debhelper dh-autoreconf
  dh-strip-nondeterminism dmsetup docutils-common dwz file fonts-font-awesome
  fonts-lato freetds-common freetds-dev gawk gettext gettext-base groff-base
  help2man intltool-debian libapparmor1 libarchive-zip-perl libargon2-1
  libbsd0 libc-l10n libcryptsetup12 libct4 libdebhelper-perl
  libdevmapper1.02.1 libedit2 libelf1 libexpat1 libfdisk1 libffi-dev
  libfile-stripnondeterminism-perl libglib2.0-0 libicu71 libip4tc2
  libjs-jquery libjs-sphinxdoc libjs-underscore libjson-c5 libjson-perl
  libkmod2 libllvm14 liblocale-gettext-perl libmagic-mgc libmagic1 libmd0
  libmpdec3 libpipeline1 libpq5 libpython3-stdlib libpython3.10-minimal
  libpython3.10-stdlib libsigsegv2 libsub-override-perl libsybdb5
  libsystemd-shared libtool libuchardet0 libxml2 libxslt1.1 libz3-4 locales m4
  man-db media-types openssl pkg-config po-debconf postgresql-14
  postgresql-14-ip4r postgresql-client-14 postgresql-client-common
  postgresql-common python-babel-localedata python3 python3-alabaster
  python3-babel python3-certifi python3-chardet python3-charset-normalizer
  python3-distutils python3-docutils python3-idna python3-imagesize
  python3-importlib-metadata python3-jinja2 python3-lib2to3 python3-markupsafe
  python3-minimal python3-more-itertools python3-packaging
  python3-pkg-resources python3-pygments python3-pyparsing python3-requests
  python3-roman python3-six python3-snowballstemmer python3-sphinx
  python3-sphinx-rtd-theme python3-tz python3-urllib3 python3-zipp python3.10
  python3.10-minimal sbcl sphinx-common sphinx-rtd-theme-common ssl-cert
  systemd ucf 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 libtool-doc gfortran
  | fortran95-compiler gcj-jdk m4-doc apparmor less www-browser
  libmail-box-perl postgresql-doc-14 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 python3-stemmer dvipng fonts-freefont-otf
  imagemagick-6.q16 latexmk libjs-mathjax sphinx-doc tex-gyre
  texlive-fonts-recommended texlive-latex-extra texlive-plain-generic
  python3-brotli python3.10-venv python3.10-doc binfmt-support sbcl-doc
  sbcl-source slime systemd-container systemd-homed systemd-userdbd
  systemd-boot libfido2-1 libtss2-esys-3.0.2-0 libtss2-mu0 libtss2-rc0
  policykit-1
Recommended packages:
  cl-fiveam libjs-mathjax cl-ptester curl | wget | lynx libarchive-cpio-perl
  libglib2.0-data shared-mime-info xdg-user-dirs javascript-common
  libjson-xs-perl libltdl-dev libmail-sendmail-perl sysstat logrotate
  libpaper-utils python3-pil default-dbus-system-bus | dbus-system-bus
  systemd-timesyncd | time-daemon
The following NEW packages will be installed:
  autoconf automake autopoint autotools-dev bsdextrautils 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-global-vars 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-uax-15 cl-unicode cl-usocket
  cl-utilities cl-uuid cl-yason cl-zs3 debhelper dh-autoreconf
  dh-strip-nondeterminism dmsetup docutils-common dwz file fonts-font-awesome
  fonts-lato freetds-common freetds-dev gawk gettext gettext-base groff-base
  help2man intltool-debian libapparmor1 libarchive-zip-perl libargon2-1
  libbsd0 libc-l10n libcryptsetup12 libct4 libdebhelper-perl
  libdevmapper1.02.1 libedit2 libelf1 libexpat1 libfdisk1 libffi-dev
  libfile-stripnondeterminism-perl libglib2.0-0 libicu71 libip4tc2
  libjs-jquery libjs-sphinxdoc libjs-underscore libjson-c5 libjson-perl
  libkmod2 libllvm14 liblocale-gettext-perl libmagic-mgc libmagic1 libmd0
  libmpdec3 libpipeline1 libpq5 libpython3-stdlib libpython3.10-minimal
  libpython3.10-stdlib libsigsegv2 libsub-override-perl libsybdb5
  libsystemd-shared libtool libuchardet0 libxml2 libxslt1.1 libz3-4 locales m4
  man-db media-types openssl pkg-config po-debconf postgresql-14
  postgresql-14-ip4r postgresql-client-14 postgresql-client-common
  postgresql-common python-babel-localedata python3 python3-alabaster
  python3-babel python3-certifi python3-chardet python3-charset-normalizer
  python3-distutils python3-docutils python3-idna python3-imagesize
  python3-importlib-metadata python3-jinja2 python3-lib2to3 python3-markupsafe
  python3-minimal python3-more-itertools python3-packaging
  python3-pkg-resources python3-pygments python3-pyparsing python3-requests
  python3-roman python3-six python3-snowballstemmer python3-sphinx
  python3-sphinx-rtd-theme python3-tz python3-urllib3 python3-zipp python3.10
  python3.10-minimal sbcl sbuild-build-depends-pgloader-dummy sphinx-common
  sphinx-rtd-theme-common ssl-cert systemd ucf xml-core zlib1g-dev
0 upgraded, 189 newly installed, 0 to remove and 1 not upgraded.
Need to get 119 MB of archives.
After this operation, 510 MB of additional disk space will be used.
Get:1 copy:/<<BUILDDIR>>/resolver-evp4wM/apt_archive ./ sbuild-build-depends-pgloader-dummy 0.invalid.0 [1232 B]
Get:2 http://172.17.4.1/private bookworm-staging/main armhf liblocale-gettext-perl armhf 1.07-4+b2 [18.3 kB]
Get:3 http://172.17.4.1/private bookworm-staging/main armhf libargon2-1 armhf 0~20171227-0.3 [19.6 kB]
Get:4 http://172.17.4.1/private bookworm-staging/main armhf dmsetup armhf 2:1.02.185-1 [91.8 kB]
Get:5 http://172.17.4.1/private bookworm-staging/main armhf libdevmapper1.02.1 armhf 2:1.02.185-1 [134 kB]
Get:6 http://172.17.4.1/private bookworm-staging/main armhf libjson-c5 armhf 0.16-1 [40.0 kB]
Get:7 http://172.17.4.1/private bookworm-staging/main armhf libcryptsetup12 armhf 2:2.5.0-2 [225 kB]
Get:8 http://172.17.4.1/private bookworm-staging/main armhf libfdisk1 armhf 2.38.1-1 [237 kB]
Get:9 http://172.17.4.1/private bookworm-staging/main armhf libkmod2 armhf 30+20220630-3 [51.8 kB]
Get:10 http://172.17.4.1/private bookworm-staging/main armhf libapparmor1 armhf 3.0.7-1 [98.9 kB]
Get:11 http://172.17.4.1/private bookworm-staging/main armhf libip4tc2 armhf 1.8.8-1 [32.9 kB]
Get:12 http://172.17.4.1/private bookworm-staging/main armhf libsystemd-shared armhf 251.3-1+rpi1 [1526 kB]
Get:13 http://172.17.4.1/private bookworm-staging/main armhf systemd armhf 251.3-1+rpi1 [2985 kB]
Get:14 http://172.17.4.1/private bookworm-staging/main armhf fonts-lato all 2.0-2.1 [2696 kB]
Get:15 http://172.17.4.1/private bookworm-staging/main armhf libsigsegv2 armhf 2.14-1 [36.6 kB]
Get:16 http://172.17.4.1/private bookworm-staging/main armhf gawk armhf 1:5.1.0-1 [533 kB]
Get:17 http://172.17.4.1/private bookworm-staging/main armhf libpython3.10-minimal armhf 3.10.7-1 [813 kB]
Get:18 http://172.17.4.1/private bookworm-staging/main armhf libexpat1 armhf 2.4.8-1 [84.1 kB]
Get:19 http://172.17.4.1/private bookworm-staging/main armhf python3.10-minimal armhf 3.10.7-1 [1518 kB]
Get:20 http://172.17.4.1/private bookworm-staging/main armhf python3-minimal armhf 3.10.6-1 [38.7 kB]
Get:21 http://172.17.4.1/private bookworm-staging/main armhf media-types all 8.0.0 [33.4 kB]
Get:22 http://172.17.4.1/private bookworm-staging/main armhf libmpdec3 armhf 2.5.1-2+rpi1 [73.5 kB]
Get:23 http://172.17.4.1/private bookworm-staging/main armhf libpython3.10-stdlib armhf 3.10.7-1 [1598 kB]
Get:24 http://172.17.4.1/private bookworm-staging/main armhf python3.10 armhf 3.10.7-1 [547 kB]
Get:25 http://172.17.4.1/private bookworm-staging/main armhf libpython3-stdlib armhf 3.10.6-1 [21.7 kB]
Get:26 http://172.17.4.1/private bookworm-staging/main armhf python3 armhf 3.10.6-1 [38.2 kB]
Get:27 http://172.17.4.1/private bookworm-staging/main armhf libuchardet0 armhf 0.0.7-1 [65.0 kB]
Get:28 http://172.17.4.1/private bookworm-staging/main armhf groff-base armhf 1.22.4-8 [793 kB]
Get:29 http://172.17.4.1/private bookworm-staging/main armhf bsdextrautils armhf 2.38.1-1 [137 kB]
Get:30 http://172.17.4.1/private bookworm-staging/main armhf libpipeline1 armhf 1.5.6-2 [34.2 kB]
Get:31 http://172.17.4.1/private bookworm-staging/main armhf man-db armhf 2.10.2-3 [1364 kB]
Get:32 http://172.17.4.1/private bookworm-staging/main armhf openssl armhf 3.0.5-2 [1372 kB]
Get:33 http://172.17.4.1/private bookworm-staging/main armhf ca-certificates all 20211016 [156 kB]
Get:34 http://172.17.4.1/private bookworm-staging/main armhf libmagic-mgc armhf 1:5.41-4 [295 kB]
Get:35 http://172.17.4.1/private bookworm-staging/main armhf libmagic1 armhf 1:5.41-4 [120 kB]
Get:36 http://172.17.4.1/private bookworm-staging/main armhf file armhf 1:5.41-4 [65.8 kB]
Get:37 http://172.17.4.1/private bookworm-staging/main armhf gettext-base armhf 0.21-9 [171 kB]
Get:38 http://172.17.4.1/private bookworm-staging/main armhf libc-l10n all 2.34-7+rpi1 [876 kB]
Get:39 http://172.17.4.1/private bookworm-staging/main armhf locales all 2.34-7+rpi1 [4092 kB]
Get:40 http://172.17.4.1/private bookworm-staging/main armhf ucf all 3.0043 [74.0 kB]
Get:41 http://172.17.4.1/private bookworm-staging/main armhf m4 armhf 1.4.19-1 [260 kB]
Get:42 http://172.17.4.1/private bookworm-staging/main armhf autoconf all 2.71-2 [343 kB]
Get:43 http://172.17.4.1/private bookworm-staging/main armhf autotools-dev all 20220109.1 [51.6 kB]
Get:44 http://172.17.4.1/private bookworm-staging/main armhf automake all 1:1.16.5-1.3 [823 kB]
Get:45 http://172.17.4.1/private bookworm-staging/main armhf autopoint all 0.21-9 [510 kB]
Get:46 http://172.17.4.1/private bookworm-staging/main armhf sbcl armhf 2:2.2.3-2 [8122 kB]
Get:47 http://172.17.4.1/private bookworm-staging/main armhf buildapp armhf 1.5.6-3 [7047 kB]
Get:48 http://172.17.4.1/private bookworm-staging/main armhf cl-alexandria all 20211025.gita67c3a6-1 [212 kB]
Get:49 http://172.17.4.1/private bookworm-staging/main armhf cl-esrap all 20211008.gitc99c33a-1 [54.0 kB]
Get:50 http://172.17.4.1/private bookworm-staging/main armhf cl-ppcre all 20220126.gitb4056c5-1 [113 kB]
Get:51 http://172.17.4.1/private bookworm-staging/main armhf cl-abnf all 20200229.gitba1fbb1-1 [11.4 kB]
Get:52 http://172.17.4.1/private bookworm-staging/main armhf cl-anaphora all 1:0.9.8-1 [8168 B]
Get:53 http://172.17.4.1/private bookworm-staging/main armhf cl-asdf all 2:3.3.5-1 [1282 kB]
Get:54 http://172.17.4.1/private bookworm-staging/main armhf cl-asdf-finalizers all 20170403-1.1 [9620 B]
Get:55 http://172.17.4.1/private bookworm-staging/main armhf cl-asdf-system-connections all 20170124-1.1 [5080 B]
Get:56 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-features all 20210228.gitf6e8dd7-2 [10.9 kB]
Get:57 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-gray-streams all 20210117.git2b3823e-1 [10.5 kB]
Get:58 http://172.17.4.1/private bookworm-staging/main armhf cl-babel all 20200719.gitf892d05-2 [125 kB]
Get:59 http://172.17.4.1/private bookworm-staging/main armhf cl-rt all 20090812.gita6a7503-1 [13.2 kB]
Get:60 http://172.17.4.1/private bookworm-staging/main armhf cl-kmrcl all 1.111-2 [46.7 kB]
Get:61 http://172.17.4.1/private bookworm-staging/main armhf cl-base64 all 3.4.0-1 [9936 B]
Get:62 http://172.17.4.1/private bookworm-staging/main armhf cl-bordeaux-threads all 0.8.8-5 [23.2 kB]
Get:63 http://172.17.4.1/private bookworm-staging/main armhf libglib2.0-0 armhf 2.73.3-3+rpi1 [1263 kB]
Get:64 http://172.17.4.1/private bookworm-staging/main armhf pkg-config armhf 0.29.2-1 [61.5 kB]
Get:65 http://172.17.4.1/private bookworm-staging/main armhf libffi-dev armhf 3.4.2-4 [61.7 kB]
Get:66 http://172.17.4.1/private bookworm-staging/main armhf zlib1g-dev armhf 1:1.2.11.dfsg-4.1 [183 kB]
Get:67 http://172.17.4.1/private bookworm-staging/main armhf cl-cffi all 1:0.24.1-3 [1682 kB]
Get:68 http://172.17.4.1/private bookworm-staging/main armhf cl-chipz all 20220213.git82a17d3-1 [37.4 kB]
Get:69 http://172.17.4.1/private bookworm-staging/main armhf cl-chunga all 20220222.git7836609-1 [19.6 kB]
Get:70 http://172.17.4.1/private bookworm-staging/main armhf cl-closer-mop all 2:20220227.giteabdf6a-1 [25.8 kB]
Get:71 http://172.17.4.1/private bookworm-staging/main armhf cl-closure-common all 20101107-1.1 [25.2 kB]
Get:72 http://172.17.4.1/private bookworm-staging/main armhf cl-command-line-arguments all 20151218-1.1 [9544 B]
Get:73 http://172.17.4.1/private bookworm-staging/main armhf cl-metatilities-base all 20170403-1.1 [51.9 kB]
Get:74 http://172.17.4.1/private bookworm-staging/main armhf cl-containers all 20170403-1.1 [114 kB]
Get:75 http://172.17.4.1/private bookworm-staging/main armhf cl-iterate all 20210519.gitb0f9a9c-1 [49.3 kB]
Get:76 http://172.17.4.1/private bookworm-staging/main armhf cl-flexi-streams all 20210728.git41af5dc-1 [176 kB]
Get:77 http://172.17.4.1/private bookworm-staging/main armhf cl-unicode all 20201101.git54bdf2c-1 [1316 kB]
Get:78 http://172.17.4.1/private bookworm-staging/main armhf cl-named-readtables all 20201221.gitc5689a4-1 [28.0 kB]
Get:79 http://172.17.4.1/private bookworm-staging/main armhf cl-interpol all 20220725.gitd4f49d4-1 [32.8 kB]
Get:80 http://172.17.4.1/private bookworm-staging/main armhf cl-csv all 20200929.git68ecb5d-1 [27.7 kB]
Get:81 http://172.17.4.1/private bookworm-staging/main armhf cl-cxml all 20110619-2.1 [82.5 kB]
Get:82 http://172.17.4.1/private bookworm-staging/main armhf cl-db3 all 20200212-1 [8388 B]
Get:83 http://172.17.4.1/private bookworm-staging/main armhf cl-puri all 1:1.5.7.2-1 [19.1 kB]
Get:84 http://172.17.4.1/private bookworm-staging/main armhf cl-split-sequence all 1:2.0.1-1 [11.9 kB]
Get:85 http://172.17.4.1/private bookworm-staging/main armhf cl-usocket all 0.8.3-2 [74.9 kB]
Get:86 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-garbage all 20211229.gitb3af9c0-1 [9000 B]
Get:87 http://172.17.4.1/private bookworm-staging/main armhf cl-plus-ssl all 20220328.git8b91648-4 [57.3 kB]
Get:88 http://172.17.4.1/private bookworm-staging/main armhf cl-drakma all 2.0.8-1 [46.3 kB]
Get:89 http://172.17.4.1/private bookworm-staging/main armhf cl-dynamic-classes all 20130128-2.1 [6916 B]
Get:90 http://172.17.4.1/private bookworm-staging/main armhf cl-fad all 20220110.git3f4d32d-1 [24.4 kB]
Get:91 http://172.17.4.1/private bookworm-staging/main armhf cl-garbage-pools all 20130720-1.1 [3144 B]
Get:92 http://172.17.4.1/private bookworm-staging/main armhf cl-global-vars all 0~20141013.gitc749f32-2 [5156 B]
Get:93 http://172.17.4.1/private bookworm-staging/main armhf cl-ieee-floats all 20170830-1.1 [6828 B]
Get:94 http://172.17.4.1/private bookworm-staging/main armhf cl-ironclad all 0.57-1 [1169 kB]
Get:95 http://172.17.4.1/private bookworm-staging/main armhf cl-ixf all 20180228-1.1 [9852 B]
Get:96 http://172.17.4.1/private bookworm-staging/main armhf cl-local-time all 20180228-1.1 [26.7 kB]
Get:97 http://172.17.4.1/private bookworm-staging/main armhf cl-log all 1.0.1-1.1 [20.8 kB]
Get:98 http://172.17.4.1/private bookworm-staging/main armhf cl-lparallel all 20160825-1.1 [49.8 kB]
Get:99 http://172.17.4.1/private bookworm-staging/main armhf cl-metabang-bind all 20200101.git9ab6e64-1 [17.6 kB]
Get:100 http://172.17.4.1/private bookworm-staging/main armhf cl-markdown all 20101006-2.1 [37.4 kB]
Get:101 http://172.17.4.1/private bookworm-staging/main armhf cl-md5 all 1:20210622.git906593f-1 [14.8 kB]
Get:102 http://172.17.4.1/private bookworm-staging/main armhf freetds-common all 1.3.6-1.1 [33.6 kB]
Get:103 http://172.17.4.1/private bookworm-staging/main armhf libct4 armhf 1.3.6-1.1 [145 kB]
Get:104 http://172.17.4.1/private bookworm-staging/main armhf libsybdb5 armhf 1.3.6-1.1 [169 kB]
Get:105 http://172.17.4.1/private bookworm-staging/main armhf freetds-dev armhf 1.3.6-1.1 [242 kB]
Get:106 http://172.17.4.1/private bookworm-staging/main armhf cl-mssql all 20180228-1.1 [8652 B]
Get:107 http://172.17.4.1/private bookworm-staging/main armhf cl-mustache all 0.12.1-9-g684f227-1.1 [9880 B]
Get:108 http://172.17.4.1/private bookworm-staging/main armhf cl-parse-number all 1.7-1.1 [7368 B]
Get:109 http://172.17.4.1/private bookworm-staging/main armhf cl-uax-15 all 0~20211021.git75c8a87-3 [387 kB]
Get:110 http://172.17.4.1/private bookworm-staging/main armhf cl-postgres all 20211113.git9d4332f-1 [64.1 kB]
Get:111 http://172.17.4.1/private bookworm-staging/main armhf cl-s-sql all 20211113.git9d4332f-1 [70.0 kB]
Get:112 http://172.17.4.1/private bookworm-staging/main armhf cl-postmodern all 20211113.git9d4332f-1 [362 kB]
Get:113 http://172.17.4.1/private bookworm-staging/main armhf cl-py-configparser all 20170830-1.1 [8612 B]
Get:114 http://172.17.4.1/private bookworm-staging/main armhf cl-qmynd all 20180131-1.1 [37.3 kB]
Get:115 http://172.17.4.1/private bookworm-staging/main armhf cl-quri all 20150804-1.1 [66.5 kB]
Get:116 http://172.17.4.1/private bookworm-staging/main armhf cl-simple-date all 20211113.git9d4332f-1 [19.4 kB]
Get:117 http://172.17.4.1/private bookworm-staging/main armhf cl-sqlite all 20130615-2.1 [14.7 kB]
Get:118 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-backtrace all 20200511.git6eb65bd-1 [10.1 kB]
Get:119 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-utf-8 all 20111001-1.1 [7760 B]
Get:120 http://172.17.4.1/private bookworm-staging/main armhf cl-utilities all 1.2.4-3.2 [22.2 kB]
Get:121 http://172.17.4.1/private bookworm-staging/main armhf cl-uuid all 20130813-1.1 [6876 B]
Get:122 http://172.17.4.1/private bookworm-staging/main armhf cl-yason all 0.7.6-1.1 [10.0 kB]
Get:123 http://172.17.4.1/private bookworm-staging/main armhf cl-zs3 all 1.3.1-1.1 [48.6 kB]
Get:124 http://172.17.4.1/private bookworm-staging/main armhf libdebhelper-perl all 13.9.1 [196 kB]
Get:125 http://172.17.4.1/private bookworm-staging/main armhf libtool all 2.4.7-4 [526 kB]
Get:126 http://172.17.4.1/private bookworm-staging/main armhf dh-autoreconf all 20 [17.1 kB]
Get:127 http://172.17.4.1/private bookworm-staging/main armhf libarchive-zip-perl all 1.68-1 [104 kB]
Get:128 http://172.17.4.1/private bookworm-staging/main armhf libsub-override-perl all 0.09-3 [10.4 kB]
Get:129 http://172.17.4.1/private bookworm-staging/main armhf libfile-stripnondeterminism-perl all 1.13.0-1 [26.6 kB]
Get:130 http://172.17.4.1/private bookworm-staging/main armhf dh-strip-nondeterminism all 1.13.0-1 [15.8 kB]
Get:131 http://172.17.4.1/private bookworm-staging/main armhf libelf1 armhf 0.187-2+rpi2 [177 kB]
Get:132 http://172.17.4.1/private bookworm-staging/main armhf dwz armhf 0.14-1 [83.0 kB]
Get:133 http://172.17.4.1/private bookworm-staging/main armhf libicu71 armhf 71.1-3 [8855 kB]
Get:134 http://172.17.4.1/private bookworm-staging/main armhf libxml2 armhf 2.9.14+dfsg-1 [591 kB]
Get:135 http://172.17.4.1/private bookworm-staging/main armhf gettext armhf 0.21-9 [1220 kB]
Get:136 http://172.17.4.1/private bookworm-staging/main armhf intltool-debian all 0.35.0+20060710.5 [26.8 kB]
Get:137 http://172.17.4.1/private bookworm-staging/main armhf po-debconf all 1.0.21+nmu1 [248 kB]
Get:138 http://172.17.4.1/private bookworm-staging/main armhf debhelper all 13.9.1 [1071 kB]
Get:139 http://172.17.4.1/private bookworm-staging/main armhf xml-core all 0.18+nmu1 [23.8 kB]
Get:140 http://172.17.4.1/private bookworm-staging/main armhf docutils-common all 0.17.1+dfsg-2 [127 kB]
Get:141 http://172.17.4.1/private bookworm-staging/main armhf fonts-font-awesome all 5.0.10+really4.7.0~dfsg-4.1 [517 kB]
Get:142 http://172.17.4.1/private bookworm-staging/main armhf help2man armhf 1.49.2 [202 kB]
Get:143 http://172.17.4.1/private bookworm-staging/main armhf libmd0 armhf 1.0.4-2 [28.6 kB]
Get:144 http://172.17.4.1/private bookworm-staging/main armhf libbsd0 armhf 0.11.6-1 [109 kB]
Get:145 http://172.17.4.1/private bookworm-staging/main armhf libedit2 armhf 3.1-20210910-1 [81.2 kB]
Get:146 http://172.17.4.1/private bookworm-staging/main armhf libjs-jquery all 3.6.1+dfsg+~3.5.14-1 [326 kB]
Get:147 http://172.17.4.1/private bookworm-staging/main armhf libjs-underscore all 1.13.4~dfsg+~1.11.4-1 [119 kB]
Get:148 http://172.17.4.1/private bookworm-staging/main armhf libjs-sphinxdoc all 4.5.0-4 [142 kB]
Get:149 http://172.17.4.1/private bookworm-staging/main armhf libjson-perl all 4.09000-1 [90.5 kB]
Get:150 http://172.17.4.1/private bookworm-staging/main armhf libz3-4 armhf 4.8.12-1 [5758 kB]
Get:151 http://172.17.4.1/private bookworm-staging/main armhf libllvm14 armhf 1:14.0.6-2+rpi1 [19.5 MB]
Get:152 http://172.17.4.1/private bookworm-staging/main armhf libpq5 armhf 14.5-1 [154 kB]
Get:153 http://172.17.4.1/private bookworm-staging/main armhf libxslt1.1 armhf 1.1.35-1 [221 kB]
Get:154 http://172.17.4.1/private bookworm-staging/main armhf postgresql-client-common all 242 [92.1 kB]
Get:155 http://172.17.4.1/private bookworm-staging/main armhf postgresql-client-14 armhf 14.5-1 [1495 kB]
Get:156 http://172.17.4.1/private bookworm-staging/main armhf ssl-cert all 1.1.2 [21.1 kB]
Get:157 http://172.17.4.1/private bookworm-staging/main armhf postgresql-common all 242 [230 kB]
Get:158 http://172.17.4.1/private bookworm-staging/main armhf postgresql-14 armhf 14.5-1 [15.3 MB]
Get:159 http://172.17.4.1/private bookworm-staging/main armhf postgresql-14-ip4r armhf 2.4.1-7 [195 kB]
Get:160 http://172.17.4.1/private bookworm-staging/main armhf python-babel-localedata all 2.8.0+dfsg.1-7 [4997 kB]
Get:161 http://172.17.4.1/private bookworm-staging/main armhf python3-alabaster all 0.7.12-1 [20.8 kB]
Get:162 http://172.17.4.1/private bookworm-staging/main armhf python3-pkg-resources all 59.6.0-1.2 [196 kB]
Get:163 http://172.17.4.1/private bookworm-staging/main armhf python3-tz all 2022.2.1-1 [34.8 kB]
Get:164 http://172.17.4.1/private bookworm-staging/main armhf python3-babel all 2.8.0+dfsg.1-7 [100 kB]
Get:165 http://172.17.4.1/private bookworm-staging/main armhf python3-certifi all 2022.6.15-2 [154 kB]
Get:166 http://172.17.4.1/private bookworm-staging/main armhf python3-chardet all 4.0.0-2 [99.1 kB]
Get:167 http://172.17.4.1/private bookworm-staging/main armhf python3-charset-normalizer all 2.0.6-2 [30.6 kB]
Get:168 http://172.17.4.1/private bookworm-staging/main armhf python3-lib2to3 all 3.10.6-1 [79.9 kB]
Get:169 http://172.17.4.1/private bookworm-staging/main armhf python3-distutils all 3.10.6-1 [141 kB]
Get:170 http://172.17.4.1/private bookworm-staging/main armhf python3-roman all 3.3-1 [10.7 kB]
Get:171 http://172.17.4.1/private bookworm-staging/main armhf python3-docutils all 0.17.1+dfsg-2 [393 kB]
Get:172 http://172.17.4.1/private bookworm-staging/main armhf python3-idna all 3.3-1 [39.4 kB]
Get:173 http://172.17.4.1/private bookworm-staging/main armhf python3-imagesize all 1.4.1-1 [6688 B]
Get:174 http://172.17.4.1/private bookworm-staging/main armhf python3-more-itertools all 8.10.0-2 [53.0 kB]
Get:175 http://172.17.4.1/private bookworm-staging/main armhf python3-zipp all 1.0.0-4 [6160 B]
Get:176 http://172.17.4.1/private bookworm-staging/main armhf python3-importlib-metadata all 4.12.0-1 [24.9 kB]
Get:177 http://172.17.4.1/private bookworm-staging/main armhf python3-markupsafe armhf 2.0.1-2+b1 [13.5 kB]
Get:178 http://172.17.4.1/private bookworm-staging/main armhf python3-jinja2 all 3.0.3-1 [121 kB]
Get:179 http://172.17.4.1/private bookworm-staging/main armhf python3-pyparsing all 3.0.7-2 [140 kB]
Get:180 http://172.17.4.1/private bookworm-staging/main armhf python3-packaging all 21.3-1.1 [34.2 kB]
Get:181 http://172.17.4.1/private bookworm-staging/main armhf python3-pygments all 2.12.0+dfsg-2 [765 kB]
Get:182 http://172.17.4.1/private bookworm-staging/main armhf python3-six all 1.16.0-4 [17.5 kB]
Get:183 http://172.17.4.1/private bookworm-staging/main armhf python3-urllib3 all 1.26.9-1 [116 kB]
Get:184 http://172.17.4.1/private bookworm-staging/main armhf python3-requests all 2.27.1+dfsg-1 [71.9 kB]
Get:185 http://172.17.4.1/private bookworm-staging/main armhf python3-snowballstemmer all 2.2.0-1 [58.5 kB]
Get:186 http://172.17.4.1/private bookworm-staging/main armhf sphinx-common all 4.5.0-4 [638 kB]
Get:187 http://172.17.4.1/private bookworm-staging/main armhf python3-sphinx all 4.5.0-4 [540 kB]
Get:188 http://172.17.4.1/private bookworm-staging/main armhf sphinx-rtd-theme-common all 1.0.0+dfsg-1 [996 kB]
Get:189 http://172.17.4.1/private bookworm-staging/main armhf python3-sphinx-rtd-theme all 1.0.0+dfsg-1 [26.5 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 119 MB in 13s (9441 kB/s)
Selecting previously unselected package liblocale-gettext-perl.
(Reading database ... 12805 files and directories currently installed.)
Preparing to unpack .../00-liblocale-gettext-perl_1.07-4+b2_armhf.deb ...
Unpacking liblocale-gettext-perl (1.07-4+b2) ...
Selecting previously unselected package libargon2-1:armhf.
Preparing to unpack .../01-libargon2-1_0~20171227-0.3_armhf.deb ...
Unpacking libargon2-1:armhf (0~20171227-0.3) ...
Selecting previously unselected package dmsetup.
Preparing to unpack .../02-dmsetup_2%3a1.02.185-1_armhf.deb ...
Unpacking dmsetup (2:1.02.185-1) ...
Selecting previously unselected package libdevmapper1.02.1:armhf.
Preparing to unpack .../03-libdevmapper1.02.1_2%3a1.02.185-1_armhf.deb ...
Unpacking libdevmapper1.02.1:armhf (2:1.02.185-1) ...
Selecting previously unselected package libjson-c5:armhf.
Preparing to unpack .../04-libjson-c5_0.16-1_armhf.deb ...
Unpacking libjson-c5:armhf (0.16-1) ...
Selecting previously unselected package libcryptsetup12:armhf.
Preparing to unpack .../05-libcryptsetup12_2%3a2.5.0-2_armhf.deb ...
Unpacking libcryptsetup12:armhf (2:2.5.0-2) ...
Selecting previously unselected package libfdisk1:armhf.
Preparing to unpack .../06-libfdisk1_2.38.1-1_armhf.deb ...
Unpacking libfdisk1:armhf (2.38.1-1) ...
Selecting previously unselected package libkmod2:armhf.
Preparing to unpack .../07-libkmod2_30+20220630-3_armhf.deb ...
Unpacking libkmod2:armhf (30+20220630-3) ...
Selecting previously unselected package libapparmor1:armhf.
Preparing to unpack .../08-libapparmor1_3.0.7-1_armhf.deb ...
Unpacking libapparmor1:armhf (3.0.7-1) ...
Selecting previously unselected package libip4tc2:armhf.
Preparing to unpack .../09-libip4tc2_1.8.8-1_armhf.deb ...
Unpacking libip4tc2:armhf (1.8.8-1) ...
Selecting previously unselected package libsystemd-shared:armhf.
Preparing to unpack .../10-libsystemd-shared_251.3-1+rpi1_armhf.deb ...
Unpacking libsystemd-shared:armhf (251.3-1+rpi1) ...
Selecting previously unselected package systemd.
Preparing to unpack .../11-systemd_251.3-1+rpi1_armhf.deb ...
Unpacking systemd (251.3-1+rpi1) ...
Selecting previously unselected package fonts-lato.
Preparing to unpack .../12-fonts-lato_2.0-2.1_all.deb ...
Unpacking fonts-lato (2.0-2.1) ...
Selecting previously unselected package libsigsegv2:armhf.
Preparing to unpack .../13-libsigsegv2_2.14-1_armhf.deb ...
Unpacking libsigsegv2:armhf (2.14-1) ...
Setting up libsigsegv2:armhf (2.14-1) ...
Selecting previously unselected package gawk.
(Reading database ... 13751 files and directories currently installed.)
Preparing to unpack .../gawk_1%3a5.1.0-1_armhf.deb ...
Unpacking gawk (1:5.1.0-1) ...
Selecting previously unselected package libpython3.10-minimal:armhf.
Preparing to unpack .../libpython3.10-minimal_3.10.7-1_armhf.deb ...
Unpacking libpython3.10-minimal:armhf (3.10.7-1) ...
Selecting previously unselected package libexpat1:armhf.
Preparing to unpack .../libexpat1_2.4.8-1_armhf.deb ...
Unpacking libexpat1:armhf (2.4.8-1) ...
Selecting previously unselected package python3.10-minimal.
Preparing to unpack .../python3.10-minimal_3.10.7-1_armhf.deb ...
Unpacking python3.10-minimal (3.10.7-1) ...
Setting up libpython3.10-minimal:armhf (3.10.7-1) ...
Setting up libexpat1:armhf (2.4.8-1) ...
Setting up python3.10-minimal (3.10.7-1) ...
Selecting previously unselected package python3-minimal.
(Reading database ... 14229 files and directories currently installed.)
Preparing to unpack .../0-python3-minimal_3.10.6-1_armhf.deb ...
Unpacking python3-minimal (3.10.6-1) ...
Selecting previously unselected package media-types.
Preparing to unpack .../1-media-types_8.0.0_all.deb ...
Unpacking media-types (8.0.0) ...
Selecting previously unselected package libmpdec3:armhf.
Preparing to unpack .../2-libmpdec3_2.5.1-2+rpi1_armhf.deb ...
Unpacking libmpdec3:armhf (2.5.1-2+rpi1) ...
Selecting previously unselected package libpython3.10-stdlib:armhf.
Preparing to unpack .../3-libpython3.10-stdlib_3.10.7-1_armhf.deb ...
Unpacking libpython3.10-stdlib:armhf (3.10.7-1) ...
Selecting previously unselected package python3.10.
Preparing to unpack .../4-python3.10_3.10.7-1_armhf.deb ...
Unpacking python3.10 (3.10.7-1) ...
Selecting previously unselected package libpython3-stdlib:armhf.
Preparing to unpack .../5-libpython3-stdlib_3.10.6-1_armhf.deb ...
Unpacking libpython3-stdlib:armhf (3.10.6-1) ...
Setting up python3-minimal (3.10.6-1) ...
Selecting previously unselected package python3.
(Reading database ... 14631 files and directories currently installed.)
Preparing to unpack .../000-python3_3.10.6-1_armhf.deb ...
Unpacking python3 (3.10.6-1) ...
Selecting previously unselected package libuchardet0:armhf.
Preparing to unpack .../001-libuchardet0_0.0.7-1_armhf.deb ...
Unpacking libuchardet0:armhf (0.0.7-1) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../002-groff-base_1.22.4-8_armhf.deb ...
Unpacking groff-base (1.22.4-8) ...
Selecting previously unselected package bsdextrautils.
Preparing to unpack .../003-bsdextrautils_2.38.1-1_armhf.deb ...
Unpacking bsdextrautils (2.38.1-1) ...
Selecting previously unselected package libpipeline1:armhf.
Preparing to unpack .../004-libpipeline1_1.5.6-2_armhf.deb ...
Unpacking libpipeline1:armhf (1.5.6-2) ...
Selecting previously unselected package man-db.
Preparing to unpack .../005-man-db_2.10.2-3_armhf.deb ...
Unpacking man-db (2.10.2-3) ...
Selecting previously unselected package openssl.
Preparing to unpack .../006-openssl_3.0.5-2_armhf.deb ...
Unpacking openssl (3.0.5-2) ...
Selecting previously unselected package ca-certificates.
Preparing to unpack .../007-ca-certificates_20211016_all.deb ...
Unpacking ca-certificates (20211016) ...
Selecting previously unselected package libmagic-mgc.
Preparing to unpack .../008-libmagic-mgc_1%3a5.41-4_armhf.deb ...
Unpacking libmagic-mgc (1:5.41-4) ...
Selecting previously unselected package libmagic1:armhf.
Preparing to unpack .../009-libmagic1_1%3a5.41-4_armhf.deb ...
Unpacking libmagic1:armhf (1:5.41-4) ...
Selecting previously unselected package file.
Preparing to unpack .../010-file_1%3a5.41-4_armhf.deb ...
Unpacking file (1:5.41-4) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../011-gettext-base_0.21-9_armhf.deb ...
Unpacking gettext-base (0.21-9) ...
Selecting previously unselected package libc-l10n.
Preparing to unpack .../012-libc-l10n_2.34-7+rpi1_all.deb ...
Unpacking libc-l10n (2.34-7+rpi1) ...
Selecting previously unselected package locales.
Preparing to unpack .../013-locales_2.34-7+rpi1_all.deb ...
Unpacking locales (2.34-7+rpi1) ...
Selecting previously unselected package ucf.
Preparing to unpack .../014-ucf_3.0043_all.deb ...
Moving old data out of the way
Unpacking ucf (3.0043) ...
Selecting previously unselected package m4.
Preparing to unpack .../015-m4_1.4.19-1_armhf.deb ...
Unpacking m4 (1.4.19-1) ...
Selecting previously unselected package autoconf.
Preparing to unpack .../016-autoconf_2.71-2_all.deb ...
Unpacking autoconf (2.71-2) ...
Selecting previously unselected package autotools-dev.
Preparing to unpack .../017-autotools-dev_20220109.1_all.deb ...
Unpacking autotools-dev (20220109.1) ...
Selecting previously unselected package automake.
Preparing to unpack .../018-automake_1%3a1.16.5-1.3_all.deb ...
Unpacking automake (1:1.16.5-1.3) ...
Selecting previously unselected package autopoint.
Preparing to unpack .../019-autopoint_0.21-9_all.deb ...
Unpacking autopoint (0.21-9) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../020-sbcl_2%3a2.2.3-2_armhf.deb ...
Unpacking sbcl (2:2.2.3-2) ...
Selecting previously unselected package buildapp.
Preparing to unpack .../021-buildapp_1.5.6-3_armhf.deb ...
Unpacking buildapp (1.5.6-3) ...
Selecting previously unselected package cl-alexandria.
Preparing to unpack .../022-cl-alexandria_20211025.gita67c3a6-1_all.deb ...
Unpacking cl-alexandria (20211025.gita67c3a6-1) ...
Selecting previously unselected package cl-esrap.
Preparing to unpack .../023-cl-esrap_20211008.gitc99c33a-1_all.deb ...
Unpacking cl-esrap (20211008.gitc99c33a-1) ...
Selecting previously unselected package cl-ppcre.
Preparing to unpack .../024-cl-ppcre_20220126.gitb4056c5-1_all.deb ...
Unpacking cl-ppcre (20220126.gitb4056c5-1) ...
Selecting previously unselected package cl-abnf.
Preparing to unpack .../025-cl-abnf_20200229.gitba1fbb1-1_all.deb ...
Unpacking cl-abnf (20200229.gitba1fbb1-1) ...
Selecting previously unselected package cl-anaphora.
Preparing to unpack .../026-cl-anaphora_1%3a0.9.8-1_all.deb ...
Unpacking cl-anaphora (1:0.9.8-1) ...
Selecting previously unselected package cl-asdf.
Preparing to unpack .../027-cl-asdf_2%3a3.3.5-1_all.deb ...
Unpacking cl-asdf (2:3.3.5-1) ...
Selecting previously unselected package cl-asdf-finalizers.
Preparing to unpack .../028-cl-asdf-finalizers_20170403-1.1_all.deb ...
Unpacking cl-asdf-finalizers (20170403-1.1) ...
Selecting previously unselected package cl-asdf-system-connections.
Preparing to unpack .../029-cl-asdf-system-connections_20170124-1.1_all.deb ...
Unpacking cl-asdf-system-connections (20170124-1.1) ...
Selecting previously unselected package cl-trivial-features.
Preparing to unpack .../030-cl-trivial-features_20210228.gitf6e8dd7-2_all.deb ...
Unpacking cl-trivial-features (20210228.gitf6e8dd7-2) ...
Selecting previously unselected package cl-trivial-gray-streams.
Preparing to unpack .../031-cl-trivial-gray-streams_20210117.git2b3823e-1_all.deb ...
Unpacking cl-trivial-gray-streams (20210117.git2b3823e-1) ...
Selecting previously unselected package cl-babel.
Preparing to unpack .../032-cl-babel_20200719.gitf892d05-2_all.deb ...
Unpacking cl-babel (20200719.gitf892d05-2) ...
Selecting previously unselected package cl-rt.
Preparing to unpack .../033-cl-rt_20090812.gita6a7503-1_all.deb ...
Unpacking cl-rt (20090812.gita6a7503-1) ...
Selecting previously unselected package cl-kmrcl.
Preparing to unpack .../034-cl-kmrcl_1.111-2_all.deb ...
Unpacking cl-kmrcl (1.111-2) ...
Selecting previously unselected package cl-base64.
Preparing to unpack .../035-cl-base64_3.4.0-1_all.deb ...
Unpacking cl-base64 (3.4.0-1) ...
Selecting previously unselected package cl-bordeaux-threads.
Preparing to unpack .../036-cl-bordeaux-threads_0.8.8-5_all.deb ...
Unpacking cl-bordeaux-threads (0.8.8-5) ...
Selecting previously unselected package libglib2.0-0:armhf.
Preparing to unpack .../037-libglib2.0-0_2.73.3-3+rpi1_armhf.deb ...
Unpacking libglib2.0-0:armhf (2.73.3-3+rpi1) ...
Selecting previously unselected package pkg-config.
Preparing to unpack .../038-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 .../039-libffi-dev_3.4.2-4_armhf.deb ...
Unpacking libffi-dev:armhf (3.4.2-4) ...
Selecting previously unselected package zlib1g-dev:armhf.
Preparing to unpack .../040-zlib1g-dev_1%3a1.2.11.dfsg-4.1_armhf.deb ...
Unpacking zlib1g-dev:armhf (1:1.2.11.dfsg-4.1) ...
Selecting previously unselected package cl-cffi.
Preparing to unpack .../041-cl-cffi_1%3a0.24.1-3_all.deb ...
Unpacking cl-cffi (1:0.24.1-3) ...
Selecting previously unselected package cl-chipz.
Preparing to unpack .../042-cl-chipz_20220213.git82a17d3-1_all.deb ...
Unpacking cl-chipz (20220213.git82a17d3-1) ...
Selecting previously unselected package cl-chunga.
Preparing to unpack .../043-cl-chunga_20220222.git7836609-1_all.deb ...
Unpacking cl-chunga (20220222.git7836609-1) ...
Selecting previously unselected package cl-closer-mop.
Preparing to unpack .../044-cl-closer-mop_2%3a20220227.giteabdf6a-1_all.deb ...
Unpacking cl-closer-mop (2:20220227.giteabdf6a-1) ...
Selecting previously unselected package cl-closure-common.
Preparing to unpack .../045-cl-closure-common_20101107-1.1_all.deb ...
Unpacking cl-closure-common (20101107-1.1) ...
Selecting previously unselected package cl-command-line-arguments.
Preparing to unpack .../046-cl-command-line-arguments_20151218-1.1_all.deb ...
Unpacking cl-command-line-arguments (20151218-1.1) ...
Selecting previously unselected package cl-metatilities-base.
Preparing to unpack .../047-cl-metatilities-base_20170403-1.1_all.deb ...
Unpacking cl-metatilities-base (20170403-1.1) ...
Selecting previously unselected package cl-containers.
Preparing to unpack .../048-cl-containers_20170403-1.1_all.deb ...
Unpacking cl-containers (20170403-1.1) ...
Selecting previously unselected package cl-iterate.
Preparing to unpack .../049-cl-iterate_20210519.gitb0f9a9c-1_all.deb ...
Unpacking cl-iterate (20210519.gitb0f9a9c-1) ...
Selecting previously unselected package cl-flexi-streams.
Preparing to unpack .../050-cl-flexi-streams_20210728.git41af5dc-1_all.deb ...
Unpacking cl-flexi-streams (20210728.git41af5dc-1) ...
Selecting previously unselected package cl-unicode.
Preparing to unpack .../051-cl-unicode_20201101.git54bdf2c-1_all.deb ...
Unpacking cl-unicode (20201101.git54bdf2c-1) ...
Selecting previously unselected package cl-named-readtables.
Preparing to unpack .../052-cl-named-readtables_20201221.gitc5689a4-1_all.deb ...
Unpacking cl-named-readtables (20201221.gitc5689a4-1) ...
Selecting previously unselected package cl-interpol.
Preparing to unpack .../053-cl-interpol_20220725.gitd4f49d4-1_all.deb ...
Unpacking cl-interpol (20220725.gitd4f49d4-1) ...
Selecting previously unselected package cl-csv.
Preparing to unpack .../054-cl-csv_20200929.git68ecb5d-1_all.deb ...
Unpacking cl-csv (20200929.git68ecb5d-1) ...
Selecting previously unselected package cl-cxml.
Preparing to unpack .../055-cl-cxml_20110619-2.1_all.deb ...
Unpacking cl-cxml (20110619-2.1) ...
Selecting previously unselected package cl-db3.
Preparing to unpack .../056-cl-db3_20200212-1_all.deb ...
Unpacking cl-db3 (20200212-1) ...
Selecting previously unselected package cl-puri.
Preparing to unpack .../057-cl-puri_1%3a1.5.7.2-1_all.deb ...
Unpacking cl-puri (1:1.5.7.2-1) ...
Selecting previously unselected package cl-split-sequence.
Preparing to unpack .../058-cl-split-sequence_1%3a2.0.1-1_all.deb ...
Unpacking cl-split-sequence (1:2.0.1-1) ...
Selecting previously unselected package cl-usocket.
Preparing to unpack .../059-cl-usocket_0.8.3-2_all.deb ...
Unpacking cl-usocket (0.8.3-2) ...
Selecting previously unselected package cl-trivial-garbage.
Preparing to unpack .../060-cl-trivial-garbage_20211229.gitb3af9c0-1_all.deb ...
Unpacking cl-trivial-garbage (20211229.gitb3af9c0-1) ...
Selecting previously unselected package cl-plus-ssl.
Preparing to unpack .../061-cl-plus-ssl_20220328.git8b91648-4_all.deb ...
Unpacking cl-plus-ssl (20220328.git8b91648-4) ...
Selecting previously unselected package cl-drakma.
Preparing to unpack .../062-cl-drakma_2.0.8-1_all.deb ...
Unpacking cl-drakma (2.0.8-1) ...
Selecting previously unselected package cl-dynamic-classes.
Preparing to unpack .../063-cl-dynamic-classes_20130128-2.1_all.deb ...
Unpacking cl-dynamic-classes (20130128-2.1) ...
Selecting previously unselected package cl-fad.
Preparing to unpack .../064-cl-fad_20220110.git3f4d32d-1_all.deb ...
Unpacking cl-fad (20220110.git3f4d32d-1) ...
Selecting previously unselected package cl-garbage-pools.
Preparing to unpack .../065-cl-garbage-pools_20130720-1.1_all.deb ...
Unpacking cl-garbage-pools (20130720-1.1) ...
Selecting previously unselected package cl-global-vars.
Preparing to unpack .../066-cl-global-vars_0~20141013.gitc749f32-2_all.deb ...
Unpacking cl-global-vars (0~20141013.gitc749f32-2) ...
Selecting previously unselected package cl-ieee-floats.
Preparing to unpack .../067-cl-ieee-floats_20170830-1.1_all.deb ...
Unpacking cl-ieee-floats (20170830-1.1) ...
Selecting previously unselected package cl-ironclad.
Preparing to unpack .../068-cl-ironclad_0.57-1_all.deb ...
Unpacking cl-ironclad (0.57-1) ...
Selecting previously unselected package cl-ixf.
Preparing to unpack .../069-cl-ixf_20180228-1.1_all.deb ...
Unpacking cl-ixf (20180228-1.1) ...
Selecting previously unselected package cl-local-time.
Preparing to unpack .../070-cl-local-time_20180228-1.1_all.deb ...
Unpacking cl-local-time (20180228-1.1) ...
Selecting previously unselected package cl-log.
Preparing to unpack .../071-cl-log_1.0.1-1.1_all.deb ...
Unpacking cl-log (1.0.1-1.1) ...
Selecting previously unselected package cl-lparallel.
Preparing to unpack .../072-cl-lparallel_20160825-1.1_all.deb ...
Unpacking cl-lparallel (20160825-1.1) ...
Selecting previously unselected package cl-metabang-bind.
Preparing to unpack .../073-cl-metabang-bind_20200101.git9ab6e64-1_all.deb ...
Unpacking cl-metabang-bind (20200101.git9ab6e64-1) ...
Selecting previously unselected package cl-markdown.
Preparing to unpack .../074-cl-markdown_20101006-2.1_all.deb ...
Unpacking cl-markdown (20101006-2.1) ...
Selecting previously unselected package cl-md5.
Preparing to unpack .../075-cl-md5_1%3a20210622.git906593f-1_all.deb ...
Unpacking cl-md5 (1:20210622.git906593f-1) ...
Selecting previously unselected package freetds-common.
Preparing to unpack .../076-freetds-common_1.3.6-1.1_all.deb ...
Unpacking freetds-common (1.3.6-1.1) ...
Selecting previously unselected package libct4:armhf.
Preparing to unpack .../077-libct4_1.3.6-1.1_armhf.deb ...
Unpacking libct4:armhf (1.3.6-1.1) ...
Selecting previously unselected package libsybdb5:armhf.
Preparing to unpack .../078-libsybdb5_1.3.6-1.1_armhf.deb ...
Unpacking libsybdb5:armhf (1.3.6-1.1) ...
Selecting previously unselected package freetds-dev.
Preparing to unpack .../079-freetds-dev_1.3.6-1.1_armhf.deb ...
Unpacking freetds-dev (1.3.6-1.1) ...
Selecting previously unselected package cl-mssql.
Preparing to unpack .../080-cl-mssql_20180228-1.1_all.deb ...
Unpacking cl-mssql (20180228-1.1) ...
Selecting previously unselected package cl-mustache.
Preparing to unpack .../081-cl-mustache_0.12.1-9-g684f227-1.1_all.deb ...
Unpacking cl-mustache (0.12.1-9-g684f227-1.1) ...
Selecting previously unselected package cl-parse-number.
Preparing to unpack .../082-cl-parse-number_1.7-1.1_all.deb ...
Unpacking cl-parse-number (1.7-1.1) ...
Selecting previously unselected package cl-uax-15.
Preparing to unpack .../083-cl-uax-15_0~20211021.git75c8a87-3_all.deb ...
Unpacking cl-uax-15 (0~20211021.git75c8a87-3) ...
Selecting previously unselected package cl-postgres.
Preparing to unpack .../084-cl-postgres_20211113.git9d4332f-1_all.deb ...
Unpacking cl-postgres (20211113.git9d4332f-1) ...
Selecting previously unselected package cl-s-sql.
Preparing to unpack .../085-cl-s-sql_20211113.git9d4332f-1_all.deb ...
Unpacking cl-s-sql (20211113.git9d4332f-1) ...
Selecting previously unselected package cl-postmodern.
Preparing to unpack .../086-cl-postmodern_20211113.git9d4332f-1_all.deb ...
Unpacking cl-postmodern (20211113.git9d4332f-1) ...
Selecting previously unselected package cl-py-configparser.
Preparing to unpack .../087-cl-py-configparser_20170830-1.1_all.deb ...
Unpacking cl-py-configparser (20170830-1.1) ...
Selecting previously unselected package cl-qmynd.
Preparing to unpack .../088-cl-qmynd_20180131-1.1_all.deb ...
Unpacking cl-qmynd (20180131-1.1) ...
Selecting previously unselected package cl-quri.
Preparing to unpack .../089-cl-quri_20150804-1.1_all.deb ...
Unpacking cl-quri (20150804-1.1) ...
Selecting previously unselected package cl-simple-date.
Preparing to unpack .../090-cl-simple-date_20211113.git9d4332f-1_all.deb ...
Unpacking cl-simple-date (20211113.git9d4332f-1) ...
Selecting previously unselected package cl-sqlite.
Preparing to unpack .../091-cl-sqlite_20130615-2.1_all.deb ...
Unpacking cl-sqlite (20130615-2.1) ...
Selecting previously unselected package cl-trivial-backtrace.
Preparing to unpack .../092-cl-trivial-backtrace_20200511.git6eb65bd-1_all.deb ...
Unpacking cl-trivial-backtrace (20200511.git6eb65bd-1) ...
Selecting previously unselected package cl-trivial-utf-8.
Preparing to unpack .../093-cl-trivial-utf-8_20111001-1.1_all.deb ...
Unpacking cl-trivial-utf-8 (20111001-1.1) ...
Selecting previously unselected package cl-utilities.
Preparing to unpack .../094-cl-utilities_1.2.4-3.2_all.deb ...
Unpacking cl-utilities (1.2.4-3.2) ...
Selecting previously unselected package cl-uuid.
Preparing to unpack .../095-cl-uuid_20130813-1.1_all.deb ...
Unpacking cl-uuid (20130813-1.1) ...
Selecting previously unselected package cl-yason.
Preparing to unpack .../096-cl-yason_0.7.6-1.1_all.deb ...
Unpacking cl-yason (0.7.6-1.1) ...
Selecting previously unselected package cl-zs3.
Preparing to unpack .../097-cl-zs3_1.3.1-1.1_all.deb ...
Unpacking cl-zs3 (1.3.1-1.1) ...
Selecting previously unselected package libdebhelper-perl.
Preparing to unpack .../098-libdebhelper-perl_13.9.1_all.deb ...
Unpacking libdebhelper-perl (13.9.1) ...
Selecting previously unselected package libtool.
Preparing to unpack .../099-libtool_2.4.7-4_all.deb ...
Unpacking libtool (2.4.7-4) ...
Selecting previously unselected package dh-autoreconf.
Preparing to unpack .../100-dh-autoreconf_20_all.deb ...
Unpacking dh-autoreconf (20) ...
Selecting previously unselected package libarchive-zip-perl.
Preparing to unpack .../101-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 .../102-libsub-override-perl_0.09-3_all.deb ...
Unpacking libsub-override-perl (0.09-3) ...
Selecting previously unselected package libfile-stripnondeterminism-perl.
Preparing to unpack .../103-libfile-stripnondeterminism-perl_1.13.0-1_all.deb ...
Unpacking libfile-stripnondeterminism-perl (1.13.0-1) ...
Selecting previously unselected package dh-strip-nondeterminism.
Preparing to unpack .../104-dh-strip-nondeterminism_1.13.0-1_all.deb ...
Unpacking dh-strip-nondeterminism (1.13.0-1) ...
Selecting previously unselected package libelf1:armhf.
Preparing to unpack .../105-libelf1_0.187-2+rpi2_armhf.deb ...
Unpacking libelf1:armhf (0.187-2+rpi2) ...
Selecting previously unselected package dwz.
Preparing to unpack .../106-dwz_0.14-1_armhf.deb ...
Unpacking dwz (0.14-1) ...
Selecting previously unselected package libicu71:armhf.
Preparing to unpack .../107-libicu71_71.1-3_armhf.deb ...
Unpacking libicu71:armhf (71.1-3) ...
Selecting previously unselected package libxml2:armhf.
Preparing to unpack .../108-libxml2_2.9.14+dfsg-1_armhf.deb ...
Unpacking libxml2:armhf (2.9.14+dfsg-1) ...
Selecting previously unselected package gettext.
Preparing to unpack .../109-gettext_0.21-9_armhf.deb ...
Unpacking gettext (0.21-9) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../110-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 .../111-po-debconf_1.0.21+nmu1_all.deb ...
Unpacking po-debconf (1.0.21+nmu1) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../112-debhelper_13.9.1_all.deb ...
Unpacking debhelper (13.9.1) ...
Selecting previously unselected package xml-core.
Preparing to unpack .../113-xml-core_0.18+nmu1_all.deb ...
Unpacking xml-core (0.18+nmu1) ...
Selecting previously unselected package docutils-common.
Preparing to unpack .../114-docutils-common_0.17.1+dfsg-2_all.deb ...
Unpacking docutils-common (0.17.1+dfsg-2) ...
Selecting previously unselected package fonts-font-awesome.
Preparing to unpack .../115-fonts-font-awesome_5.0.10+really4.7.0~dfsg-4.1_all.deb ...
Unpacking fonts-font-awesome (5.0.10+really4.7.0~dfsg-4.1) ...
Selecting previously unselected package help2man.
Preparing to unpack .../116-help2man_1.49.2_armhf.deb ...
Unpacking help2man (1.49.2) ...
Selecting previously unselected package libmd0:armhf.
Preparing to unpack .../117-libmd0_1.0.4-2_armhf.deb ...
Unpacking libmd0:armhf (1.0.4-2) ...
Selecting previously unselected package libbsd0:armhf.
Preparing to unpack .../118-libbsd0_0.11.6-1_armhf.deb ...
Unpacking libbsd0:armhf (0.11.6-1) ...
Selecting previously unselected package libedit2:armhf.
Preparing to unpack .../119-libedit2_3.1-20210910-1_armhf.deb ...
Unpacking libedit2:armhf (3.1-20210910-1) ...
Selecting previously unselected package libjs-jquery.
Preparing to unpack .../120-libjs-jquery_3.6.1+dfsg+~3.5.14-1_all.deb ...
Unpacking libjs-jquery (3.6.1+dfsg+~3.5.14-1) ...
Selecting previously unselected package libjs-underscore.
Preparing to unpack .../121-libjs-underscore_1.13.4~dfsg+~1.11.4-1_all.deb ...
Unpacking libjs-underscore (1.13.4~dfsg+~1.11.4-1) ...
Selecting previously unselected package libjs-sphinxdoc.
Preparing to unpack .../122-libjs-sphinxdoc_4.5.0-4_all.deb ...
Unpacking libjs-sphinxdoc (4.5.0-4) ...
Selecting previously unselected package libjson-perl.
Preparing to unpack .../123-libjson-perl_4.09000-1_all.deb ...
Unpacking libjson-perl (4.09000-1) ...
Selecting previously unselected package libz3-4:armhf.
Preparing to unpack .../124-libz3-4_4.8.12-1_armhf.deb ...
Unpacking libz3-4:armhf (4.8.12-1) ...
Selecting previously unselected package libllvm14:armhf.
Preparing to unpack .../125-libllvm14_1%3a14.0.6-2+rpi1_armhf.deb ...
Unpacking libllvm14:armhf (1:14.0.6-2+rpi1) ...
Selecting previously unselected package libpq5:armhf.
Preparing to unpack .../126-libpq5_14.5-1_armhf.deb ...
Unpacking libpq5:armhf (14.5-1) ...
Selecting previously unselected package libxslt1.1:armhf.
Preparing to unpack .../127-libxslt1.1_1.1.35-1_armhf.deb ...
Unpacking libxslt1.1:armhf (1.1.35-1) ...
Selecting previously unselected package postgresql-client-common.
Preparing to unpack .../128-postgresql-client-common_242_all.deb ...
Unpacking postgresql-client-common (242) ...
Selecting previously unselected package postgresql-client-14.
Preparing to unpack .../129-postgresql-client-14_14.5-1_armhf.deb ...
Unpacking postgresql-client-14 (14.5-1) ...
Selecting previously unselected package ssl-cert.
Preparing to unpack .../130-ssl-cert_1.1.2_all.deb ...
Unpacking ssl-cert (1.1.2) ...
Selecting previously unselected package postgresql-common.
Preparing to unpack .../131-postgresql-common_242_all.deb ...
Adding 'diversion of /usr/bin/pg_config to /usr/bin/pg_config.libpq-dev by postgresql-common'
Unpacking postgresql-common (242) ...
Selecting previously unselected package postgresql-14.
Preparing to unpack .../132-postgresql-14_14.5-1_armhf.deb ...
Unpacking postgresql-14 (14.5-1) ...
Selecting previously unselected package postgresql-14-ip4r.
Preparing to unpack .../133-postgresql-14-ip4r_2.4.1-7_armhf.deb ...
Unpacking postgresql-14-ip4r (2.4.1-7) ...
Selecting previously unselected package python-babel-localedata.
Preparing to unpack .../134-python-babel-localedata_2.8.0+dfsg.1-7_all.deb ...
Unpacking python-babel-localedata (2.8.0+dfsg.1-7) ...
Selecting previously unselected package python3-alabaster.
Preparing to unpack .../135-python3-alabaster_0.7.12-1_all.deb ...
Unpacking python3-alabaster (0.7.12-1) ...
Selecting previously unselected package python3-pkg-resources.
Preparing to unpack .../136-python3-pkg-resources_59.6.0-1.2_all.deb ...
Unpacking python3-pkg-resources (59.6.0-1.2) ...
Selecting previously unselected package python3-tz.
Preparing to unpack .../137-python3-tz_2022.2.1-1_all.deb ...
Unpacking python3-tz (2022.2.1-1) ...
Selecting previously unselected package python3-babel.
Preparing to unpack .../138-python3-babel_2.8.0+dfsg.1-7_all.deb ...
Unpacking python3-babel (2.8.0+dfsg.1-7) ...
Selecting previously unselected package python3-certifi.
Preparing to unpack .../139-python3-certifi_2022.6.15-2_all.deb ...
Unpacking python3-certifi (2022.6.15-2) ...
Selecting previously unselected package python3-chardet.
Preparing to unpack .../140-python3-chardet_4.0.0-2_all.deb ...
Unpacking python3-chardet (4.0.0-2) ...
Selecting previously unselected package python3-charset-normalizer.
Preparing to unpack .../141-python3-charset-normalizer_2.0.6-2_all.deb ...
Unpacking python3-charset-normalizer (2.0.6-2) ...
Selecting previously unselected package python3-lib2to3.
Preparing to unpack .../142-python3-lib2to3_3.10.6-1_all.deb ...
Unpacking python3-lib2to3 (3.10.6-1) ...
Selecting previously unselected package python3-distutils.
Preparing to unpack .../143-python3-distutils_3.10.6-1_all.deb ...
Unpacking python3-distutils (3.10.6-1) ...
Selecting previously unselected package python3-roman.
Preparing to unpack .../144-python3-roman_3.3-1_all.deb ...
Unpacking python3-roman (3.3-1) ...
Selecting previously unselected package python3-docutils.
Preparing to unpack .../145-python3-docutils_0.17.1+dfsg-2_all.deb ...
Unpacking python3-docutils (0.17.1+dfsg-2) ...
Selecting previously unselected package python3-idna.
Preparing to unpack .../146-python3-idna_3.3-1_all.deb ...
Unpacking python3-idna (3.3-1) ...
Selecting previously unselected package python3-imagesize.
Preparing to unpack .../147-python3-imagesize_1.4.1-1_all.deb ...
Unpacking python3-imagesize (1.4.1-1) ...
Selecting previously unselected package python3-more-itertools.
Preparing to unpack .../148-python3-more-itertools_8.10.0-2_all.deb ...
Unpacking python3-more-itertools (8.10.0-2) ...
Selecting previously unselected package python3-zipp.
Preparing to unpack .../149-python3-zipp_1.0.0-4_all.deb ...
Unpacking python3-zipp (1.0.0-4) ...
Selecting previously unselected package python3-importlib-metadata.
Preparing to unpack .../150-python3-importlib-metadata_4.12.0-1_all.deb ...
Unpacking python3-importlib-metadata (4.12.0-1) ...
Selecting previously unselected package python3-markupsafe.
Preparing to unpack .../151-python3-markupsafe_2.0.1-2+b1_armhf.deb ...
Unpacking python3-markupsafe (2.0.1-2+b1) ...
Selecting previously unselected package python3-jinja2.
Preparing to unpack .../152-python3-jinja2_3.0.3-1_all.deb ...
Unpacking python3-jinja2 (3.0.3-1) ...
Selecting previously unselected package python3-pyparsing.
Preparing to unpack .../153-python3-pyparsing_3.0.7-2_all.deb ...
Unpacking python3-pyparsing (3.0.7-2) ...
Selecting previously unselected package python3-packaging.
Preparing to unpack .../154-python3-packaging_21.3-1.1_all.deb ...
Unpacking python3-packaging (21.3-1.1) ...
Selecting previously unselected package python3-pygments.
Preparing to unpack .../155-python3-pygments_2.12.0+dfsg-2_all.deb ...
Unpacking python3-pygments (2.12.0+dfsg-2) ...
Selecting previously unselected package python3-six.
Preparing to unpack .../156-python3-six_1.16.0-4_all.deb ...
Unpacking python3-six (1.16.0-4) ...
Selecting previously unselected package python3-urllib3.
Preparing to unpack .../157-python3-urllib3_1.26.9-1_all.deb ...
Unpacking python3-urllib3 (1.26.9-1) ...
Selecting previously unselected package python3-requests.
Preparing to unpack .../158-python3-requests_2.27.1+dfsg-1_all.deb ...
Unpacking python3-requests (2.27.1+dfsg-1) ...
Selecting previously unselected package python3-snowballstemmer.
Preparing to unpack .../159-python3-snowballstemmer_2.2.0-1_all.deb ...
Unpacking python3-snowballstemmer (2.2.0-1) ...
Selecting previously unselected package sphinx-common.
Preparing to unpack .../160-sphinx-common_4.5.0-4_all.deb ...
Unpacking sphinx-common (4.5.0-4) ...
Selecting previously unselected package python3-sphinx.
Preparing to unpack .../161-python3-sphinx_4.5.0-4_all.deb ...
Unpacking python3-sphinx (4.5.0-4) ...
Selecting previously unselected package sphinx-rtd-theme-common.
Preparing to unpack .../162-sphinx-rtd-theme-common_1.0.0+dfsg-1_all.deb ...
Unpacking sphinx-rtd-theme-common (1.0.0+dfsg-1) ...
Selecting previously unselected package python3-sphinx-rtd-theme.
Preparing to unpack .../163-python3-sphinx-rtd-theme_1.0.0+dfsg-1_all.deb ...
Unpacking python3-sphinx-rtd-theme (1.0.0+dfsg-1) ...
Selecting previously unselected package sbuild-build-depends-pgloader-dummy.
Preparing to unpack .../164-sbuild-build-depends-pgloader-dummy_0.invalid.0_armhf.deb ...
Unpacking sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Setting up libip4tc2:armhf (1.8.8-1) ...
Setting up media-types (8.0.0) ...
Setting up postgresql-client-common (242) ...
Setting up libpipeline1:armhf (1.5.6-2) ...
Setting up libicu71:armhf (71.1-3) ...
Setting up cl-trivial-utf-8 (20111001-1.1) ...
Setting up libapparmor1:armhf (3.0.7-1) ...
Setting up libc-l10n (2.34-7+rpi1) ...
Setting up fonts-lato (2.0-2.1) ...
Setting up cl-trivial-garbage (20211229.gitb3af9c0-1) ...
Setting up cl-garbage-pools (20130720-1.1) ...
Setting up bsdextrautils (2.38.1-1) ...
Setting up cl-closer-mop (2:20220227.giteabdf6a-1) ...
Setting up libmagic-mgc (1:5.41-4) ...
Setting up cl-metabang-bind (20200101.git9ab6e64-1) ...
Setting up gawk (1:5.1.0-1) ...
Setting up cl-asdf (2:3.3.5-1) ...
Setting up libarchive-zip-perl (1.68-1) ...
Setting up cl-closure-common (20101107-1.1) ...
Setting up libglib2.0-0:armhf (2.73.3-3+rpi1) ...
No schema files found: doing nothing.
Setting up libargon2-1:armhf (0~20171227-0.3) ...
Setting up cl-parse-number (1.7-1.1) ...
Setting up libdebhelper-perl (13.9.1) ...
Setting up cl-log (1.0.1-1.1) ...
Setting up cl-puri (1:1.5.7.2-1) ...
Setting up cl-simple-date (20211113.git9d4332f-1) ...
Setting up cl-quri (20150804-1.1) ...
Setting up libmagic1:armhf (1:5.41-4) ...
Setting up libpq5:armhf (14.5-1) ...
Setting up gettext-base (0.21-9) ...
Setting up cl-named-readtables (20201221.gitc5689a4-1) ...
Setting up m4 (1.4.19-1) ...
Setting up cl-trivial-features (20210228.gitf6e8dd7-2) ...
Setting up cl-trivial-backtrace (20200511.git6eb65bd-1) ...
Setting up file (1:5.41-4) ...
Setting up postgresql-client-14 (14.5-1) ...
update-alternatives: using /usr/share/postgresql/14/man/man1/psql.1.gz to provide /usr/share/man/man1/psql.1.gz (psql.1.gz) in auto mode
Setting up libffi-dev:armhf (3.4.2-4) ...
Setting up locales (2.34-7+rpi1) ...
Generating locales (this might take a while)...
Generation complete.
Setting up python-babel-localedata (2.8.0+dfsg.1-7) ...
Setting up cl-split-sequence (1:2.0.1-1) ...
Setting up cl-metatilities-base (20170403-1.1) ...
Setting up cl-trivial-gray-streams (20210117.git2b3823e-1) ...
Setting up cl-cxml (20110619-2.1) ...
Setting up cl-asdf-finalizers (20170403-1.1) ...
Setting up autotools-dev (20220109.1) ...
Setting up cl-yason (0.7.6-1.1) ...
Setting up libz3-4:armhf (4.8.12-1) ...
Setting up cl-mustache (0.12.1-9-g684f227-1.1) ...
Setting up cl-dynamic-classes (20130128-2.1) ...
Setting up cl-command-line-arguments (20151218-1.1) ...
Setting up autopoint (0.21-9) ...
Setting up pkg-config (0.29.2-1) ...
Setting up ucf (3.0043) ...
Setting up cl-global-vars (0~20141013.gitc749f32-2) ...
Setting up autoconf (2.71-2) ...
Setting up cl-chipz (20220213.git82a17d3-1) ...
Setting up libfdisk1:armhf (2.38.1-1) ...
Setting up sbcl (2:2.2.3-2) ...
Setting up zlib1g-dev:armhf (1:1.2.11.dfsg-4.1) ...
Setting up cl-chunga (20220222.git7836609-1) ...
Setting up libmd0:armhf (1.0.4-2) ...
Setting up xml-core (0.18+nmu1) ...
Setting up libuchardet0:armhf (0.0.7-1) ...
Setting up libjson-perl (4.09000-1) ...
Setting up libmpdec3:armhf (2.5.1-2+rpi1) ...
Setting up cl-alexandria (20211025.gita67c3a6-1) ...
Setting up libsub-override-perl (0.09-3) ...
Setting up cl-iterate (20210519.gitb0f9a9c-1) ...
Setting up cl-db3 (20200212-1) ...
Setting up cl-utilities (1.2.4-3.2) ...
Setting up cl-rt (20090812.gita6a7503-1) ...
Setting up cl-asdf-system-connections (20170124-1.1) ...
Setting up freetds-common (1.3.6-1.1) ...
Setting up libjs-jquery (3.6.1+dfsg+~3.5.14-1) ...
Setting up cl-py-configparser (20170830-1.1) ...
Setting up cl-ppcre (20220126.gitb4056c5-1) ...
Setting up cl-anaphora (1:0.9.8-1) ...
Setting up openssl (3.0.5-2) ...
Setting up libbsd0:armhf (0.11.6-1) ...
Setting up cl-ieee-floats (20170830-1.1) ...
Setting up libelf1:armhf (0.187-2+rpi2) ...
Setting up libjson-c5:armhf (0.16-1) ...
Setting up libxml2:armhf (2.9.14+dfsg-1) ...
Setting up fonts-font-awesome (5.0.10+really4.7.0~dfsg-4.1) ...
Setting up sphinx-rtd-theme-common (1.0.0+dfsg-1) ...
Setting up liblocale-gettext-perl (1.07-4+b2) ...
Setting up libkmod2:armhf (30+20220630-3) ...
Setting up libjs-underscore (1.13.4~dfsg+~1.11.4-1) ...
Setting up buildapp (1.5.6-3) ...
Setting up automake (1:1.16.5-1.3) ...
update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode
Setting up libfile-stripnondeterminism-perl (1.13.0-1) ...
Setting up cl-containers (20170403-1.1) ...
Setting up gettext (0.21-9) ...
Setting up cl-flexi-streams (20210728.git41af5dc-1) ...
Setting up cl-uax-15 (0~20211021.git75c8a87-3) ...
Setting up libtool (2.4.7-4) ...
Setting up cl-ixf (20180228-1.1) ...
Setting up libedit2:armhf (3.1-20210910-1) ...
Setting up libsybdb5:armhf (1.3.6-1.1) ...
Setting up cl-babel (20200719.gitf892d05-2) ...
Setting up cl-bordeaux-threads (0.8.8-5) ...
Setting up intltool-debian (0.35.0+20060710.5) ...
Setting up help2man (1.49.2) ...
Setting up libpython3.10-stdlib:armhf (3.10.7-1) ...
Setting up dh-autoreconf (20) ...
Setting up ca-certificates (20211016) ...
Updating certificates in /etc/ssl/certs...
127 added, 0 removed; done.
Setting up libct4:armhf (1.3.6-1.1) ...
Setting up ssl-cert (1.1.2) ...
Setting up cl-kmrcl (1.111-2) ...
Setting up cl-lparallel (20160825-1.1) ...
Setting up libsystemd-shared:armhf (251.3-1+rpi1) ...
Setting up cl-usocket (0.8.3-2) ...
Setting up libjs-sphinxdoc (4.5.0-4) ...
Setting up cl-md5 (1:20210622.git906593f-1) ...
Setting up dh-strip-nondeterminism (1.13.0-1) ...
Setting up libllvm14:armhf (1:14.0.6-2+rpi1) ...
Setting up dwz (0.14-1) ...
Setting up cl-esrap (20211008.gitc99c33a-1) ...
Setting up groff-base (1.22.4-8) ...
Setting up libxslt1.1:armhf (1.1.35-1) ...
Setting up cl-markdown (20101006-2.1) ...
Setting up cl-cffi (1:0.24.1-3) ...
Setting up cl-unicode (20201101.git54bdf2c-1) ...
Setting up cl-abnf (20200229.gitba1fbb1-1) ...
Setting up libpython3-stdlib:armhf (3.10.6-1) ...
Setting up cl-base64 (3.4.0-1) ...
Setting up cl-ironclad (0.57-1) ...
Setting up python3.10 (3.10.7-1) ...
Setting up cl-interpol (20220725.gitd4f49d4-1) ...
Setting up freetds-dev (1.3.6-1.1) ...
Setting up cl-fad (20220110.git3f4d32d-1) ...
Setting up po-debconf (1.0.21+nmu1) ...
Setting up cl-csv (20200929.git68ecb5d-1) ...
Setting up python3 (3.10.6-1) ...
Setting up man-db (2.10.2-3) ...
Not building database; man-db/auto-update is not 'true'.
Created symlink /etc/systemd/system/timers.target.wants/man-db.timer -> /lib/systemd/system/man-db.timer.
Setting up python3-markupsafe (2.0.1-2+b1) ...
Setting up python3-tz (2022.2.1-1) ...
Setting up cl-mssql (20180228-1.1) ...
Setting up python3-six (1.16.0-4) ...
Setting up python3-roman (3.3-1) ...
Setting up cl-qmynd (20180131-1.1) ...
Setting up cl-plus-ssl (20220328.git8b91648-4) ...
Setting up python3-pyparsing (3.0.7-2) ...
Setting up python3-certifi (2022.6.15-2) ...
Setting up python3-snowballstemmer (2.2.0-1) ...
Setting up cl-sqlite (20130615-2.1) ...
Setting up sphinx-common (4.5.0-4) ...
Setting up python3-idna (3.3-1) ...
Setting up cl-postgres (20211113.git9d4332f-1) ...
Setting up cl-drakma (2.0.8-1) ...
Setting up python3-urllib3 (1.26.9-1) ...
Setting up cl-uuid (20130813-1.1) ...
Setting up python3-lib2to3 (3.10.6-1) ...
Setting up python3-imagesize (1.4.1-1) ...
Setting up python3-pkg-resources (59.6.0-1.2) ...
Setting up python3-distutils (3.10.6-1) ...
Setting up python3-more-itertools (8.10.0-2) ...
Setting up cl-local-time (20180228-1.1) ...
Setting up python3-babel (2.8.0+dfsg.1-7) ...
update-alternatives: using /usr/bin/pybabel-python3 to provide /usr/bin/pybabel (pybabel) in auto mode
Setting up python3-charset-normalizer (2.0.6-2) ...
Setting up python3-alabaster (0.7.12-1) ...
Setting up debhelper (13.9.1) ...
Setting up cl-zs3 (1.3.1-1.1) ...
Setting up python3-zipp (1.0.0-4) ...
Setting up python3-jinja2 (3.0.3-1) ...
Setting up python3-pygments (2.12.0+dfsg-2) ...
Setting up python3-packaging (21.3-1.1) ...
Setting up python3-chardet (4.0.0-2) ...
Setting up cl-s-sql (20211113.git9d4332f-1) ...
Setting up python3-requests (2.27.1+dfsg-1) ...
Setting up cl-postmodern (20211113.git9d4332f-1) ...
Setting up python3-importlib-metadata (4.12.0-1) ...
Setting up libdevmapper1.02.1:armhf (2:1.02.185-1) ...
Setting up dmsetup (2:1.02.185-1) ...
Setting up libcryptsetup12:armhf (2:2.5.0-2) ...
Setting up systemd (251.3-1+rpi1) ...
Created symlink /etc/systemd/system/getty.target.wants/getty@tty1.service -> /lib/systemd/system/getty@.service.
Created symlink /etc/systemd/system/multi-user.target.wants/remote-fs.target -> /lib/systemd/system/remote-fs.target.
Created symlink /etc/systemd/system/sysinit.target.wants/systemd-pstore.service -> /lib/systemd/system/systemd-pstore.service.
Initializing machine ID from random generator.
Setting up postgresql-common (242) ...
supported-versions: WARNING! Unknown distribution: raspbian
debian found in ID_LIKE, treating as Debian

Creating config file /etc/postgresql-common/createcluster.conf with new version
Building PostgreSQL dictionaries from installed myspell/hunspell packages...
Removing obsolete dictionary files:
Created symlink /etc/systemd/system/multi-user.target.wants/postgresql.service -> /lib/systemd/system/postgresql.service.
Setting up postgresql-14 (14.5-1) ...
Creating new PostgreSQL cluster 14/main ...
/usr/lib/postgresql/14/bin/initdb -D /var/lib/postgresql/14/main --auth-local peer --auth-host scram-sha-256 --no-instructions
The files belonging to this database system will be owned by user "postgres".
This user must also own the server process.

The database cluster will be initialized with locale "C.UTF-8".
The default database encoding has accordingly been set to "UTF8".
The default text search configuration will be set to "english".

Data page checksums are disabled.

fixing permissions on existing directory /var/lib/postgresql/14/main ... ok
creating subdirectories ... ok
selecting dynamic shared memory implementation ... posix
selecting default max_connections ... 100
selecting default shared_buffers ... 128MB
selecting default time zone ... Etc/UTC
creating configuration files ... ok
running bootstrap script ... ok
performing post-bootstrap initialization ... ok
syncing data to disk ... ok
update-alternatives: using /usr/share/postgresql/14/man/man1/postmaster.1.gz to provide /usr/share/man/man1/postmaster.1.gz (postmaster.1.gz) in auto mode
invoke-rc.d: could not determine current runlevel
invoke-rc.d: policy-rc.d denied execution of start.
Setting up postgresql-14-ip4r (2.4.1-7) ...
Processing triggers for sgml-base (1.30) ...
Processing triggers for libc-bin (2.34-7+rpi1) ...
Setting up docutils-common (0.17.1+dfsg-2) ...
Processing triggers for sgml-base (1.30) ...
Setting up python3-docutils (0.17.1+dfsg-2) ...
Setting up python3-sphinx (4.5.0-4) ...
Setting up python3-sphinx-rtd-theme (1.0.0+dfsg-1) ...
Setting up sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Processing triggers for ca-certificates (20211016) ...
Updating certificates in /etc/ssl/certs...
0 added, 0 removed; done.
Running hooks in /etc/ca-certificates/update.d...
done.
W: No sandbox user '_apt' on the system, can not drop privileges

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

Kernel: Linux 4.15.0-187-generic armhf (armv8l)
Toolchain package versions: binutils_2.38.90.20220713-2+rpi1 dpkg-dev_1.21.9+rpi1 g++-12_12.2.0-1+rpi1 gcc-12_12.2.0-1+rpi1 libc6-dev_2.34-7+rpi1 libstdc++-12-dev_12.2.0-1+rpi1 libstdc++6_12.2.0-1+rpi1 linux-libc-dev_5.19.6-1+rpi1
Package versions: adduser_3.129 apt_2.5.2 autoconf_2.71-2 automake_1:1.16.5-1.3 autopoint_0.21-9 autotools-dev_20220109.1 base-files_12.2+rpi1 base-passwd_3.6.0 bash_5.2~rc2-2 binutils_2.38.90.20220713-2+rpi1 binutils-arm-linux-gnueabihf_2.38.90.20220713-2+rpi1 binutils-common_2.38.90.20220713-2+rpi1 bsdextrautils_2.38.1-1 bsdutils_1:2.38.1-1 build-essential_12.9 buildapp_1.5.6-3 bzip2_1.0.8-5+b2 ca-certificates_20211016 cl-abnf_20200229.gitba1fbb1-1 cl-alexandria_20211025.gita67c3a6-1 cl-anaphora_1:0.9.8-1 cl-asdf_2:3.3.5-1 cl-asdf-finalizers_20170403-1.1 cl-asdf-system-connections_20170124-1.1 cl-babel_20200719.gitf892d05-2 cl-base64_3.4.0-1 cl-bordeaux-threads_0.8.8-5 cl-cffi_1:0.24.1-3 cl-chipz_20220213.git82a17d3-1 cl-chunga_20220222.git7836609-1 cl-closer-mop_2:20220227.giteabdf6a-1 cl-closure-common_20101107-1.1 cl-command-line-arguments_20151218-1.1 cl-containers_20170403-1.1 cl-csv_20200929.git68ecb5d-1 cl-cxml_20110619-2.1 cl-db3_20200212-1 cl-drakma_2.0.8-1 cl-dynamic-classes_20130128-2.1 cl-esrap_20211008.gitc99c33a-1 cl-fad_20220110.git3f4d32d-1 cl-flexi-streams_20210728.git41af5dc-1 cl-garbage-pools_20130720-1.1 cl-global-vars_0~20141013.gitc749f32-2 cl-ieee-floats_20170830-1.1 cl-interpol_20220725.gitd4f49d4-1 cl-ironclad_0.57-1 cl-iterate_20210519.gitb0f9a9c-1 cl-ixf_20180228-1.1 cl-kmrcl_1.111-2 cl-local-time_20180228-1.1 cl-log_1.0.1-1.1 cl-lparallel_20160825-1.1 cl-markdown_20101006-2.1 cl-md5_1:20210622.git906593f-1 cl-metabang-bind_20200101.git9ab6e64-1 cl-metatilities-base_20170403-1.1 cl-mssql_20180228-1.1 cl-mustache_0.12.1-9-g684f227-1.1 cl-named-readtables_20201221.gitc5689a4-1 cl-parse-number_1.7-1.1 cl-plus-ssl_20220328.git8b91648-4 cl-postgres_20211113.git9d4332f-1 cl-postmodern_20211113.git9d4332f-1 cl-ppcre_20220126.gitb4056c5-1 cl-puri_1:1.5.7.2-1 cl-py-configparser_20170830-1.1 cl-qmynd_20180131-1.1 cl-quri_20150804-1.1 cl-rt_20090812.gita6a7503-1 cl-s-sql_20211113.git9d4332f-1 cl-simple-date_20211113.git9d4332f-1 cl-split-sequence_1:2.0.1-1 cl-sqlite_20130615-2.1 cl-trivial-backtrace_20200511.git6eb65bd-1 cl-trivial-features_20210228.gitf6e8dd7-2 cl-trivial-garbage_20211229.gitb3af9c0-1 cl-trivial-gray-streams_20210117.git2b3823e-1 cl-trivial-utf-8_20111001-1.1 cl-uax-15_0~20211021.git75c8a87-3 cl-unicode_20201101.git54bdf2c-1 cl-usocket_0.8.3-2 cl-utilities_1.2.4-3.2 cl-uuid_20130813-1.1 cl-yason_0.7.6-1.1 cl-zs3_1.3.1-1.1 coreutils_8.32-4.1 cpp_4:12.1.0-3+rpi1 cpp-12_12.2.0-1+rpi1 dash_0.5.11+git20210903+057cd650a4ed-9 debconf_1.5.79 debhelper_13.9.1 debianutils_5.7-0.3 dh-autoreconf_20 dh-strip-nondeterminism_1.13.0-1 diffutils_1:3.8-1 dirmngr_2.2.39-1 dmsetup_2:1.02.185-1 docutils-common_0.17.1+dfsg-2 dpkg_1.21.9+rpi1 dpkg-dev_1.21.9+rpi1 dwz_0.14-1 e2fsprogs_1.46.5-2 fakeroot_1.29-1 file_1:5.41-4 findutils_4.9.0-3 fonts-font-awesome_5.0.10+really4.7.0~dfsg-4.1 fonts-lato_2.0-2.1 freetds-common_1.3.6-1.1 freetds-dev_1.3.6-1.1 g++_4:12.1.0-3+rpi1 g++-12_12.2.0-1+rpi1 gawk_1:5.1.0-1 gcc_4:12.1.0-3+rpi1 gcc-12_12.2.0-1+rpi1 gcc-12-base_12.2.0-1+rpi1 gcc-7-base_7.5.0-6+rpi1+b2 gcc-8-base_8.4.0-7+rpi1 gcc-9-base_9.4.0-2+rpi1 gettext_0.21-9 gettext-base_0.21-9 gnupg_2.2.39-1 gnupg-l10n_2.2.39-1 gnupg-utils_2.2.39-1 gpg_2.2.39-1 gpg-agent_2.2.39-1 gpg-wks-client_2.2.39-1 gpg-wks-server_2.2.39-1 gpgconf_2.2.39-1 gpgsm_2.2.39-1 gpgv_2.2.39-1 grep_3.7-1 groff-base_1.22.4-8 gzip_1.12-1 help2man_1.49.2 hostname_3.23 init-system-helpers_1.64 intltool-debian_0.35.0+20060710.5 iputils-ping_3:20211215-1 krb5-locales_1.20-1 libacl1_2.3.1-1 libapparmor1_3.0.7-1 libapt-pkg6.0_2.5.2 libarchive-zip-perl_1.68-1 libargon2-1_0~20171227-0.3 libasan8_12.2.0-1+rpi1 libassuan0_2.5.5-4 libatomic1_12.2.0-1+rpi1 libattr1_1:2.5.1-1 libaudit-common_1:3.0.7-1 libaudit1_1:3.0.7-1+b1 libbinutils_2.38.90.20220713-2+rpi1 libblkid1_2.38.1-1 libbsd0_0.11.6-1 libbz2-1.0_1.0.8-5+b2 libc-bin_2.34-7+rpi1 libc-dev-bin_2.34-7+rpi1 libc-l10n_2.34-7+rpi1 libc6_2.34-7+rpi1 libc6-dev_2.34-7+rpi1 libcap-ng0_0.8.3-1 libcap2_1:2.44-1 libcap2-bin_1:2.44-1 libcc1-0_12.2.0-1+rpi1 libcom-err2_1.46.5-2 libcrypt-dev_1:4.4.28-2 libcrypt1_1:4.4.28-2 libcryptsetup12_2:2.5.0-2 libct4_1.3.6-1.1 libctf-nobfd0_2.38.90.20220713-2+rpi1 libctf0_2.38.90.20220713-2+rpi1 libdb5.3_5.3.28+dfsg1-0.10 libdebconfclient0_0.264 libdebhelper-perl_13.9.1 libdevmapper1.02.1_2:1.02.185-1 libdpkg-perl_1.21.9+rpi1 libedit2_3.1-20210910-1 libelf1_0.187-2+rpi2 libexpat1_2.4.8-1 libext2fs2_1.46.5-2 libfakeroot_1.29-1 libfdisk1_2.38.1-1 libffi-dev_3.4.2-4 libffi8_3.4.2-4 libfile-stripnondeterminism-perl_1.13.0-1 libgcc-12-dev_12.2.0-1+rpi1 libgcc-s1_12.2.0-1+rpi1 libgcrypt20_1.10.1-2+b2 libgdbm-compat4_1.23-2 libgdbm6_1.23-2 libglib2.0-0_2.73.3-3+rpi1 libgmp10_2:6.2.1+dfsg1-1 libgnutls30_3.7.7-2 libgomp1_12.2.0-1+rpi1 libgpg-error0_1.45-2 libgssapi-krb5-2_1.20-1 libhogweed6_3.8.1-2 libicu71_71.1-3 libidn2-0_2.3.3-1 libip4tc2_1.8.8-1 libisl23_0.25-1 libjs-jquery_3.6.1+dfsg+~3.5.14-1 libjs-sphinxdoc_4.5.0-4 libjs-underscore_1.13.4~dfsg+~1.11.4-1 libjson-c5_0.16-1 libjson-perl_4.09000-1 libk5crypto3_1.20-1 libkeyutils1_1.6.3-1 libkmod2_30+20220630-3 libkrb5-3_1.20-1 libkrb5support0_1.20-1 libksba8_1.6.0-3 libldap-2.5-0_2.5.12+dfsg-2 libllvm14_1:14.0.6-2+rpi1 liblocale-gettext-perl_1.07-4+b2 liblz4-1_1.9.4-1+rpi1 liblzma5_5.2.5-2.1 libmagic-mgc_1:5.41-4 libmagic1_1:5.41-4 libmd0_1.0.4-2 libmount1_2.38.1-1 libmpc3_1.2.1-2 libmpdec3_2.5.1-2+rpi1 libmpfr6_4.1.0-3 libncursesw6_6.3+20220423-2 libnettle8_3.8.1-2 libnpth0_1.6-3 libnsl-dev_1.3.0-2 libnsl2_1.3.0-2 libp11-kit0_0.24.1-1 libpam-cap_1:2.44-1 libpam-modules_1.5.2-2 libpam-modules-bin_1.5.2-2 libpam-runtime_1.5.2-2 libpam0g_1.5.2-2 libpcre2-8-0_10.40-1+b2 libpcre3_2:8.39-14 libperl5.34_5.34.0-5 libpipeline1_1.5.6-2 libpq5_14.5-1 libpython3-stdlib_3.10.6-1 libpython3.10-minimal_3.10.7-1 libpython3.10-stdlib_3.10.7-1 libreadline8_8.2~rc2-2 libsasl2-2_2.1.28+dfsg-8 libsasl2-modules-db_2.1.28+dfsg-8 libseccomp2_2.5.4-1+rpi1 libselinux1_3.4-1 libsemanage-common_3.4-1 libsemanage2_3.4-1 libsepol1_3.1-1 libsepol2_3.4-2 libsigsegv2_2.14-1 libsmartcols1_2.38.1-1 libsqlite3-0_3.39.3-1 libss2_1.46.5-2 libssl1.1_1.1.1o-1 libssl3_3.0.5-2 libstdc++-12-dev_12.2.0-1+rpi1 libstdc++6_12.2.0-1+rpi1 libsub-override-perl_0.09-3 libsybdb5_1.3.6-1.1 libsystemd-shared_251.3-1+rpi1 libsystemd0_251.3-1+rpi1 libtasn1-6_4.18.0-4 libtinfo6_6.3+20220423-2 libtirpc-common_1.3.3+ds-1 libtirpc-dev_1.3.3+ds-1 libtirpc3_1.3.3+ds-1 libtool_2.4.7-4 libubsan1_12.2.0-1+rpi1 libuchardet0_0.0.7-1 libudev1_251.3-1+rpi1 libunistring2_1.0-1 libuuid1_2.38.1-1 libxml2_2.9.14+dfsg-1 libxslt1.1_1.1.35-1 libxxhash0_0.8.1-1 libz3-4_4.8.12-1 libzstd1_1.5.2+dfsg-1 linux-libc-dev_5.19.6-1+rpi1 locales_2.34-7+rpi1 login_1:4.11.1+dfsg1-2 logsave_1.46.5-2 lsb-base_11.2+rpi1 m4_1.4.19-1 make_4.3-4.1 man-db_2.10.2-3 mawk_1.3.4.20200120-3.1 media-types_8.0.0 mount_2.38.1-1 nano_6.4-1 ncurses-base_6.3+20220423-2 ncurses-bin_6.3+20220423-2 netbase_6.3 openssl_3.0.5-2 passwd_1:4.11.1+dfsg1-2 patch_2.7.6-7 perl_5.34.0-5 perl-base_5.34.0-5 perl-modules-5.34_5.34.0-5 pinentry-curses_1.2.0-2 pkg-config_0.29.2-1 po-debconf_1.0.21+nmu1 postgresql-14_14.5-1 postgresql-14-ip4r_2.4.1-7 postgresql-client-14_14.5-1 postgresql-client-common_242 postgresql-common_242 python-babel-localedata_2.8.0+dfsg.1-7 python3_3.10.6-1 python3-alabaster_0.7.12-1 python3-babel_2.8.0+dfsg.1-7 python3-certifi_2022.6.15-2 python3-chardet_4.0.0-2 python3-charset-normalizer_2.0.6-2 python3-distutils_3.10.6-1 python3-docutils_0.17.1+dfsg-2 python3-idna_3.3-1 python3-imagesize_1.4.1-1 python3-importlib-metadata_4.12.0-1 python3-jinja2_3.0.3-1 python3-lib2to3_3.10.6-1 python3-markupsafe_2.0.1-2+b1 python3-minimal_3.10.6-1 python3-more-itertools_8.10.0-2 python3-packaging_21.3-1.1 python3-pkg-resources_59.6.0-1.2 python3-pygments_2.12.0+dfsg-2 python3-pyparsing_3.0.7-2 python3-requests_2.27.1+dfsg-1 python3-roman_3.3-1 python3-six_1.16.0-4 python3-snowballstemmer_2.2.0-1 python3-sphinx_4.5.0-4 python3-sphinx-rtd-theme_1.0.0+dfsg-1 python3-tz_2022.2.1-1 python3-urllib3_1.26.9-1 python3-zipp_1.0.0-4 python3.10_3.10.7-1 python3.10-minimal_3.10.7-1 raspbian-archive-keyring_20120528.2 readline-common_8.2~rc2-2 rpcsvc-proto_1.4.2-4 sbcl_2:2.2.3-2 sbuild-build-depends-core-dummy_0.invalid.0 sbuild-build-depends-pgloader-dummy_0.invalid.0 sed_4.8-1 sensible-utils_0.0.17 sgml-base_1.30 sphinx-common_4.5.0-4 sphinx-rtd-theme-common_1.0.0+dfsg-1 ssl-cert_1.1.2 systemd_251.3-1+rpi1 sysvinit-utils_3.04-1 tar_1.34+dfsg-1 tzdata_2022c-1 ucf_3.0043 util-linux_2.38.1-1 util-linux-extra_2.38.1-1 xml-core_0.18+nmu1 xz-utils_5.2.5-2.1 zlib1g_1:1.2.11.dfsg-4.1 zlib1g-dev_1:1.2.11.dfsg-4.1

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


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

gpgv: unknown type of key resource 'trustedkeys.kbx'
gpgv: keyblock resource '/tmp/dpkg-verify-sig.HF2DjPze/trustedkeys.kbx': General error
gpgv: Signature made Sat Aug 13 08:54:00 2022 UTC
gpgv:                using RSA key 5C48FE6157F49179597087C64C5A6BAB12D2A7AE
gpgv: Can't check signature: No public key
dpkg-source: warning: cannot verify signature ./pgloader_3.6.7-1.dsc
dpkg-source: info: extracting pgloader in /<<PKGBUILDDIR>>
dpkg-source: info: unpacking pgloader_3.6.7.orig.tar.gz
dpkg-source: info: unpacking pgloader_3.6.7-1.debian.tar.xz

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

Sufficient free space for build

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

APT_CONFIG=/var/lib/sbuild/apt.conf
DEB_BUILD_OPTIONS=parallel=4
HOME=/sbuild-nonexistent
LC_ALL=POSIX
LOGNAME=buildd
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
SCHROOT_ALIAS_NAME=bookworm-staging-armhf-sbuild
SCHROOT_CHROOT_NAME=bookworm-staging-armhf-sbuild
SCHROOT_COMMAND=env
SCHROOT_GID=112
SCHROOT_GROUP=buildd
SCHROOT_SESSION_ID=bookworm-staging-armhf-sbuild-508216c4-9830-48a5-bbd8-f20652d2cfcd
SCHROOT_UID=107
SCHROOT_USER=buildd
SHELL=/bin/sh
USER=buildd

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

dpkg-buildpackage: info: source package pgloader
dpkg-buildpackage: info: source version 3.6.7-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.7/debian/source/options: --extend-diff-ignore=src/params.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 \
	buildapp.log build/bundle/* build/pgloader-bundle* build/quicklisp.lisp docs/_build
make -C test clean
make[3]: Entering directory '/<<PKGBUILDDIR>>/test'
rm -f regress/out/*
make[3]: Leaving directory '/<<PKGBUILDDIR>>/test'
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 12 OCT 2021 01:11:59 PM):

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-asdf/build/asdf-tmp7LQ0A0VI.fasl
; compilation finished in 0:00:21.572
;; 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 563 at level -1
compressed 4096 bytes into 840 at level -1
compressed 110546944 bytes into 27252940 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">
;; (: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)
;; #<PACKAGE "UIOP/PACKAGE-LOCAL-NICKNAMES">
;; HOME-PACKAGE-P
;; UNREIFY-SYMBOL
;; NOTE-PACKAGE-FISHINESS
;; RENAME-PACKAGE-AWAY
;; PACKAGE-DEFINITION-FORM
;; ENSURE-PACKAGE
;; PARSE-DEFINE-PACKAGE-FORM
;; DEFINE-PACKAGE
;; #<PACKAGE "UIOP/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
;; 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" {50D74981}>
;; ENCODING-EXTERNAL-FORMAT
;; SAFE-READ-FROM-STRING
;; CALL-WITH-OUTPUT
;; WITH-OUTPUT
;; 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) {57165869}>
;; #<STANDARD-METHOD UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM (T T) {5217BFE9}>
;; 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) {572B4DC9}>
;; #<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) {5779E989}>
;; #<STANDARD-METHOD ASDF/COMPONENT:COMPONENT-EXTERNAL-FORMAT (COMPONENT) {577F0A51}>
;; #<STANDARD-METHOD ASDF/COMPONENT:AROUND-COMPILE-HOOK (COMPONENT) {5785A891}>
;; #<STANDARD-METHOD ASDF/COMPONENT:VERSION-SATISFIES (STRING T) {578FB991}>
;; SUB-COMPONENTS
;; #<PACKAGE "ASDF/OPERATION">
;; #<PACKAGE "ASDF/OPERATION">
;; NIL
;; #<STANDARD-METHOD COMMON-LISP:INITIALIZE-INSTANCE :AFTER (OPERATION) {57AB9651}>
;; #<STANDARD-METHOD ASDF/OPERATION:FIND-OPERATION (T STRING) {57B44F89}>
;; #<PACKAGE "ASDF/SYSTEM">
;; #<PACKAGE "ASDF/SYSTEM">
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-ENTRY-POINT (COMPONENT) {57BCFB49}>
;; RESET-SYSTEM-CLASS
;; COERCE-FILENAME
;; SYSTEM-LICENSE
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-BUILD-PATHNAME (COMPONENT) {5820BD41}>
;; #<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) {528D3E79}>
;; #<STANDARD-CLASS ASDF/ACTION:NON-PROPAGATING-OPERATION>
;; #<STANDARD-METHOD ASDF/ACTION:SIDEWAY-OPERATION (OPERATION) {55E095E9}>
;; #<STANDARD-METHOD ASDF/ACTION:INPUT-FILES (SELFWARD-OPERATION COMPONENT) {563AA469}>
;; #<STANDARD-METHOD ASDF/ACTION:MARK-OPERATION-DONE (OPERATION COMPONENT) {564B9959}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T) {569723D1}>
;; #<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) {56CBB9C1}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (COMPILE-OP SYSTEM) {57074651}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-OP STATIC-FILE) {57370E61}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (PREPARE-SOURCE-OP COMPONENT) {5744ED59}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-SOURCE-OP STATIC-FILE) {575D5F81}>
;; #<STANDARD-METHOD ASDF/ACTION:OPERATION-DONE-P (TEST-OP SYSTEM) {5760FEC1}>
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<STANDARD-METHOD COMMON-LISP:PRINT-OBJECT (MISSING-COMPONENT-OF-VERSION T) {579CDB71}>
;; #<STANDARD-METHOD ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-COMBINATION (T
                                                                         (EQL
                                                                          :VERSION)
                                                                         T) {57DA0001}>
;; #<PACKAGE "ASDF/FORCING">
;; #<PACKAGE "ASDF/FORCING">
;; #<STANDARD-METHOD ASDF/SESSION:FORCING (CONS) {581751F9}>
;; #<PACKAGE "ASDF/PLAN">
;; #<PACKAGE "ASDF/PLAN">
;; #<STANDARD-METHOD ASDF/PLAN:RECORD-DEPENDENCY (SEQUENTIAL-PLAN OPERATION
                                                  COMPONENT) {582B6479}>
;; NIL
;; +STATUS-VOID+
;; #<STANDARD-METHOD (COMMON-LISP:SETF ASDF/PLAN:ACTION-STATUS) :AFTER (T
                                                                        SEQUENTIAL-PLAN
                                                                        OPERATION
                                                                        COMPONENT) {52185409}>
;; #<STANDARD-METHOD ASDF/PLAN:NEEDED-IN-IMAGE-P (OPERATION COMPONENT) {521ABF99}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPUTE-ACTION-STAMP (T OPERATION COMPONENT) {524B7F99}>
;; ACTION-UP-TO-DATE-P
;; REQUIRED-COMPONENTS
;; #<STANDARD-METHOD ASDF/PLAN:MARK-AS-DONE (PLAN OPERATION COMPONENT) {55E56FD1}>
;; #<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
;; NIL
;; #<STANDARD-METHOD ASDF/PARSE-DEFSYSTEM:CLASS-FOR-TYPE (PARENT-COMPONENT T) {57501601}>
;; 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) {52525159}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (OPERATION COMPILED-FILE) {525E4439}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (LIB-OP PREBUILT-SYSTEM) {526D5E19}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPONENT-DEPENDS-ON (LOAD-BUNDLE-OP
                                                       PRECOMPILED-SYSTEM) {52AAA381}>
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (BASIC-LOAD-COMPILED-CONCATENATED-SOURCE-OP
                                          SYSTEM) {55D8E2F1}>
;; #<PACKAGE "ASDF/PACKAGE-INFERRED-SYSTEM">
;; #<PACKAGE "ASDF/PACKAGE-INFERRED-SYSTEM">
;; SYSDEF-PACKAGE-INFERRED-SYSTEM-SEARCH
;; (DUMPER518::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) {57C8B4D1}>
;; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/pkgdcl-tmp74KGUNRZ.fasl
; compilation finished in 0:00:00.020
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/finalizers-tmpCEL1YIM2.fasl
; compilation finished in 0:00:00.112
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/asdf-support-tmpHAMQABTV.fasl
; compilation finished in 0:00:00.020
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/initialization-tmpUPMG0IBO.fasl
; compilation finished in 0:00:00.004
;; 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 (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections-tmpAKM32D0F.fasl
; compilation finished in 0:00:00.048
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/alexandria-1/package.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (DEFPACKAGE :ALEXANDRIA ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmp8UG37QJ5.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN %REEVALUATE-CONSTANT ...)
; processing (DEFMACRO DEFINE-CONSTANT ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp65YV5VYW.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpGO4MNX7G.fasl
; compilation finished in 0:00:00.056
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFTYPE STRING-DESIGNATOR ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmp9NXH2K1.fasl
; compilation finished in 0:00:00.000
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp6B86GLV2.fasl
; compilation finished in 0:00:00.068
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmpZWLLOVAH.fasl
; compilation finished in 0:00:00.056
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmpS9M8BVBG.fasl
; compilation finished in 0:00:00.244
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp205IFRLS.fasl
; compilation finished in 0:00:00.172
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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 (MACROLET (#) ...)
; 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 (MACROLET (#) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpBW6GBZVX.fasl
; compilation finished in 0:00:00.404
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFTYPE ARRAY-INDEX ...)
; processing (DEFTYPE ARRAY-LENGTH ...)
; processing (MACROLET (#) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpMDMI656Q.fasl
; compilation finished in 0:00:00.280
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmpQN7VP0FI.fasl
; compilation finished in 0:00:00.284
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmpNOSTK6D0.fasl
; compilation finished in 0:00:00.120
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmp9RA72042.fasl
; compilation finished in 0:00:00.168
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN COPY-ARRAY ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpGXZUHQQV.fasl
; compilation finished in 0:00:00.028
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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 (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DECLAIM (FTYPE # ...))
; processing (SETF (SYMBOL-FUNCTION #) ...)
; processing (DEFINE-COMPILER-MACRO EMPTYP ...)
; processing (DEFUN LENGTH= ...)

; file: /usr/share/common-lisp/source/alexandria/alexandria-1/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/alexandria-1/sequences.lisp
; in: DEFUN MAP-DERANGEMENTS
;     (MAKE-ARRAY ALEXANDRIA::SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)
; 
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmp1SBDRUB4.fasl
; compilation finished in 0:00:00.452
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 OCT 2021 08:11:41 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpFJI67R2A.fasl
; compilation finished in 0:00:00.332
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN FEATUREP ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmp2LAB0LT0.fasl
; compilation finished in 0:00:00.032
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :ALEXANDRIA-2 ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmp5G8XXQL5.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN DIM-IN-BOUNDS-P ...)
; processing (DEFUN ROW-MAJOR-INDEX ...)
; processing (DEFUN RMAJOR-TO-INDICES ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmp70X8ZE5V.fasl
; compilation finished in 0:00:00.048
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN LINE-UP-ITER ...)
; processing (DEFMACRO LINE-UP-FIRST ...)
; processing (DEFMACRO LINE-UP-LAST ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpRJ7B84T0.fasl
; compilation finished in 0:00:00.044
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN SUBSEQ* ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpOMGCSPAB.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN DELETE-FROM-PLIST* ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmpLEWWGRGS.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/trivial-features/src/tf-sbcl.lisp" (written 28 FEB 2021 08:31:40 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (PUSHNEW (WITH-ALIEN # ...) ...)
; processing (PUSHNEW :32-BIT ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/trivial-features/src/tf-sbcl-tmp2VH9CUXA.fasl
; compilation finished in 0:00:00.020
; compiling file "/usr/share/common-lisp/source/babel/src/packages.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:BABEL-ENCODINGS ...)
; processing (DEFPACKAGE #:BABEL ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/packages-tmp21MKT5OO.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/babel/src/encodings.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/encodings-tmpMXTBQGWB.fasl
; compilation finished in 0:00:00.400
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ascii.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ascii-tmpPPC4Z10Q.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ebcdic.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-tmpRD3N4073.fasl
; compilation finished in 0:00:00.052
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ebcdic-int.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-int-tmpFHOV2EXD.fasl
; compilation finished in 0:00:00.028
; compiling file "/usr/share/common-lisp/source/babel/src/enc-iso-8859.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-iso-8859-tmp5P00NUE.fasl
; compilation finished in 0:00:00.336
; compiling file "/usr/share/common-lisp/source/babel/src/enc-unicode.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-unicode-tmp94JO3ZTC.fasl
; compilation finished in 0:00:00.776
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp437.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :CP437 ...)
; processing (DEFINE-CONSTANT +CP437-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :CP437 ...)
; processing (DEFINE-UNIBYTE-ENCODER :CP437 ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp437-tmp6OFDFVAR.fasl
; compilation finished in 0:00:00.028
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp1251.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1251-tmpRYWTYMDY.fasl
; compilation finished in 0:00:00.028
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp1252.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1252-tmpW78F18LW.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/babel/src/jpn-table.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/jpn-table-tmpWUHTUDVN.fasl
; compilation finished in 0:00:00.400
; compiling file "/usr/share/common-lisp/source/babel/src/enc-jpn.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-jpn-tmpCK73UFEK.fasl
; compilation finished in 0:00:00.176
; compiling file "/usr/share/common-lisp/source/babel/src/enc-gbk.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-gbk-tmpEBEIAP0J.fasl
; compilation finished in 0:00:00.068
; compiling file "/usr/share/common-lisp/source/babel/src/enc-koi8.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-koi8-tmpSE943D3D.fasl
; compilation finished in 0:00:00.080
; compiling file "/usr/share/common-lisp/source/babel/src/external-format.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/external-format-tmpN5RKE5P2.fasl
; compilation finished in 0:00:00.060
; compiling file "/usr/share/common-lisp/source/babel/src/strings.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/strings-tmpNQZ6T1LT.fasl
; compilation finished in 0:00:08.976
; compiling file "/usr/share/common-lisp/source/babel/src/gbk-map.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFPARAMETER *GBK-UNICODE-MAPPING* ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/gbk-map-tmpWLS9DP2S.fasl
; compilation finished in 0:00:00.516
; compiling file "/usr/share/common-lisp/source/babel/src/sharp-backslash.lisp" (written 19 JUL 2020 06:57:54 AM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/babel/src/sharp-backslash-tmp8VCF5G6M.fasl
; compilation finished in 0:00:00.028
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl.lisp" (written 03 APR 2021 02:35:42 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 (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN %CLOSE-FOREIGN-LIBRARY ...)
; processing (DEFUN NATIVE-NAMESTRING ...)
; processing (DEFUN %FOREIGN-SYMBOL-POINTER ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl-tmp8DMZV8XU.fasl
; compilation finished in 0:00:00.716
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/package.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:CFFI ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/package-tmpEGA125WT.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/utils.lisp" (written 03 APR 2021 02:35:42 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/utils-tmpE9RDNCMC.fasl
; compilation finished in 0:00:00.060
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/libraries.lisp" (written 03 APR 2021 02:35:42 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/libraries-tmpGTSGBQIR.fasl
; compilation finished in 0:00:00.392
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/early-types.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFVAR *DEFAULT-TYPE-PARSERS* ...)
; processing (DEFVAR *STRUCT-TYPE-PARSERS* ...)
; processing (DEFVAR *UNION-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 NAMESPACE-TABLE ...)
; processing (DEFUN FIND-TYPE-PARSER ...)
; processing (DEFUN FIND-DEFAULT-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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/early-types-tmpRCRZ6VP.fasl
; compilation finished in 0:00:00.828
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/types.lisp" (written 03 APR 2021 02:35:42 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 (PROGN (DEFINE-BUILT-IN-FOREIGN-TYPE :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 (DEFMACRO DEFCTYPE-MATCHING ...)
; processing (MACROLET (#) ...)
; processing (DEFCTYPE :SIZE ...)
; processing (DEFCTYPE :SSIZE ...)
; processing (DEFCTYPE :PTRDIFF ...)
; processing (DEFCTYPE :OFFSET ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/types-tmpC6WXNUWP.fasl
; compilation finished in 0:00:01.292
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/enum.lisp" (written 03 APR 2021 02:35:42 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/enum-tmpB17HDEGA.fasl
; compilation finished in 0:00:00.344
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/strings.lisp" (written 03 APR 2021 02:35:42 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/strings-tmpE3AQVWGT.fasl
; compilation finished in 0:00:06.476
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/structures.lisp" (written 03 APR 2021 02:35:42 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/structures-tmpYKOEPICF.fasl
; compilation finished in 0:00:00.116
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/functions.lisp" (written 03 APR 2021 02:35:42 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 (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN FOREIGN-FUNCALL-VARARGS-FORM ...)
; processing (DEFMACRO FOREIGN-FUNCALL-VARARGS ...)
; processing (DEFMACRO FOREIGN-FUNCALL-POINTER-VARARGS ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/functions-tmpQK8YY837.fasl
; compilation finished in 0:00:00.628
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/foreign-vars.lisp" (written 03 APR 2021 02:35:42 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/foreign-vars-tmpJQI6KMRZ.fasl
; compilation finished in 0:00:00.076
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/features.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/features-tmpWUHK9UI0.fasl
; compilation finished in 0:00:00.044
; 
; 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+ssl/src/config.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL+SSL/CONFIG ...)
; processing (IN-PACKAGE :CL+SSL/CONFIG)
; processing (DEFVAR *LIBSSL-OVERRIDE* ...)
; processing (DEFVAR *LIBCRYPTO-OVERRIDE* ...)
; processing (DEFMACRO DEFINE-LIBSSL-PATH ...)
; processing (DEFMACRO DEFINE-LIBCRYPTO-PATH ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/config-tmpUUOI3UDB.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp" (written 17 JAN 2021 08:01:37 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (MACROLET (#) ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmpG1IOPEUW.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/streams.lisp" (written 17 JAN 2021 08:01:37 PM):
; 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 (PROGN (DEFMETHOD SB-GRAY:STREAM-READ-SEQUENCE ...) ...)
; processing (DEFCLASS TRIVIAL-GRAY-STREAM-MIXIN ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmpM0NOM18K.fasl
; compilation finished in 0:00:00.168
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/packages.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (UNLESS (FIND-SYMBOL # ...) ...)
; processing (DEFPACKAGE :FLEXI-STREAMS ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/packages-tmpVIL8T0YR.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/mapping.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/mapping-tmpBODYQO2B.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/ascii.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +ASCII-TABLE+ ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/ascii-tmpTLIPDLNH.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/koi8-r.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +KOI8-R-TABLE+ ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/koi8-r-tmpMOOD9PZK.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/mac.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +MAC-ROMAN-TABLE+ ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/mac-tmpJSQEHKQD.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/iso-8859.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +ISO-8859-TABLES+ ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/iso-8859-tmpX9RFG54G.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/enc-cn-tbl.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFUN MAKE-MULTIBYTE-MAPPER ...)
; processing (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...)
; processing (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-SPECIAL-TABLE* ...)
; processing (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-SPECIAL-TABLE* ...)
; processing (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...)
; processing (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/enc-cn-tbl-tmpJZYZV5YE.fasl
; compilation finished in 0:00:01.260
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/code-pages.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +CODE-PAGE-TABLES+ ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/code-pages-tmp7AGT8VJK.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/specials.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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 +MAC-ROMAN-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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/specials-tmpVX9R9U8P.fasl
; compilation finished in 0:00:00.056
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/util.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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 MAC-ROMAN-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* ...)
; processing (DEFUN GET-MULTIBYTE-MAPPER ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/util.lisp
; in: DEFUN GET-MULTIBYTE-MAPPER
;     (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 0)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.

;     (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 1)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.


; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/util-tmpQCDFKETQ.fasl
; compilation finished in 0:00:00.168
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/conditions.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/conditions-tmpO1PDDUR.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/external-format.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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-GBK-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-GBK-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-GBK-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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/external-format-tmpIX4U16ZB.fasl
; compilation finished in 0:00:00.336
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/length.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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 ...)
; 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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: 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 (OR (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT)
;                               &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))
; --> 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::CURRENT-DEFMETHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-CHARS NIL
;         (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT T T T)
;         (FORMAT SEQUENCE FLEXI-STREAMS::START FLEXI-STREAMS::END)))
;       (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))
;       ...)
; 
; 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 #'=)
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   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: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-ARRAY.
; 
; note: 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)
; 
; 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)
; 
; 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))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::I LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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)
; 
; 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))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF SEQUENCE FLEXI-STREAMS::I)
; 
; 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)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF SEQUENCE (1+ FLEXI-STREAMS::I))
; 
; 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 (FLEXI-GBK-FORMAT T T T)
;     (AREF SEQUENCE FLEXI-STREAMS::I)
; 
; 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-GBK-FORMAT T T T)
;     (AREF SEQUENCE FLEXI-STREAMS::I)
; 
; 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)
; 
; 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 conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   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)
; --> 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)
; 
; 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 conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   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)
; --> 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 ...)
; 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))
; --> 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::CURRENT-DEFMETHOD FLEXI-STREAMS::COMPUTE-NUMBER-OF-OCTETS NIL
;         (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT T T T)
;         (FORMAT STRING FLEXI-STREAMS::START FLEXI-STREAMS::END)))
;       (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))
;       ...)
; 
; 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-GBK-FORMAT T T T)
;     (CHAR STRING FLEXI-STREAMS::I)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN UNLESS IF 
; ==>
;   (SB-INT:FIXNUMP #:G22)
; 
; 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-GBK-FORMAT T T T)
;     (CHAR STRING FLEXI-STREAMS::I)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN UNLESS IF 
; ==>
;   (SB-INT:FIXNUMP #:G22)
; 
; 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-8-FORMAT T T T)
;     (CHAR STRING FLEXI-STREAMS::I)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (INCF FLEXI-STREAMS::SUM FLEXI-STREAMS:CHAR-LENGTH)
; --> THE MULTIPLE-VALUE-BIND LET PROGN 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))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (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 fixnum arithmetic (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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/length-tmp93OFNPHA.fasl
; compilation finished in 0:00:00.820
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/encode.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFGENERIC CHAR-TO-OCTETS ...)
; processing (DEFGENERIC WRITE-SEQUENCE* ...)
; processing (DEFGENERIC STRING-TO-OCTETS* ...)
; processing (DEFMETHOD STRING-TO-OCTETS* ...)
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> AREF 
; ==>
;   1
; 
; 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)
; --> AREF 
; ==>
;   1
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> AREF 
; ==>
;   1
; 
; 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)
; --> AREF 
; ==>
;   1
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; 
; 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)
; --> AREF 
; ==>
;   1
; 
; 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))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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 # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; 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 # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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 # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; 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 # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; processing (DEFINE-CHAR-ENCODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ...) ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
;      DEFINE-CHAR-ENCODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT
;                        FLEXI-CRLF-GBK-FORMAT)
;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> AREF 
; ==>
;   1
; 
; 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)
; --> AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 IF FLET COND IF IF THE LET IF 
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 IF FLET COND IF IF THE LET IF 
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 IF FLET COND IF IF THE LET IF 
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   (#:WRITE-CHAR2 (#:CHAR1)
;    (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE #:CHAR1)))
;      (IF (<= FLEXI-STREAMS:OCTET 127)
;          (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;          (FLET (#)
;            (DECLARE #)
;            (DECLARE #)
;            (COND # # #)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 65280 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
;   (LOGAND 255 FLEXI-STREAMS::WORD)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
;         (IF (<= FLEXI-STREAMS:OCTET 127)
;             (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;             (FLET (#)
;               (DECLARE #)
;               (DECLARE #)
;               (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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-OBJECT BLOCK ETYPECASE LET COND IF 
; --> IF PROGN SYMBOL-MACROLET LOCALLY FLET 
; ==>
;   (#:WRITE-CHAR2 (#:CHAR1)
;    (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE #:CHAR1)))
;      (IF (<= FLEXI-STREAMS:OCTET 127)
;          (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
;          (FLET (#)
;            (DECLARE #)
;            (DECLARE #)
;            (COND # # #)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; 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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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)
; --> CHAR 
; ==>
;   1
; 
; 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))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> AREF 
; ==>
;   1
; 
; 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))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: doing signed word to integer coercion (cost 20)

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (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
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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 LIST VECTOR).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.
; 
; 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 FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.
; 
; 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.
; 
; 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.
; 
; 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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN 
; ==>
;   1
; 
; 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.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/encode-tmpOH5AKS8D.fasl
; compilation finished in 0:00:05.756
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/decode.lisp" (written 28 JUL 2021 07:07:50 PM):
; 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)
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; 
; 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)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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))
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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))
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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))
; 
; 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)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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.
; 
; 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)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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)))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)))
; 
; 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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)))
; 
; 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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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)))
; 
; 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)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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.
; 
; 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 #
;               #
;               #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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::READ-NEXT-BYTE)
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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: 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.
; 
; 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.
; 
; 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-WORD)
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 1 {560460A1}>.
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE READ-NEXT-WORD)

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR 
; ==>
;   (LET ((#:G33 FLEXI-STREAMS::OCTET-GETTER))
;     (IF #:G33
;         #:G33
;         (COND
;          (FLEXI-STREAMS::FIRST-OCTET-SEEN
;           (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #))
;          (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL)))))
; 
; note: deleting unused function
;   (LET ((#:G33 OCTET-GETTER)))

;     (FLEXI-STREAMS::READ-NEXT-WORD)
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 1 {560460A1}>.
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE READ-NEXT-WORD)

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR 
; ==>
;   (LET ((#:G35 FLEXI-STREAMS::OCTET-GETTER))
;     (IF #:G35
;         #:G35
;         (COND
;          (FLEXI-STREAMS::FIRST-OCTET-SEEN
;           (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #))
;          (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL)))))
; 
; note: deleting unused function
;   (LET ((#:G35 OCTET-GETTER)))

;     (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 #
;               #
;               #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET 
; ==>
;   (BLOCK FLEXI-STREAMS::OCTETS-TO-CHAR-CODE
;     (SYMBOL-MACROLET ((FLEXI-STREAMS::OCTET-GETTER
;                        (FUNCALL FLEXI-STREAMS::READER)))
;       (LET ((#:CHAR-CODE0 #))
;         (WHEN (AND #:CHAR-CODE0 #)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "Illegal code point ~A (#x~:*~X)." #:CHAR-CODE0))
;         #:CHAR-CODE0)))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM OCTETS-TO-CHAR-CODE NIL). Use GO/RETURN-FROM with SAFETY 0, or
; declare the exit function DYNAMIC-EXTENT to avoid.

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

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

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF 
; ==>
;   1
; 
; 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.

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

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

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF 
; ==>
;   1
; 
; 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.

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)
; --> LET OR LET IF COND IF THE 
; ==>
;   (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
; 
; caught STYLE-WARNING:
;   Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF 
; ==>
;   1
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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: 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-WORD)
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 2 {572C2861}>.
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE READ-NEXT-WORD)

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR 
; ==>
;   (LET ((#:G33 FLEXI-STREAMS::OCTET-GETTER))
;     (IF #:G33
;         #:G33
;         (COND
;          (FLEXI-STREAMS::FIRST-OCTET-SEEN
;           (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #))
;          (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL)))))
; 
; note: deleting unused function
;   (LET ((#:G33 OCTET-GETTER)))

;     (FLEXI-STREAMS::READ-NEXT-WORD)
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 2 {572C2861}>.
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE READ-NEXT-WORD)

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR 
; ==>
;   (LET ((#:G35 FLEXI-STREAMS::OCTET-GETTER))
;     (IF #:G35
;         #:G35
;         (COND
;          (FLEXI-STREAMS::FIRST-OCTET-SEEN
;           (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #))
;          (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL)))))
; 
; note: deleting unused function
;   (LET ((#:G35 OCTET-GETTER)))

;     (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 #
;               #
;               #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET 
; ==>
;   (BLOCK FLEXI-STREAMS::OCTETS-TO-CHAR-CODE
;     (SYMBOL-MACROLET ((FLEXI-STREAMS::OCTET-GETTER
;                        (FUNCALL FLEXI-STREAMS::READER)))
;       (LET ((#:CHAR-CODE0 #))
;         (WHEN (AND #:CHAR-CODE0 #)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "Illegal code point ~A (#x~:*~X)." #:CHAR-CODE0))
;         #:CHAR-CODE0)))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM OCTETS-TO-CHAR-CODE NIL). Use GO/RETURN-FROM with SAFETY 0, or
; declare the exit function DYNAMIC-EXTENT to avoid.

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

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

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF 
; ==>
;   1
; 
; 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.

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

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

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF 
; ==>
;   1
; 
; 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.

; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)
; --> LET OR LET IF COND IF THE 
; ==>
;   (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
; 
; caught STYLE-WARNING:
;   Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF 
; ==>
;   1
; 
; 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 #
;               #
;               #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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: 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-GBK-FORMAT FLEXI-CR-GBK-FORMAT ...) ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp
; in:
;      DEFINE-CHAR-DECODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT
;                        FLEXI-CRLF-GBK-FORMAT)
;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; --> BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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)
;       (COND
;        ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127)
;         FLEXI-STREAMS:OCTET)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364)
;        ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733)
;        (T
;         (LET (#)
;           (IF #
;               #
;               #)))))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER))
;       (IF (NULL FLEXI-STREAMS::NEXT-BYTE)
;           (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
;            "End of data while in GBK sequence.")
;           (LET ((FLEXI-STREAMS::WORD #))
;             (DECLARE (TYPE # FLEXI-STREAMS::WORD))
;             (LET (#)
;               (IF FLEXI-STREAMS:OCTET
;                   FLEXI-STREAMS:OCTET
;                   #)))))
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
;       (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER)
;         (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733)
;               (T
;                (LET #
;                  #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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.
; 
; 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 ...)
; --> 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 ...))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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)
; ==>
;   (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)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 ...)
; --> 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> 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::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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
;   (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)
; 
; 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 ...)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline ASH

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-460 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-476 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-442 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
;   (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)
; 
; 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 ...)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline ASH

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-800 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-817 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-781 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
;   (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)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: 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 ...)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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.
; 
; 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)
; 
; 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 ...)
; --> 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 ...))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; --> <= 
; ==>
;   1
; 
; 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.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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)
; ==>
;   (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)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 ...)
; --> 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> 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::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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
;   (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)
; 
; 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 ...)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline ASH

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-460 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-476 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* 
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE 
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK 
; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF 
; ==>
;   (> #:CHAR-CODE0 1114111)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       etc.

;     (LOOP FLEXI-STREAMS::FOR
;           COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
;           FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-442 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
;   (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)
; 
; 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 ...)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline ASH

;     (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF 
; ==>
;   1
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
;                                                              (*)).
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

;     (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (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 ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-800 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* 
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET 
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY 
; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF 
; ==>
;   (> #:CHAR-CODE0 1114111)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       etc.

;     (LOOP FLEXI-STREAMS::FOR
;           COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
;           FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-817 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* 
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE 
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK 
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF 
; ==>
;   (> #:CHAR-CODE0 1114111)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       etc.

;     (LOOP FLEXI-STREAMS::FOR
;           COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
;           FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-781 (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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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 <= 
; ==>
;   1
; 
; 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.

; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-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.

;     (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
;   (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)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
;                                           FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
;       (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
;         (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
;         (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
;                      '#))
;           (LOOP FLEXI-STREAMS::FOR
;                 COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
;                 FLEXI-STREAMS::FOR ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.

;     (LOOP FLEXI-STREAMS::FOR
;           COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
;           FLEXI-STREAMS::FOR ...)
; 
; 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 ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD 
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-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 
; ==>
;   1
; 
; 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.
; 
; 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.
; 
; 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)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline ASH

; processing (DEFMETHOD OCTETS-TO-CHAR-CODE ...)
; processing (DEFMETHOD OCTETS-TO-CHAR-CODE ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/decode-tmpTNV77KDS.fasl
; compilation finished in 0:00:11.960
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "flexi-streams" "decode">
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS IN-MEMORY-STREAM ...)
; processing (DEFCLASS IN-MEMORY-INPUT-STREAM ...)
; processing (DEFCLASS IN-MEMORY-OUTPUT-STREAM ...)
; processing (DEFCLASS LIST-STREAM ...)
; processing (DEFCLASS VECTOR-STREAM ...)
; processing (DEFCLASS LIST-INPUT-STREAM ...)
; processing (DEFCLASS VECTOR-INPUT-STREAM ...)
; processing (DEFCLASS VECTOR-OUTPUT-STREAM ...)
; processing (DEFMETHOD CHECK-IF-OPEN ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFGENERIC PEEK-BYTE ...)
; processing (DEFMETHOD PEEK-BYTE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD PEEK-BYTE (VECTOR-INPUT-STREAM)
;     (= BYTE FLEXI-STREAMS::PEEK-TYPE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF)
;           :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX
;           :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE))
;                        ((NULL FLEXI-STREAMS::PEEK-TYPE))
;                        ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE))
;                        ((= BYTE FLEXI-STREAMS::PEEK-TYPE)))
;           :FINALLY ...)
; --> LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ 
; ==>
;   1
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (PLUSP BYTE)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF)
;           :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX
;           :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE))
;                        ((NULL FLEXI-STREAMS::PEEK-TYPE))
;                        ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE))
;                        ((= BYTE FLEXI-STREAMS::PEEK-TYPE)))
;           :FINALLY ...)
; --> LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ 
; ==>
;   1
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; processing (DEFMETHOD PEEK-BYTE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD PEEK-BYTE (LIST-INPUT-STREAM)
;     (= BYTE FLEXI-STREAMS::PEEK-TYPE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (PLUSP BYTE)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; processing (DEFMETHOD TRANSFORM-OCTET ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD TRANSFORM-OCTET (IN-MEMORY-STREAM T)
;     (FUNCALL (OR (FLEXI-STREAMS::IN-MEMORY-STREAM-TRANSFORMER STREAM) #'IDENTITY)
;              FLEXI-STREAMS:OCTET)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   callable expression is not known to be a function

; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFMETHOD STREAM-LISTEN ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (LIST-INPUT-STREAM T T T)
;     (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TRANSFORMER is not known to be a function

;     (SETF (ELT SEQUENCE FLEXI-STREAMS::INDEX)
;             (IF FLEXI-STREAMS::TRANSFORMER
;                 (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT)
;                 ELT))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; processing (DEFMETHOD STREAM-READ-BYTE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-READ-BYTE (VECTOR-INPUT-STREAM)
;     (AREF VECTOR FLEXI-STREAMS::CURRENT-INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; processing (DEFMETHOD STREAM-LISTEN ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (VECTOR-INPUT-STREAM T T T)
;     (AREF VECTOR FLEXI-STREAMS::VECTOR-INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   TRANSFORMER is not known to be a function

;     (SETF (ELT SEQUENCE FLEXI-STREAMS::INDEX)
;             (IF FLEXI-STREAMS::TRANSFORMER
;                 (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT)
;                 ELT))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD STREAM-WRITE-SEQUENCE (VECTOR-OUTPUT-STREAM T T T)
;     (ELT SEQUENCE FLEXI-STREAMS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-INPUT-STREAM)
;     (<= 0 FLEXI-STREAMS::POSITION-SPEC FLEXI-STREAMS::END)
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 32).
;       etc.

; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-OUTPUT-STREAM)
;     (ARRAY-TOTAL-SIZE VECTOR)
; 
; note: unable to optimize because: can't tell the rank at compile time

;     (<= 0 FLEXI-STREAMS::POSITION-SPEC ARRAY-TOTAL-SIZE-LIMIT)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       etc.

; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFUN MAKE-OUTPUT-VECTOR ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFUN MAKE-OUTPUT-VECTOR
;     (MAKE-ARRAY 0 :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE
;                 FLEXI-STREAMS::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; processing (DEFUN MAKE-IN-MEMORY-OUTPUT-STREAM ...)
; processing (DEFMETHOD GET-OUTPUT-STREAM-SEQUENCE ...)
; processing (DEFMETHOD OUTPUT-STREAM-SEQUENCE-LENGTH ...)
; processing (DEFMACRO WITH-INPUT-FROM-SEQUENCE ...)
; processing (DEFMACRO WITH-OUTPUT-TO-SEQUENCE ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/in-memory-tmp9AOKGDLT.fasl
; compilation finished in 0:00:00.400
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/stream.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS FLEXI-STREAM ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD (SETF FLEXI-STREAM-EXTERNAL-FORMAT) ...)
; processing (DEFMETHOD (SETF FLEXI-STREAM-ELEMENT-TYPE) ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD CLOSE ...)
; processing (DEFMETHOD OPEN-STREAM-P ...)
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; processing (DEFCLASS FLEXI-OUTPUT-STREAM ...)
; processing (DEFCLASS FLEXI-INPUT-STREAM ...)
; processing (DEFCLASS FLEXI-IO-STREAM ...)
; processing (DEFUN MAKE-FLEXI-STREAM ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/stream-tmpXS9JOGMS.fasl
; compilation finished in 0:00:00.124
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/output.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFGENERIC WRITE-BYTE* ...)
; processing (DEFMETHOD WRITE-BYTE* ...)
; processing (DEFMETHOD STREAM-WRITE-CHAR ...)
; processing (DEFMETHOD STREAM-WRITE-CHAR ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/output.lisp
; in: DEFMETHOD STREAM-WRITE-CHAR :AFTER (FLEXI-OUTPUT-STREAM T)
;     (INCF (THE INTEGER FLEXI-STREAMS::COLUMN))
; ==>
;   (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-COLUMN #:G68)))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; processing (DEFMETHOD STREAM-LINE-COLUMN ...)
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD STREAM-WRITE-STRING ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/output.lisp
; in: DEFMETHOD STREAM-WRITE-STRING (FLEXI-OUTPUT-STREAM T)
;     (LENGTH STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.


; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/output-tmpERBDX74X.fasl
; compilation finished in 0:00:00.092
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/input.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFMETHOD READ-BYTE* ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD READ-BYTE* (FLEXI-INPUT-STREAM)
;     (>= POSITION FLEXI-STREAMS::BOUND)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (OR NULL INTEGER), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The second argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 32).
;       etc.

;     (INCF POSITION)
; ==>
;   (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G08)))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (DECF POSITION)
; --> SB-IMPL::XSUBTRACT BLOCK 
; ==>
;   (- SB-IMPL::B SB-IMPL::A)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; processing (DEFMETHOD STREAM-CLEAR-INPUT ...)
; processing (DEFMETHOD STREAM-LISTEN ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-LISTEN (FLEXI-INPUT-STREAM)
;     (>= POSITION FLEXI-STREAMS::BOUND)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (OR NULL INTEGER), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The second argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 32).
;       etc.

; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFUN UNREAD-CHAR% ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFUN UNREAD-CHAR%
;     (DECF POSITION FLEXI-STREAMS::COUNTER)
; --> SB-IMPL::XSUBTRACT BLOCK 
; ==>
;   (- SB-IMPL::B SB-IMPL::A)
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 32)
;                                                         &REST T).
;       etc.

; processing (DEFMETHOD STREAM-READ-CHAR ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-READ-CHAR (FLEXI-INPUT-STREAM)
;     (OR (CODE-CHAR CHAR-CODE) CHAR-CODE)
; --> IF 
; ==>
;   CHAR-CODE
; 
; note: deleting unreachable code

; processing (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (FLEXI-INPUT-STREAM T T T)
;     (- FLEXI-STREAMS::BOUND POSITION)
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   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).

;     (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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).

;     (REPLACE SEQUENCE FLEXI-STREAMS::OCTET-STACK :START1 FLEXI-STREAMS::START
;              :END1 FLEXI-STREAMS::END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY * (*))
;                                                       &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
;                                                              &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
;                                                       (SIMPLE-ARRAY CHARACTER
;                                                        (*))
;                                                       &REST T).

;     (LENGTH FLEXI-STREAMS::OCTET-STACK)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (ELT SEQUENCE (1- FLEXI-STREAMS::INDEX))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START))
; ==>
;   (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)
;      (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G1130))
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                              (COMPLEX DOUBLE-FLOAT)).
; 
; 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).

;     (MIN FLEXI-STREAMS::END
;          (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)))
; 
; note: unable to open code because: The operands might not be the same type.

;     (- FLEXI-STREAMS::BOUND POSITION)
; 
; 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.

;     (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -536870912 536870910), not a (UNSIGNED-BYTE
;                                                                      32).
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (UNSIGNED-BYTE 32)
;                                                         &REST T).
;       etc.

;     (MIN FLEXI-STREAMS::END
;          (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)))
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
;                                                                      32).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 32).
;       etc.

;     (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START))
; ==>
;   (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)
;      (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G1130))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -536870910 1073741820), 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 (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a (INTEGER -536870910 1073741820), 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.
; 
; note: doing signed word to integer coercion (cost 20)

;     (INCF FLEXI-STREAMS::INDEX FLEXI-STREAMS::OCTETS-FLUSHED)
; --> THE MULTIPLE-VALUE-BIND LET PROGN UNLESS IF 
; ==>
;   (SB-INT:FIXNUMP #:G77)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; processing (DEFMETHOD STREAM-UNREAD-CHAR ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD STREAM-UNREAD-CHAR (FLEXI-INPUT-STREAM T)
;     (= (CHAR-CODE CHAR) FLEXI-STREAMS::LAST-CHAR-CODE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; processing (DEFMETHOD UNREAD-BYTE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD UNREAD-BYTE (T FLEXI-INPUT-STREAM)
;     (= BYTE FLEXI-STREAMS::LAST-OCTET)
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.

;     (DECF (THE INTEGER POSITION))
; --> SB-IMPL::XSUBTRACT BLOCK 
; ==>
;   (- SB-IMPL::B SB-IMPL::A)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; processing (DEFMETHOD PEEK-BYTE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp
; in: DEFMETHOD PEEK-BYTE (FLEXI-INPUT-STREAM)
;     (= FLEXI-STREAMS:OCTET FLEXI-STREAMS::PEEK-TYPE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (PLUSP FLEXI-STREAMS:OCTET)
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.


; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/input-tmpTQIEF2IQ.fasl
; compilation finished in 0:00:00.192
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/io.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFMETHOD RESET-INPUT-STATE ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/io.lisp
; in: DEFMETHOD RESET-INPUT-STATE (FLEXI-IO-STREAM)
;     (LENGTH FLEXI-STREAMS::OCTET-STACK)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD STREAM-WRITE-CHAR ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD RESET-OUTPUT-STATE ...)
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; processing (DEFMETHOD STREAM-READ-CHAR ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; processing (DEFMETHOD STREAM-UNREAD-CHAR ...)
; processing (DEFMETHOD UNREAD-BYTE ...)
; processing (DEFMETHOD STREAM-CLEAR-INPUT ...)
; processing (DEFMETHOD WRITE-BYTE* ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/io.lisp
; in: DEFMETHOD WRITE-BYTE* :AFTER (T FLEXI-IO-STREAM)
;     (INCF POSITION)
; ==>
;   (+ 1 (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G56))
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code float conversion in mixed numeric operation
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.


; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/io-tmpPAAFO6LP.fasl
; compilation finished in 0:00:00.100
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/strings.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFUN STRING-TO-OCTETS ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN STRING-TO-OCTETS
;     (LENGTH STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; processing (DEFUN OCTETS-TO-STRING ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN OCTETS-TO-STRING
;     (LENGTH SEQUENCE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; processing (DEFUN OCTET-LENGTH ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN OCTET-LENGTH
;     (LENGTH STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; processing (DEFUN CHAR-LENGTH ...)

; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN CHAR-LENGTH
;     (LENGTH SEQUENCE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.


; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/strings-tmp4PCSVQUR.fasl
; compilation finished in 0:00:00.064
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (DEFPACKAGE :BORDEAUX-THREADS ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl-tmpCUMSDKM4.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; processing (DEFVAR *SUPPORTS-THREADS-P* ...)
; processing (DEFUN MARK-SUPPORTED ...)
; processing (DEFINE-CONDITION BORDEAUX-MP-CONDITION ...)
; processing (DEFGENERIC MAKE-THREADING-SUPPORT-ERROR ...)
; processing (DEFSTRUCT %SEMAPHORE ...)
; processing (DEFVAR *DEFAULT-SPECIAL-BINDINGS* ...)
; processing (DEFMACRO DEFBINDINGS ...)
; processing (DEFBINDINGS *STANDARD-IO-BINDINGS* ...)
; processing (DEFUN BINDING-DEFAULT-SPECIALS ...)
; processing (DEFUN SIGNAL-ERROR-IF-CURRENT-THREAD ...)
; processing (DEFPARAMETER *NO-CONDITION-WAIT-TIMEOUT-MESSAGE* ...)
; processing (DEFUN SIGNAL-ERROR-IF-CONDITION-WAIT-TIMEOUT ...)
; processing (DEFMACRO DEFINE-CONDITION-WAIT-COMPILER-MACRO ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads-tmpVBY1FQ3S.fasl
; compilation finished in 0:00:00.120
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/impl-null.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/impl-null-tmpS8NUOPMQ.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; processing (DEFMACRO DEFDFUN ...)
; processing (DEFMACRO DEFDMACRO ...)
; processing (DEFDFUN START-MULTIPROCESSING ...)
; processing (DEFDFUN MAKE-THREAD ...)
; processing (DEFDFUN %MAKE-THREAD ...)
; processing (DEFDFUN CURRENT-THREAD ...)
; processing (DEFDFUN THREADP ...)
; processing (DEFDFUN THREAD-NAME ...)
; processing (DEFDFUN LOCK-P ...)
; processing (DEFDFUN RECURSIVE-LOCK-P ...)
; processing (DEFDFUN MAKE-LOCK ...)
; processing (DEFDFUN ACQUIRE-LOCK ...)
; processing (DEFDFUN RELEASE-LOCK ...)
; processing (DEFDMACRO WITH-LOCK-HELD ...)
; processing (DEFDFUN MAKE-RECURSIVE-LOCK ...)
; processing (DEFDFUN ACQUIRE-RECURSIVE-LOCK ...)
; processing (DEFDFUN RELEASE-RECURSIVE-LOCK ...)
; processing (DEFDMACRO WITH-RECURSIVE-LOCK-HELD ...)
; processing (DEFDFUN THREAD-YIELD ...)
; processing (DEFDFUN MAKE-CONDITION-VARIABLE ...)
; processing (DEFDFUN CONDITION-WAIT ...)
; processing (DEFDFUN CONDITION-NOTIFY ...)
; processing (DEFDFUN MAKE-SEMAPHORE ...)
; processing (DEFDFUN SIGNAL-SEMAPHORE ...)
; processing (DEFDFUN WAIT-ON-SEMAPHORE ...)
; processing (DEFDFUN SEMAPHORE-P ...)

; file: /usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp
; in: DEFDFUN SEMAPHORE-P
;     'BORDEAUX-THREADS:SEMAPHORE
; 
; note: can't open-code test of unknown type SEMAPHORE

; processing (DEFDFUN ALL-THREADS ...)
; processing (DEFDFUN INTERRUPT-THREAD ...)
; processing (DEFDFUN DESTROY-THREAD ...)
; processing (DEFDFUN THREAD-ALIVE-P ...)
; processing (DEFDFUN JOIN-THREAD ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations-tmpPYED056U.fasl
; compilation finished in 0:00:00.400
; compiling file "/usr/share/common-lisp/source/trivial-garbage/trivial-garbage.lisp" (written 29 DEC 2021 06:00:51 PM):
; processing (DEFPACKAGE #:TRIVIAL-GARBAGE ...)
; processing (IN-PACKAGE #:TRIVIAL-GARBAGE)
; processing (DEFUN GC ...)
; processing (DEFUN MAKE-WEAK-POINTER ...)
; processing (DEFUN WEAK-POINTER-P ...)
; processing (DEFUN WEAK-POINTER-VALUE ...)
; processing (DEFUN WEAKNESS-KEYWORD-ARG ...)
; processing (DEFVAR *WEAKNESS-WARNINGS* ...)
; processing (DEFUN WEAKNESS-MISSING ...)
; processing (DEFUN WEAKNESS-KEYWORD-OPT ...)
; processing (DEFUN MAKE-WEAK-HASH-TABLE ...)
; processing (DEFUN MAKE-HASH-TABLE ...)
; processing (DEFUN HASH-TABLE-WEAKNESS ...)
; processing (DEFUN FINALIZE ...)
; processing (DEFUN CANCEL-FINALIZATION ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/trivial-garbage/trivial-garbage-tmpUOCPY155.fasl
; compilation finished in 0:00:00.072
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/package.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (DEFPACKAGE #:SPLIT-SEQUENCE ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/package-tmpP4BCARWB.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/vector.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DECLAIM (INLINE SPLIT-VECTOR ...))
; processing (DEFTYPE ARRAY-INDEX ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-VECTOR-FROM-END ...)
; processing (DEFUN SPLIT-VECTOR-FROM-START ...)
; processing (DEFUN SPLIT-VECTOR-IF ...)
; processing (DEFUN SPLIT-VECTOR-IF-NOT ...)
; processing (DEFUN SPLIT-VECTOR ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/vector-tmpOUEHOD9C.fasl
; compilation finished in 0:00:00.384
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/list.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DECLAIM (INLINE COLLECT-UNTIL ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN COLLECT-UNTIL ...)
; processing (DEFUN COUNT-WHILE ...)
; processing (DEFUN SPLIT-LIST-INTERNAL ...)
; processing (DEFUN SPLIT-LIST-FROM-END ...)
; processing (DEFUN SPLIT-LIST-FROM-START ...)
; processing (DEFUN SPLIT-LIST-IF ...)
; processing (DEFUN SPLIT-LIST-IF-NOT ...)
; processing (DEFUN SPLIT-LIST ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/list-tmp5ZHGID8G.fasl
; compilation finished in 0:00:00.576
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/extended-sequence.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DEFTYPE EXTENDED-SEQUENCE ...)
; processing (DECLAIM (INLINE SPLIT-EXTENDED-SEQUENCE ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-END ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-START ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-IF ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-IF-NOT ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/extended-sequence-tmp9D2N5DM.fasl
; compilation finished in 0:00:00.352
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/api.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DEFUN LIST-LONG-ENOUGH-P ...)
; processing (DEFUN CHECK-BOUNDS ...)
; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; processing (DEFMACRO CHECK-TESTS ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-SEQUENCE ...)
; processing (DEFUN SPLIT-SEQUENCE-IF ...)
; processing (DEFUN SPLIT-SEQUENCE-IF-NOT ...)
; processing (PUSHNEW :SPLIT-SEQUENCE ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/api-tmpKDSLP2NX.fasl
; compilation finished in 0:00:01.756
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/documentation.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/documentation-tmp4QLHV6NG.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/usocket/package.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (DEFPACKAGE :USOCKET ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/usocket/package-tmpMFQG7214.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/usocket/usocket.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFPARAMETER *WILDCARD-HOST* ...)
; processing (DEFPARAMETER *AUTO-PORT* ...)
; processing (DEFPARAMETER *VERSION* ...)
; processing (DEFCONSTANT +MAX-DATAGRAM-PACKET-SIZE+ ...)
; processing (DEFCLASS USOCKET ...)
; processing (DEFGENERIC SOCKET-STATE ...)
; processing (DEFMETHOD SOCKET-STATE ...)
; processing (DEFCLASS STREAM-USOCKET ...)
; processing (DEFCLASS STREAM-SERVER-USOCKET ...)
; processing (DEFCLASS DATAGRAM-USOCKET ...)
; processing (DEFUN USOCKET-P ...)
; processing (DEFUN STREAM-USOCKET-P ...)
; processing (DEFUN STREAM-SERVER-USOCKET-P ...)
; processing (DEFUN DATAGRAM-USOCKET-P ...)
; processing (DEFUN MAKE-SOCKET ...)
; processing (DEFUN MAKE-STREAM-SOCKET ...)
; processing (DEFUN MAKE-STREAM-SERVER-SOCKET ...)
; processing (DEFUN MAKE-DATAGRAM-SOCKET ...)
; processing (DEFGENERIC SOCKET-ACCEPT ...)
; processing (DEFGENERIC SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFGENERIC SOCKET-SHUTDOWN ...)
; processing (DEFGENERIC SOCKET-SEND ...)
; processing (DEFGENERIC SOCKET-RECEIVE ...)
; processing (DEFGENERIC GET-LOCAL-ADDRESS ...)
; processing (DEFGENERIC GET-PEER-ADDRESS ...)
; processing (DEFGENERIC GET-LOCAL-PORT ...)
; processing (DEFGENERIC GET-PEER-PORT ...)
; processing (DEFGENERIC GET-LOCAL-NAME ...)
; processing (DEFGENERIC GET-PEER-NAME ...)
; processing (DEFMACRO WITH-CONNECTED-SOCKET ...)
; processing (DEFMACRO WITH-CLIENT-SOCKET ...)
; processing (DEFMACRO WITH-SERVER-SOCKET ...)
; processing (DEFMACRO WITH-SOCKET-LISTENER ...)
; processing (DEFSTRUCT (WAIT-LIST #) ...)
; processing (DEFUN MAKE-WAIT-LIST ...)
; processing (DEFUN ADD-WAITER ...)
; processing (DEFUN REMOVE-WAITER ...)
; processing (DEFUN REMOVE-ALL-WAITERS ...)
; processing (DEFUN WAIT-FOR-INPUT ...)
; processing (DEFUN INTEGER-TO-OCTET-BUFFER ...)
; processing (DEFUN OCTET-BUFFER-TO-INTEGER ...)
; processing (DEFMACRO PORT-TO-OCTET-BUFFER ...)
; processing (DEFMACRO IP-TO-OCTET-BUFFER ...)
; processing (DEFMACRO PORT-FROM-OCTET-BUFFER ...)
; processing (DEFMACRO IP-FROM-OCTET-BUFFER ...)
; processing (DEFUN LIST-OF-STRINGS-TO-INTEGERS ...)
; processing (DEFUN IP-ADDRESS-STRING-P ...)
; processing (DEFUN HBO-TO-DOTTED-QUAD ...)
; processing (DEFUN HBO-TO-VECTOR-QUAD ...)
; processing (DEFUN VECTOR-QUAD-TO-DOTTED-QUAD ...)
; processing (DEFUN DOTTED-QUAD-TO-VECTOR-QUAD ...)
; processing (DEFGENERIC HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFUN VECTOR-TO-IPV6-HOST ...)
; processing (DEFUN SPLIT-IPV6-ADDRESS ...)
; processing (DEFUN IPV6-HOST-TO-VECTOR ...)
; processing (DEFUN HOST-TO-HOSTNAME ...)
; processing (DEFUN IP= ...)
; processing (DEFUN IP/= ...)
; processing (DEFUN GET-HOST-BY-NAME ...)
; processing (DEFUN GET-RANDOM-HOST-BY-NAME ...)
; processing (DEFUN HOST-TO-VECTOR-QUAD ...)
; processing (DEFUN HOST-TO-HBO ...)
; processing (DEFUN SPLIT-TIMEOUT ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (PROCLAIM (QUOTE #))
; processing (DEFUN BOOL->INT ...)
; processing (DEFUN INT->BOOL ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/usocket/usocket-tmpEL1UBVEC.fasl
; compilation finished in 0:00:00.640
; compiling file "/usr/share/common-lisp/source/usocket/condition.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFINE-CONDITION INSUFFICIENT-IMPLEMENTATION ...)
; processing (DEFINE-CONDITION UNSUPPORTED ...)
; processing (DEFINE-CONDITION UNIMPLEMENTED ...)
; processing (DEFINE-CONDITION SOCKET-CONDITION ...)
; processing (DEFINE-CONDITION SOCKET-ERROR ...)
; processing (DEFINE-CONDITION NS-CONDITION ...)
; processing (DEFINE-CONDITION NS-ERROR ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO DEFINE-USOCKET-CONDITION-CLASSES ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (INTERRUPTED-CONDITION) ...)
; processing (DEFINE-CONDITION UNKNOWN-CONDITION ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (ADDRESS-IN-USE-ERROR ADDRESS-NOT-AVAILABLE-ERROR ...) ...)
; processing (DEFINE-CONDITION UNKNOWN-ERROR ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (NS-TRY-AGAIN-CONDITION) ...)
; processing (DEFINE-CONDITION NS-UNKNOWN-CONDITION ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (NS-HOST-NOT-FOUND-ERROR NS-NO-RECOVERY-ERROR) ...)
; processing (DEFINE-CONDITION NS-UNKNOWN-ERROR ...)
; processing (DEFMACRO WITH-MAPPED-CONDITIONS ...)
; processing (DEFPARAMETER +UNIX-ERRNO-CONDITION-MAP+ ...)
; processing (DEFPARAMETER +UNIX-ERRNO-ERROR-MAP+ ...)
; processing (DEFUN MAP-ERRNO-CONDITION ...)
; processing (DEFUN MAP-ERRNO-ERROR ...)
; processing (DEFPARAMETER +UNIX-NS-ERROR-MAP+ ...)
; processing (DEFMACRO UNSUPPORTED ...)
; processing (DEFMACRO UNIMPLEMENTED ...)
; processing (DEFMACRO IGNORE-UNSUPPORTED-WARNINGS ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/usocket/condition-tmpO7N5WXBL.fasl
; compilation finished in 0:00:00.144
; compiling file "/usr/share/common-lisp/source/usocket/backend/sbcl.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (PROGN (DEFUN GET-HOST-NAME ...))
; processing (DEFUN MAP-SOCKET-ERROR ...)
; processing (DEFPARAMETER +SBCL-CONDITION-MAP+ ...)
; processing (DEFPARAMETER +SBCL-ERROR-MAP+ ...)
; processing (DEFUN HANDLE-CONDITION ...)
; processing (DEFVAR *DUMMY-STREAM* ...)
; processing (DEFMACRO %WITH-TIMEOUT ...)
; processing (DEFUN GET-HOSTS-BY-NAME ...)
; processing (DEFUN SOCKET-CONNECT ...)

; file: /usr/share/common-lisp/source/usocket/backend/sbcl.lisp
; in: DEFUN SOCKET-CONNECT
;     (USOCKET::%WITH-TIMEOUT (USOCKET::TIMEOUT (ERROR 'TIMEOUT))
;       (USOCKET::CONNECT))
; --> TAGBODY FLET LET 
; ==>
;   (MAKE-TIMER #'#:G17)
; 
; note: could not stack allocate:
;        (%WITH-TIMEOUT (TIMEOUT (ERROR 'SB-EXT:TIMEOUT))
;          (CONNECT))

; processing (DEFUN SOCKET-LISTEN ...)
; processing (DEFMETHOD SOCKET-ACCEPT ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-SHUTDOWN ...)
; processing (DEFMETHOD SOCKET-SEND ...)
; processing (DEFMETHOD SOCKET-RECEIVE ...)

; file: /usr/share/common-lisp/source/usocket/backend/sbcl.lisp
; in: DEFMETHOD SOCKET-RECEIVE (DATAGRAM-USOCKET T T)
;     (DEFMETHOD USOCKET:SOCKET-RECEIVE
;                ((USOCKET:USOCKET USOCKET:DATAGRAM-USOCKET) USOCKET::BUFFER LENGTH
;                 &KEY (USOCKET::ELEMENT-TYPE '(UNSIGNED-BYTE 8)))
;       (DECLARE
;        (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (INTEGER 0)
;                (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16)))
;       (USOCKET:WITH-MAPPED-CONDITIONS (USOCKET:USOCKET)
;         (LET ((USOCKET::S #))
;           (SB-BSD-SOCKETS:SOCKET-RECEIVE USOCKET::S USOCKET::BUFFER LENGTH
;                                          :ELEMENT-TYPE USOCKET::ELEMENT-TYPE))))
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE
;    (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
;            (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &REST T)
;    (PROGN
;     (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;       (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS (# SB-PCL::.NEXT-METHOD-CALL. #
;                                               NIL :CALL-NEXT-METHOD-P NIL
;                                               :SETQ-P NIL :PARAMETERS-SETQD NIL
;                                               :METHOD-CELL # ...)
;         (DECLARE #)
;         (LOCALLY # #)))))
; 
; note: Type assertion too complex to check:
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
;         (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
;         (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &OPTIONAL).

; processing (DEFMETHOD GET-LOCAL-NAME ...)
; processing (DEFMETHOD GET-PEER-NAME ...)
; processing (DEFMETHOD GET-LOCAL-ADDRESS ...)
; processing (DEFMETHOD GET-PEER-ADDRESS ...)
; processing (DEFMETHOD GET-LOCAL-PORT ...)
; processing (DEFMETHOD GET-PEER-PORT ...)
; processing (DEFUN GET-HOST-BY-ADDRESS ...)
; processing (PROGN (DEFUN %SETUP-WAIT-LIST ...) ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/usocket/backend/sbcl-tmp7GPJW3WR.fasl
; compilation finished in 0:00:00.428
; compiling file "/usr/share/common-lisp/source/usocket/option.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFPARAMETER *BACKEND* ...)
; processing (DEFGENERIC SOCKET-OPTION ...)
; processing (DEFGENERIC (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/usocket/option-tmpESZVJLGB.fasl
; compilation finished in 0:00:00.236
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/package.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL+SSL ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/package-tmp861VENRV.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/reload.lisp" (written 18 MAY 2022 11:37:23 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN DETECT-MACOS-CUSTOM-OPENSSL-INSTALLATIONS ...)
; processing (DEFUN DETECT-CUSTOM-OPENSSL-INSTALLATIONS-IF-MACOS ...)
; processing (DETECT-CUSTOM-OPENSSL-INSTALLATIONS-IF-MACOS)
; processing (UNLESS CL+SSL/CONFIG::*LIBCRYPTO-OVERRIDE* ...)
; processing (UNLESS CL+SSL/CONFIG::*LIBSSL-OVERRIDE* ...)
; processing (UNLESS (MEMBER :CL+SSL-FOREIGN-LIBS-ALREADY-LOADED ...) ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/reload-tmp7MX18LSW.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/conditions.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN READ-SSL-ERROR-QUEUE ...)
; processing (DEFUN FORMAT-SSL-ERROR-QUEUE ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/conditions.lisp
; in: DEFUN FORMAT-SSL-ERROR-QUEUE
;     'CL+SSL::SSL-ERROR
; 
; note: can't open-code test of unknown type SSL-ERROR

;     (ETYPECASE CL+SSL::QUEUE-DESIGNATOR
;       (CL+SSL::SSL-ERROR (CL+SSL::SSL-ERROR-QUEUE CL+SSL::QUEUE-DESIGNATOR))
;       (LIST CL+SSL::QUEUE-DESIGNATOR))
; --> COND IF 
; ==>
;   (TYPEP #:G2 'CL+SSL::SSL-ERROR)
; 
; note: can't open-code test of unknown type SSL-ERROR

; processing (DEFINE-CONDITION CL+SSL-ERROR ...)
; processing (DEFINE-CONDITION SSL-ERROR ...)
; processing (DEFINE-CONDITION SSL-ERROR/HANDLE ...)
; processing (DEFINE-CONDITION SSL-ERROR-INITIALIZE ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-SOMETHING ...)
; processing (DEFINE-CONDITION SSL-ERROR-NONE ...)
; processing (DEFINE-CONDITION SSL-ERROR-ZERO-RETURN ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-READ ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-WRITE ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-CONNECT ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-X509-LOOKUP ...)
; processing (DEFINE-CONDITION SSL-ERROR-SYSCALL ...)
; processing (DEFINE-CONDITION SSL-ERROR-SSL ...)
; processing (DEFUN SSL-SIGNAL-ERROR ...)
; processing (DEFPARAMETER *SSL-VERIFY-ERROR-ALIST* ...)
; processing (DEFUN SSL-VERIFY-ERROR-KEYWORD ...)
; processing (DEFUN SSL-VERIFY-ERROR-CODE ...)
; processing (DEFINE-CONDITION SSL-ERROR-VERIFY ...)
; processing (DEFINE-CONDITION SSL-ERROR-CALL ...)
; processing (DEFINE-CONDITION ASN1-ERROR ...)
; processing (DEFINE-CONDITION INVALID-ASN1-STRING ...)
; processing (DEFINE-CONDITION SERVER-CERTIFICATE-MISSING ...)

; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/conditions-tmp4CP5SEFX.fasl
; compilation finished in 0:00:00.204
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi.lisp" (written 18 MAY 2022 11:37:23 PM):
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...)
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFPARAMETER *LATE-BOUND-FOREIGN-FUNCTION-POINTERS* ...)
; processing (DEFMACRO DEFCFUN-LATE-BOUND ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFMACRO DEFCFUN-LATE-BOUND
;     (LENGTH CL+SSL::NAME-AND-OPTIONS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; processing (DEFMACRO DEFCFUN-VERSIONED ...)
; processing (DEFVAR *CL+SSL-SSL-FOREIGN-FUNCTION-NAMES* ...)
; processing (DEFVAR *CL+SSL-CRYPTO-FOREIGN-FUNCTION-NAMES* ...)
; processing (DEFMACRO DEFINE-SSL-FUNCTION-EX ...)
; processing (DEFMACRO DEFINE-SSL-FUNCTION ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION-EX ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION ...)
; processing (DEFVAR *SSL-GLOBAL-CONTEXT* ...)
; processing (DEFVAR *SSL-GLOBAL-METHOD* ...)
; processing (DEFVAR *BIO-IS-OPAQUE* ...)
; processing (DEFVAR *LISP-BIO-TYPE*)
; processing (DEFVAR *BIO-LISP-METHOD* ...)
; processing (DEFPARAMETER *BLOCKP* ...)
; processing (DEFPARAMETER *PARTIAL-READ-P* ...)
; processing (DEFUN SSL-INITIALIZED-P ...)
; processing (DEFCONSTANT +SSL-FILETYPE-PEM+ ...)
; processing (DEFCONSTANT +SSL-FILETYPE-ASN1+ ...)
; processing (DEFCONSTANT +SSL-FILETYPE-DEFAULT+ ...)
; processing (DEFCONSTANT +SSL-CTRL-OPTIONS+ ...)
; processing (DEFCONSTANT +SSL_CTRL_SET_SESS_CACHE_MODE+ ...)
; processing (DEFCONSTANT +SSL_CTRL_MODE+ ...)
; processing (DEFCONSTANT +SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER+ ...)
; processing (DEFCONSTANT +RSA_F4+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-OFF+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-CLIENT+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-SERVER+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-BOTH+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-AUTO-CLEAR+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-LOOKUP+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-STORE+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-NONE+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-PEER+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-FAIL-IF-NO-PEER-CERT+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-CLIENT-ONCE+ ...)
; processing (DEFCONSTANT +SSL-OP-ALL+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-SSLV2+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-SSLV3+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1-2+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1-1+ ...)
; processing (DEFCONSTANT +SSL-CTRL-SET-MIN-PROTO-VERSION+ ...)
; processing (DEFCONSTANT +SSL-CTRL-SET-MAX-PROTO-VERSION+ ...)
; processing (DEFCONSTANT +SSL3-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-1-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-2-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-3-VERSION+ ...)
; processing (DEFCONSTANT +DTLS1-VERSION+ ...)
; processing (DEFCONSTANT +DTLS1-2-VERSION+ ...)
; processing (DEFVAR *TMP-RSA-KEY-512* ...)
; processing (DEFVAR *TMP-RSA-KEY-1024* ...)
; processing (DEFVAR *TMP-RSA-KEY-2048* ...)
; processing (DEFMACRO WHILE ...)
; processing (CFFI:DEFCFUN ("close" CLOSE-SOCKET) ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCFUN ("close" CLOSE-SOCKET)
;     (CFFI:DEFCFUN ("close" CL+SSL::CLOSE-SOCKET)
;         :INT
;       (CL+SSL::SOCKET :INT))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::CLOSE-SOCKET
;         (CL+SSL::SOCKET)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::CLOSE-SOCKET
;         (LET ((#:G0 CL+SSL::SOCKET))
;           (CFFI-SYS:%FOREIGN-FUNCALL "close" (:INT #:G0 :INT) :CONVENTION
;                                      :CDECL :LIBRARY :DEFAULT))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; processing (DECLAIM (INLINE SSL-WRITE ...))
; processing (CFFI:DEFCTYPE SSL-METHOD ...)
; processing (CFFI:DEFCTYPE SSL-CTX ...)
; processing (CFFI:DEFCTYPE SSL-POINTER ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLeay" CL+SSL::SSL-EAY)
;       :LONG)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-EAY
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY
;                                    CL+SSL/CONFIG::LIBCRYPTO)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
;     (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
;       (:SINCE "1.1.0")
;       ("OpenSSL_version_num" CL+SSL::OPENSSL-VERSION-NUM)
;       :LONG)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::OPENSSL-VERSION-NUM
;         (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; processing (DEFUN COMPAT-OPENSSL-VERSION ...)
; processing (DEFUN ENCODE-OPENSSL-VERSION ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN ENCODE-OPENSSL-VERSION
;     (DEFUN CL+SSL::ENCODE-OPENSSL-VERSION
;            (CL+SSL::MAJOR CL+SSL::MINOR
;             &OPTIONAL (CL+SSL::PATCH 0) (CL+SSL::PRERELEASE))
;       "Builds a version number to compare OpenSSL against.
;   Note: the _really_ old formats (<= 0.9.4) are not supported."
;       (DECLARE (TYPE (INTEGER 0 3) CL+SSL::MAJOR)
;                (TYPE (INTEGER 0 10) CL+SSL::MINOR)
;                (TYPE (INTEGER 0 20) CL+SSL::PATCH))
;       (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20) (ASH CL+SSL::PATCH 4)
;               (IF CL+SSL::PRERELEASE
;                   15
;                   0)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::ENCODE-OPENSSL-VERSION
;         (CL+SSL::MAJOR CL+SSL::MINOR &OPTIONAL (CL+SSL::PATCH 0)
;          (CL+SSL::PRERELEASE))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Builds a version number to compare OpenSSL against.
; Note: the _really_ old formats (<= 0.9.4) are not supported."
;       (DECLARE (TYPE (INTEGER 0 3) CL+SSL::MAJOR)
;                (TYPE (INTEGER 0 10) CL+SSL::MINOR)
;                (TYPE (INTEGER 0 20) CL+SSL::PATCH))
;       (BLOCK CL+SSL::ENCODE-OPENSSL-VERSION
;         (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20)
;                 (ASH CL+SSL::PATCH 4)
;                 (IF CL+SSL::PRERELEASE
;                     15
;                     0))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; processing (DEFUN OPENSSL-IS-AT-LEAST ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OPENSSL-IS-AT-LEAST
;     (>= (CL+SSL::COMPAT-OPENSSL-VERSION)
;         (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH
;          CL+SSL::PRERELEASE))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (DOUBLE-FLOAT * 8.15792463d8)
;                               (SINGLE-FLOAT * 8.1579245e8)
;                               (RATIONAL * 815792463)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a (MOD 815792464), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       etc.

; processing (DEFUN OPENSSL-IS-NOT-EVEN ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OPENSSL-IS-NOT-EVEN
;     (< (CL+SSL::COMPAT-OPENSSL-VERSION)
;        (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH
;         CL+SSL::PRERELEASE))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: forced to do full call
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a (MOD 815792464), not a FIXNUM.
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       etc.

; processing (DEFUN LIBRESSLP ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN LIBRESSLP
;     (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
;                                             (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; processing (DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION)
;     (CL+SSL::DEFINE-SSL-FUNCTION
;       ("SSL_get_version" CL+SSL::SSL-GET-VERSION)
;       :STRING
;       (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G0 :POINTER)
;                               :CONVENTION :CDECL :LIBRARY
;                               CL+SSL/CONFIG::LIBSSL)
;    #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSL_library_init" CL+SSL::SSL-LIBRARY-INIT)
;       :INT)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LIBRARY-INIT
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-LIBRARY-INIT
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSL_library_init" (:INT) :CONVENTION :CDECL
;                                    :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLv23_client_method" CL+SSL::SSL-V23-CLIENT-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER)
;                                    :CONVENTION :CDECL :LIBRARY
;                                    CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLv23_server_method" CL+SSL::SSL-V23-SERVER-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-V23-SERVER-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER)
;                                    :CONVENTION :CDECL :LIBRARY
;                                    CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLv23_method" CL+SSL::SSL-V23-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-V23-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLv3_client_method" CL+SSL::SSL-V3-CLIENT-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLv3_server_method" CL+SSL::SSL-V3-SERVER-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-V3-SERVER-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:VANISHED "1.1.0")
;       ("SSLv3_method" CL+SSL::SSL-V3-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-V3-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL
;                                    :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD)
;     (CL+SSL::DEFINE-SSL-FUNCTION
;       ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD)
;       CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD)
;     (CL+SSL::DEFINE-SSL-FUNCTION
;       ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD)
;       CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD)
;     (CL+SSL::DEFINE-SSL-FUNCTION
;       ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD)
;       CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL
;                                    :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:SINCE "1.0.2")
;       ("TLSv1_1_client_method" CL+SSL::SSL-TLSV1-1-CLIENT-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER)
;                                    :CONVENTION :CDECL :LIBRARY
;                                    CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:SINCE "1.0.2")
;       ("TLSv1_1_server_method" CL+SSL::SSL-TLSV1-1-SERVER-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER)
;                                    :CONVENTION :CDECL :LIBRARY
;                                    CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:SINCE "1.0.2")
;       ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-1-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION
;                                    :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:SINCE "1.0.2")
;       ("TLSv1_2_client_method" CL+SSL::SSL-TLSV1-2-CLIENT-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD
;         (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER)
;                                    :CONVENTION :CDECL :LIBRARY
;                                    CL+SSL/CONFIG::LIBSSL)))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)

; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
;     (CL+SSL::DEFINE-SSL-FUNCTION-EX
;       (:SINCE "1.0.2")
;       ("TLSv1_2_server_method" CL+SSL::SSL-TLSV1-2-SERVER-METHOD)
;       CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD
;         NIL
;       (DECL